/etude.asm
Assembly | 2086 lines | 1998 code | 88 blank | 0 comment | 4 complexity | 9656b75e24f3cf71d9c84f9a50430f57 MD5 | raw file
Possible License(s): BSD-3-Clause
Large files files are truncated, but you can click here to view the full file
- Resident data ends at 61c, program starts at 61c, file ends at 4a0c
- Starting analysis pass at address 61c
- End of analysis pass, low address = 61c, high address = 20b6
- [Start of code at 61c]
- Main routine 61c, 0 locals
- 61d: e0 3f 05 6b ff CALL_VS 15ac -> Gef
- 622: ba QUIT
- Routine 624, 2 locals
- 625: e0 17 07 a1 32 00 01 CALL_VS 1e84 (#32,#00) -> L00
- 62c: e0 17 07 a1 32 01 02 CALL_VS 1e84 (#32,#01) -> L01
- 633: a0 01 4b JZ L00 [FALSE] 63f
- 636: a0 02 48 JZ L01 [FALSE] 63f
- 639: 8d 08 46 PRINT_PADDR S003
- 63c: 8c 00 1f JUMP 65c
- 63f: 8d 08 55 PRINT_PADDR S004
- 642: e6 bf 01 PRINT_NUM L00
- 645: b2 ... PRINT "."
- 648: e6 bf 02 PRINT_NUM L01
- 64b: b2 ... PRINT " of the Z-Spec.
- "
- 65c: e0 17 07 a1 00 01 01 CALL_VS 1e84 (#00,#01) -> L00
- 663: 49 01 01 00 AND L00,#01 -> -(SP)
- 667: a0 00 c8 JZ (SP)+ [TRUE] 670
- 66a: 8d 08 5d PRINT_PADDR S005
- 66d: 8c 00 05 JUMP 673
- 670: 8d 08 67 PRINT_PADDR S006
- 673: 49 01 04 00 AND L00,#04 -> -(SP)
- 677: a0 00 c8 JZ (SP)+ [TRUE] 680
- 67a: 8d 08 72 PRINT_PADDR S007
- 67d: 8c 00 05 JUMP 683
- 680: 8d 08 7e PRINT_PADDR S008
- 683: 49 01 08 00 AND L00,#08 -> -(SP)
- 687: a0 00 c8 JZ (SP)+ [TRUE] 690
- 68a: 8d 08 8b PRINT_PADDR S009
- 68d: 8c 00 05 JUMP 693
- 690: 8d 08 98 PRINT_PADDR S010
- 693: 49 01 10 00 AND L00,#10 -> -(SP)
- 697: a0 00 c8 JZ (SP)+ [TRUE] 6a0
- 69a: 8d 08 a6 PRINT_PADDR S011
- 69d: 8c 00 05 JUMP 6a3
- 6a0: 8d 08 b1 PRINT_PADDR S012
- 6a3: 49 01 20 00 AND L00,#20 -> -(SP)
- 6a7: a0 00 c8 JZ (SP)+ [TRUE] 6b0
- 6aa: 8d 08 bd PRINT_PADDR S013
- 6ad: 8c 00 05 JUMP 6b3
- 6b0: 8d 08 c7 PRINT_PADDR S014
- 6b3: 49 01 80 00 AND L00,#80 -> -(SP)
- 6b7: a0 00 c8 JZ (SP)+ [TRUE] 6c0
- 6ba: 8d 08 d2 PRINT_PADDR S015
- 6bd: 8c 00 05 JUMP 6c3
- 6c0: 8d 08 dc PRINT_PADDR S016
- 6c3: bb NEW_LINE
- 6c4: e0 17 07 a1 10 01 01 CALL_VS 1e84 (#10,#01) -> L00
- 6cb: 49 01 10 00 AND L00,#10 -> -(SP)
- 6cf: a0 00 c8 JZ (SP)+ [TRUE] 6d8
- 6d2: 8d 08 e7 PRINT_PADDR S017
- 6d5: 8c 00 05 JUMP 6db
- 6d8: 8d 08 f0 PRINT_PADDR S018
- 6db: b0 RTRUE
- Routine 6dc, 4 locals
- 6dd: e0 17 07 a1 00 01 01 CALL_VS 1e84 (#00,#01) -> L00
- 6e4: 49 01 01 00 AND L00,#01 -> -(SP)
- 6e8: a0 00 cb JZ (SP)+ [TRUE] 6f4
- 6eb: 8d 09 06 PRINT_PADDR S029
- 6ee: 0d 04 01 STORE L03,#01
- 6f1: 8c 00 08 JUMP 6fa
- 6f4: 8d 09 10 PRINT_PADDR S030
- 6f7: 0d 04 00 STORE L03,#00
- 6fa: a0 04 c8 JZ L03 [TRUE] 703
- 6fd: 8d 09 1b PRINT_PADDR S031
- 700: 8c 00 05 JUMP 706
- 703: 8d 09 22 PRINT_PADDR S032
- 706: 8d 09 2b PRINT_PADDR S033
- 709: 0f 00 08 ff LOADW #00,#08 -> Gef
- 70d: 28 02 ff ff OR #02,Gef -> Gef
- 711: e1 5b 00 08 ff STOREW #00,#08,Gef
- 716: bb NEW_LINE
- 717: b2 ... PRINT "Bk Rd Gr Yl Bl Mg Cy Wh
- "
- 72e: 0d 02 02 STORE L01,#02
- 731: 42 02 0a 00 47 JL L01,#0a [FALSE] 77b
- 736: 0d 03 02 STORE L02,#02
- 739: 42 03 0a 4f JL L02,#0a [FALSE] 74a
- 73d: 7b 02 03 SET_COLOUR L01,L02
- 740: b2 ... PRINT "## "
- 745: 95 03 INC L02
- 747: 8c ff f1 JUMP 739
- 74a: 1b 01 01 SET_COLOUR #01,#01
- 74d: b2 ... PRINT ": "
- 750: 42 02 00 c6 JL L01,#00 [TRUE] 758
- 754: 42 02 0a d2 JL L01,#0a [TRUE] 768
- 758: fa 19 5f 06 55 1d 02 09 01 00
- CALL_VN2 1954 (#1d,L01,#09,#01,#00)
- 762: e8 7f 00 PUSH #00
- 765: 8c 00 08 JUMP 76e
- 768: cf 2f 04 e8 02 00 LOADW #04e8,L01 -> -(SP)
- 76e: da 2f 07 dd 00 CALL_2N 1f74 ((SP)+)
- 773: b2 ... PRINT "
- "
- 776: 95 02 INC L01
- 778: 8c ff b8 JUMP 731
- 77b: 0f 00 08 ff LOADW #00,#08 -> Gef
- 77f: c9 2f ff fd ff ff AND #fffd,Gef -> Gef
- 785: e1 5b 00 08 ff STOREW #00,#08,Gef
- 78a: b0 RTRUE
- Routine 78c, 1 local
- 78d: e0 17 07 a1 00 01 01 CALL_VS 1e84 (#00,#01) -> L00
- 794: 49 01 04 00 AND L00,#04 -> -(SP)
- 798: a0 00 c8 JZ (SP)+ [TRUE] 7a1
- 79b: 8d 09 47 PRINT_PADDR S034
- 79e: 8c 00 05 JUMP 7a4
- 7a1: 8d 09 53 PRINT_PADDR S035
- 7a4: 49 01 08 00 AND L00,#08 -> -(SP)
- 7a8: a0 00 c8 JZ (SP)+ [TRUE] 7b1
- 7ab: 8d 09 60 PRINT_PADDR S036
- 7ae: 8c 00 05 JUMP 7b4
- 7b1: 8d 09 6d PRINT_PADDR S037
- 7b4: 49 01 10 00 AND L00,#10 -> -(SP)
- 7b8: a0 00 c8 JZ (SP)+ [TRUE] 7c1
- 7bb: 8d 09 7b PRINT_PADDR S038
- 7be: 8c 00 05 JUMP 7c4
- 7c1: 8d 09 86 PRINT_PADDR S039
- 7c4: bb NEW_LINE
- 7c5: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 7c8: b2 ... PRINT "Test of emphasized (bold)
- text."
- 7e1: f1 7f 00 SET_TEXT_STYLE ROMAN
- 7e4: b2 ... PRINT "
- ...normal font...
- "
- 7f7: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 7fa: 8d 09 92 PRINT_PADDR S040
- 7fd: f1 7f 00 SET_TEXT_STYLE ROMAN
- 800: b2 ... PRINT "
- ...normal font...
- "
- 813: f1 7f 01 SET_TEXT_STYLE REVERSE
- 816: b2 ... PRINT "Test of reverse-video text."
- 82b: f1 7f 00 SET_TEXT_STYLE ROMAN
- 82e: b2 ... PRINT "
- ...normal font...
- "
- 841: 0f 00 08 ff LOADW #00,#08 -> Gef
- 845: 28 02 ff ff OR #02,Gef -> Gef
- 849: e1 5b 00 08 ff STOREW #00,#08,Gef
- 84e: 8d 09 99 PRINT_PADDR S041
- 851: 0f 00 08 ff LOADW #00,#08 -> Gef
- 855: c9 2f ff fd ff ff AND #fffd,Gef -> Gef
- 85b: e1 5b 00 08 ff STOREW #00,#08,Gef
- 860: b2 ... PRINT "
- ...normal font...
- "
- 873: f1 7f 08 SET_TEXT_STYLE FIXED_FONT
- 876: 8d 09 a6 PRINT_PADDR S042
- 879: f1 7f 00 SET_TEXT_STYLE ROMAN
- 87c: bb NEW_LINE
- 87d: 8d 09 b1 PRINT_PADDR S043
- 880: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 883: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 886: b2 ... PRINT "Test of bold, italic text."
- 89b: f1 7f 00 SET_TEXT_STYLE ROMAN
- 89e: bb NEW_LINE
- 89f: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 8a2: f1 7f 01 SET_TEXT_STYLE REVERSE
- 8a5: b2 ... PRINT "Test of bold, reverse text."
- 8ba: f1 7f 00 SET_TEXT_STYLE ROMAN
- 8bd: bb NEW_LINE
- 8be: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 8c1: f1 7f 01 SET_TEXT_STYLE REVERSE
- 8c4: b2 ... PRINT "Test of italic, reverse text."
- 8db: f1 7f 00 SET_TEXT_STYLE ROMAN
- 8de: bb NEW_LINE
- 8df: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 8e2: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 8e5: f1 7f 01 SET_TEXT_STYLE REVERSE
- 8e8: 8d 09 d0 PRINT_PADDR S044
- 8eb: f1 7f 00 SET_TEXT_STYLE ROMAN
- 8ee: bb NEW_LINE
- 8ef: 8d 09 d7 PRINT_PADDR S045
- 8f2: 0f 00 08 ff LOADW #00,#08 -> Gef
- 8f6: 28 02 ff ff OR #02,Gef -> Gef
- 8fa: e1 5b 00 08 ff STOREW #00,#08,Gef
- 8ff: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 902: b2 ... PRINT "Test of fixed, bold text."
- 917: f1 7f 00 SET_TEXT_STYLE ROMAN
- 91a: bb NEW_LINE
- 91b: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 91e: b2 ... PRINT "Test of fixed, italic text."
- 933: f1 7f 00 SET_TEXT_STYLE ROMAN
- 936: bb NEW_LINE
- 937: f1 7f 01 SET_TEXT_STYLE REVERSE
- 93a: b2 ... PRINT "Test of fixed, reverse text."
- 951: f1 7f 00 SET_TEXT_STYLE ROMAN
- 954: bb NEW_LINE
- 955: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 958: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 95b: 8d 09 ef PRINT_PADDR S046
- 95e: f1 7f 00 SET_TEXT_STYLE ROMAN
- 961: bb NEW_LINE
- 962: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 965: f1 7f 01 SET_TEXT_STYLE REVERSE
- 968: 8d 09 f6 PRINT_PADDR S047
- 96b: f1 7f 00 SET_TEXT_STYLE ROMAN
- 96e: bb NEW_LINE
- 96f: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 972: f1 7f 01 SET_TEXT_STYLE REVERSE
- 975: 8d 09 fd PRINT_PADDR S048
- 978: f1 7f 00 SET_TEXT_STYLE ROMAN
- 97b: bb NEW_LINE
- 97c: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- 97f: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- 982: f1 7f 01 SET_TEXT_STYLE REVERSE
- 985: 8d 0a 04 PRINT_PADDR S049
- 988: f1 7f 00 SET_TEXT_STYLE ROMAN
- 98b: bb NEW_LINE
- 98c: 0f 00 08 ff LOADW #00,#08 -> Gef
- 990: c9 2f ff fd ff ff AND #fffd,Gef -> Gef
- 996: e1 5b 00 08 ff STOREW #00,#08,Gef
- 99b: b2 ... PRINT "
- End of styles test.
- "
- 9ae: b0 RTRUE
- Routine 9b0, 3 locals
- 9b1: da 2f 07 dd 01 CALL_2N 1f74 (L00)
- 9b6: b2 ... PRINT " = "
- 9bb: e6 bf 02 PRINT_NUM L01
- 9be: 61 02 03 4c JE L01,L02 [FALSE] 9cc
- 9c2: b2 ... PRINT " (ok)
- "
- 9c9: 8c 00 20 JUMP 9ea
- 9cc: b2 ... PRINT " (ERROR, should be "
- 9df: e6 bf 03 PRINT_NUM L02
- 9e2: b2 ... PRINT "!)
- "
- 9e7: 0d 10 01 STORE G00,#01
- 9ea: b0 RTRUE
- Routine 9ec, 3 locals
- 9ed: 8d 0a 0c PRINT_PADDR S050
- 9f0: 8d 0a 31 PRINT_PADDR S051
- 9f3: 0d 10 00 STORE G00,#00
- 9f6: 0d 01 0d STORE L00,#0d
- 9f9: 0d 02 05 STORE L01,#05
- 9fc: 76 01 02 03 MUL L00,L01 -> L02
- a00: f9 09 02 6c 0a 81 03 41 CALL_VN 9b0 (S052,L02,#41)
- a08: 0d 01 0d STORE L00,#0d
- a0b: cd 4f 02 ff fb STORE L01,#fffb
- a10: 76 01 02 03 MUL L00,L01 -> L02
- a14: f9 08 02 6c 0a 83 03 ff bf
- CALL_VN 9b0 (S053,L02,#ffbf)
- a1d: cd 4f 01 ff f3 STORE L00,#fff3
- a22: 0d 02 05 STORE L01,#05
- a25: 76 01 02 03 MUL L00,L01 -> L02
- a29: f9 08 02 6c 0a 86 03 ff bf
- CALL_VN 9b0 (S054,L02,#ffbf)
- a32: cd 4f 01 ff f3 STORE L00,#fff3
- a37: cd 4f 02 ff fb STORE L01,#fffb
- a3c: 76 01 02 03 MUL L00,L01 -> L02
- a40: f9 09 02 6c 0a 89 03 41 CALL_VN 9b0 (S055,L02,#41)
- a48: 0d 01 0d STORE L00,#0d
- a4b: 0d 02 05 STORE L01,#05
- a4e: 2d ff 01 STORE Gef,L00
- a51: 2d fe 02 STORE Gee,L01
- a54: a0 fe 49 JZ Gee [FALSE] a5e
- a57: f9 1f 06 55 14 CALL_VN 1954 (#14)
- a5c: 95 fe INC Gee
- a5e: 77 ff fe 03 DIV Gef,Gee -> L02
- a62: f9 09 02 6c 0a 8c 03 02 CALL_VN 9b0 (S056,L02,#02)
- a6a: 0d 01 0d STORE L00,#0d
- a6d: cd 4f 02 ff fb STORE L01,#fffb
- a72: 2d ff 01 STORE Gef,L00
- a75: 2d fe 02 STORE Gee,L01
- a78: a0 fe 49 JZ Gee [FALSE] a82
- a7b: f9 1f 06 55 14 CALL_VN 1954 (#14)
- a80: 95 fe INC Gee
- a82: 77 ff fe 03 DIV Gef,Gee -> L02
- a86: f9 08 02 6c 0a 8e 03 ff fe
- CALL_VN 9b0 (S057,L02,#fffe)
- a8f: cd 4f 01 ff f3 STORE L00,#fff3
- a94: 0d 02 05 STORE L01,#05
- a97: 2d ff 01 STORE Gef,L00
- a9a: 2d fe 02 STORE Gee,L01
- a9d: a0 fe 49 JZ Gee [FALSE] aa7
- aa0: f9 1f 06 55 14 CALL_VN 1954 (#14)
- aa5: 95 fe INC Gee
- aa7: 77 ff fe 03 DIV Gef,Gee -> L02
- aab: f9 08 02 6c 0a 90 03 ff fe
- CALL_VN 9b0 (S058,L02,#fffe)
- ab4: cd 4f 01 ff f3 STORE L00,#fff3
- ab9: cd 4f 02 ff fb STORE L01,#fffb
- abe: 2d ff 01 STORE Gef,L00
- ac1: 2d fe 02 STORE Gee,L01
- ac4: a0 fe 49 JZ Gee [FALSE] ace
- ac7: f9 1f 06 55 14 CALL_VN 1954 (#14)
- acc: 95 fe INC Gee
- ace: 77 ff fe 03 DIV Gef,Gee -> L02
- ad2: f9 09 02 6c 0a 92 03 02 CALL_VN 9b0 (S059,L02,#02)
- ada: 0d 01 0d STORE L00,#0d
- add: 0d 02 05 STORE L01,#05
- ae0: 2d ff 01 STORE Gef,L00
- ae3: 2d fe 02 STORE Gee,L01
- ae6: a0 fe 49 JZ Gee [FALSE] af0
- ae9: f9 1f 06 55 14 CALL_VN 1954 (#14)
- aee: 95 fe INC Gee
- af0: 78 ff fe 03 MOD Gef,Gee -> L02
- af4: f9 09 02 6c 0a 95 03 03 CALL_VN 9b0 (S060,L02,#03)
- afc: 0d 01 0d STORE L00,#0d
- aff: cd 4f 02 ff fb STORE L01,#fffb
- b04: 2d ff 01 STORE Gef,L00
- b07: 2d fe 02 STORE Gee,L01
- b0a: a0 fe 49 JZ Gee [FALSE] b14
- b0d: f9 1f 06 55 14 CALL_VN 1954 (#14)
- b12: 95 fe INC Gee
- b14: 78 ff fe 03 MOD Gef,Gee -> L02
- b18: f9 09 02 6c 0a 97 03 03 CALL_VN 9b0 (S061,L02,#03)
- b20: cd 4f 01 ff f3 STORE L00,#fff3
- b25: 0d 02 05 STORE L01,#05
- b28: 2d ff 01 STORE Gef,L00
- b2b: 2d fe 02 STORE Gee,L01
- b2e: a0 fe 49 JZ Gee [FALSE] b38
- b31: f9 1f 06 55 14 CALL_VN 1954 (#14)
- b36: 95 fe INC Gee
- b38: 78 ff fe 03 MOD Gef,Gee -> L02
- b3c: f9 08 02 6c 0a 9a 03 ff fd
- CALL_VN 9b0 (S062,L02,#fffd)
- b45: cd 4f 01 ff f3 STORE L00,#fff3
- b4a: cd 4f 02 ff fb STORE L01,#fffb
- b4f: 2d ff 01 STORE Gef,L00
- b52: 2d fe 02 STORE Gee,L01
- b55: a0 fe 49 JZ Gee [FALSE] b5f
- b58: f9 1f 06 55 14 CALL_VN 1954 (#14)
- b5d: 95 fe INC Gee
- b5f: 78 ff fe 03 MOD Gef,Gee -> L02
- b63: f9 08 02 6c 0a 9d 03 ff fd
- CALL_VN 9b0 (S063,L02,#fffd)
- b6c: a0 10 4e JZ G00 [FALSE] b7b
- b6f: b2 ... PRINT "
- "
- b72: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- b78: 8c 00 0b JUMP b84
- b7b: b2 ... PRINT "
- "
- b7e: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- b84: b0 RTRUE
- Routine b88, 2 locals
- b89: 8d 0b 7a PRINT_PADDR S133
- b8c: 8d 0b 98 PRINT_PADDR S134
- b8f: 8d 0b e2 PRINT_PADDR S135
- b92: 0d 02 00 STORE L01,#00
- b95: 90 01 80 df JZ #01 [TRUE] c76
- b99: 42 02 00 80 a7 JL L01,#00 [TRUE] c43
- b9e: 49 02 04 00 AND L01,#04 -> -(SP)
- ba2: a0 00 cf JZ (SP)+ [TRUE] bb2
- ba5: 0f 00 08 ff LOADW #00,#08 -> Gef
- ba9: 28 02 ff ff OR #02,Gef -> Gef
- bad: e1 5b 00 08 ff STOREW #00,#08,Gef
- bb2: 49 02 02 00 AND L01,#02 -> -(SP)
- bb6: a0 00 c5 JZ (SP)+ [TRUE] bbc
- bb9: f1 7f 04 SET_TEXT_STYLE EMPHASIS
- bbc: 49 02 01 00 AND L01,#01 -> -(SP)
- bc0: a0 00 c5 JZ (SP)+ [TRUE] bc6
- bc3: f1 7f 02 SET_TEXT_STYLE BOLDFACE
- bc6: 0d 01 01 STORE L00,#01
- bc9: 02 00 00 c6 JL #00,#00 [TRUE] bd1
- bcd: 02 00 46 d2 JL #00,#46 [TRUE] be1
- bd1: fa 15 5f 06 55 1d 00 45 03 01
- CALL_VN2 1954 (#1d,#00,#45,#03,#01)
- bdb: e8 7f 00 PUSH #00
- bde: 8c 00 08 JUMP be7
- be1: cf 1f 04 fc 00 00 LOADW #04fc,#00 -> -(SP)
- be7: 63 01 00 f8 JG L00,(SP)+ [TRUE] c21
- beb: 42 01 00 c6 JL L00,#00 [TRUE] bf3
- bef: 42 01 46 d2 JL L00,#46 [TRUE] c03
- bf3: fa 19 5f 06 55 1d 01 45 03 01
- CALL_VN2 1954 (#1d,L00,#45,#03,#01)
- bfd: e8 7f 00 PUSH #00
- c00: 8c 00 08 JUMP c09
- c03: cf 2f 04 fc 01 00 LOADW #04fc,L00 -> -(SP)
- c09: da 2f 07 dd 00 CALL_2N 1f74 ((SP)+)
- c0e: 58 01 04 00 MOD L00,#04 -> -(SP)
- c12: a0 00 46 JZ (SP)+ [FALSE] c19
- c15: bb NEW_LINE
- c16: 8c 00 05 JUMP c1c
- c19: b2 ... PRINT " "
- c1c: 95 01 INC L00
- c1e: 8c ff aa JUMP bc9
- c21: 49 02 04 00 AND L01,#04 -> -(SP)
- c25: a0 00 d1 JZ (SP)+ [TRUE] c37
- c28: 0f 00 08 ff LOADW #00,#08 -> Gef
- c2c: c9 2f ff fd ff ff AND #fffd,Gef -> Gef
- c32: e1 5b 00 08 ff STOREW #00,#08,Gef
- c37: 49 02 03 00 AND L01,#03 -> -(SP)
- c3b: a0 00 c5 JZ (SP)+ [TRUE] c41
- c3e: f1 7f 00 SET_TEXT_STYLE ROMAN
- c41: bb NEW_LINE
- c42: bb NEW_LINE
- c43: 8d 0c 3c PRINT_PADDR S136
- c46: 8d 0c 4e PRINT_PADDR S137
- c49: b2 ... PRINT "
- Accents> "
- c54: f6 7f 01 01 READ_CHAR #01 -> L00
- c58: bb NEW_LINE
- c59: 41 01 2e 43 JE L00,#2e [FALSE] c5e
- c5d: b0 RTRUE
- c5e: bb NEW_LINE
- c5f: 42 01 30 cd JL L00,#30 [TRUE] c6e
- c63: 43 01 37 c9 JG L00,#37 [TRUE] c6e
- c67: 55 01 30 02 SUB L00,#30 -> L01
- c6b: 8c 00 07 JUMP c73
- c6e: cd 4f 02 ff ff STORE L01,#ffff
- c73: 8c ff 21 JUMP b95
- c76: b0 RTRUE
- Routine c78, 3 locals
- c79: 0d 03 00 STORE L02,#00
- c7c: 41 01 08 4b JE L00,#08 [FALSE] c89
- c80: 8d 0c 6a PRINT_PADDR S138
- c83: 0d 03 02 STORE L02,#02
- c86: 8c 01 fa JUMP e81
- c89: 41 01 0d 4b JE L00,#0d [FALSE] c96
- c8d: 8d 0c 74 PRINT_PADDR S139
- c90: 0d 03 02 STORE L02,#02
- c93: 8c 01 ed JUMP e81
- c96: 41 01 1b 4b JE L00,#1b [FALSE] ca3
- c9a: 8d 0c 7e PRINT_PADDR S140
- c9d: 0d 03 02 STORE L02,#02
- ca0: 8c 01 e0 JUMP e81
- ca3: 42 01 20 69 JL L00,#20 [FALSE] cce
- ca7: b2 ... PRINT "control character 'ctrl-"
- cba: 54 01 40 00 ADD L00,#40 -> -(SP)
- cbe: da 2f 07 d0 00 CALL_2N 1f40 ((SP)+)
- cc3: b2 ... PRINT "'"
- cc6: cd 4f 03 ff ff STORE L02,#ffff
- ccb: 8c 01 b5 JUMP e81
- cce: 41 01 7f 5f JE L00,#7f [FALSE] cef
- cd2: b2 ... PRINT "control character 'delete'"
- ce7: cd 4f 03 ff ff STORE L02,#ffff
- cec: 8c 01 94 JUMP e81
- cef: 41 01 80 59 JE L00,#80 [FALSE] d0a
- cf3: b2 ... PRINT "undefined character"
- d02: cd 4f 03 ff ff STORE L02,#ffff
- d07: 8c 01 79 JUMP e81
- d0a: 42 01 80 5e JL L00,#80 [FALSE] d2a
- d0e: b2 ... PRINT "ASCII character '"
- d1f: da 2f 07 d0 01 CALL_2N 1f40 (L00)
- d24: b2 ... PRINT "'"
- d27: 8c 01 59 JUMP e81
- d2a: 42 01 9b 00 a3 JL L00,#9b [FALSE] dd0
- d2f: 0d 03 02 STORE L02,#02
- d32: 2d ff 01 STORE Gef,L00
- d35: 41 ff 81 4c JE Gef,#81 [FALSE] d43
- d39: b2 ... PRINT "cursor up"
- d40: 8c 00 8c JUMP dcd
- d43: 41 ff 82 4e JE Gef,#82 [FALSE] d53
- d47: b2 ... PRINT "cursor down"
- d50: 8c 00 7c JUMP dcd
- d53: 41 ff 83 4e JE Gef,#83 [FALSE] d63
- d57: b2 ... PRINT "cursor left"
- d60: 8c 00 6c JUMP dcd
- d63: 41 ff 84 4e JE Gef,#84 [FALSE] d73
- d67: b2 ... PRINT "cursor right"
- d70: 8c 00 5c JUMP dcd
- d73: c1 95 ff 85 86 87 d7 JE Gef,#85,#86,#87 [TRUE] d8f
- d7a: c1 95 ff 88 89 8a d0 JE Gef,#88,#89,#8a [TRUE] d8f
- d81: c1 95 ff 8b 8c 8d c9 JE Gef,#8b,#8c,#8d [TRUE] d8f
- d88: c1 95 ff 8e 8f 90 57 JE Gef,#8e,#8f,#90 [FALSE] da4
- d8f: b2 ... PRINT "function key "
- d9a: 55 01 84 00 SUB L00,#84 -> -(SP)
- d9e: e6 bf 00 PRINT_NUM (SP)+
- da1: 8c 00 2b JUMP dcd
- da4: c1 95 ff 91 92 93 d4 JE Gef,#91,#92,#93 [TRUE] dbd
- dab: c1 95 ff 94 95 96 cd JE Gef,#94,#95,#96 [TRUE] dbd
- db2: c1 95 ff 97 98 99 c6 JE Gef,#97,#98,#99 [TRUE] dbd
- db9: 41 ff 9a 52 JE Gef,#9a [FALSE] dcd
- dbd: b2 ... PRINT "keypad key "
- dc6: 55 01 91 00 SUB L00,#91 -> -(SP)
- dca: e6 bf 00 PRINT_NUM (SP)+
- dcd: 8c 00 b3 JUMP e81
- dd0: 42 01 e0 79 JL L00,#e0 [FALSE] e0b
- dd4: 55 01 9b 00 SUB L00,#9b -> -(SP)
- dd8: 54 00 01 00 ADD (SP)+,#01 -> -(SP)
- ddc: e9 7f fe PULL Gee
- ddf: e8 bf fe PUSH Gee
- de2: 42 fe 00 c6 JL Gee,#00 [TRUE] dea
- de6: 42 fe 46 d5 JL Gee,#46 [TRUE] dfd
- dea: fa 19 5f 06 55 1d fe 45 03 01
- CALL_VN2 1954 (#1d,Gee,#45,#03,#01)
- df4: a0 00 42 JZ (SP)+ [FALSE] df7
- df7: e8 7f 00 PUSH #00
- dfa: 8c 00 08 JUMP e03
- dfd: cf 2f 04 fc 00 00 LOADW #04fc,(SP)+ -> -(SP)
- e03: da 2f 07 dd 00 CALL_2N 1f74 ((SP)+)
- e08: 8c 00 78 JUMP e81
- e0b: 42 01 fc 59 JL L00,#fc [FALSE] e26
- e0f: b2 ... PRINT "undefined character"
- e1e: cd 4f 03 ff ff STORE L02,#ffff
- e23: 8c 00 5d JUMP e81
- e26: 42 01 ff 00 44 JL L00,#ff [FALSE] e6d
- e2b: 0d 03 02 STORE L02,#02
- e2e: 2d ff 01 STORE Gef,L00
- e31: 41 ff fc 4e JE Gef,#fc [FALSE] e41
- e35: b2 ... PRINT "menu click"
- e3e: 8c 00 2b JUMP e6a
- e41: 41 ff fd 54 JE Gef,#fd [FALSE] e57
- e45: b2 ... PRINT "mouse double-click"
- e54: 8c 00 15 JUMP e6a
- e57: 41 ff fe 51 JE Gef,#fe [FALSE] e6a
- e5b: b2 ... PRINT "mouse single-click"
- e6a: 8c 00 16 JUMP e81
- e6d: cd 4f 03 ff ff STORE L02,#ffff
- e72: b2 ... PRINT "undefined character"
- e81: 41 02 01 69 JE L01,#01 [FALSE] eac
- e85: 2d ff 03 STORE Gef,L02
- e88: c1 8f ff ff ff 56 JE Gef,#ffff [FALSE] ea2
- e8e: b2 ... PRINT " (should NOT occur)"
- e9f: 8c 00 09 JUMP ea9
- ea2: 41 ff 02 45 JE Gef,#02 [FALSE] ea9
- ea6: 8d 0c 88 PRINT_PADDR S141
- ea9: 8c 00 20 JUMP eca
- eac: 41 02 02 5c JE L01,#02 [FALSE] eca
- eb0: 2d ff 03 STORE Gef,L02
- eb3: c1 8f ff ff ff 53 JE Gef,#ffff [FALSE] eca
- eb9: b2 ... PRINT " (should NOT occur)"
- eca: b0 RTRUE
- Routine ecc, 4 locals
- ecd: 8d 0c 90 PRINT_PADDR S142
- ed0: 8d 0c bf PRINT_PADDR S143
- ed3: 90 01 80 71 JZ #01 [TRUE] f46
- ed7: b2 ... PRINT "
- AccentedInput> "
- ee8: d5 1f 00 50 03 00 SUB #0050,#03 -> -(SP)
- eee: f9 06 07 b2 05 c2 00 00 CALL_VN 1ec8 (#05c2,#00,(SP)+)
- ef6: f9 05 07 b2 05 c2 01 00 CALL_VN 1ec8 (#05c2,#01,#00)
- efe: cd 4f 01 05 c2 STORE L00,#05c2
- f03: 0d 02 00 STORE L01,#00
- f06: e4 bf 01 02 READ L00 -> L01
- f0a: bb NEW_LINE
- f0b: e0 07 07 a1 05 c2 01 04 CALL_VS 1e84 (#05c2,#01) -> L03
- f13: a0 04 43 JZ L03 [FALSE] f17
- f16: b0 RTRUE
- f17: 0d 02 00 STORE L01,#00
- f1a: 62 02 04 67 JL L01,L03 [FALSE] f43
- f1e: 34 02 02 00 ADD #02,L01 -> -(SP)
- f22: e0 0b 07 a1 05 c2 00 03 CALL_VS 1e84 (#05c2,(SP)+) -> L02
- f2a: b2 ... PRINT "code="
- f31: e6 bf 03 PRINT_NUM L02
- f34: b2 ... PRINT ": "
- f37: f9 27 03 1e 03 01 CALL_VN c78 (L02,#01)
- f3d: bb NEW_LINE
- f3e: 95 02 INC L01
- f40: 8c ff d9 JUMP f1a
- f43: 8c ff 8f JUMP ed3
- f46: b0 RTRUE
- Routine f48, 1 local
- f49: 8d 0c c8 PRINT_PADDR S144
- f4c: 90 01 80 44 JZ #01 [TRUE] f92
- f50: b2 ... PRINT "AccentedInput> "
- f5f: 88 06 29 01 CALL_1S 18a4 -> L00
- f63: 41 01 2e 54 JE L00,#2e [FALSE] f79
- f67: b2 ... PRINT "
- Test finished.
- "
- f78: b0 RTRUE
- f79: b2 ... PRINT "
- code="
- f82: e6 bf 01 PRINT_NUM L00
- f85: b2 ... PRINT ": "
- f88: f9 27 03 1e 01 02 CALL_VN c78 (L00,#02)
- f8e: bb NEW_LINE
- f8f: 8c ff bc JUMP f4c
- f92: b0 RTRUE
- Routine f94, 2 locals
- f95: e0 17 07 a1 00 01 02 CALL_VS 1e84 (#00,#01) -> L01
- f9c: 49 02 80 00 AND L01,#80 -> -(SP)
- fa0: a0 00 cb JZ (SP)+ [TRUE] fac
- fa3: 0d 01 01 STORE L00,#01
- fa6: 8d 0c e9 PRINT_PADDR S145
- fa9: 8c 00 08 JUMP fb2
- fac: 0d 01 00 STORE L00,#00
- faf: 8d 0c f8 PRINT_PADDR S146
- fb2: 8d 0d 08 PRINT_PADDR S147
- fb5: 90 01 80 79 JZ #01 [TRUE] 1030
- fb9: 8d 0d 44 PRINT_PADDR S148
- fbc: b2 ... PRINT "TimedKey> "
- fc7: 88 06 29 02 CALL_1S 18a4 -> L01
- fcb: 41 02 2e 43 JE L01,#2e [FALSE] fd0
- fcf: b0 RTRUE
- fd0: bb NEW_LINE
- fd1: 0d 12 00 STORE G02,#00
- fd4: cd 4f 11 ff a3 STORE G01,#ffa3
- fd9: f6 53 01 0a 04 0d 02 READ_CHAR #01,#0a,1034 -> L01
- fe0: bb NEW_LINE
- fe1: c1 8f 11 ff a3 60 JE G01,#ffa3 [FALSE] 1005
- fe7: 8d 0d 5b PRINT_PADDR S149
- fea: a0 01 4e JZ L00 [FALSE] ff9
- fed: 8d 0d 89 PRINT_PADDR S150
- ff0: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- ff6: 8c 00 0b JUMP 1002
- ff9: 8d 0d 92 PRINT_PADDR S151
- ffc: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 1002: 8c 00 29 JUMP 102c
- 1005: a0 11 5d JZ G01 [FALSE] 1023
- 1008: 8d 0d 9b PRINT_PADDR S152
- 100b: a0 01 4e JZ L00 [FALSE] 101a
- 100e: 8d 0d a8 PRINT_PADDR S153
- 1011: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 1017: 8c 00 08 JUMP 1020
- 101a: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- 1020: 8c 00 0b JUMP 102c
- 1023: 8d 0d b8 PRINT_PADDR S154
- 1026: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 102c: bb NEW_LINE
- 102d: 8c ff 87 JUMP fb5
- 1030: b0 RTRUE
- Routine 1034, 1 local
- 1035: 2d 11 01 STORE G01,L00
- 1038: b2 ... PRINT "* "
- 103d: 95 12 INC G02
- 103f: 41 12 0a 46 JE G02,#0a [FALSE] 1047
- 1043: bb NEW_LINE
- 1044: 0d 12 00 STORE G02,#00
- 1047: b1 RFALSE
- Routine 1048, 3 locals
- 1049: e0 17 07 a1 00 01 03 CALL_VS 1e84 (#00,#01) -> L02
- 1050: 49 03 80 00 AND L02,#80 -> -(SP)
- 1054: a0 00 cb JZ (SP)+ [TRUE] 1060
- 1057: 0d 01 01 STORE L00,#01
- 105a: 8d 0d c5 PRINT_PADDR S155
- 105d: 8c 00 08 JUMP 1066
- 1060: 0d 01 00 STORE L00,#00
- 1063: 8d 0d d4 PRINT_PADDR S156
- 1066: 8d 0d e4 PRINT_PADDR S157
- 1069: 8d 0e 17 PRINT_PADDR S158
- 106c: 8d 0e 40 PRINT_PADDR S159
- 106f: b2 ... PRINT "TimedString> "
- 107c: 88 06 29 03 CALL_1S 18a4 -> L02
- 1080: 41 03 2e 43 JE L02,#2e [FALSE] 1085
- 1084: b0 RTRUE
- 1085: bb NEW_LINE
- 1086: b2 ... PRINT "Beginning test...
- "
- 1099: cd 4f 11 ff a3 STORE G01,#ffa3
- 109e: 0d 12 00 STORE G02,#00
- 10a1: 90 01 80 9e JZ #01 [TRUE] 1141
- 10a5: b2 ... PRINT "TimedString> "
- 10b2: d5 1f 00 50 03 00 SUB #0050,#03 -> -(SP)
- 10b8: f9 06 07 b2 05 c2 00 00 CALL_VN 1ec8 (#05c2,#00,(SP)+)
- 10c0: f9 05 07 b2 05 c2 01 00 CALL_VN 1ec8 (#05c2,#01,#00)
- 10c8: cd 4f 02 05 c2 STORE L01,#05c2
- 10cd: 0d 03 00 STORE L02,#00
- 10d0: e4 94 02 00 0a 04 67 03 READ L01,#00,#0a,119c -> L02
- 10d8: bb NEW_LINE
- 10d9: e0 07 07 a1 05 c2 01 00 CALL_VS 1e84 (#05c2,#01) -> -(SP)
- 10e1: a0 00 48 JZ (SP)+ [FALSE] 10ea
- 10e4: 8d 0e 57 PRINT_PADDR S160
- 10e7: 8c 00 3b JUMP 1123
- 10ea: b2 ... PRINT "You just typed ""
- 10f7: 0d 03 00 STORE L02,#00
- 10fa: e0 07 07 a1 05 c2 01 00 CALL_VS 1e84 (#05c2,#01) -> -(SP)
- 1102: 62 03 00 58 JL L02,(SP)+ [FALSE] 111c
- 1106: 34 02 03 00 ADD #02,L02 -> -(SP)
- 110a: e0 0b 07 a1 05 c2 00 00 CALL_VS 1e84 (#05c2,(SP)+) -> -(SP)
- 1112: da 2f 07 d0 00 CALL_2N 1f40 ((SP)+)
- 1117: 95 03 INC L02
- 1119: 8c ff e0 JUMP 10fa
- 111c: b2 ... PRINT "".
- "
- 1123: e0 07 07 a1 05 c2 01 00 CALL_VS 1e84 (#05c2,#01) -> -(SP)
- 112b: 41 00 01 51 JE (SP)+,#01 [FALSE] 113e
- 112f: e0 07 07 a1 05 c2 02 00 CALL_VS 1e84 (#05c2,#02) -> -(SP)
- 1137: 41 00 2e 45 JE (SP)+,#2e [FALSE] 113e
- 113b: 8c 00 05 JUMP 1141
- 113e: 8c ff 62 JUMP 10a1
- 1141: b2 ... PRINT "Test terminated.
- "
- 1150: c1 8f 11 ff a3 60 JE G01,#ffa3 [FALSE] 1174
- 1156: 8d 0e 63 PRINT_PADDR S161
- 1159: a0 01 4e JZ L00 [FALSE] 1168
- 115c: 8d 0e 91 PRINT_PADDR S162
- 115f: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- 1165: 8c 00 0b JUMP 1171
- 1168: 8d 0e 9a PRINT_PADDR S163
- 116b: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 1171: 8c 00 29 JUMP 119b
- 1174: a0 11 5d JZ G01 [FALSE] 1192
- 1177: 8d 0e a3 PRINT_PADDR S164
- 117a: a0 01 4e JZ L00 [FALSE] 1189
- 117d: 8d 0e b0 PRINT_PADDR S165
- 1180: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 1186: 8c 00 08 JUMP 118f
- 1189: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- 118f: 8c 00 0b JUMP 119b
- 1192: 8d 0e c0 PRINT_PADDR S166
- 1195: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 119b: b0 RTRUE
- Routine 119c, 1 local
- 119d: 2d 11 01 STORE G01,L00
- 11a0: 95 12 INC G02
- 11a2: 41 12 03 48 JE G02,#03 [FALSE] 11ac
- 11a6: 0d 12 00 STORE G02,#00
- 11a9: 8d 0e cd PRINT_PADDR S167
- 11ac: b1 RFALSE
- Routine 11b0, 2 locals
- 11b1: 8d 0e d7 PRINT_PADDR S168
- 11b4: 8d 0f 08 PRINT_PADDR S169
- 11b7: 8d 0f 2d PRINT_PADDR S170
- 11ba: b2 ... PRINT "Preload> Given"
- 11c9: d5 1f 00 50 03 00 SUB #0050,#03 -> -(SP)
- 11cf: f9 06 07 b2 05 c2 00 00 CALL_VN 1ec8 (#05c2,#00,(SP)+)
- 11d7: f9 05 07 b2 05 c2 01 05 CALL_VN 1ec8 (#05c2,#01,#05)
- 11df: f9 05 07 b2 05 c2 02 47 CALL_VN 1ec8 (#05c2,#02,#47)
- 11e7: f9 05 07 b2 05 c2 03 69 CALL_VN 1ec8 (#05c2,#03,#69)
- 11ef: f9 05 07 b2 05 c2 04 76 CALL_VN 1ec8 (#05c2,#04,#76)
- 11f7: f9 05 07 b2 05 c2 05 65 CALL_VN 1ec8 (#05c2,#05,#65)
- 11ff: f9 05 07 b2 05 c2 06 6e CALL_VN 1ec8 (#05c2,#06,#6e)
- 1207: cd 4f 02 05 c2 STORE L01,#05c2
- 120c: 0d 01 00 STORE L00,#00
- 120f: e4 bf 02 01 READ L01 -> L00
- 1213: e0 07 07 a1 05 c2 01 00 CALL_VS 1e84 (#05c2,#01) -> -(SP)
- 121b: a0 00 5c JZ (SP)+ [FALSE] 1238
- 121e: b2 ... PRINT "You just typed a blank line.
- "
- 1235: 8c 00 39 JUMP 126f
- 1238: b2 ... PRINT "You just typed ""
- 1245: 0d 01 00 STORE L00,#00
- 1248: e0 07 07 a1 05 c2 01 00 CALL_VS 1e84 (#05c2,#01) -> -(SP)
- 1250: 62 01 00 58 JL L00,(SP)+ [FALSE] 126a
- 1254: 34 02 01 00 ADD #02,L00 -> -(SP)
- 1258: e0 0b 07 a1 05 c2 00 00 CALL_VS 1e84 (#05c2,(SP)+) -> -(SP)
- 1260: da 2f 07 d0 00 CALL_2N 1f40 ((SP)+)
- 1265: 95 01 INC L00
- 1267: 8c ff e0 JUMP 1248
- 126a: b2 ... PRINT "".
- "
- 126f: b0 RTRUE
- Routine 1270, 4 locals
- 1271: 8d 0f 49 PRINT_PADDR S171
- 1274: e0 17 07 a1 10 01 02 CALL_VS 1e84 (#10,#01) -> L01
- 127b: 49 02 10 00 AND L01,#10 -> -(SP)
- 127f: a0 00 c8 JZ (SP)+ [TRUE] 1288
- 1282: 0d 01 01 STORE L00,#01
- 1285: 8c 00 05 JUMP 128b
- 1288: 0d 01 00 STORE L00,#00
- 128b: a0 01 c8 JZ L00 [TRUE] 1294
- 128e: 8d 0f 58 PRINT_PADDR S172
- 1291: 8c 00 05 JUMP 1297
- 1294: 8d 0f 66 PRINT_PADDR S173
- 1297: 0d 03 01 STORE L02,#01
- 129a: 0d 04 00 STORE L03,#00
- 129d: b2 ... PRINT "Simulating first move...
- "
- 12b2: be 09 ff 02 SAVE_UNDO -> L01
- 12b6: 2d ff 02 STORE Gef,L01
- 12b9: c1 8f ff ff ff 50 JE Gef,#ffff [FALSE] 12cd
- 12bf: 8d 0f 75 PRINT_PADDR S174
- 12c2: 0d 03 00 STORE L02,#00
- 12c5: cd 4f 04 ff ff STORE L03,#ffff
- 12ca: 8c 00 71 JUMP 133c
- 12cd: 41 ff 00 58 JE Gef,#00 [FALSE] 12e7
- 12d1: b2 ... PRINT "Save failed.
- "
- 12de: 0d 03 00 STORE L02,#00
- 12e1: 0d 04 00 STORE L03,#00
- 12e4: 8c 00 57 JUMP 133c
- 12e7: 41 ff 01 54 JE Gef,#01 [FALSE] 12fd
- 12eb: b2 ... PRINT "Save succeeded.
- "
- 12fa: 8c 00 41 JUMP 133c
- 12fd: 41 ff 02 4e JE Gef,#02 [FALSE] 130d
- 1301: 8d 0f 82 PRINT_PADDR S175
- 1304: 0d 03 00 STORE L02,#00
- 1307: 0d 04 02 STORE L03,#02
- 130a: 8c 00 31 JUMP 133c
- 130d: b2 ... PRINT "Save gave unknown result code
- "
- 1324: e6 bf 02 PRINT_NUM L01
- 1327: b2 ... PRINT " -- ERROR.
- "
- 1336: 0d 03 00 STORE L02,#00
- 1339: 0d 04 00 STORE L03,#00
- 133c: a0 03 81 1d JZ L02 [TRUE] 145b
- 1340: b2 ... PRINT "
- Simulating second move...
- "
- 1357: be 09 ff 02 SAVE_UNDO -> L01
- 135b: 2d ff 02 STORE Gef,L01
- 135e: c1 8f ff ff ff 50 JE Gef,#ffff [FALSE] 1372
- 1364: 8d 0f 89 PRINT_PADDR S176
- 1367: 0d 03 00 STORE L02,#00
- 136a: cd 4f 04 ff ff STORE L03,#ffff
- 136f: 8c 00 eb JUMP 145b
- 1372: 41 ff 00 58 JE Gef,#00 [FALSE] 138c
- 1376: b2 ... PRINT "Save failed.
- "
- 1383: 0d 03 00 STORE L02,#00
- 1386: 0d 04 00 STORE L03,#00
- 1389: 8c 00 d1 JUMP 145b
- 138c: 41 ff 01 54 JE Gef,#01 [FALSE] 13a2
- 1390: b2 ... PRINT "Save succeeded.
- "
- 139f: 8c 00 bb JUMP 145b
- 13a2: 41 ff 02 00 87 JE Gef,#02 [FALSE] 142c
- 13a7: 8d 0f 96 PRINT_PADDR S177
- 13aa: 8d 0f 9d PRINT_PADDR S178
- 13ad: b2 ... PRINT "MultipleUndo> "
- 13bc: 88 06 29 02 CALL_1S 18a4 -> L01
- 13c0: bb NEW_LINE
- 13c1: 41 02 2e 4b JE L01,#2e [FALSE] 13ce
- 13c5: 0d 03 00 STORE L02,#00
- 13c8: 0d 04 01 STORE L03,#01
- 13cb: 8c 00 8f JUMP 145b
- 13ce: b2 ... PRINT "
- Second undo...
- "
- 13df: be 0a ff 02 RESTORE_UNDO -> L01
- 13e3: 2d ff 02 STORE Gef,L01
- 13e6: 41 ff 00 52 JE Gef,#00 [FALSE] 13fa
- 13ea: b2 ... PRINT "Undo failed.
- "
- 13f7: 8c 00 2b JUMP 1423
- 13fa: b2 ... PRINT "Undo gave unknown result code
- "
- 1411: e6 bf 02 PRINT_NUM L01
- 1414: b2 ... PRINT " -- ERROR.
- "
- 1423: 0d 04 00 STORE L03,#00
- 1426: 0d 03 00 STORE L02,#00
- 1429: 8c 00 31 JUMP 145b
- 142c: b2 ... PRINT "Save gave unknown result code
- "
- 1443: e6 bf 02 PRINT_NUM L01
- 1446: b2 ... PRINT " -- ERROR.
- "
- 1455: 0d 03 00 STORE L02,#00
- 1458: 0d 04 00 STORE L03,#00
- 145b: a0 03 80 85 JZ L02 [TRUE] 14e2
- 145f: 8d 0f d2 PRINT_PADDR S179
- 1462: b2 ... PRINT "SingleUndo> "
- 146f: 88 06 29 02 CALL_1S 18a4 -> L01
- 1473: bb NEW_LINE
- 1474: 41 02 2e 4d JE L01,#2e [FALSE] 1483
- 1478: 0d 03 00 STORE L02,#00
- 147b: cd 4f 04 ff fe STORE L03,#fffe
- 1480: 8c 00 61 JUMP 14e2
- 1483: b2 ... PRINT "
- First undo...
- "
- 1492: be 0a ff 02 RESTORE_UNDO -> L01
- 1496: 2d ff 02 STORE Gef,L01
- 1499: 41 ff 00 58 JE Gef,#00 [FALSE] 14b3
- 149d: b2 ... PRINT "Undo failed.
- "
- 14aa: 0d 03 00 STORE L02,#00
- 14ad: 0d 04 00 STORE L03,#00
- 14b0: 8c 00 31 JUMP 14e2
- 14b3: b2 ... PRINT "Undo gave unknown result code
- "
- 14ca: e6 bf 02 PRINT_NUM L01
- 14cd: b2 ... PRINT " -- ERROR.
- "
- 14dc: 0d 03 00 STORE L02,#00
- 14df: 0d 04 00 STORE L03,#00
- 14e2: bb NEW_LINE
- 14e3: 2d ff 04 STORE Gef,L03
- 14e6: c1 8f ff ff fe 54 JE Gef,#fffe [FALSE] 14fe
- 14ec: b2 ... PRINT "Test cancelled.
- "
- 14fb: 8c 00 7d JUMP 1579
- 14fe: c1 8f ff ff ff 5d JE Gef,#ffff [FALSE] 151f
- 1504: a0 01 ce JZ L00 [TRUE] 1513
- 1507: 8d 0f de PRINT_PADDR S180
- 150a: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 1510: 8c 00 0b JUMP 151c
- 1513: 8d 0f f8 PRINT_PADDR S181
- 1516: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- 151c: 8c 00 5c JUMP 1579
- 151f: 41 ff 00 5d JE Gef,#00 [FALSE] 153e
- 1523: a0 01 ce JZ L00 [TRUE] 1532
- 1526: 8d 10 0c PRINT_PADDR S182
- 1529: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 152f: 8c 00 0b JUMP 153b
- 1532: 8d 10 18 PRINT_PADDR S183
- 1535: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 153b: 8c 00 3d JUMP 1579
- 153e: 41 ff 01 5d JE Gef,#01 [FALSE] 155d
- 1542: a0 01 ce JZ L00 [TRUE] 1551
- 1545: 8d 10 34 PRINT_PADDR S184
- 1548: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- 154e: 8c 00 0b JUMP 155a
- 1551: 8d 10 3f PRINT_PADDR S185
- 1554: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 155a: 8c 00 1e JUMP 1579
- 155d: 41 ff 02 5a JE Gef,#02 [FALSE] 1579
- 1561: a0 01 ce JZ L00 [TRUE] 1570
- 1564: 8d 10 4d PRINT_PADDR S186
- 1567: da 0f 07 dd 08 2f CALL_2N 1f74 (S001)
- 156d: 8c 00 0b JUMP 1579
- 1570: 8d 10 5f PRINT_PADDR S187
- 1573: da 0f 07 dd 08 3b CALL_2N 1f74 (S002)
- 1579: b0 RTRUE
- Routine 157c, 1 local
- 157d: 8d 10 74 PRINT_PADDR S188
- 1580: 8d 10 a4 PRINT_PADDR S189
- 1583: b2 ... PRINT "ClosingText> "
- 1590: 88 06 29 01 CALL_1S 18a4 -> L00
- 1594: 41 01 2e 52 JE L00,#2e [FALSE] 15a8
- 1598: b2 ... PRINT "
- Test aborted.
- "
- 15a7: b0 RTRUE
- 15a8: 8d 10 cc PRINT_PADDR S190
- 15ab: ba Q…
Large files files are truncated, but you can click here to view the full file