Whitespace Stack Calculator « Python recipes

This is a stack-based calculator that can run in Whitespace.
Several functions and strings are written in its 1330 lines.
Modifications were made to the interpreter for debugging it.
      # Encode string "Items on stack: " (0)
     push 0
     push 16
     set
     push 1
     push 73
     set
     push 2
     push 116
     set
     push 3
     push 101
     set
     push 4
     push 109
     set
     push 5
     push 115
     set
     push 6
     push 32
     set
     push 7
     push 111
     set
     push 8
     push 110
     set
     push 9
     push 32
     set
     push 10
     push 115
     set
     push 11
     push 116
     set
     push 12
     push 97
     set
     push 13
     push 99
     set
     push 14
     push 107
     set
     push 15
     push 58
     set
     push 16
     push 32
     set
# Encode string '' (17)

# HEAP[17] already equals 0.

# Encode string 'Number to add to stack: ' (18)
     push 18
     push 24
     set
     push 19
     push 78
     set
     push 20
     push 117
     set
     push 21
     push 109
     set
     push 22
     push 98
     set
     push 23
     push 101
     set
     push 24
     push 114
     set
     push 25
     push 32
     set
     push 26
     push 116
     set
     push 27
     push 111
     set
     push 28
     push 32
     set
     push 29
     push 97
     set
     push 30
     push 100
     set
     push 31
     push 100
     set
     push 32
     push 32
     set
     push 33
     push 116
     set
     push 34
     push 111
     set
     push 35
     push 32
     set
     push 36
     push 115
     set
     push 37
     push 116
     set
     push 38
     push 97
     set
     push 39
     push 99
     set
     push 40
     push 107
     set
     push 41
     push 58
     set
     push 42
     push 32
     set
# Encode string 'Do want to add a number? ' (43)
     push 43
     push 25
     set
     push 44
     push 68
     set
     push 45
     push 111
     set
     push 46
     push 32
     set
     push 47
     push 119
     set
     push 48
     push 97
     set
     push 49
     push 110
     set
     push 50
     push 116
     set
     push 51
     push 32
     set
     push 52
     push 116
     set
     push 53
     push 111
     set
     push 54
     push 32
     set
     push 55
     push 97
     set
     push 56
     push 100
     set
     push 57
     push 100
     set
     push 58
     push 32
     set
     push 59
     push 97
     set
     push 60
     push 32
     set
     push 61
     push 110
     set
     push 62
     push 117
     set
     push 63
     push 109
     set
     push 64
     push 98
     set
     push 65
     push 101
     set
     push 66
     push 114
     set
     push 67
     push 63
     set
     push 68
     push 32
     set
# Encode string 'yn' (69)
     push 69
     push 2
     set
     push 70
     push 121
     set
     push 71
     push 110
     set
# Encode string '\b' (72)
     push 72
     push 1
     set
     push 73
     push 8
     set
# Encode string ' ' (74)
     push 74
     push 1
     set
     push 75
     push 32
     set
# Encode string 'MENU\n====\n+ = Add\n- = Sub\n* = Mul\n
# / = Div\n% = Mod\nT = Top\nD = Dump\nQ = Quit\nChoice? ' (76)
     push 76
     push 84
     set
     push 77
     push 77
     set
     push 78
     push 69
     set
     push 79
     push 78
     set
     push 80
     push 85
     set
     push 81
     push 10
     set
     push 82
     push 61
     set
     push 83
     push 61
     set
     push 84
     push 61
     set
     push 85
     push 61
     set
     push 86
     push 10
     set
     push 87
     push 43
     set
     push 88
     push 32
     set
     push 89
     push 61
     set
     push 90
     push 32
     set
     push 91
     push 65
     set
     push 92
     push 100
     set
     push 93
     push 100
     set
     push 94
     push 10
     set
     push 95
     push 45
     set
     push 96
     push 32
     set
     push 97
     push 61
     set
     push 98
     push 32
     set
     push 99
     push 83
     set
     push 100
     push 117
     set
     push 101
     push 98
     set
     push 102
     push 10
     set
     push 103
     push 42
     set
     push 104
     push 32
     set
     push 105
     push 61
     set
     push 106
     push 32
     set
     push 107
     push 77
     set
     push 108
     push 117
     set
     push 109
     push 108
     set
     push 110
     push 10
     set
     push 111
     push 47
     set
     push 112
     push 32
     set
     push 113
     push 61
     set
     push 114
     push 32
     set
     push 115
     push 68
     set
     push 116
     push 105
     set
     push 117
     push 118
     set
     push 118
     push 10
     set
     push 119
     push 37
     set
     push 120
     push 32
     set
     push 121
     push 61
     set
     push 122
     push 32
     set
     push 123
     push 77
     set
     push 124
     push 111
     set
     push 125
     push 100
     set
     push 126
     push 10
     set
     push 127
     push 84
     set
     push 128
     push 32
     set
     push 129
     push 61
     set
     push 130
     push 32
     set
     push 131
     push 84
     set
     push 132
     push 111
     set
     push 133
     push 112
     set
     push 134
     push 10
     set
     push 135
     push 68
     set
     push 136
     push 32
     set
     push 137
     push 61
     set
     push 138
     push 32
     set
     push 139
     push 68
     set
     push 140
     push 117
     set
     push 141
     push 109
     set
     push 142
     push 112
     set
     push 143
     push 10
     set
     push 144
     push 81
     set
     push 145
     push 32
     set
     push 146
     push 61
     set
     push 147
     push 32
     set
     push 148
     push 81
     set
     push 149
     push 117
     set
     push 150
     push 105
     set
     push 151
     push 116
     set
     push 152
     push 10
     set
     push 153
     push 67
     set
     push 154
     push 104
     set
     push 155
     push 111
     set
     push 156
     push 105
     set
     push 157
     push 99
     set
     push 158
     push 101
     set
     push 159
     push 63
     set
     push 160
     push 32
     set
# Encode string '+-*/%tdq' (161)
     push 161
     push 8
     set
     push 162
     push 43
     set
     push 163
     push 45
     set
     push 164
     push 42
     set
     push 165
     push 47
     set
     push 166
     push 37
     set
     push 167
     push 116
     set
     push 168
     push 100
     set
     push 169
     push 113
     set
# Encode string 'Top: ' (170)
     push 170
     push 5
     set
     push 171
     push 84
     set
     push 172
     push 111
     set
     push 173
     push 112
     set
     push 174
     push 58
     set
     push 175
     push 32
     set
# Encode string 'Stack[' (176)
     push 176
     push 6
     set
     push 177
     push 83
     set
     push 178
     push 116
     set
     push 179
     push 97
     set
     push 180
     push 99
     set
     push 181
     push 107
     set
     push 182
     push 91
     set
# Encode string '] = ' (183)
     push 183
     push 4
     set
     push 184
     push 93
     set
     push 185
     push 32
     set
     push 186
     push 61
     set
     push 187
     push 32
     set
# Encode string 'Error: ' (188)
     push 188
     push 7
     set
     push 189
     push 69
     set
     push 190
     push 114
     set
     push 191
     push 114
     set
     push 192
     push 111
     set
     push 193
     push 114
     set
     push 194
     push 58
     set
     push 195
     push 32
     set
# Encode string 'DIV' (196)
     push 196
     push 3
     set
     push 197
     push 68
     set
     push 198
     push 73
     set
     push 199
     push 86
     set
# Encode string ' is illegal.' (200)
     push 200
     push 12
     set
     push 201
     push 32
     set
     push 202
     push 105
     set
     push 203
     push 115
     set
     push 204
     push 32
     set
     push 205
     push 105
     set
     push 206
     push 108
     set
     push 207
     push 108
     set
     push 208
     push 101
     set
     push 209
     push 103
     set
     push 210
     push 97
     set
     push 211
     push 108
     set
     push 212
     push 46
     set
# Encode string 'MOD' (213)
     push 213
     push 3
     set
     push 214
     push 77
     set
     push 215
     push 79
     set
     push 216
     push 68
     set
# This is the main program loop.
# Stack starts at HEAP[217]
part "MAIN"
     push 217
     call "STACK_SIZE"
     push 217
     call "GET_INPUT"
     goto "MAIN"
# def get_number(stack):
#     print('Number to add to stack: ')
#     number = int(input())
#     append(stack, number)
part "GET_NUMBER"
     push 18
     call "PRINT"
     push -1
     copy
     iint
     get
     call "APPEND"
     back
# def append(stack, number):
#     ptr = arg[0]
#     val = get(ptr)
#     val += 1
#     set(prt, val)
#     #
#     a = stack
#     b = stack
#     b = get(stack)
#     ptr = a + b
#     set(ptr, number)
#     del stack_ptr
part "APPEND"
# Increase stack size by one
     copy 1
     get
     push 1
     add
     copy 2
     swap
     set
# Store number in the open spot.
     copy 1
     copy 2
     get
     add
     swap
     set
     away
     back
# def in_array(array, key):
#     if len(array) <= 0:
#         return 0
#     offset = 1
#     while offset - len(array) >= 0:
#          ptr = array.ptr + offset
#          if array[ptr] == key:
#              return 1
#          offset += 1
#     return 0
part "IN_ARRAY"
# Line 1-2
     copy 1
     get
     less "__IA_RET_1"
     copy 1
     get
     zero "__IA_RET_1"
# Line 3
     push 1
# Line 4
part "__IA_LOOP"
     copy
     copy 3
     get
     swap
     sub
     less "__IA_RET_2"
# Line 5
     copy 2
     copy 1
     add
# Line 6
     get
     copy 2
     sub
     zero "__IA_RET_3"
# Line 8
     push 1
     add
     goto "__IA_LOOP"
# Line 9
part "__IA_RET_3"
     away
     push 1
     away 2
     back
part "__IA_RET_2"
     away
part "__IA_RET_1"
     push 0
     away 2
     back
# def get_key_press(array):
#     while True:
#         key = getch()
#         found = in_array(array, key)
#         if found:
#             return key
#         if key == '\b':
#             putch(' ')
#         else:
#             putch('\b')
#             putch(' ')
#             putch('\b')
part "GET_KEY_PRESS"
# Line 2
     push -1
     copy
     ichr
     get
# Line 3
     copy 1
     copy 1
     call "IN_ARRAY"
# Line 4
     zero "__GKP_FIX"
# Line 5
     away 1
     back
part "__GKP_FIX"
# Line 6
     push 8
     sub
     zero "__GKP_PRINT_SPACE"
# Line 8-11
     push 72
     call "PRINT"
     push 74
     call "PRINT"
     push 72
     call "PRINT"
     goto "GET_KEY_PRESS"
part "__GKP_PRINT_SPACE"
# Line 7
     push 74
     call "PRINT"
     goto "GET_KEY_PRESS"
# def get_mode():
#     print('Do want to add a number? ')
#     key = get_key_press('yn')
#     print()
#     if key == 'y':
#         return 1
#     return 0
part "GET_MODE"
     push 43
     call "PRINT"
     push 69
     call "GET_KEY_PRESS"
     push 17
     call "PRINT_LINE"
     push 121
     sub
     zero "__GM_RETURN"
     push 0
     back
part "__GM_RETURN"
     push 1
     back
# def add_array(array):
#     array.len -= 1
#     end_ptr = array.ptr + array.len
#     last1 = array[end_ptr + 1]
#     last2 = array[end_ptr]
#     end, array = last1 + last2, array
#     array[array.ptr + array.len] = end
part "ADD_ARRAY"
# Line 1
     copy
     copy
     get
     push 1
     sub
     set
# Line 2
     copy
     copy
     get
     add
# Line 3
     copy
     push 1
     add
     get
# Line 4
     swap
     get
# Line 5
     add
     swap
# Line 6
     copy
     get
     add
     swap
     set
     back
# def sub_array(array):
#     array.len -= 1
#     end_ptr = array.ptr + array.len
#     last1 = array[end_ptr + 1]
#     last2 = array[end_ptr]
#     end, array = last2 - last1, array
#     array[array.ptr + array.len] = end
part "SUB_ARRAY"
# Line 1
     copy
     copy
     get
     push 1
     sub
     set
# Line 2
     copy
     copy
     get
     add
# Line 3
     copy
     push 1
     add
     get
# Line 4
     swap
     get
# Line 5
     swap
     sub
     swap
# Line 6
     copy
     get
     add
     swap
     set
     back
# def mul_array(array):
#     array.len -= 1
#     end_ptr = array.ptr + array.len
#     last1 = array[end_ptr + 1]
#     last2 = array[end_ptr]
#     end, array = last1 * last2, array
#     array[array.ptr + array.len] = end
part "MUL_ARRAY"
# Line 1
     copy
     copy
     get
     push 1
     sub
     set
# Line 2
     copy
     copy
     get
     add
# Line 3
     copy
     push 1
     add
     get
# Line 4
     swap
     get
# Line 5
     mul
     swap
# Line 6
     copy
     get
     add
     swap
     set
     back
# def show_last(array):
#     print('Top: ')
#     ptr = len(array) + array.ptr
#     print(*ptr)
#     print()
part "SHOW_LAST"
# Line 1
     push 170
     call "PRINT"
# Line 2
     copy
     get
     add
# Line 3
     get
     oint
# Line 4
     push 17
     call "PRINT_LINE"
     back
# def dump_array(array):
#     if len(array) <= 0:
#         return
#     offset = 1
#     while len(array) - offset >= 0:
#          ptr = array.ptr + offset
#          sys.stdout.write('Stack[')
#          sys.stdout.write(str(offset))
#          sys.stdout.write('] = ')
#          sys.stdout.write(array[ptr])
#          print()
#          offset += 1
part "DUMP_ARRAY"
# Line 1-2
     copy
     get
     less "__DA_RET_1"
     copy
     get
     zero "__DA_RET_1"
# Line 3
     push 1
# Line 4
part "__DA_LOOP"
     copy
     copy 2
     get
     swap
     sub
     less "__DA_RET_2"
# Line 5
     copy 1
     copy 1
     add
# Line 6
     push 176
     call "PRINT"
# Line 7
     copy 1
     oint
# Line 8
     push 183
     call "PRINT"
# Line 9
     get
     oint
# Line 10
     push 17
     call "PRINT_LINE"
# Line 11
     push 1
     add
     goto "__DA_LOOP"
part "__DA_RET_2"
     away
part "__DA_RET_1"
     away
     back
# def div_array(array):
#     last = array[-1]
#     if last == 0:
#         sys.stdout.write('Error: ')
#         sys.stdout.write('DIV')
#         sys.stdout.write_line(' is illegal.')
#         return
#     array.len -= 1
#     end_ptr = array.ptr + array.len
#     last1 = array[end_ptr + 1]
#     last2 = array[end_ptr]
#     end, array = last2 / last1, array
#     array[array.ptr + array.len] = end
part "DIV_ARRAY"
# Line 1
     copy
     copy
     get
     add
     get
# Line 2
     zero "__DA_ZERO"
     goto "__DA_OKAY"
part "__DA_ZERO"
# Line 3-5
     push 188
     call "PRINT"
     push 196
     call "PRINT"
     push 200
     call "PRINT_LINE"
# Line 6
     away
     back
part "__DA_OKAY"
# Line 7
     copy
     copy
     get
     push 1
     sub
     set
# Line 8
     copy
     copy
     get
     add
# Line 9
     copy
     push 1
     add
     get
# Line 10
     swap
     get
# Line 11
     swap
     div
     swap
# Line 12
     copy
     get
     add
     swap
     set
     back
# def mod_array(array):
#     last = array[-1]
#     if last == 0:
#         sys.stdout.write('Error: ')
#         sys.stdout.write('MOD')
#         sys.stdout.write_line(' is illegal.')
#         return
#     array.len -= 1
#     end_ptr = array.ptr + array.len
#     last1 = array[end_ptr + 1]
#     last2 = array[end_ptr]
#     end, array = last2 % last1, array
#     array[array.ptr + array.len] = end
part "MOD_ARRAY"
# Line 1
     copy
     copy
     get
     add
     get
# Line 2
     zero "__MA_ZERO"
     goto "__MA_OKAY"
part "__MA_ZERO"
# Line 3-5
     push 188
     call "PRINT"
     push 213
     call "PRINT"
     push 200
     call "PRINT_LINE"
# Line 6
     away
     back
part "__MA_OKAY"
# Line 7
     copy
     copy
     get
     push 1
     sub
     set
# Line 8
     copy
     copy
     get
     add
# Line 9
     copy
     push 1
     add
     get
# Line 10
     swap
     get
# Line 11
     swap
     mod
     swap
# Line 12
     copy
     get
     add
     swap
     set
     back
# def do_action(stack):
#     print(MENU)
#     key = get_key_press('+-*/%tdq')
#     print()
#     if key == '+':
#         add_array(array)
#     elif key == '-':
#         sub_array(array)
#     elif key == '*':
#         mul_array(array)
#     elif key == '/':
#         div_array(array)
#     elif key == '%':
#         mod_array(array)
#     elif key == 't':
#         show_last(array)
#     elif key == 'd':
#         dump_array(array)
#     else:
#         sys.exit()
part "DO_ACTION"
     push 76
     call "PRINT"
     push 161
     call "GET_KEY_PRESS"
     push 17
     call "PRINT_LINE"
     copy
     push 43
     sub
     zero "__DA_ADD"
     copy
     push 45
     sub
     zero "__DA_SUB"
     copy
     push 42
     sub
     zero "__DA_MUL"
     copy
     push 47
     sub
     zero "__DA_DIV"
     copy
     push 37
     sub
     zero "__DA_MOD"
     copy
     push 116
     sub
     zero "__DA_TOP"
     push 100
     sub
     zero "__DA_DUMP"
# Here are several function calls.
     exit
part "__DA_DUMP"
     call "DUMP_ARRAY"
     back
part "__DA_TOP"
     away
     call "SHOW_LAST"
     back
part "__DA_MOD"
     away
     call "MOD_ARRAY"
     back
part "__DA_DIV"
     away
     call "DIV_ARRAY"
     back
part "__DA_MUL"
     away
     call "MUL_ARRAY"
     back
part "__DA_SUB"
     away
     call "SUB_ARRAY"
     back
part "__DA_ADD"
     away
     call "ADD_ARRAY"
     back
# def get_input(stack):
#     if len(stack) < 2:
#         get_number(stack)
#     else:
#         if get_mode() == 0:
#             do_action(stack)
#         else:
#             get_number(stack)
part "GET_INPUT"
     copy
     get
     push 2
     sub
     less "__GI_IF_1"
     call "GET_MODE"
     zero "__GI_IF_2"
part "__GI_IF_1"
     call "GET_NUMBER"
     back
part "__GI_IF_2"
     call "DO_ACTION"
     back
# Prints out size of a stack.
# push addr
# call "STACK_SIZE"
part "STACK_SIZE"
     push 0
     call "PRINT"
     get
     oint
     push 17
     call "PRINT_LINE"
     back
# Prints a string with newline.
# push addr
# call "PRINT_LINE"
part "PRINT_LINE"
     call "PRINT"
     push 10
     ochr
     back
# def print(array):
#     if len(array) <= 0:
#         return
#     offset = 1
#     while len(array) - offset >= 0:
#          ptr = array.ptr + offset
#          putch(array[ptr])
#          offset += 1
part "PRINT"
# Line 1-2
     copy
     get
     less "__PRINT_RET_1"
     copy
     get
     zero "__PRINT_RET_1"
# Line 3
     push 1
# Line 4
part "__PRINT_LOOP"
     copy
     copy 2
     get
     swap
     sub
     less "__PRINT_RET_2"
# Line 5
     copy 1
     copy 1
     add
# Line 6
     get
     ochr
# Line 7
     push 1
     add
     goto "__PRINT_LOOP"
part "__PRINT_RET_2"
     away
part "__PRINT_RET_1"
     away
     back

      
Tags: assembly, whitespace
1 comment

Stephen Chappell (author) 14 years, 1 month ago # | flag
See both recipe 577108 and recipe 577110 to execute.
◄	Python recipes (4591)	►
◄	Stephen Chappell's recipes (233)	►
◄	Whitespace Language (5)	►
Whitespace Stack Calculator (Python recipe) by Stephen Chappell
ActiveState Code (http://code.activestate.com/recipes/577112/)

1 comment

Tags

Required Modules

Other Information and Tasks

Accounts

Code Recipes

Feedback & Information

ActiveState

Whitespace Stack Calculator (Python recipe) by Stephen Chappell ActiveState Code (http://code.activestate.com/recipes/577112/)

1 comment

Tags

Required Modules

Other Information and Tasks

Accounts

Code Recipes

Feedback & Information

ActiveState

Whitespace Stack Calculator (Python recipe) by Stephen Chappell
ActiveState Code (http://code.activestate.com/recipes/577112/)
