Pe000: e000: 4cb0e2 jmp cold ; ; Called by: e29eh ; rdkey: ; Jumped from: e006h e003: ad11d0 lda 0d011h e006: 10fb bpl rdkey e008: ad10d0 lda 0d010h e00b: 60 rts ; Returns to: e2a1h ; ; Called by: e0edh ; Le00c: ; Jumped from: effdh e00c: 8a txa e00d: 2920 and #20h e00f: f023 beq 0e034h ; ; Called by: e092h ; Le011: e011: a9a0 lda #0a0h e013: 85e4 sta 0e4h e015: 4cc9e3 jmp cout ; ; Called by: e083h ; Le018: e018: a920 lda #20h ; ; Called by: e09bh ; Le01a: e01a: c524 cmp 24h e01c: b00c bcs nextbyte e01e: a98d lda #8dh e020: a007 ldy #07h Le022: ; Jumped from: e028h e022: 20c9e3 jsr cout Le025: e025: a9a0 lda #0a0h e027: 88 dey e028: d0f8 bne 0e022h ; ; Called by: e073h, e079h, e07dh ; nextbyte: ; Jumped from: e01ch e02a: a000 ldy #00h e02c: b1e2 lda (0e2h),y e02e: e6e2 inc 0e2h e030: d002 bne 0e034h e032: e6e3 inc 0e3h Le034: ; Jumped from: e00fh, e030h, e043h, e06bh e034: 60 rts ; Returns to: e076h, e07ch, e080h, e086h, e09eh, e0d9h, e0f0h list_comman: e035: 2015e7 jsr get16bit Le038: e038: 2076e5 jsr find_line2 Le03b: ; Jumped from: e048h, e05bh e03b: a5e2 lda 0e2h e03d: c5e6 cmp 0e6h e03f: a5e3 lda 0e3h e041: e5e7 sbc 0e7h e043: b0ef bcs 0e034h e045: 206de0 jsr list_line Le048: e048: 4c3be0 jmp 0e03bh list_all: e04b: a5ca lda 0cah e04d: 85e2 sta 0e2h e04f: a5cb lda 0cbh e051: 85e3 sta 0e3h e053: a54c lda 4ch e055: 85e6 sta 0e6h e057: a54d lda 4dh e059: 85e7 sta 0e7h e05b: d0de bne 0e03bh list_cmd: e05d: 2015e7 jsr get16bit Le060: e060: 206de5 jsr find_line Le063: e063: a5e4 lda 0e4h e065: 85e2 sta 0e2h e067: a5e5 lda 0e5h e069: 85e3 sta 0e3h e06b: b0c7 bcs 0e034h ; ; Called by: e045h ; list_line: e06d: 86d8 stx 0d8h e06f: a9a0 lda #0a0h e071: 85fa sta 0fah e073: 202ae0 jsr nextbyte Le076: e076: 98 tya list_int: ; Jumped from: e08ch e077: 85e4 sta 0e4h e079: 202ae0 jsr nextbyte Le07c: e07c: aa tax e07d: 202ae0 jsr nextbyte Le080: e080: 201be5 jsr prdec Le083: ; Jumped from: e0f7h e083: 2018e0 jsr 0e018h Le086: e086: 84fa sty 0fah e088: aa tax e089: 1018 bpl list_token e08b: 0a asl a e08c: 10e9 bpl list_int e08e: a5e4 lda 0e4h e090: d003 bne 0e095h e092: 2011e0 jsr 0e011h Le095: ; Jumped from: e090h e095: 8a txa Le096: ; Jumped from: e09fh e096: 20c9e3 jsr cout Le099: ; Jumped from: e0f3h, e0f9h e099: a925 lda #25h e09b: 201ae0 jsr 0e01ah Le09e: e09e: aa tax e09f: 30f5 bmi 0e096h e0a1: 85e4 sta 0e4h list_token: ; Jumped from: e089h e0a3: c901 cmp #01h e0a5: d005 bne 0e0ach e0a7: a6d8 ldx 0d8h e0a9: 4ccde3 jmp crout Le0ac: ; Jumped from: e0a5h e0ac: 48 pha e0ad: 84ce sty 0ceh e0af: a2ed ldx #0edh e0b1: 86cf stx 0cfh e0b3: c951 cmp #51h e0b5: 9004 bcc 0e0bbh e0b7: c6cf dec 0cfh e0b9: e950 sbc #50h Le0bb: ; Jumped from: e0b5h, e0d0h e0bb: 48 pha e0bc: b1ce lda (0ceh),y Le0be: ; Jumped from: e0c2h, e0cah e0be: aa tax e0bf: 88 dey e0c0: b1ce lda (0ceh),y e0c2: 10fa bpl 0e0beh e0c4: e0c0 cpx #0c0h e0c6: b004 bcs 0e0cch e0c8: e000 cpx #00h e0ca: 30f2 bmi 0e0beh Le0cc: ; Jumped from: e0c6h e0cc: aa tax e0cd: 68 pla e0ce: e901 sbc #01h e0d0: d0e9 bne 0e0bbh e0d2: 24e4 bit 0e4h e0d4: 3003 bmi 0e0d9h e0d6: 20f8ef jsr 0eff8h Le0d9: ; Jumped from: e0d4h, e0ebh e0d9: b1ce lda (0ceh),y e0db: 1010 bpl 0e0edh e0dd: aa tax e0de: 293f and #3fh e0e0: 85e4 sta 0e4h e0e2: 18 clc e0e3: 69a0 adc #0a0h e0e5: 20c9e3 jsr cout Le0e8: e0e8: 88 dey e0e9: e0c0 cpx #0c0h e0eb: 90ec bcc 0e0d9h Le0ed: ; Jumped from: e0dbh e0ed: 200ce0 jsr 0e00ch Le0f0: e0f0: 68 pla e0f1: c95d cmp #5dh e0f3: f0a4 beq 0e099h e0f5: c928 cmp #28h e0f7: d08a bne 0e083h e0f9: f09e beq 0e099h e0fb: 2018e1 jsr 0e118h Le0fe: e0fe: 9550 sta 50h,x e100: d578 cmp 78h, x Le102: ; Jumped from: e129h, efe9h e102: 9011 bcc 0e115h string_err: ; Jumped from: e10eh, e11bh e104: a02b ldy #2bh go_errmess_1: ; Jumped from: e12eh, e16fh e106: 4ce0e3 jmp print_err_msg comma_substr: e109: 2034ee jsr getbyte Le10c: e10c: d550 cmp 50h, x e10e: 90f4 bcc string_err e110: 20e4ef jsr 0efe4h Le113: e113: 9578 sta 78h,x Le115: ; Jumped from: e102h e115: 4c23e8 jmp left_paren ; ; Called by: e0fbh, e121h, e130h ; Le118: e118: 2034ee jsr getbyte Le11b: e11b: f0e7 beq string_err e11d: 38 sec e11e: e901 sbc #01h e120: 60 rts ; Returns to: e0feh, e124h, e133h str_arr_dest: e121: 2018e1 jsr 0e118h Le124: e124: 9550 sta 50h,x e126: 18 clc e127: f578 sbc 78h, x e129: 4c02e1 jmp 0e102h Le12c: ; Jumped from: e147h e12c: a014 ldy #14h e12e: d0d6 bne go_errmess_1 e130: 2018e1 jsr 0e118h Le133: e133: e8 inx Le134: ; Jumped from: ef21h e134: b550 lda 50h, x e136: 85da sta 0dah e138: 65ce adc 0ceh e13a: 48 pha e13b: a8 tay e13c: b578 lda 78h, x e13e: 85db sta 0dbh e140: 65cf adc 0cfh e142: 48 pha e143: c4ca cpy 0cah e145: e5cb sbc 0cbh e147: b0e3 bcs 0e12ch e149: a5da lda 0dah e14b: 69fe adc #0feh e14d: 85da sta 0dah e14f: a9ff lda #0ffh e151: a8 tay e152: 65db adc 0dbh e154: 85db sta 0dbh Le156: ; Jumped from: e15fh e156: c8 iny e157: b1da lda (0dah),y e159: d9cc00 cmp 00cch, y e15c: d00f bne 0e16dh e15e: 98 tya e15f: f0f5 beq 0e156h Le161: ; Jumped from: e168h e161: 68 pla e162: 91da sta (0dah),y e164: 99cc00 sta 00cch,y e167: 88 dey e168: 10f7 bpl 0e161h e16a: e8 inx e16b: 60 rts Le16c: e16c: ea nop Le16d: ; Jumped from: e15ch e16d: a080 ldy #80h Le16f: ; Jumped from: e1ach e16f: d095 bne go_errmess_1 ; ; Called by: efb6h ; input_str: e171: a900 lda #00h e173: 200ae7 jsr push_a_noun_stk Le176: e176: a002 ldy #02h e178: 9478 sty 78h,x e17a: 200ae7 jsr push_a_noun_stk Le17d: e17d: a9bf lda #0bfh e17f: 20c9e3 jsr cout Le182: e182: a000 ldy #00h e184: 209ee2 jsr read_line Le187: e187: 9478 sty 78h,x e189: ea nop e18a: ea nop e18b: ea nop e18c: b551 lda 51h, x e18e: 85ce sta 0ceh e190: b579 lda 79h, x e192: 85cf sta 0cfh e194: e8 inx e195: e8 inx e196: 20bce1 jsr 0e1bch Le199: ; Jumped from: e1b2h e199: b54e lda 4eh, x e19b: d576 cmp 76h, x e19d: b015 bcs 0e1b4h e19f: f64e inc 4eh, y e1a1: a8 tay e1a2: b1ce lda (0ceh),y e1a4: b450 ldy 50h, x e1a6: c4e4 cpy 0e4h e1a8: 9004 bcc 0e1aeh e1aa: a083 ldy #83h e1ac: d0c1 bne 0e16fh Le1ae: ; Jumped from: e1a8h e1ae: 91da sta (0dah),y e1b0: f650 inc 50h, y e1b2: 90e5 bcc 0e199h Le1b4: ; Jumped from: e19dh e1b4: b450 ldy 50h, x e1b6: 8a txa e1b7: 91da sta (0dah),y e1b9: e8 inx e1ba: e8 inx e1bb: 60 rts ; Returns to: efb9h ; ; Called by: e196h ; Le1bc: e1bc: b551 lda 51h, x e1be: 85da sta 0dah e1c0: 38 sec e1c1: e902 sbc #02h e1c3: 85e4 sta 0e4h e1c5: b579 lda 79h, x e1c7: 85db sta 0dbh e1c9: e900 sbc #00h e1cb: 85e5 sta 0e5h e1cd: a000 ldy #00h e1cf: b1e4 lda (0e4h),y e1d1: 18 clc e1d2: e5da sbc 0dah e1d4: 85e4 sta 0e4h e1d6: 60 rts ; Returns to: e199h ; ; Called by: e21ch ; string_eq: e1d7: b553 lda 53h, x e1d9: 85ce sta 0ceh e1db: b57b lda 7bh, x e1dd: 85cf sta 0cfh e1df: b551 lda 51h, x e1e1: 85da sta 0dah e1e3: b579 lda 79h, x e1e5: 85db sta 0dbh e1e7: e8 inx e1e8: e8 inx e1e9: e8 inx e1ea: a000 ldy #00h e1ec: 9478 sty 78h,x e1ee: 94a0 sty 0a0h,x e1f0: c8 iny e1f1: 9450 sty 50h,x Le1f3: ; Jumped from: e21ah e1f3: b54d lda 4dh, x e1f5: d575 cmp 75h, x e1f7: 08 php e1f8: 48 pha e1f9: b54f lda 4fh, x e1fb: d577 cmp 77h, x e1fd: 9007 bcc 0e206h e1ff: 68 pla e200: 28 plp e201: b002 bcs 0e205h Le203: ; Jumped from: e20eh, e214h e203: 5650 lsr 50h, x Le205: ; Jumped from: e201h e205: 60 rts ; Returns to: e21fh Le206: ; Jumped from: e1fdh e206: a8 tay e207: b1ce lda (0ceh),y e209: 85e4 sta 0e4h e20b: 68 pla e20c: a8 tay e20d: 28 plp e20e: b0f3 bcs 0e203h e210: b1da lda (0dah),y e212: c5e4 cmp 0e4h e214: d0ed bne 0e203h e216: f64f inc 4fh, y e218: f64d inc 4dh, y e21a: b0d7 bcs 0e1f3h e21c: 20d7e1 jsr string_eq Le21f: e21f: 4c36e7 jmp not_op mult_op: e222: 2054e2 jsr 0e254h Le225: ; Jumped from: e23fh e225: 06ce asl 0ceh e227: 26cf rol 0cfh e229: 900d bcc 0e238h e22b: 18 clc e22c: a5e6 lda 0e6h e22e: 65da adc 0dah e230: 85e6 sta 0e6h e232: a5e7 lda 0e7h e234: 65db adc 0dbh e236: 85e7 sta 0e7h Le238: ; Jumped from: e229h e238: 88 dey e239: f009 beq 0e244h e23b: 06e6 asl 0e6h e23d: 26e7 rol 0e7h e23f: 10e4 bpl 0e225h e241: 4c7ee7 jmp 0e77eh Le244: ; Jumped from: e239h, e27dh, ef1bh e244: a5e6 lda 0e6h e246: 2008e7 jsr push_ya_noun_stk Le249: e249: a5e7 lda 0e7h e24b: 95a0 sta 0a0h,x e24d: 06e5 asl 0e5h e24f: 9028 bcc 0e279h e251: 4c6fe7 jmp negate ; ; Called by: e222h, ee6ch ; Le254: e254: a955 lda #55h e256: 85e5 sta 0e5h e258: 205be2 jsr 0e25bh ; ; Called by: e258h ; Le25b: e25b: a5ce lda 0ceh e25d: 85da sta 0dah e25f: a5cf lda 0cfh e261: 85db sta 0dbh e263: 2015e7 jsr get16bit Le266: e266: 84e6 sty 0e6h e268: 84e7 sty 0e7h e26a: a5cf lda 0cfh e26c: 1009 bpl 0e277h e26e: ca dex e26f: 06e5 asl 0e5h e271: 206fe7 jsr negate Le274: e274: 2015e7 jsr get16bit Le277: ; Jumped from: e26ch e277: a010 ldy #10h Le279: ; Jumped from: e24fh e279: 60 rts ; Returns to: e225h, e25bh, ee6fh mod_op: ; Jumped from: ef7dh e27a: 206cee jsr 0ee6ch Le27d: e27d: f0c5 beq 0e244h ; ; Inline data region (e27fh-e27fh): ; e27f: ff db ffh Le280: ; Jumped from: e2a8h e280: c984 cmp #84h e282: d002 bne 0e286h e284: 46f8 lsr 0f8h Le286: ; Jumped from: e282h e286: c9df cmp #0dfh e288: f011 beq 0e29bh e28a: c99b cmp #9bh e28c: f006 beq 0e294h e28e: 990002 sta 0200h,y e291: c8 iny e292: 100a bpl read_line Le294: ; Jumped from: e28ch, e29ch e294: a08b ldy #8bh e296: 20c4e3 jsr 0e3c4h ; ; Called by: ebbbh ; Le299: e299: a001 ldy #01h Le29b: ; Jumped from: e288h e29b: 88 dey e29c: 30f6 bmi 0e294h ; ; Called by: e184h, e2d4h ; read_line: ; Jumped from: e292h e29e: 2003e0 jsr rdkey Le2a1: e2a1: ea nop e2a2: ea nop e2a3: 20c9e3 jsr cout Le2a6: e2a6: c98d cmp #8dh e2a8: d0d6 bne 0e280h e2aa: a9df lda #0dfh e2ac: 990002 sta 0200h,y e2af: 60 rts ; Returns to: e187h, e2d7h, ebbeh cold: ; Jumped from: e000h e2b0: 20d3ef jsr mem_init_4k warm: ; Jumped from: e8d3h e2b3: 20cde3 jsr crout Le2b6: ; Jumped from: e30ch, e3e7h e2b6: 46d9 lsr 0d9h e2b8: a9be lda #0beh e2ba: 20c9e3 jsr cout Le2bd: e2bd: a000 ldy #00h e2bf: 84fa sty 0fah e2c1: 24f8 bit 0f8h e2c3: 100c bpl 0e2d1h e2c5: a6f6 ldx 0f6h e2c7: a5f7 lda 0f7h e2c9: 201be5 jsr prdec Le2cc: e2cc: a9a0 lda #0a0h e2ce: 20c9e3 jsr cout Le2d1: ; Jumped from: e2c3h e2d1: a2ff ldx #0ffh e2d3: 9a txs e2d4: 209ee2 jsr read_line Le2d7: e2d7: 84f1 sty 0f1h e2d9: 8a txa e2da: 85c8 sta 0c8h e2dc: a220 ldx #20h e2de: 2091e4 jsr 0e491h Le2e1: e2e1: a5c8 lda 0c8h e2e3: 6900 adc #00h e2e5: 85e0 sta 0e0h e2e7: a900 lda #00h e2e9: aa tax e2ea: 6902 adc #02h e2ec: 85e1 sta 0e1h e2ee: a1e0 lda (0e0h, x) e2f0: 29f0 and #0f0h e2f2: c9b0 cmp #0b0h e2f4: f003 beq 0e2f9h e2f6: 4c83e8 jmp 0e883h Le2f9: ; Jumped from: e2f4h e2f9: a002 ldy #02h Le2fb: ; Jumped from: e301h e2fb: b1e0 lda (0e0h),y e2fd: 99cd00 sta 00cdh,y e300: 88 dey e301: d0f8 bne 0e2fbh e303: 208ae3 jsr 0e38ah Le306: e306: a5f1 lda 0f1h e308: e5c8 sbc 0c8h e30a: c904 cmp #04h e30c: f0a8 beq 0e2b6h e30e: 91e0 sta (0e0h),y e310: a5ca lda 0cah e312: f1e0 sbc 0e0h, y e314: 85e4 sta 0e4h e316: a5cb lda 0cbh e318: e900 sbc #00h e31a: 85e5 sta 0e5h e31c: a5e4 lda 0e4h e31e: c5cc cmp 0cch e320: a5e5 lda 0e5h e322: e5cd sbc 0cdh e324: 9045 bcc 0e36bh Le326: ; Jumped from: e344h e326: a5ca lda 0cah e328: f1e0 sbc 0e0h, y e32a: 85e6 sta 0e6h e32c: a5cb lda 0cbh e32e: e900 sbc #00h e330: 85e7 sta 0e7h e332: b1ca lda (0cah),y e334: 91e6 sta (0e6h),y e336: e6ca inc 0cah e338: d002 bne 0e33ch e33a: e6cb inc 0cbh Le33c: ; Jumped from: e338h e33c: a5e2 lda 0e2h e33e: c5ca cmp 0cah e340: a5e3 lda 0e3h e342: e5cb sbc 0cbh e344: b0e0 bcs 0e326h Le346: ; Jumped from: e34bh e346: b5e4 lda 0e4h, x e348: 95ca sta 0cah,x e34a: ca dex e34b: 10f9 bpl 0e346h e34d: b1e0 lda (0e0h),y e34f: a8 tay Le350: ; Jumped from: e356h e350: 88 dey e351: b1e0 lda (0e0h),y e353: 91e6 sta (0e6h),y e355: 98 tya e356: d0f8 bne 0e350h e358: 24f8 bit 0f8h e35a: 1009 bpl 0e365h Le35c: ; Jumped from: e363h e35c: b5f7 lda 0f7h, x e35e: 75f5 adc 0f5h, x e360: 95f7 sta 0f7h,x e362: e8 inx e363: f0f7 beq 0e35ch Le365: ; Jumped from: e35ah e365: 107e bpl 0e3e5h e367: 00 brk e368: 00 brk e369: 00 brk e36a: 00 brk Le36b: ; Jumped from: e324h, e5e2h e36b: a014 ldy #14h e36d: d071 bne print_err_msg e36f: 2015e7 jsr get16bit Le372: e372: a5e2 lda 0e2h e374: 85e6 sta 0e6h e376: a5e3 lda 0e3h e378: 85e7 sta 0e7h e37a: 2075e5 jsr find_line1 Le37d: e37d: a5e2 lda 0e2h e37f: 85e4 sta 0e4h e381: a5e3 lda 0e3h e383: 85e5 sta 0e5h e385: d00e bne 0e395h e387: 2015e7 jsr get16bit ; ; Called by: e303h ; Le38a: e38a: 206de5 jsr find_line Le38d: e38d: a5e6 lda 0e6h e38f: 85e2 sta 0e2h e391: a5e7 lda 0e7h e393: 85e3 sta 0e3h Le395: ; Jumped from: e385h e395: a000 ldy #00h Le397: ; Jumped from: e3b5h e397: a5ca lda 0cah e399: c5e4 cmp 0e4h e39b: a5cb lda 0cbh e39d: e5e5 sbc 0e5h e39f: b016 bcs 0e3b7h e3a1: a5e4 lda 0e4h e3a3: d002 bne 0e3a7h e3a5: c6e5 dec 0e5h Le3a7: ; Jumped from: e3a3h e3a7: c6e4 dec 0e4h e3a9: a5e6 lda 0e6h e3ab: d002 bne 0e3afh e3ad: c6e7 dec 0e7h Le3af: ; Jumped from: e3abh e3af: c6e6 dec 0e6h e3b1: b1e4 lda (0e4h),y e3b3: 91e6 sta (0e6h),y e3b5: 90e0 bcc 0e397h Le3b7: ; Jumped from: e39fh e3b7: a5e6 lda 0e6h e3b9: 85ca sta 0cah e3bb: a5e7 lda 0e7h e3bd: 85cb sta 0cbh e3bf: 60 rts ; Returns to: e048h, e0feh, e10ch, e113h, e11bh, e124h, e133h, e176h, e17dh, e249h, e274h, e27dh, e306h, e4c3h, e511h, e65ah, e66bh, e691h, e6a9h, e6b6h, e736h, e73dh, e74dh, e750h, e769h, e779h, e785h, e79bh, e7d3h, e886h, e8feh, e911h, e914h, e917h, ebc7h, ebeeh, ebfah, ec0eh, ec11h, ec16h, ec19h, ee41h, ee51h, ef03h, ef13h, ef21h, ef27h, ef56h, ef79h, efb9h Le3c0: ; Jumped from: e3c7h e3c0: 20c9e3 jsr cout Le3c3: e3c3: c8 iny ; ; Called by: e296h, e8c5h, ebach, eed7h, eedch ; Le3c4: ; Jumped from: eee1h e3c4: b900eb lda error_msg_tbl, y e3c7: 30f7 bmi 0e3c0h ; ; Called by: e022h, e096h, e0e5h, e17fh, e2a3h, e2bah, e2ceh, e3c0h, e554h, e7b9h, e7cdh, ee16h ; cout: ; Jumped from: e015h e3c9: c98d cmp #8dh e3cb: d006 bne 0e3d3h ; ; Called by: e2b3h, e81dh ; crout: ; Jumped from: e0a9h e3cd: a900 lda #00h e3cf: 8524 sta 24h e3d1: a98d lda #8dh Le3d3: ; Jumped from: e3cbh e3d3: e624 inc 24h Le3d5: ; Jumped from: e3d8h e3d5: 2cf2d0 bit 0d0f2h e3d8: 30fb bmi 0e3d5h e3da: 8df2d0 sta 0d0f2h e3dd: 60 rts ; Returns to: e025h, e048h, e095h, e099h, e0d9h, e0e8h, e0f0h, e182h, e299h, e2a6h, e2b6h, e2bdh, e2d1h, e3c3h, e3e3h, e557h, e7bch, e7d0h, e820h, e8c8h, ebafh, ee19h, eedah, eedfh too_long_err: ; Jumped from: e420h e3de: a006 ldy #06h print_err_msg: ; Jumped from: e106h, e36dh, e4a6h, e712h, e8a2h, ee65h e3e0: 20d3ee jsr print_err_msg Le3e3: e3e3: 24d9 bit 0d9h Le3e5: ; Jumped from: e365h e3e5: 3003 bmi 0e3eah e3e7: 4cb6e2 jmp 0e2b6h Le3ea: ; Jumped from: e3e5h e3ea: 4c9aeb jmp 0eb9ah Le3ed: ; Jumped from: e435h e3ed: 2a rol a e3ee: 69a0 adc #0a0h e3f0: dd0002 cmp 0200h, x e3f3: d053 bne 0e448h e3f5: b1fe lda (0feh),y e3f7: 0a asl a e3f8: 3006 bmi 0e400h e3fa: 88 dey e3fb: b1fe lda (0feh),y e3fd: 3029 bmi 0e428h e3ff: c8 iny Le400: ; Jumped from: e3f8h e400: 86c8 stx 0c8h e402: 98 tya e403: 48 pha e404: a200 ldx #00h e406: a1fe lda (0feh, x) e408: aa tax Le409: ; Jumped from: e414h e409: 4a lsr a e40a: 4948 eor #48h e40c: 11fe ora 0feh, y e40e: c9c0 cmp #0c0h e410: 9001 bcc 0e413h e412: e8 inx Le413: ; Jumped from: e410h e413: c8 iny e414: d0f3 bne 0e409h e416: 68 pla e417: a8 tay e418: 8a txa e419: 4cc0e4 jmp 0e4c0h ; ; Called by: e4c0h, e50eh ; put_token: e41c: e6f1 inc 0f1h e41e: a6f1 ldx 0f1h e420: f0bc beq too_long_err e422: 9d0002 sta 0200h,x Le425: ; Jumped from: e470h e425: 60 rts ; Returns to: e2e1h, e4c3h, e511h, ebc7h Le426: ; Jumped from: e4a0h e426: a6c8 ldx 0c8h Le428: ; Jumped from: e3fdh e428: a9a0 lda #0a0h Le42a: ; Jumped from: e42eh e42a: e8 inx e42b: dd0002 cmp 0200h, x e42e: b0fa bcs 0e42ah e430: b1fe lda (0feh),y e432: 293f and #3fh e434: 4a lsr a e435: d0b6 bne 0e3edh e437: bd0002 lda 0200h, x e43a: b006 bcs 0e442h e43c: 693f adc #3fh e43e: c91a cmp #1ah e440: 906f bcc 0e4b1h Le442: ; Jumped from: e43ah e442: 694f adc #4fh e444: c90a cmp #0ah e446: 9069 bcc 0e4b1h Le448: ; Jumped from: e3f3h e448: a6fd ldx 0fdh Le44a: ; Jumped from: e46eh e44a: c8 iny e44b: b1fe lda (0feh),y e44d: 29e0 and #0e0h e44f: c920 cmp #20h e451: f07a beq 0e4cdh e453: b5a8 lda 0a8h, x e455: 85c8 sta 0c8h e457: b5d1 lda 0d1h, x e459: 85f1 sta 0f1h Le45b: ; Jumped from: e45fh e45b: 88 dey e45c: b1fe lda (0feh),y e45e: 0a asl a e45f: 10fa bpl 0e45bh e461: 88 dey e462: b038 bcs 0e49ch e464: 0a asl a e465: 3035 bmi 0e49ch e467: b458 ldy 58h, x e469: 84ff sty 0ffh e46b: b480 ldy 80h, x e46d: e8 inx e46e: 10da bpl 0e44ah Le470: ; Jumped from: e4abh e470: f0b3 beq 0e425h e472: c97e cmp #7eh e474: b022 bcs 0e498h e476: ca dex e477: 1004 bpl 0e47dh e479: a006 ldy #06h e47b: 1029 bpl go_errmess_2 Le47d: ; Jumped from: e477h e47d: 9480 sty 80h,x e47f: a4ff ldy 0ffh e481: 9458 sty 58h,x e483: a4c8 ldy 0c8h e485: 94a8 sty 0a8h,x e487: a4f1 ldy 0f1h e489: 94d1 sty 0d1h,x e48b: 291f and #1fh e48d: a8 tay e48e: b920ec lda syntabl_index, y ; ; Called by: e2deh, ebc4h ; Le491: e491: 0a asl a e492: a8 tay e493: a976 lda #76h e495: 2a rol a e496: 85ff sta 0ffh Le498: ; Jumped from: e474h e498: d001 bne 0e49bh e49a: c8 iny Le49b: ; Jumped from: e498h e49b: c8 iny Le49c: ; Jumped from: e462h, e465h, e4cbh e49c: 86fd stx 0fdh e49e: b1fe lda (0feh),y e4a0: 3084 bmi 0e426h e4a2: d005 bne 0e4a9h e4a4: a00e ldy #0eh go_errmess_2: ; Jumped from: e47bh, e519h e4a6: 4ce0e3 jmp print_err_msg Le4a9: ; Jumped from: e4a2h e4a9: c903 cmp #03h e4ab: b0c3 bcs 0e470h e4ad: 4a lsr a e4ae: a6c8 ldx 0c8h e4b0: e8 inx Le4b1: ; Jumped from: e440h, e446h e4b1: bd0002 lda 0200h, x e4b4: 9004 bcc 0e4bah e4b6: c9a2 cmp #0a2h e4b8: f00a beq 0e4c4h Le4ba: ; Jumped from: e4b4h e4ba: c9df cmp #0dfh e4bc: f006 beq 0e4c4h e4be: 86c8 stx 0c8h Le4c0: ; Jumped from: e419h, e515h e4c0: 201ce4 jsr put_token Le4c3: e4c3: c8 iny Le4c4: ; Jumped from: e4b8h, e4bch e4c4: 88 dey e4c5: a6fd ldx 0fdh Le4c7: ; Jumped from: e4d8h e4c7: b1fe lda (0feh),y e4c9: 88 dey e4ca: 0a asl a e4cb: 10cf bpl 0e49ch Le4cd: ; Jumped from: e451h e4cd: b458 ldy 58h, x e4cf: 84ff sty 0ffh e4d1: b480 ldy 80h, x e4d3: e8 inx e4d4: b1fe lda (0feh),y e4d6: 299f and #9fh e4d8: d0ed bne 0e4c7h e4da: 85f2 sta 0f2h e4dc: 85f3 sta 0f3h e4de: 98 tya e4df: 48 pha e4e0: 86fd stx 0fdh e4e2: b4d0 ldy 0d0h, x e4e4: 84c9 sty 0c9h e4e6: 18 clc Le4e7: ; Jumped from: e507h e4e7: a90a lda #0ah e4e9: 85f9 sta 0f9h e4eb: a200 ldx #00h e4ed: c8 iny e4ee: b90002 lda 0200h, y e4f1: 290f and #0fh Le4f3: ; Jumped from: e4ffh e4f3: 65f2 adc 0f2h e4f5: 48 pha e4f6: 8a txa e4f7: 65f3 adc 0f3h e4f9: 301c bmi 0e517h e4fb: aa tax e4fc: 68 pla e4fd: c6f9 dec 0f9h e4ff: d0f2 bne 0e4f3h e501: 85f2 sta 0f2h e503: 86f3 stx 0f3h e505: c4f1 cpy 0f1h e507: d0de bne 0e4e7h e509: a4c9 ldy 0c9h e50b: c8 iny e50c: 84f1 sty 0f1h e50e: 201ce4 jsr put_token Le511: e511: 68 pla e512: a8 tay e513: a5f3 lda 0f3h e515: b0a9 bcs 0e4c0h Le517: ; Jumped from: e4f9h e517: a000 ldy #00h e519: 108b bpl go_errmess_2 ; ; Called by: e080h, e2c9h, e7dch, e8d0h ; prdec: e51b: 85f3 sta 0f3h e51d: 86f2 stx 0f2h e51f: a204 ldx #04h e521: 86c9 stx 0c9h Le523: ; Jumped from: e560h e523: a9b0 lda #0b0h e525: 85f9 sta 0f9h Le527: ; Jumped from: e53eh e527: a5f2 lda 0f2h e529: dd63e5 cmp dectabl, x e52c: a5f3 lda 0f3h e52e: fd68e5 sbc dectabh, x e531: 900d bcc 0e540h e533: 85f3 sta 0f3h e535: a5f2 lda 0f2h e537: fd63e5 sbc dectabl, x e53a: 85f2 sta 0f2h e53c: e6f9 inc 0f9h e53e: d0e7 bne 0e527h Le540: ; Jumped from: e531h e540: a5f9 lda 0f9h e542: e8 inx e543: ca dex e544: f00e beq 0e554h e546: c9b0 cmp #0b0h e548: f002 beq 0e54ch e54a: 85c9 sta 0c9h Le54c: ; Jumped from: e548h e54c: 24c9 bit 0c9h e54e: 3004 bmi 0e554h e550: a5fa lda 0fah e552: f00b beq 0e55fh Le554: ; Jumped from: e544h, e54eh e554: 20c9e3 jsr cout Le557: e557: 24f8 bit 0f8h e559: 1004 bpl 0e55fh e55b: 990002 sta 0200h,y e55e: c8 iny Le55f: ; Jumped from: e552h, e559h e55f: ca dex e560: 10c1 bpl 0e523h e562: 60 rts ; Returns to: e083h, e2cch, e2e1h, e7dfh, e8d3h, ebc7h dectabl: e563: 01 db 01h e564: 0a db 0ah e565: 64 db 64h e566: e8 db e8h e567: 10 db 10h dectabh: e568: 00 db 00h e569: 00 db 00h e56a: 00 db 00h e56b: 03 db 03h e56c: 27 db 27h ; ; Called by: e060h, e38ah, e85eh ; find_line: e56d: a5ca lda 0cah e56f: 85e6 sta 0e6h e571: a5cb lda 0cbh e573: 85e7 sta 0e7h ; ; Called by: e37ah ; find_line1: e575: e8 inx ; ; Called by: e038h ; find_line2: ; Jumped from: e5aah e576: a5e7 lda 0e7h e578: 85e5 sta 0e5h e57a: a5e6 lda 0e6h e57c: 85e4 sta 0e4h e57e: c54c cmp 4ch e580: a5e5 lda 0e5h e582: e54d sbc 4dh e584: b026 bcs 0e5ach e586: a001 ldy #01h e588: b1e4 lda (0e4h),y e58a: e5ce sbc 0ceh e58c: c8 iny e58d: b1e4 lda (0e4h),y e58f: e5cf sbc 0cfh e591: b019 bcs 0e5ach e593: a000 ldy #00h e595: a5e6 lda 0e6h e597: 71e4 adc (0e4h), y e599: 85e6 sta 0e6h e59b: 9003 bcc 0e5a0h e59d: e6e7 inc 0e7h e59f: 18 clc Le5a0: ; Jumped from: e59bh e5a0: c8 iny e5a1: a5ce lda 0ceh e5a3: f1e4 sbc 0e4h, y e5a5: c8 iny e5a6: a5cf lda 0cfh e5a8: f1e4 sbc 0e4h, y e5aa: b0ca bcs find_line2 Le5ac: ; Jumped from: e584h, e591h e5ac: 60 rts ; Returns to: e03bh, e063h, e37dh, e38dh, e861h new_cmd: ; Jumped from: efe1h e5ad: 46f8 lsr 0f8h e5af: a54c lda 4ch e5b1: 85ca sta 0cah e5b3: a54d lda 4dh e5b5: 85cb sta 0cbh ; ; Called by: efech, eff2h ; clr: e5b7: a54a lda 4ah e5b9: 85cc sta 0cch e5bb: a54b lda 4bh e5bd: 85cd sta 0cdh e5bf: a900 lda #00h e5c1: 85fb sta 0fbh e5c3: 85fc sta 0fch e5c5: 85fe sta 0feh e5c7: a900 lda #00h e5c9: 851d sta 1dh e5cb: 60 rts ; Returns to: e2b3h, efefh, eff5h Le5cc: ; Jumped from: e636h e5cc: a5d0 lda 0d0h e5ce: 6905 adc #05h e5d0: 85d2 sta 0d2h e5d2: a5d1 lda 0d1h e5d4: 6900 adc #00h e5d6: 85d3 sta 0d3h e5d8: a5d2 lda 0d2h e5da: c5ca cmp 0cah e5dc: a5d3 lda 0d3h e5de: e5cb sbc 0cbh e5e0: 9003 bcc 0e5e5h e5e2: 4c6be3 jmp 0e36bh Le5e5: ; Jumped from: e5e0h e5e5: a5ce lda 0ceh e5e7: 91d0 sta (0d0h),y e5e9: a5cf lda 0cfh e5eb: c8 iny e5ec: 91d0 sta (0d0h),y e5ee: a5d2 lda 0d2h e5f0: c8 iny e5f1: 91d0 sta (0d0h),y e5f3: a5d3 lda 0d3h e5f5: c8 iny e5f6: 91d0 sta (0d0h),y e5f8: a900 lda #00h e5fa: c8 iny e5fb: 91d0 sta (0d0h),y e5fd: c8 iny e5fe: 91d0 sta (0d0h),y e600: a5d2 lda 0d2h e602: 85cc sta 0cch e604: a5d3 lda 0d3h e606: 85cd sta 0cdh e608: a5d0 lda 0d0h e60a: 9043 bcc 0e64fh execute_var: ; Jumped from: e689h e60c: 85ce sta 0ceh e60e: 84cf sty 0cfh e610: 20ffe6 jsr get_next_prog_byte Le613: e613: 300e bmi 0e623h e615: c940 cmp #40h e617: f00a beq 0e623h e619: 4c28e6 jmp 0e628h e61c: 06 db 06h e61d: c9 db c9h e61e: 49 db 49h e61f: d0 db d0h e620: 07 db 07h e621: a9 db a9h e622: 49 db 49h Le623: ; Jumped from: e613h, e617h e623: 85cf sta 0cfh e625: 20ffe6 jsr get_next_prog_byte Le628: ; Jumped from: e619h e628: a54b lda 4bh e62a: 85d1 sta 0d1h e62c: a54a lda 4ah Le62e: ; Jumped from: e651h e62e: 85d0 sta 0d0h e630: c5cc cmp 0cch e632: a5d1 lda 0d1h e634: e5cd sbc 0cdh e636: b094 bcs 0e5cch e638: b1d0 lda (0d0h),y e63a: c8 iny e63b: c5ce cmp 0ceh e63d: d006 bne 0e645h e63f: b1d0 lda (0d0h),y e641: c5cf cmp 0cfh e643: f00e beq 0e653h Le645: ; Jumped from: e63dh e645: c8 iny e646: b1d0 lda (0d0h),y e648: 48 pha e649: c8 iny e64a: b1d0 lda (0d0h),y e64c: 85d1 sta 0d1h e64e: 68 pla Le64f: ; Jumped from: e60ah e64f: a000 ldy #00h e651: f0db beq 0e62eh Le653: ; Jumped from: e643h e653: a5d0 lda 0d0h e655: 6903 adc #03h e657: 200ae7 jsr push_a_noun_stk Le65a: e65a: a5d1 lda 0d1h e65c: 6900 adc #00h e65e: 9578 sta 78h,x e660: a5cf lda 0cfh e662: c940 cmp #40h e664: d01c bne fetch_prog_byte e666: 88 dey e667: 98 tya e668: 200ae7 jsr push_a_noun_stk Le66b: e66b: 88 dey e66c: 9478 sty 78h,x e66e: a003 ldy #03h Le670: ; Jumped from: e675h e670: f678 inc 78h, y e672: c8 iny e673: b1d0 lda (0d0h),y e675: 30f9 bmi 0e670h e677: 1009 bpl fetch_prog_byte ; ; Called by: e883h ; execute_stmt: e679: a900 lda #00h e67b: 85d4 sta 0d4h e67d: 85d5 sta 0d5h e67f: a220 ldx #20h push_old_verb: ; Jumped from: e6eah e681: 48 pha fetch_prog_byte: ; Jumped from: e664h, e677h e682: a000 ldy #00h e684: b1e0 lda (0e0h),y Le686: ; Jumped from: e69eh e686: 1018 bpl execute_token e688: 0a asl a e689: 3081 bmi execute_var e68b: 20ffe6 jsr get_next_prog_byte Le68e: e68e: 2008e7 jsr push_ya_noun_stk Le691: e691: 20ffe6 jsr get_next_prog_byte Le694: e694: 95a0 sta 0a0h,x Le696: ; Jumped from: e6c1h e696: 24d4 bit 0d4h e698: 1001 bpl 0e69bh e69a: ca dex Le69b: ; Jumped from: e698h, e6c9h e69b: 20ffe6 jsr get_next_prog_byte Le69e: e69e: b0e6 bcs 0e686h execute_token: ; Jumped from: e686h e6a0: c928 cmp #28h e6a2: d01f bne execute_verb e6a4: a5e0 lda 0e0h e6a6: 200ae7 jsr push_a_noun_stk Le6a9: e6a9: a5e1 lda 0e1h e6ab: 9578 sta 78h,x e6ad: 24d4 bit 0d4h e6af: 300b bmi 0e6bch e6b1: a901 lda #01h e6b3: 200ae7 jsr push_a_noun_stk Le6b6: e6b6: a900 lda #00h e6b8: 9578 sta 78h,x Le6ba: ; Jumped from: e6bfh e6ba: f678 inc 78h, y Le6bc: ; Jumped from: e6afh e6bc: 20ffe6 jsr get_next_prog_byte Le6bf: e6bf: 30f9 bmi 0e6bah e6c1: b0d3 bcs 0e696h execute_verb: ; Jumped from: e6a2h e6c3: 24d4 bit 0d4h e6c5: 1006 bpl 0e6cdh e6c7: c904 cmp #04h e6c9: b0d0 bcs 0e69bh e6cb: 46d4 lsr 0d4h Le6cd: ; Jumped from: e6c5h e6cd: a8 tay e6ce: 85d6 sta 0d6h e6d0: b998e9 lda verb_prec_tbl, y e6d3: 2955 and #55h e6d5: 0a asl a e6d6: 85d7 sta 0d7h Le6d8: ; Jumped from: e6f9h e6d8: 68 pla e6d9: a8 tay e6da: b998e9 lda verb_prec_tbl, y e6dd: 29aa and #0aah e6df: c5d7 cmp 0d7h e6e1: b009 bcs do_verb e6e3: 98 tya e6e4: 48 pha e6e5: 20ffe6 jsr get_next_prog_byte Le6e8: e6e8: a5d6 lda 0d6h e6ea: 9095 bcc push_old_verb do_verb: ; Jumped from: e6e1h e6ec: b910ea lda verb_adr_l, y e6ef: 85ce sta 0ceh e6f1: b988ea lda verb_adr_h, y e6f4: 85cf sta 0cfh e6f6: 20fce6 jsr 0e6fch Le6f9: e6f9: 4cd8e6 jmp 0e6d8h ; ; Called by: e6f6h ; Le6fc: e6fc: 6cce00 jmp (00ceh) ; Returns to: e6f9h ; ; Called by: e610h, e625h, e68bh, e691h, e69bh, e6bch, e6e5h ; get_next_prog_byte: e6ff: e6e0 inc 0e0h e701: d002 bne 0e705h e703: e6e1 inc 0e1h Le705: ; Jumped from: e701h e705: b1e0 lda (0e0h),y e707: 60 rts ; Returns to: e613h, e628h, e68eh, e694h, e69eh, e6bfh, e6e8h ; ; Called by: e246h, e68eh, e73ah, e766h, e776h, e798h, e90eh, ebebh, ef53h, ef76h ; push_ya_noun_stk: ; Jumped from: eefdh e708: 9477 sty 77h,x ; ; Called by: e173h, e17ah, e657h, e668h, e6a6h, e6b3h ; push_a_noun_stk: e70a: ca dex e70b: 3003 bmi 0e710h e70d: 9550 sta 50h,x e70f: 60 rts ; Returns to: e176h, e17dh, e249h, e65ah, e66bh, e691h, e6a9h, e6b6h, e73dh, e769h, e779h, e79bh, e911h, ebeeh, ef56h, ef79h Le710: ; Jumped from: e70bh e710: a066 ldy #66h go_errmess_3: ; Jumped from: e780h e712: 4ce0e3 jmp print_err_msg ; ; Called by: e035h, e05dh, e263h, e274h, e36fh, e387h, e736h, e750h, e759h, e76fh, e785h, e790h, e7a4h, e7c4h, e7e2h, e7f8h, e801h, e85bh, e8f7h, e917h, e950h, e97eh, ee34h, eea0h, eee4h, eef6h, ef06h, ef4eh ; get16bit: e715: a000 ldy #00h e717: b550 lda 50h, x e719: 85ce sta 0ceh e71b: b5a0 lda 0a0h, x e71d: 85cf sta 0cfh e71f: b578 lda 78h, x e721: f00e beq 0e731h e723: 85cf sta 0cfh e725: b1ce lda (0ceh),y e727: 48 pha e728: c8 iny e729: b1ce lda (0ceh),y e72b: 85cf sta 0cfh e72d: 68 pla e72e: 85ce sta 0ceh e730: 88 dey Le731: ; Jumped from: e721h e731: e8 inx e732: 60 rts ; Returns to: e038h, e060h, e266h, e277h, e372h, e38ah, e739h, e753h, e75ch, e772h, e788h, e793h, e7a7h, e7c7h, e7e5h, e7fbh, e804h, e85eh, e8fah, e91ah, e953h, e981h, ee37h, eea3h, eee7h, eef9h, ef09h, ef51h eq_op: e733: 204ae7 jsr neq_op ; ; Called by: efc9h, efcdh ; not_op: ; Jumped from: e21fh, ec1bh e736: 2015e7 jsr get16bit Le739: e739: 98 tya e73a: 2008e7 jsr push_ya_noun_stk Le73d: e73d: 95a0 sta 0a0h,x e73f: c5ce cmp 0ceh e741: d006 bne 0e749h e743: c5cf cmp 0cfh e745: d002 bne 0e749h e747: f650 inc 50h, y Le749: ; Jumped from: e741h, e745h e749: 60 rts ; Returns to: ec04h, ec09h, efcch, efd0h ; ; Called by: e733h ; neq_op: e74a: 2082e7 jsr subtract Le74d: e74d: 2059e7 jsr sgn_fn abs_fn: e750: 2015e7 jsr get16bit Le753: e753: 24cf bit 0cfh e755: 301b bmi 0e772h Le757: ; Jumped from: e762h e757: ca dex Le758: ; Jumped from: e76dh e758: 60 rts ; Returns to: e736h, e750h, e917h, ec19h ; ; Called by: e74dh, e914h, ec16h ; sgn_fn: e759: 2015e7 jsr get16bit Le75c: e75c: a5cf lda 0cfh e75e: d004 bne 0e764h e760: a5ce lda 0ceh e762: f0f3 beq 0e757h Le764: ; Jumped from: e75eh e764: a9ff lda #0ffh e766: 2008e7 jsr push_ya_noun_stk Le769: e769: 95a0 sta 0a0h,x e76b: 24cf bit 0cfh e76d: 30e9 bmi 0e758h ; ; Called by: e271h, e782h, ebf7h, ec0eh ; negate: ; Jumped from: e251h e76f: 2015e7 jsr get16bit ; ; Called by: e7d0h ; Le772: ; Jumped from: e755h e772: 98 tya e773: 38 sec e774: e5ce sbc 0ceh e776: 2008e7 jsr push_ya_noun_stk Le779: e779: 98 tya e77a: e5cf sbc 0cfh e77c: 5023 bvc 0e7a1h Le77e: ; Jumped from: e241h, e79fh, ee77h e77e: a000 ldy #00h e780: 1090 bpl go_errmess_3 ; ; Called by: e74ah, e911h, ec0bh, ec13h ; subtract: e782: 206fe7 jsr negate add: e785: 2015e7 jsr get16bit Le788: e788: a5ce lda 0ceh e78a: 85da sta 0dah e78c: a5cf lda 0cfh e78e: 85db sta 0dbh e790: 2015e7 jsr get16bit ; ; Called by: e8fbh ; Le793: e793: 18 clc e794: a5ce lda 0ceh e796: 65da adc 0dah e798: 2008e7 jsr push_ya_noun_stk Le79b: e79b: a5cf lda 0cfh e79d: 65db adc 0dbh e79f: 70dd bvs 0e77eh Le7a1: ; Jumped from: e77ch e7a1: 95a0 sta 0a0h,x e7a3: 60 rts ; Returns to: e274h, e27dh, e736h, e74dh, e750h, e785h, e7d3h, e8feh, e914h, e917h, ebfah, ec0eh, ec11h, ec16h, ec19h, ef13h, ef21h, ef27h tab_fn: e7a4: 2015e7 jsr get16bit Le7a7: e7a7: a4ce ldy 0ceh e7a9: f005 beq 0e7b0h e7ab: 88 dey e7ac: a5cf lda 0cfh e7ae: f00c beq 0e7bch Le7b0: ; Jumped from: e7a9h e7b0: 60 rts ; ; Called by: e7c1h, ee00h ; tabout: e7b1: a524 lda 24h e7b3: 0907 ora #07h e7b5: a8 tay e7b6: c8 iny Le7b7: ; Jumped from: e7beh e7b7: a9a0 lda #0a0h e7b9: 20c9e3 jsr cout Le7bc: ; Jumped from: e7aeh e7bc: c424 cpy 24h e7be: b0f7 bcs 0e7b7h e7c0: 60 rts ; Returns to: e7c4h, ee03h print_com_num: e7c1: 20b1e7 jsr tabout print_num: ; Jumped from: e7d3h e7c4: 2015e7 jsr get16bit Le7c7: e7c7: a5cf lda 0cfh e7c9: 100a bpl 0e7d5h e7cb: a9ad lda #0adh e7cd: 20c9e3 jsr cout Le7d0: e7d0: 2072e7 jsr 0e772h Le7d3: e7d3: 50ef bvc print_num Le7d5: ; Jumped from: e7c9h e7d5: 88 dey e7d6: 84d5 sty 0d5h e7d8: 86cf stx 0cfh e7da: a6ce ldx 0ceh e7dc: 201be5 jsr prdec Le7df: e7df: a6cf ldx 0cfh e7e1: 60 rts auto_cmd: e7e2: 2015e7 jsr get16bit Le7e5: e7e5: a5ce lda 0ceh e7e7: 85f6 sta 0f6h e7e9: a5cf lda 0cfh e7eb: 85f7 sta 0f7h e7ed: 88 dey e7ee: 84f8 sty 0f8h e7f0: c8 iny e7f1: a90a lda #0ah Le7f3: ; Jumped from: e7ffh e7f3: 85f4 sta 0f4h e7f5: 84f5 sty 0f5h e7f7: 60 rts auto_com: e7f8: 2015e7 jsr get16bit Le7fb: e7fb: a5ce lda 0ceh e7fd: a4cf ldy 0cfh e7ff: 10f2 bpl 0e7f3h ; ; Called by: e8feh ; var_assign: ; Jumped from: ebfah e801: 2015e7 jsr get16bit Le804: e804: b550 lda 50h, x e806: 85da sta 0dah e808: b578 lda 78h, x e80a: 85db sta 0dbh e80c: a5ce lda 0ceh e80e: 91da sta (0dah),y e810: c8 iny e811: a5cf lda 0cfh e813: 91da sta (0dah),y e815: e8 inx e816: 60 rts ; Returns to: e048h, e0feh, e10ch, e113h, e11bh, e124h, e133h, e176h, e17dh, e249h, e274h, e27dh, e2e1h, e4c3h, e511h, e65ah, e66bh, e691h, e6a9h, e6b6h, e736h, e73dh, e74dh, e750h, e769h, e779h, e785h, e79bh, e7d3h, e886h, e8feh, e901h, e911h, e914h, e917h, ebfah, ec0eh, ec11h, ec16h, ec19h, ee41h, ee51h, ef03h, ef13h, ef21h, ef27h, ef56h, ef79h, efb9h begin_line: e817: 68 pla e818: 68 pla e819: 24d5 bit 0d5h e81b: 1005 bpl 0e822h e81d: 20cde3 jsr crout print_semi: e820: 46d5 lsr 0d5h Le822: ; Jumped from: e81bh e822: 60 rts left_paren: ; Jumped from: e115h, ef4bh e823: a0ff ldy #0ffh e825: 84d7 sty 0d7h e827: 60 rts ; Returns to: e048h, e113h if_stmt: e828: 20cdef jsr 0efcdh Le82b: e82b: f007 beq 0e834h e82d: a925 lda #25h e82f: 85d6 sta 0d6h e831: 88 dey e832: 84d4 sty 0d4h Le834: ; Jumped from: e82bh e834: e8 inx e835: 60 rts run_warm: ; Jumped from: efefh e836: a5ca lda 0cah e838: a4cb ldy 0cbh e83a: d05a bne 0e896h e83c: a041 ldy #41h e83e: a5fc lda 0fch e840: c908 cmp #08h e842: b05e bcs go_errmess_4 e844: a8 tay e845: e6fc inc 0fch e847: a5e0 lda 0e0h e849: 990001 sta 0100h,y e84c: a5e1 lda 0e1h e84e: 990801 sta 0108h,y e851: a5dc lda 0dch e853: 991001 sta 0110h,y e856: a5dd lda 0ddh e858: 991801 sta 0118h,y goto_stmt: ; Jumped from: eff5h e85b: 2015e7 jsr get16bit Le85e: e85e: 206de5 jsr find_line Le861: e861: 9004 bcc 0e867h e863: a037 ldy #37h e865: d03b bne go_errmess_4 Le867: ; Jumped from: e861h e867: a5e4 lda 0e4h e869: a4e5 ldy 0e5h run_loop: ; Jumped from: e898h, e89ch e86b: 85dc sta 0dch e86d: 84dd sty 0ddh e86f: 2c11d0 bit 0d011h e872: 304f bmi 0e8c3h e874: 18 clc e875: 6903 adc #03h e877: 9001 bcc 0e87ah e879: c8 iny Le87a: ; Jumped from: e877h, e8c0h e87a: a2ff ldx #0ffh e87c: 86d9 stx 0d9h e87e: 9a txs e87f: 85e0 sta 0e0h e881: 84e1 sty 0e1h Le883: ; Jumped from: e2f6h e883: 2079e6 jsr execute_stmt Le886: e886: 24d9 bit 0d9h e888: 1049 bpl end_stmt e88a: 18 clc e88b: a000 ldy #00h e88d: a5dc lda 0dch e88f: 71dc adc (0dch), y e891: a4dd ldy 0ddh e893: 9001 bcc 0e896h e895: c8 iny Le896: ; Jumped from: e83ah, e893h e896: c54c cmp 4ch e898: d0d1 bne run_loop e89a: c44d cpy 4dh e89c: d0cd bne run_loop e89e: a034 ldy #34h e8a0: 46d9 lsr 0d9h go_errmess_4: ; Jumped from: e842h, e865h, e8a9h, e8dch e8a2: 4ce0e3 jmp print_err_msg return_stmt: e8a5: a04a ldy #4ah e8a7: a5fc lda 0fch e8a9: f0f7 beq go_errmess_4 e8ab: c6fc dec 0fch e8ad: a8 tay e8ae: b90f01 lda 010fh, y e8b1: 85dc sta 0dch e8b3: b91701 lda 0117h, y e8b6: 85dd sta 0ddh e8b8: beff00 ldx 00ffh, y e8bb: b90701 lda 0107h, y Le8be: ; Jumped from: e935h e8be: a8 tay e8bf: 8a txa e8c0: 4c7ae8 jmp 0e87ah Le8c3: ; Jumped from: e872h, eb9eh e8c3: a063 ldy #63h e8c5: 20c4e3 jsr 0e3c4h Le8c8: e8c8: a001 ldy #01h e8ca: b1dc lda (0dch),y e8cc: aa tax e8cd: c8 iny e8ce: b1dc lda (0dch),y e8d0: 201be5 jsr prdec end_stmt: ; Jumped from: e888h e8d3: 4cb3e2 jmp warm Le8d6: ; Jumped from: e8e4h, e8ebh e8d6: c6fb dec 0fbh e8d8: a05b ldy #5bh e8da: a5fb lda 0fbh Le8dc: ; Jumped from: e940h e8dc: f0c4 beq go_errmess_4 e8de: a8 tay e8df: b550 lda 50h, x e8e1: d91f01 cmp 011fh, y e8e4: d0f0 bne 0e8d6h e8e6: b578 lda 78h, x e8e8: d92701 cmp 0127h, y e8eb: d0e9 bne 0e8d6h e8ed: b92f01 lda 012fh, y e8f0: 85da sta 0dah e8f2: b93701 lda 0137h, y e8f5: 85db sta 0dbh e8f7: 2015e7 jsr get16bit Le8fa: e8fa: ca dex e8fb: 2093e7 jsr 0e793h Le8fe: e8fe: 2001e8 jsr var_assign Le901: e901: ca dex e902: a4fb ldy 0fbh e904: b96701 lda 0167h, y e907: 959f sta 9fh,x e909: b95f01 lda 015fh, y e90c: a000 ldy #00h e90e: 2008e7 jsr push_ya_noun_stk Le911: e911: 2082e7 jsr subtract Le914: e914: 2059e7 jsr sgn_fn Le917: e917: 2015e7 jsr get16bit Le91a: e91a: a4fb ldy 0fbh e91c: a5ce lda 0ceh e91e: f005 beq 0e925h e920: 593701 eor 0137h, y e923: 1012 bpl 0e937h Le925: ; Jumped from: e91eh e925: b93f01 lda 013fh, y e928: 85dc sta 0dch e92a: b94701 lda 0147h, y e92d: 85dd sta 0ddh e92f: be4f01 ldx 014fh, y e932: b95701 lda 0157h, y e935: d087 bne 0e8beh Le937: ; Jumped from: e923h e937: c6fb dec 0fbh e939: 60 rts for_stmt: e93a: a054 ldy #54h e93c: a5fb lda 0fbh e93e: c908 cmp #08h e940: f09a beq 0e8dch e942: e6fb inc 0fbh e944: a8 tay e945: b550 lda 50h, x e947: 992001 sta 0120h,y e94a: b578 lda 78h, x e94c: 992801 sta 0128h,y e94f: 60 rts to_clause: e950: 2015e7 jsr get16bit Le953: e953: a4fb ldy 0fbh e955: a5ce lda 0ceh e957: 995f01 sta 015fh,y e95a: a5cf lda 0cfh e95c: 996701 sta 0167h,y e95f: a901 lda #01h e961: 992f01 sta 012fh,y e964: a900 lda #00h Le966: ; Jumped from: e98ah e966: 993701 sta 0137h,y e969: a5dc lda 0dch e96b: 993f01 sta 013fh,y e96e: a5dd lda 0ddh e970: 994701 sta 0147h,y e973: a5e0 lda 0e0h e975: 994f01 sta 014fh,y e978: a5e1 lda 0e1h e97a: 995701 sta 0157h,y e97d: 60 rts Le97e: e97e: 2015e7 jsr get16bit Le981: e981: a4fb ldy 0fbh e983: a5ce lda 0ceh e985: 992f01 sta 012fh,y e988: a5cf lda 0cfh e98a: 4c66e9 jmp 0e966h e98d: 00 db 00h e98e: 00 db 00h e98f: 00 db 00h e990: 00 db 00h e991: 00 db 00h e992: 00 db 00h e993: 00 db 00h e994: 00 db 00h e995: 00 db 00h e996: 00 db 00h e997: 00 db 00h verb_prec_tbl: e998: 00 db 00h e999: 00 db 00h e99a: 00 db 00h e99b: ab db abh e99c: 03 db 03h e99d: 03 db 03h e99e: 03 db 03h e99f: 03 db 03h e9a0: 03 db 03h e9a1: 03 db 03h e9a2: 03 db 03h e9a3: 03 db 03h e9a4: 03 db 03h e9a5: 03 db 03h e9a6: 03 db 03h e9a7: 03 db 03h e9a8: 03 db 03h e9a9: 03 db 03h e9aa: 3f db 3fh e9ab: 3f db 3fh e9ac: c0 db c0h e9ad: c0 db c0h e9ae: 3c db 3ch e9af: 3c db 3ch e9b0: 3c db 3ch e9b1: 3c db 3ch e9b2: 3c db 3ch e9b3: 3c db 3ch e9b4: 3c db 3ch e9b5: 30 db 30h e9b6: 0f db 0fh e9b7: c0 db c0h e9b8: cc db cch e9b9: ff db ffh e9ba: 55 db 55h e9bb: 00 db 00h e9bc: ab db abh e9bd: ab db abh e9be: 03 db 03h e9bf: 03 db 03h e9c0: ff db ffh e9c1: ff db ffh e9c2: 55 db 55h e9c3: ff db ffh e9c4: ff db ffh e9c5: 55 db 55h e9c6: cf db cfh e9c7: cf db cfh e9c8: cf db cfh e9c9: cf db cfh e9ca: cf db cfh e9cb: ff db ffh e9cc: 55 db 55h e9cd: c3 db c3h e9ce: c3 db c3h e9cf: c3 db c3h e9d0: 55 db 55h e9d1: f0 db f0h e9d2: f0 db f0h e9d3: cf db cfh e9d4: 56 db 56h e9d5: 56 db 56h e9d6: 56 db 56h e9d7: 55 db 55h e9d8: ff db ffh e9d9: ff db ffh e9da: 55 db 55h e9db: 03 db 03h e9dc: 03 db 03h e9dd: 03 db 03h e9de: 03 db 03h e9df: 03 db 03h e9e0: 03 db 03h e9e1: 03 db 03h e9e2: ff db ffh e9e3: ff db ffh e9e4: ff db ffh e9e5: 03 db 03h e9e6: 03 db 03h e9e7: 03 db 03h e9e8: 03 db 03h e9e9: 03 db 03h e9ea: 03 db 03h e9eb: 03 db 03h e9ec: 03 db 03h e9ed: 03 db 03h e9ee: 03 db 03h e9ef: 03 db 03h e9f0: 03 db 03h e9f1: 03 db 03h e9f2: 03 db 03h e9f3: 03 db 03h e9f4: 03 db 03h e9f5: 00 db 00h e9f6: ab db abh e9f7: 03 db 03h e9f8: 57 db 57h e9f9: 03 db 03h e9fa: 03 db 03h e9fb: 03 db 03h e9fc: 03 db 03h e9fd: 07 db 07h e9fe: 03 db 03h e9ff: 03 db 03h ea00: 03 db 03h ea01: 03 db 03h ea02: 03 db 03h ea03: 03 db 03h ea04: 03 db 03h ea05: 03 db 03h ea06: 03 db 03h ea07: 03 db 03h ea08: 03 db 03h ea09: 03 db 03h ea0a: aa db aah ea0b: ff db ffh ea0c: ff db ffh ea0d: ff db ffh ea0e: ff db ffh ea0f: ff db ffh verb_adr_l: ea10: 17 db 17h ea11: ff db ffh ea12: ff db ffh ea13: 19 db 19h ea14: 5d db 5dh ea15: 35 db 35h ea16: 4b db 4bh ea17: f2 db f2h ea18: ec db ech ea19: 87 db 87h ea1a: 6f db 6fh ea1b: ad db adh ea1c: b7 db b7h ea1d: e2 db e2h ea1e: f8 db f8h ea1f: 54 db 54h ea20: 80 db 80h ea21: 96 db 96h ea22: 85 db 85h ea23: 82 db 82h ea24: 22 db 22h ea25: 10 db 10h ea26: 33 db 33h ea27: 4a db 4ah ea28: 13 db 13h ea29: 06 db 06h ea2a: 0b db 0bh ea2b: 4a db 4ah ea2c: 01 db 01h ea2d: 40 db 40h ea2e: 47 db 47h ea2f: 7a db 7ah ea30: 00 db 00h ea31: ff db ffh ea32: 23 db 23h ea33: 09 db 09h ea34: 5b db 5bh ea35: 16 db 16h ea36: b6 db b6h ea37: cb db cbh ea38: ff db ffh ea39: ff db ffh ea3a: fb db fbh ea3b: ff db ffh ea3c: ff db ffh ea3d: 24 db 24h ea3e: f6 db f6h ea3f: 4e db 4eh ea40: 59 db 59h ea41: 50 db 50h ea42: 00 db 00h ea43: ff db ffh ea44: 23 db 23h ea45: a3 db a3h ea46: 6f db 6fh ea47: 36 db 36h ea48: 23 db 23h ea49: d7 db d7h ea4a: 1c db 1ch ea4b: 22 db 22h ea4c: c2 db c2h ea4d: ae db aeh ea4e: ba db bah ea4f: 23 db 23h ea50: ff db ffh ea51: ff db ffh ea52: 21 db 21h ea53: 30 db 30h ea54: 1e db 1eh ea55: 03 db 03h ea56: c4 db c4h ea57: 20 db 20h ea58: 00 db 00h ea59: c1 db c1h ea5a: ff db ffh ea5b: ff db ffh ea5c: ff db ffh ea5d: a0 db a0h ea5e: 30 db 30h ea5f: 1e db 1eh ea60: a4 db a4h ea61: d3 db d3h ea62: b6 db b6h ea63: bc db bch ea64: aa db aah ea65: 3a db 3ah ea66: 01 db 01h ea67: 50 db 50h ea68: 7e db 7eh ea69: d8 db d8h ea6a: d8 db d8h ea6b: a5 db a5h ea6c: 3c db 3ch ea6d: ff db ffh ea6e: 16 db 16h ea6f: 5b db 5bh ea70: 28 db 28h ea71: 03 db 03h ea72: c4 db c4h ea73: 1d db 1dh ea74: 00 db 00h ea75: 0c db 0ch ea76: 4e db 4eh ea77: 00 db 00h ea78: 3e db 3eh ea79: 00 db 00h ea7a: a6 db a6h ea7b: b0 db b0h ea7c: 00 db 00h ea7d: bc db bch ea7e: c6 db c6h ea7f: 57 db 57h ea80: 8c db 8ch ea81: 01 db 01h ea82: 27 db 27h ea83: ff db ffh ea84: ff db ffh ea85: ff db ffh ea86: ff db ffh ea87: ff db ffh verb_adr_h: ea88: e8 db e8h ea89: ff db ffh ea8a: ff db ffh ea8b: e8 db e8h ea8c: e0 db e0h ea8d: e0 db e0h ea8e: e0 db e0h ea8f: ef db efh ea90: ef db efh ea91: e3 db e3h ea92: e3 db e3h ea93: e5 db e5h ea94: e5 db e5h ea95: e7 db e7h ea96: e7 db e7h ea97: ee db eeh ea98: ef db efh ea99: ef db efh ea9a: e7 db e7h ea9b: e7 db e7h ea9c: e2 db e2h ea9d: ef db efh ea9e: e7 db e7h ea9f: e7 db e7h eaa0: ec db ech eaa1: ec db ech eaa2: ec db ech eaa3: e7 db e7h eaa4: ec db ech eaa5: ec db ech eaa6: ec db ech eaa7: e2 db e2h eaa8: 00 db 00h eaa9: ff db ffh eaaa: e8 db e8h eaab: e1 db e1h eaac: e8 db e8h eaad: e8 db e8h eaae: ef db efh eaaf: eb db ebh eab0: ff db ffh eab1: ff db ffh eab2: e0 db e0h eab3: ff db ffh eab4: ff db ffh eab5: ef db efh eab6: ee db eeh eab7: ef db efh eab8: e7 db e7h eab9: e7 db e7h eaba: 00 db 00h eabb: ff db ffh eabc: e8 db e8h eabd: e7 db e7h eabe: e7 db e7h eabf: e7 db e7h eac0: e8 db e8h eac1: e1 db e1h eac2: e2 db e2h eac3: ee db eeh eac4: ee db eeh eac5: ee db eeh eac6: ee db eeh eac7: e8 db e8h eac8: ff db ffh eac9: ff db ffh eaca: e1 db e1h eacb: e1 db e1h eacc: ef db efh eacd: ee db eeh eace: e7 db e7h eacf: e8 db e8h ead0: ee db eeh ead1: e7 db e7h ead2: ff db ffh ead3: ff db ffh ead4: ff db ffh ead5: ee db eeh ead6: e1 db e1h ead7: ef db efh ead8: e7 db e7h ead9: e8 db e8h eada: ef db efh eadb: ef db efh eadc: eb db ebh eadd: e9 db e9h eade: e8 db e8h eadf: e9 db e9h eae0: e9 db e9h eae1: e8 db e8h eae2: e8 db e8h eae3: e8 db e8h eae4: e8 db e8h eae5: ff db ffh eae6: e8 db e8h eae7: e8 db e8h eae8: e8 db e8h eae9: ee db eeh eaea: e7 db e7h eaeb: e8 db e8h eaec: ef db efh eaed: ef db efh eaee: ee db eeh eaef: ef db efh eaf0: ee db eeh eaf1: ef db efh eaf2: ee db eeh eaf3: ee db eeh eaf4: ef db efh eaf5: ee db eeh eaf6: ee db eeh eaf7: ee db eeh eaf8: e1 db e1h eaf9: e8 db e8h eafa: e8 db e8h eafb: ff db ffh eafc: ff db ffh eafd: ff db ffh eafe: ff db ffh eaff: ff db ffh error_msg_tbl: eb00: be db beh eb01: b3 db b3h eb02: b2 db b2h eb03: b7 db b7h eb04: b6 db b6h eb05: 37 db 37h eb06: d4 db d4h eb07: cf db cfh eb08: cf db cfh eb09: a0 db a0h eb0a: cc db cch eb0b: cf db cfh eb0c: ce db ceh eb0d: 47 db 47h eb0e: d3 db d3h eb0f: d9 db d9h eb10: ce db ceh eb11: d4 db d4h eb12: c1 db c1h eb13: 58 db 58h eb14: cd db cdh eb15: c5 db c5h eb16: cd db cdh eb17: a0 db a0h eb18: c6 db c6h eb19: d5 db d5h eb1a: cc db cch eb1b: 4c db 4ch eb1c: d4 db d4h eb1d: cf db cfh eb1e: cf db cfh eb1f: a0 db a0h eb20: cd db cdh eb21: c1 db c1h eb22: ce db ceh eb23: d9 db d9h eb24: a0 db a0h eb25: d0 db d0h eb26: c1 db c1h eb27: d2 db d2h eb28: c5 db c5h eb29: ce db ceh eb2a: 53 db 53h eb2b: d3 db d3h eb2c: d4 db d4h eb2d: d2 db d2h eb2e: c9 db c9h eb2f: ce db ceh eb30: 47 db 47h eb31: ce db ceh eb32: cf db cfh eb33: a0 db a0h eb34: c5 db c5h eb35: ce db ceh eb36: 44 db 44h eb37: c2 db c2h eb38: c1 db c1h eb39: c4 db c4h eb3a: a0 db a0h eb3b: c2 db c2h eb3c: d2 db d2h eb3d: c1 db c1h eb3e: ce db ceh eb3f: c3 db c3h eb40: 48 db 48h eb41: be db beh eb42: b8 db b8h eb43: a0 db a0h eb44: c7 db c7h eb45: cf db cfh eb46: d3 db d3h eb47: d5 db d5h eb48: c2 db c2h eb49: 53 db 53h eb4a: c2 db c2h eb4b: c1 db c1h eb4c: c4 db c4h eb4d: a0 db a0h eb4e: d2 db d2h eb4f: c5 db c5h eb50: d4 db d4h eb51: d5 db d5h eb52: d2 db d2h eb53: 4e db 4eh eb54: be db beh eb55: b8 db b8h eb56: a0 db a0h eb57: c6 db c6h eb58: cf db cfh eb59: d2 db d2h eb5a: 53 db 53h eb5b: c2 db c2h eb5c: c1 db c1h eb5d: c4 db c4h eb5e: a0 db a0h eb5f: ce db ceh eb60: c5 db c5h eb61: d8 db d8h eb62: 54 db 54h eb63: d3 db d3h eb64: d4 db d4h eb65: cf db cfh eb66: d0 db d0h eb67: d0 db d0h eb68: c5 db c5h eb69: c4 db c4h eb6a: a0 db a0h eb6b: c1 db c1h eb6c: d4 db d4h eb6d: 20 db 20h eb6e: aa db aah eb6f: aa db aah eb70: aa db aah eb71: 20 db 20h eb72: a0 db a0h eb73: c5 db c5h eb74: d2 db d2h eb75: d2 db d2h eb76: 0d db 0dh eb77: be db beh eb78: b2 db b2h eb79: b5 db b5h eb7a: 35 db 35h eb7b: d2 db d2h eb7c: c1 db c1h eb7d: ce db ceh eb7e: c7 db c7h eb7f: 45 db 45h eb80: c4 db c4h eb81: c9 db c9h eb82: 4d db 4dh eb83: d3 db d3h eb84: d4 db d4h eb85: d2 db d2h eb86: a0 db a0h eb87: cf db cfh eb88: d6 db d6h eb89: c6 db c6h eb8a: 4c db 4ch eb8b: dc db dch eb8c: 0d db 0dh eb8d: d2 db d2h eb8e: c5 db c5h eb8f: d4 db d4h eb90: d9 db d9h eb91: d0 db d0h eb92: c5 db c5h eb93: a0 db a0h eb94: cc db cch eb95: c9 db c9h eb96: ce db ceh eb97: c5 db c5h eb98: 8d db 8dh eb99: 3f db 3fh Leb9a: ; Jumped from: e3eah eb9a: 46d9 lsr 0d9h eb9c: 9003 bcc 0eba1h eb9e: 4cc3e8 jmp 0e8c3h Leba1: ; Jumped from: eb9ch eba1: a6cf ldx 0cfh eba3: 9a txs eba4: a6ce ldx 0ceh eba6: a08d ldy #8dh eba8: d002 bne 0ebach input_num_stmt: ; Jumped from: ebd6h ebaa: a099 ldy #99h Lebac: ; Jumped from: eba8h ebac: 20c4e3 jsr 0e3c4h Lebaf: ebaf: 86ce stx 0ceh ebb1: ba tsx ebb2: 86cf stx 0cfh ebb4: a0fe ldy #0feh ebb6: 84d9 sty 0d9h ebb8: c8 iny ebb9: 84c8 sty 0c8h ebbb: 2099e2 jsr 0e299h Lebbe: ebbe: 84f1 sty 0f1h ebc0: a220 ldx #20h ebc2: a930 lda #30h ebc4: 2091e4 jsr 0e491h Lebc7: ebc7: e6d9 inc 0d9h ebc9: a6ce ldx 0ceh ebcb: a4c8 ldy 0c8h ebcd: 0a asl a Lebce: ; Jumped from: ebdch ebce: 85ce sta 0ceh ebd0: c8 iny ebd1: b90002 lda 0200h, y ebd4: c974 cmp #74h ebd6: f0d2 beq input_num_stmt ebd8: 49b0 eor #0b0h ebda: c90a cmp #0ah ebdc: b0f0 bcs 0ebceh ebde: c8 iny ebdf: c8 iny ebe0: 84c8 sty 0c8h ebe2: b90002 lda 0200h, y ebe5: 48 pha ebe6: b9ff01 lda 01ffh, y ebe9: a000 ldy #00h ebeb: 2008e7 jsr push_ya_noun_stk Lebee: ebee: 68 pla ebef: 95a0 sta 0a0h,x ebf1: a5ce lda 0ceh ebf3: c9c7 cmp #0c7h ebf5: d003 bne 0ebfah ebf7: 206fe7 jsr negate Lebfa: ; Jumped from: ebf5h ebfa: 4c01e8 jmp var_assign ebfd: ff db ffh ebfe: ff db ffh ebff: ff db ffh ec00: 50 db 50h Lec01: ec01: 2013ec jsr 0ec13h Lec04: ec04: d015 bne 0ec1bh ec06: 200bec jsr 0ec0bh Lec09: ec09: d010 bne 0ec1bh ; ; Called by: ec06h ; Lec0b: ec0b: 2082e7 jsr subtract Lec0e: ec0e: 206fe7 jsr negate Lec11: ec11: 5003 bvc 0ec16h ; ; Called by: ec01h ; Lec13: ec13: 2082e7 jsr subtract Lec16: ; Jumped from: ec11h ec16: 2059e7 jsr sgn_fn Lec19: ec19: 5650 lsr 50h, x Lec1b: ; Jumped from: ec04h, ec09h, ec4eh ec1b: 4c36e7 jmp not_op Lec40: ec40: 20c9ef jsr 0efc9h Lec43: ec43: 154f ora 4fh, x ec45: 1005 bpl 0ec4ch ec47: 20c9ef jsr 0efc9h Lec4a: ec4a: 354f and 4fh, x Lec4c: ; Jumped from: ec45h ec4c: 9550 sta 50h,x ec4e: 10cb bpl 0ec1bh ec50: 4cc9ef jmp 0efc9h print_str_comma: ee00: 20b1e7 jsr tabout print_str: ee03: e8 inx ee04: e8 inx ee05: b54f lda 4fh, x ee07: 85da sta 0dah ee09: b577 lda 77h, x ee0b: 85db sta 0dbh ee0d: b44e ldy 4eh, x Lee0f: ; Jumped from: ee1ah ee0f: 98 tya ee10: d576 cmp 76h, x ee12: b009 bcs 0ee1dh ee14: b1da lda (0dah),y ee16: 20c9e3 jsr cout Lee19: ee19: c8 iny ee1a: 4c0fee jmp 0ee0fh Lee1d: ; Jumped from: ee12h ee1d: a9ff lda #0ffh ee1f: 85d5 sta 0d5h ee21: 60 rts len_fn: ee22: e8 db e8h ee23: a9 db a9h ee24: 00 db 00h ee25: 95 db 95h ee26: 78 db 78h ee27: 95 db 95h ee28: a0 db a0h ee29: b5 db b5h ee2a: 77 db 77h ee2b: 38 db 38h ee2c: f5 db f5h ee2d: 4f db 4fh ee2e: 95 db 95h ee2f: 50 db 50h ee30: 4c db 4ch ee31: 23 db 23h ee32: e8 db e8h ee33: ff db ffh ; ; Called by: e109h, e118h, ee3eh, ee4eh, ef00h ; getbyte: ee34: 2015e7 jsr get16bit Lee37: ee37: a5cf lda 0cfh ee39: d028 bne gr_255_err ee3b: a5ce lda 0ceh ee3d: 60 rts ; Returns to: e10ch, e11bh, ee41h, ee51h, ef03h plot_comma: ee3e: 2034ee jsr getbyte Lee41: ee41: a4c8 ldy 0c8h ee43: c930 cmp #30h ee45: b021 bcs range_err ee47: c028 cpy #28h ee49: b01d bcs range_err ee4b: 60 rts Lee4c: ee4c: ea nop ee4d: ea nop ee4e: 2034ee jsr getbyte Lee51: ee51: 60 rts Lee52: ee52: ea nop Lee53: ; Jumped from: eec6h ee53: 8a txa ee54: a201 ldx #01h Lee56: ; Jumped from: ee5fh ee56: b4ce ldy 0ceh, x ee58: 944c sty 4ch,x ee5a: b448 ldy 48h, x ee5c: 94ca sty 0cah,x ee5e: ca dex ee5f: f0f5 beq 0ee56h ee61: aa tax ee62: 60 rts gr_255_err: ; Jumped from: ee39h ee63: a077 ldy #77h go_errmess_5: ; Jumped from: ee6ah ee65: 4ce0e3 jmp print_err_msg range_err: ; Jumped from: ee45h, ee49h, eecbh ee68: a07b ldy #7bh ee6a: d0f9 bne go_errmess_5 ; ; Called by: e27ah, ef10h ; Lee6c: ee6c: 2054e2 jsr 0e254h Lee6f: ee6f: a5da lda 0dah ee71: d007 bne 0ee7ah ee73: a5db lda 0dbh ee75: d003 bne 0ee7ah ee77: 4c7ee7 jmp 0e77eh Lee7a: ; Jumped from: ee71h, ee75h, ee97h ee7a: 06ce asl 0ceh ee7c: 26cf rol 0cfh ee7e: 26e6 rol 0e6h ee80: 26e7 rol 0e7h ee82: a5e6 lda 0e6h ee84: c5da cmp 0dah ee86: a5e7 lda 0e7h ee88: e5db sbc 0dbh ee8a: 900a bcc 0ee96h ee8c: 85e7 sta 0e7h ee8e: a5e6 lda 0e6h ee90: e5da sbc 0dah ee92: 85e6 sta 0e6h ee94: e6ce inc 0ceh Lee96: ; Jumped from: ee8ah ee96: 88 dey ee97: d0e1 bne 0ee7ah ee99: 60 rts ; Returns to: e27dh, ef13h, ef21h, ef27h ee9a: ff db ffh ee9b: ff db ffh ee9c: ff db ffh ee9d: ff db ffh ee9e: ff db ffh ee9f: ff db ffh call_stmt: eea0: 2015e7 jsr get16bit Leea3: eea3: 6cce00 jmp (00ceh) bogus_eea6: ; Jumped from: eec4h eea6: a54c lda 4ch eea8: d002 bne 0eeach eeaa: c64d dec 4dh Leeac: ; Jumped from: eea8h eeac: c64c dec 4ch eeae: a548 lda 48h eeb0: d002 bne 0eeb4h eeb2: c649 dec 49h Leeb4: ; Jumped from: eeb0h eeb4: c648 dec 48h eeb6: a000 ldy #00h eeb8: b14c lda (4ch),y eeba: 9148 sta (48h),y eebc: a5ca lda 0cah eebe: c54c cmp 4ch eec0: a5cb lda 0cbh eec2: e54d sbc 4dh eec4: 90e0 bcc bogus_eea6 eec6: 4c53ee jmp 0ee53h Leec9: eec9: c928 cmp #28h Leecb: ; Jumped from: eeedh, eef3h, ef49h eecb: b09b bcs range_err eecd: a8 tay eece: a5c8 lda 0c8h eed0: 60 rts ; Returns to: ef21h, ef27h Leed1: eed1: ea nop eed2: ea nop ; ; Called by: e3e0h ; print_err_msg: eed3: 98 tya eed4: aa tax eed5: a06e ldy #6eh eed7: 20c4e3 jsr 0e3c4h Leeda: eeda: 8a txa eedb: a8 tay eedc: 20c4e3 jsr 0e3c4h Leedf: eedf: a072 ldy #72h eee1: 4cc4e3 jmp 0e3c4h ; ; Called by: ef1eh, ef24h ; Leee4: eee4: 2015e7 jsr get16bit Leee7: ; Jumped from: eeebh eee7: 06ce asl 0ceh eee9: 26cf rol 0cfh eeeb: 30fa bmi 0eee7h eeed: b0dc bcs 0eecbh eeef: d004 bne 0eef5h eef1: c5ce cmp 0ceh eef3: b0d6 bcs 0eecbh Leef5: ; Jumped from: eeefh eef5: 60 rts ; Returns to: ef21h, ef27h peek_fn: eef6: 2015e7 jsr get16bit Leef9: eef9: b1ce lda (0ceh),y eefb: 949f sty 9fh,x eefd: 4c08e7 jmp push_ya_noun_stk poke_stmt: ef00: 2034ee jsr getbyte Lef03: ef03: a5ce lda 0ceh ef05: 48 pha ef06: 2015e7 jsr get16bit Lef09: ef09: 68 pla ef0a: 91ce sta (0ceh),y ef0c: 60 rts ef0d: ff db ffh ef0e: ff db ffh ef0f: ff db ffh divide: ef10: 206cee jsr 0ee6ch Lef13: ef13: a5ce lda 0ceh ef15: 85e6 sta 0e6h ef17: a5cf lda 0cfh ef19: 85e7 sta 0e7h ef1b: 4c44e2 jmp 0e244h dim_num: ef1e: 20e4ee jsr 0eee4h Lef21: ef21: 4c34e1 jmp 0e134h num_array_subs: ef24: 20e4ee jsr 0eee4h Lef27: ef27: b478 ldy 78h, x ef29: b550 lda 50h, x ef2b: 69fe adc #0feh ef2d: b001 bcs 0ef30h ef2f: 88 dey Lef30: ; Jumped from: ef2dh ef30: 85da sta 0dah ef32: 84db sty 0dbh ef34: 18 clc ef35: 65ce adc 0ceh ef37: 9550 sta 50h,x ef39: 98 tya ef3a: 65cf adc 0cfh ef3c: 9578 sta 78h,x ef3e: a000 ldy #00h ef40: b550 lda 50h, x ef42: d1da cmp 0dah, y ef44: c8 iny ef45: b578 lda 78h, x ef47: f1da sbc 0dah, y ef49: b080 bcs 0eecbh ef4b: 4c23e8 jmp left_paren rnd_fn: ef4e: 2015e7 jsr get16bit Lef51: ef51: a54e lda 4eh ef53: 2008e7 jsr push_ya_noun_stk Lef56: ef56: a54f lda 4fh ef58: d004 bne 0ef5eh ef5a: c54e cmp 4eh ef5c: 6900 adc #00h Lef5e: ; Jumped from: ef58h ef5e: 297f and #7fh ef60: 854f sta 4fh ef62: 95a0 sta 0a0h,x ef64: a011 ldy #11h Lef66: ; Jumped from: ef72h ef66: a54f lda 4fh ef68: 0a asl a ef69: 18 clc ef6a: 6940 adc #40h ef6c: 0a asl a ef6d: 264e rol 4eh ef6f: 264f rol 4fh ef71: 88 dey ef72: d0f2 bne 0ef66h ef74: a5ce lda 0ceh ef76: 2008e7 jsr push_ya_noun_stk Lef79: ef79: a5cf lda 0cfh ef7b: 95a0 sta 0a0h,x ef7d: 4c7ae2 jmp mod_op ef80: 20 db 20h ef81: 15 db 15h ef82: e7 db e7h ef83: a4 db a4h ef84: ce db ceh ef85: c4 db c4h ef86: 4c db 4ch ef87: a5 db a5h ef88: cf db cfh ef89: e5 db e5h ef8a: 4d db 4dh ef8b: 90 db 90h ef8c: 1f db 1fh ef8d: 84 db 84h ef8e: 48 db 48h ef8f: a5 db a5h ef90: cf db cfh ef91: 85 db 85h ef92: 49 db 49h ef93: 4c db 4ch ef94: b6 db b6h ef95: ee db eeh ef96: 20 db 20h ef97: 15 db 15h ef98: e7 db e7h ef99: a4 db a4h ef9a: ce db ceh ef9b: c4 db c4h ef9c: ca db cah ef9d: a5 db a5h ef9e: cf db cfh ef9f: e5 db e5h efa0: cb db cbh efa1: b0 db b0h efa2: 09 db 09h efa3: 84 db 84h efa4: 4a db 4ah efa5: a5 db a5h efa6: cf db cfh efa7: 85 db 85h efa8: 4b db 4bh efa9: 4c db 4ch efaa: b7 db b7h efab: e5 db e5h efac: 4c db 4ch efad: cb db cbh efae: ee db eeh efaf: ea db eah efb0: ea db eah efb1: ea db eah efb2: ea db eah Lefb3: efb3: 20c9ef jsr 0efc9h string_input: efb6: 2071e1 jsr input_str Lefb9: efb9: 4cbfef jmp 0efbfh input_prompt: efbc: 20 db 20h efbd: 03 db 03h efbe: ee db eeh Lefbf: ; Jumped from: efb9h efbf: a9ff lda #0ffh efc1: 85c8 sta 0c8h efc3: a974 lda #74h efc5: 8d0002 sta 0200h efc8: 60 rts ; ; Called by: ec40h, ec47h, efb3h ; Lefc9: ; Jumped from: ec50h efc9: 2036e7 jsr not_op Lefcc: efcc: e8 inx ; ; Called by: e828h ; Lefcd: efcd: 2036e7 jsr not_op Lefd0: efd0: b550 lda 50h, x efd2: 60 rts ; Returns to: e82bh, ec43h, ec4ah, efb6h ; ; Called by: e2b0h ; mem_init_4k: efd3: a900 lda #00h efd5: 854a sta 4ah efd7: 854c sta 4ch efd9: a908 lda #08h efdb: 854b sta 4bh efdd: a910 lda #10h efdf: 854d sta 4dh efe1: 4cade5 jmp new_cmd ; ; Called by: e110h ; Lefe4: efe4: d578 cmp 78h, x efe6: d001 bne 0efe9h efe8: 18 clc Lefe9: ; Jumped from: efe6h efe9: 4c02e1 jmp 0e102h Lefec: efec: 20b7e5 jsr clr Lefef: efef: 4c36e8 jmp run_warm Leff2: eff2: 20b7e5 jsr clr Leff5: eff5: 4c5be8 jmp goto_stmt ; ; Called by: e0d6h ; Leff8: eff8: e080 cpx #80h effa: d001 bne 0effdh effc: 88 dey Leffd: ; Jumped from: effah effd: 4c0ce0 jmp 0e00ch