; Origin set to 00000H, EOF = 01FFFH ; ====================================================================== ; MSI-88 BYTECODE INTERPRETER ; ====================================================================== ; Stack-based threaded bytecode interpreter (CDP1802ACE system ROM, 8 KB). ; Fetch loop at 0x0011 (LDA RD; SHL; BNF low table / PLO R8 high table). ; Tokens dispatch via 0x0A00 (>= 0x80) / 0x0B00 (< 0x80). Odd table targets ; are data-subroutine CALLs; even targets are native 1802 handlers. ; Data stack: RE (0x80F0-0x8100). Return stack: R2 (0x809C). ; ====================================================================== ; ====================================================================== ; MSI-88 BYTECODE INTERPRETER — REGISTER USAGE ; ====================================================================== ; The interpreter uses a SEP-based dispatch. Registers have fixed roles: ; ; R1 Native subroutine library base (R1.1 = 0x08, R1.0 = 0x78) ; R2 Return / hardware stack pointer (R2 = 0x809C, grows downward) ; R3 Dispatch target — SEP R3 jumps to the native handler or the odd ; data-subroutine CALL path ; R6 0x8100 port-2 shadow / scratch ; R7 Low dispatch-table page (R7.1 = 0x0B -> table base 0x0B00) ; R8 High dispatch-table page (R8.1 = 0x0A -> table base 0x0A00) ; RA 0x8206+ pointer table access (RSTOR / DISPA / boot vectors) ; RB Handler address pointer (points into handler body code) ; RD Pseudo program counter — LDA RD fetches the next token (R13) ; RE Data stack pointer (R14, 0x80F0-0x8100, grows downward, 16-bit words) ; RF 0x0011 interpreter re-entry (SEP RF returns to the fetch loop) ; ; Dispatch: token >= 0x80 -> high table at 0x0A00 (R8), token < 0x80 -> ; low table at 0x0B00 (R7). Odd table target = data-subroutine CALL (push ; RD on R2, re-enter interpreter at the odd address); even = native code. ; ; Memory layout (RAM): ; 0x8002 Buffer-active flag (set by PUSH 810B / CLS) ; 0x8100 Port-2 output shadow (bit 6 = 0x40 digit strobe base) ; 0x8103:0x8104 Program-loaded flag (0x5A5B) ; 0x8105:0x8106 Font-base pointer (0x04AC) ; 0x810A Cursor / HASH-seed byte ; 0x810B Display/edit buffer (34 bytes) ; 0x81DB Message table (32 bytes) ; 0x8200+ Boot / SCAN entry vectors, dispatch pages, RSTOR table ; ====================================================================== ORG 00000H ; CPU Type: CPU 1802 ; Labels: R0010 EQU 0010H S0011 EQU 0011H R002A EQU 002AH S0040 EQU 0040H S0044 EQU 0044H S004E EQU 004EH S0050 EQU 0050H S005E EQU 005EH S0064 EQU 0064H S006A EQU 006AH S0070 EQU 0070H S0072 EQU 0072H S007A EQU 007AH S008A EQU 008AH S0092 EQU 0092H S009C EQU 009CH R00AC EQU 00ACH R00B0 EQU 00B0H S00B6 EQU 00B6H R00D0 EQU 00D0H R00D4 EQU 00D4H R00D8 EQU 00D8H S00DC EQU 00DCH S00E2 EQU 00E2H S00E6 EQU 00E6H S00EA EQU 00EAH S00EE EQU 00EEH S00F2 EQU 00F2H S00F6 EQU 00F6H S010A EQU 010AH S0118 EQU 0118H S0120 EQU 0120H S012A EQU 012AH S012E EQU 012EH S013E EQU 013EH S0148 EQU 0148H R014B EQU 014BH S014E EQU 014EH S0152 EQU 0152H S0158 EQU 0158H S0166 EQU 0166H S0172 EQU 0172H S0176 EQU 0176H R017A EQU 017AH R017C EQU 017CH S0180 EQU 0180H J0189 EQU 0189H S0190 EQU 0190H S019A EQU 019AH S01A6 EQU 01A6H S01B0 EQU 01B0H S01BE EQU 01BEH S01C6 EQU 01C6H S01D6 EQU 01D6H S01E2 EQU 01E2H S01EE EQU 01EEH S01FA EQU 01FAH S0206 EQU 0206H S0210 EQU 0210H R0212 EQU 0212H R0218 EQU 0218H R0219 EQU 0219H S021E EQU 021EH S0226 EQU 0226H R022F EQU 022FH S023A EQU 023AH S0246 EQU 0246H R0252 EQU 0252H R0256 EQU 0256H S025E EQU 025EH S026C EQU 026CH R0277 EQU 0277H R027B EQU 027BH S028A EQU 028AH R0298 EQU 0298H R029F EQU 029FH S02AF EQU 02AFH S02B3 EQU 02B3H S02B7 EQU 02B7H S02BB EQU 02BBH S02BF EQU 02BFH S02C3 EQU 02C3H S02C7 EQU 02C7H S02CB EQU 02CBH S02CF EQU 02CFH S02D4 EQU 02D4H J02DB EQU 02DBH S02E5 EQU 02E5H S02EA EQU 02EAH R02EE EQU 02EEH S02F6 EQU 02F6H S02FC EQU 02FCH J0300 EQU 0300H S0308 EQU 0308H S030F EQU 030FH S0313 EQU 0313H S0317 EQU 0317H S031B EQU 031BH S031F EQU 031FH S0323 EQU 0323H S0327 EQU 0327H S032A EQU 032AH S0333 EQU 0333H S0341 EQU 0341H S0345 EQU 0345H S0355 EQU 0355H S035A EQU 035AH R0361 EQU 0361H S036B EQU 036BH S0371 EQU 0371H S0377 EQU 0377H S0380 EQU 0380H S0382 EQU 0382H S038B EQU 038BH S038F EQU 038FH S0394 EQU 0394H R039A EQU 039AH S039E EQU 039EH S03A8 EQU 03A8H S03B3 EQU 03B3H S03B7 EQU 03B7H S03BA EQU 03BAH S03C1 EQU 03C1H S03CB EQU 03CBH S03D0 EQU 03D0H S03DB EQU 03DBH S03DE EQU 03DEH S03E0 EQU 03E0H R03F1 EQU 03F1H J0408 EQU 0408H R042A EQU 042AH R0434 EQU 0434H R0438 EQU 0438H R043D EQU 043DH R044B EQU 044BH R047B EQU 047BH R0484 EQU 0484H R0496 EQU 0496H R0498 EQU 0498H R049B EQU 049BH R04B4 EQU 04B4H R04CC EQU 04CCH R04D4 EQU 04D4H R04DE EQU 04DEH R04E2 EQU 04E2H R04E6 EQU 04E6H S05AC EQU 05ACH R05BF EQU 05BFH R05D2 EQU 05D2H R05D8 EQU 05D8H R05E4 EQU 05E4H S05ED EQU 05EDH S05F3 EQU 05F3H S05F7 EQU 05F7H S0605 EQU 0605H S060D EQU 060DH S0617 EQU 0617H S061B EQU 061BH S061F EQU 061FH S062B EQU 062BH S062F EQU 062FH S0643 EQU 0643H S0646 EQU 0646H S0648 EQU 0648H S0654 EQU 0654H S065F EQU 065FH S0671 EQU 0671H S0675 EQU 0675H S067D EQU 067DH S0683 EQU 0683H S068A EQU 068AH S068C EQU 068CH S068F EQU 068FH S06FE EQU 06FEH R0709 EQU 0709H R070E EQU 070EH R0714 EQU 0714H R0721 EQU 0721H S072C EQU 072CH R073C EQU 073CH R073F EQU 073FH S0747 EQU 0747H S074B EQU 074BH S074F EQU 074FH S0753 EQU 0753H S075C EQU 075CH R0764 EQU 0764H R0767 EQU 0767H R076E EQU 076EH R0773 EQU 0773H R0778 EQU 0778H R078C EQU 078CH R0791 EQU 0791H S079B EQU 079BH S079F EQU 079FH S07A3 EQU 07A3H S07A7 EQU 07A7H S07AB EQU 07ABH S07AF EQU 07AFH S07B4 EQU 07B4H S07C4 EQU 07C4H S07CF EQU 07CFH S07D5 EQU 07D5H S07DB EQU 07DBH S07FB EQU 07FBH S0805 EQU 0805H S0820 EQU 0820H R0822 EQU 0822H R0824 EQU 0824H S082C EQU 082CH S0830 EQU 0830H S0835 EQU 0835H S083D EQU 083DH S0841 EQU 0841H S084D EQU 084DH S0853 EQU 0853H R0877 EQU 0877H S08BC EQU 08BCH R08E3 EQU 08E3H S08F1 EQU 08F1H R0901 EQU 0901H R0905 EQU 0905H S090C EQU 090CH R091A EQU 091AH R091E EQU 091EH R0923 EQU 0923H R092B EQU 092BH R092E EQU 092EH R0938 EQU 0938H R093A EQU 093AH R093E EQU 093EH R0944 EQU 0944H S094B EQU 094BH S09C8 EQU 09C8H R09CD EQU 09CDH R09D4 EQU 09D4H R09DB EQU 09DBH S0C00 EQU 0C00H R0C30 EQU 0C30H R0C39 EQU 0C39H R0C3B EQU 0C3BH R0C41 EQU 0C41H R0C44 EQU 0C44H R0C4F EQU 0C4FH R0C51 EQU 0C51H R0C60 EQU 0C60H R0C6B EQU 0C6BH R0C77 EQU 0C77H R0C79 EQU 0C79H R0C85 EQU 0C85H R0C90 EQU 0C90H R0C9B EQU 0C9BH R0CA9 EQU 0CA9H R0CC3 EQU 0CC3H R0CD8 EQU 0CD8H R0CEC EQU 0CECH S0CEF EQU 0CEFH S0CF7 EQU 0CF7H S0D0B EQU 0D0BH S0D1B EQU 0D1BH S0D1F EQU 0D1FH S0D41 EQU 0D41H S0D4A EQU 0D4AH S0D4C EQU 0D4CH R0D5E EQU 0D5EH R0D61 EQU 0D61H R0D6C EQU 0D6CH R0D7B EQU 0D7BH R0D82 EQU 0D82H R0D88 EQU 0D88H R0D90 EQU 0D90H R0D9C EQU 0D9CH R0DA0 EQU 0DA0H R0DA2 EQU 0DA2H R0DA5 EQU 0DA5H R0DAD EQU 0DADH R0DAF EQU 0DAFH R0DB0 EQU 0DB0H R0DC6 EQU 0DC6H R0DC8 EQU 0DC8H R0DCB EQU 0DCBH R0DD2 EQU 0DD2H S0DDC EQU 0DDCH R0DEC EQU 0DECH R0DFD EQU 0DFDH S0E02 EQU 0E02H R0E10 EQU 0E10H R0E26 EQU 0E26H R0E33 EQU 0E33H S0E40 EQU 0E40H R0E8F EQU 0E8FH S0E92 EQU 0E92H S0F0E EQU 0F0EH S0F20 EQU 0F20H S0F35 EQU 0F35H S0F37 EQU 0F37H S0F3A EQU 0F3AH S0F3C EQU 0F3CH S0F71 EQU 0F71H S0F76 EQU 0F76H R0F7D EQU 0F7DH S0F8A EQU 0F8AH S0F94 EQU 0F94H R0F9D EQU 0F9DH R0FA7 EQU 0FA7H S0FB2 EQU 0FB2H R0FBE EQU 0FBEH R0FC2 EQU 0FC2H S0FC6 EQU 0FC6H S0FDA EQU 0FDAH S0FE2 EQU 0FE2H S0FEC EQU 0FECH R0FF3 EQU 0FF3H S1003 EQU 1003H S1007 EQU 1007H S103F EQU 103FH S1091 EQU 1091H S10B3 EQU 10B3H S10BB EQU 10BBH S10C3 EQU 10C3H S10C9 EQU 10C9H S10CF EQU 10CFH S10D5 EQU 10D5H S10DF EQU 10DFH S10E3 EQU 10E3H S10E7 EQU 10E7H S10EB EQU 10EBH S10EF EQU 10EFH S10F3 EQU 10F3H S10FB EQU 10FBH S10FF EQU 10FFH S1103 EQU 1103H S1107 EQU 1107H S110B EQU 110BH S110F EQU 110FH S1113 EQU 1113H S1117 EQU 1117H S111B EQU 111BH S11A2 EQU 11A2H S11AD EQU 11ADH S11B1 EQU 11B1H S11DB EQU 11DBH S11DF EQU 11DFH S11E5 EQU 11E5H S123A EQU 123AH S1245 EQU 1245H S124B EQU 124BH S1253 EQU 1253H S1279 EQU 1279H S128B EQU 128BH S1295 EQU 1295H S129D EQU 129DH S12A1 EQU 12A1H S12C5 EQU 12C5H S1339 EQU 1339H S136B EQU 136BH S13AF EQU 13AFH S13BC EQU 13BCH R13BD EQU 13BDH S13C4 EQU 13C4H R13C5 EQU 13C5H S13CC EQU 13CCH R13D9 EQU 13D9H S13EA EQU 13EAH R1400 EQU 1400H R1405 EQU 1405H R1408 EQU 1408H S1412 EQU 1412H R1420 EQU 1420H R1422 EQU 1422H S1427 EQU 1427H S143F EQU 143FH S144B EQU 144BH S1451 EQU 1451H S1459 EQU 1459H S1481 EQU 1481H S1484 EQU 1484H R1486 EQU 1486H S1490 EQU 1490H R1492 EQU 1492H S149B EQU 149BH S14A1 EQU 14A1H S14A7 EQU 14A7H S14AB EQU 14ABH S14B9 EQU 14B9H S14C1 EQU 14C1H S14C3 EQU 14C3H S14D3 EQU 14D3H S14DC EQU 14DCH R14E3 EQU 14E3H S14F3 EQU 14F3H S14FB EQU 14FBH S1500 EQU 1500H S150B EQU 150BH S150F EQU 150FH S1514 EQU 1514H R1529 EQU 1529H R152A EQU 152AH S1535 EQU 1535H S153B EQU 153BH S1540 EQU 1540H R154C EQU 154CH R1558 EQU 1558H R155C EQU 155CH R155E EQU 155EH S1568 EQU 1568H R1573 EQU 1573H R1576 EQU 1576H S157C EQU 157CH S158F EQU 158FH S15BA EQU 15BAH S15CB EQU 15CBH S15CE EQU 15CEH R15DC EQU 15DCH R15F1 EQU 15F1H R15F2 EQU 15F2H S15F8 EQU 15F8H R160E EQU 160EH R1618 EQU 1618H R1622 EQU 1622H R162A EQU 162AH R1639 EQU 1639H R1640 EQU 1640H R1644 EQU 1644H R1649 EQU 1649H S1652 EQU 1652H R1659 EQU 1659H R1663 EQU 1663H S1672 EQU 1672H R1680 EQU 1680H R1682 EQU 1682H R1690 EQU 1690H R1692 EQU 1692H S1694 EQU 1694H R16A3 EQU 16A3H S16B5 EQU 16B5H S16C9 EQU 16C9H S16CF EQU 16CFH S16D5 EQU 16D5H S16E8 EQU 16E8H R16EE EQU 16EEH J1700 EQU 1700H J1702 EQU 1702H R1763 EQU 1763H R1769 EQU 1769H S179A EQU 179AH R17AA EQU 17AAH R17AF EQU 17AFH R17B1 EQU 17B1H J17E3 EQU 17E3H R17ED EQU 17EDH R17F0 EQU 17F0H R181D EQU 181DH R1822 EQU 1822H R1824 EQU 1824H R1828 EQU 1828H R1833 EQU 1833H R1838 EQU 1838H R183A EQU 183AH R183E EQU 183EH R1849 EQU 1849H R1859 EQU 1859H R185E EQU 185EH R1863 EQU 1863H R1865 EQU 1865H R186D EQU 186DH R1874 EQU 1874H R1877 EQU 1877H R1881 EQU 1881H R18A3 EQU 18A3H R18AF EQU 18AFH R18BB EQU 18BBH R18C5 EQU 18C5H J18C9 EQU 18C9H R18CD EQU 18CDH R18E0 EQU 18E0H R18E2 EQU 18E2H R18E4 EQU 18E4H R18EA EQU 18EAH R18EB EQU 18EBH S1900 EQU 1900H R190C EQU 190CH R190E EQU 190EH J1918 EQU 1918H R1922 EQU 1922H R1924 EQU 1924H R192D EQU 192DH R1930 EQU 1930H R1946 EQU 1946H R194F EQU 194FH R1956 EQU 1956H R1961 EQU 1961H S1966 EQU 1966H R1980 EQU 1980H R1983 EQU 1983H R1994 EQU 1994H R1999 EQU 1999H R19A9 EQU 19A9H S19B0 EQU 19B0H R19CA EQU 19CAH R19CE EQU 19CEH R19D8 EQU 19D8H R19DE EQU 19DEH R19E3 EQU 19E3H S19FC EQU 19FCH R1A08 EQU 1A08H R1A12 EQU 1A12H R1A15 EQU 1A15H R1A21 EQU 1A21H R1A2A EQU 1A2AH R1A2C EQU 1A2CH R1A2E EQU 1A2EH S1A33 EQU 1A33H R1A49 EQU 1A49H R1A4C EQU 1A4CH R1A51 EQU 1A51H R1A53 EQU 1A53H R1A55 EQU 1A55H R1A6D EQU 1A6DH R1A79 EQU 1A79H S1A7E EQU 1A7EH R1A94 EQU 1A94H R1A99 EQU 1A99H R1A9B EQU 1A9BH R1A9D EQU 1A9DH J1AA7 EQU 1AA7H R1AAF EQU 1AAFH S1AB0 EQU 1AB0H R1AC5 EQU 1AC5H R1ACA EQU 1ACAH R1ACC EQU 1ACCH R1ACE EQU 1ACEH R1AD7 EQU 1AD7H R1AD9 EQU 1AD9H R1ADB EQU 1ADBH R1AF5 EQU 1AF5H S1AFC EQU 1AFCH S1B02 EQU 1B02H R1B06 EQU 1B06H R1B15 EQU 1B15H R1B17 EQU 1B17H R1B19 EQU 1B19H R1B1F EQU 1B1FH R1B21 EQU 1B21H R1B25 EQU 1B25H R1B2E EQU 1B2EH R1B30 EQU 1B30H R1B3A EQU 1B3AH R1B41 EQU 1B41H R1B47 EQU 1B47H R1B4F EQU 1B4FH S1B64 EQU 1B64H J1B71 EQU 1B71H R1B7F EQU 1B7FH R1B86 EQU 1B86H R1B88 EQU 1B88H R1B97 EQU 1B97H R1B9D EQU 1B9DH R1BAC EQU 1BACH R1BB0 EQU 1BB0H S1BB6 EQU 1BB6H J1BC2 EQU 1BC2H J1BC6 EQU 1BC6H R1BD1 EQU 1BD1H R1BD7 EQU 1BD7H R1BE1 EQU 1BE1H R1BE3 EQU 1BE3H R1BEB EQU 1BEBH R1BEF EQU 1BEFH R1BF7 EQU 1BF7H R1BFB EQU 1BFBH S1C2C EQU 1C2CH S1C45 EQU 1C45H S1C65 EQU 1C65H S1C94 EQU 1C94H R1C9E EQU 1C9EH R1CC1 EQU 1CC1H R1CE2 EQU 1CE2H R1CF1 EQU 1CF1H S1D71 EQU 1D71H S1DC0 EQU 1DC0H R1DC8 EQU 1DC8H R1DCD EQU 1DCDH R1DD9 EQU 1DD9H R1DEB EQU 1DEBH R1DED EQU 1DEDH R1DEF EQU 1DEFH S1DF7 EQU 1DF7H S1E00 EQU 1E00H S1E02 EQU 1E02H S1E0E EQU 1E0EH S1E23 EQU 1E23H S1E27 EQU 1E27H S1E2B EQU 1E2BH S1E80 EQU 1E80H R1E8B EQU 1E8BH R1E8C EQU 1E8CH S1E91 EQU 1E91H S1E99 EQU 1E99H S1ECF EQU 1ECFH S1EED EQU 1EEDH S1EEF EQU 1EEFH S1F0E EQU 1F0EH R1F1C EQU 1F1CH R1F22 EQU 1F22H R1F27 EQU 1F27H J1F2E EQU 1F2EH S1F34 EQU 1F34H S1F45 EQU 1F45H S1F47 EQU 1F47H J1F60 EQU 1F60H R1F98 EQU 1F98H R1FA2 EQU 1FA2H R1FAB EQU 1FABH R1FB4 EQU 1FB4H R1FC3 EQU 1FC3H R1FF4 EQU 1FF4H ; Unused or indirect labels: ; R0FF8 ; Register Definitions: R0 EQU 0 R1 EQU 1 R2 EQU 2 R3 EQU 3 R4 EQU 4 R5 EQU 5 R6 EQU 6 R7 EQU 7 R8 EQU 8 R9 EQU 9 RA EQU 10 RB EQU 11 RC EQU 12 RD EQU 13 RE EQU 14 RF EQU 15 ; Start code segment DIS ;0000: 71 DB 00H ;0001: 00 OUT 1 ;0002: 61 DB 00H ;0003: 00 OUT 2 ;0004: 62 DB 00H ;0005: 00 OUT 4 ;0006: 64 DB 00H ;0007: 00 GHI R0 ;0008: 90 PHI RF ;0009: BF LDI 11H ;000A: F8 11 PLO RF ;000C: AF LBR J1F60 ;000D: C0 1F 60 R0010 SEP R3 ;0010: D3 S0011 ; ; ====================================================================== ; PSEUDO INSTRUCTION: FETCH LOOP ; ---------------------------------------------------------------------- ; Opcode: 0x-- ; Handler: 0x0011 ; Token: core ; Definition: Interpreter main fetch loop: LDA RD (token), SHL, BNF low-table, PLO R8 (high table index) ; ; Implementation: ; Entry 0x0011 is the pseudo program counter loop watched by the ; debugger (LOOP in pseudo.def). Fetches one token byte from M(RD), ; RD++; SHL puts bit 7 into DF; BNF 002A routes tokens <0x80 to the low ; dispatch table (R7/0x0B00), PLO R8 routes tokens >=0x80 to the high ; table (0x0A00). Odd table targets = data-subroutine CALL (push RD on ; R2, re-enter), even = native SEP R3. ; ====================================================================== LDA RD ;0011: 4D SHL ;0012: FE BNF R002A ;0013: 3B 2A PLO R8 ;0015: A8 LDA R8 ;0016: 48 PHI R3 ;0017: B3 LDN R8 ;0018: 08 PLO R3 ;0019: A3 ANI 01H ;001A: FA 01 BZ R0010 ;001C: 32 10 DEC R2 ;001E: 22 GLO RD ;001F: 8D STR R2 ;0020: 52 GHI RD ;0021: 9D DEC R2 ;0022: 22 STR R2 ;0023: 52 GLO R3 ;0024: 83 PLO RD ;0025: AD GHI R3 ;0026: 93 PHI RD ;0027: BD BR S0011 ;0028: 30 11 R002A PLO R7 ;002A: A7 LDA R7 ;002B: 47 PHI R3 ;002C: B3 LDN R7 ;002D: 07 PLO R3 ;002E: A3 ANI 01H ;002F: FA 01 BZ R0010 ;0031: 32 10 DEC R2 ;0033: 22 GLO RD ;0034: 8D STR R2 ;0035: 52 GHI RD ;0036: 9D DEC R2 ;0037: 22 STR R2 ;0038: 52 GLO R3 ;0039: 83 PLO RD ;003A: AD GHI R3 ;003B: 93 PHI RD ;003C: BD BR S0011 ;003D: 30 11 DB 00H ;003F: 00 S0040 LDI 0BH ;0040: F8 0B PHI R7 ;0042: B7 SEP RF ;0043: DF S0044 LDI 82H ;0044: F8 82 PHI RB ;0046: BB GLO R8 ;0047: 88 SHR ;0048: F6 ADI 08H ;0049: FC 08 PLO RB ;004B: AB LDN RB ;004C: 0B PHI R7 ;004D: B7 S004E ; ; ====================================================================== ; PSEUDO INSTRUCTION: NOOP ; ---------------------------------------------------------------------- ; Opcode: 0x80 ; Handler: 0x004E ; Token: 0A00+0x80 ; Definition: No operation — handler is a single SEP RF (fetch next token) ; ; Implementation: ; Used as placeholder / alignment filler in token streams. Trace: 8F1F ; NATIVE_004E. ; ====================================================================== SEP RF ;004E: DF DB 00H ;004F: 00 S0050 LDI 80H ;0050: F8 80 PHI RB ;0052: BB LDI 9FH ;0053: F8 9F PLO RB ;0055: AB SEX RB ;0056: EB GLO R2 ;0057: 82 STXD ;0058: 73 GHI R2 ;0059: 92 STXD ;005A: 73 GHI R7 ;005B: 97 STR RB ;005C: 5B SEP RF ;005D: DF S005E ; ; ====================================================================== ; PSEUDO INSTRUCTION: RET ; ---------------------------------------------------------------------- ; Opcode: 0x8C ; Handler: 0x005E ; Token: 0A00+0x8C ; Definition: Return from data-subroutine: pop RD from R2 ; ; Implementation: ; LDA R2 -> PHI RD; LDA R2 -> PLO RD; SEP RF. Shared return path for RET ; / RET DROP 4 / RET DROP 8. ; ====================================================================== LDA R2 ;005E: 42 PHI RD ;005F: BD LDA R2 ;0060: 42 PLO RD ;0061: AD SEP RF ;0062: DF DB 00H ;0063: 00 S0064 ; ; ====================================================================== ; PSEUDO INSTRUCTION: RET DROP 4 ; ---------------------------------------------------------------------- ; Opcode: 0x8D ; Handler: 0x0064 ; Token: 0A00+0x8D ; Definition: Return from data-subroutine dropping 4 bytes (2 words) off the R2 return stack ; ; Implementation: ; INC R2 x4, then falls into the shared 0x005E RET pop. Confirmed trace ; 8F2B: R2 0x809C -> 0x80A0. ; ====================================================================== INC R2 ;0064: 12 INC R2 ;0065: 12 INC R2 ;0066: 12 INC R2 ;0067: 12 BR S005E ;0068: 30 5E S006A ; ; ====================================================================== ; PSEUDO INSTRUCTION: RET DROP 8 ; ---------------------------------------------------------------------- ; Opcode: 0x8E ; Handler: 0x006A ; Token: 0A00+0x8E ; Definition: Return from data-subroutine dropping 8 bytes (4 words) off the R2 return stack ; ; Implementation: ; INC R2 x4 at 0x006A, then falls into the 0x0064 path (INC R2 x4 more), ; then shared 0x005E RET pop. ; ====================================================================== INC R2 ;006A: 12 INC R2 ;006B: 12 INC R2 ;006C: 12 INC R2 ;006D: 12 BR S0064 ;006E: 30 64 S0070 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH aaaa ; ---------------------------------------------------------------------- ; Opcode: 0x8F ; Handler: 0x0070 ; Token: 0A00+0x8F ; Definition: Push 16-bit immediate (2 inline bytes, big-endian) onto the RE data stack ; ; Implementation: ; Standard 16-bit literal. Bytes follow the token in the stream (aaaa). ; ====================================================================== GHI RF ;0070: 9F LDA RD ;0071: 4D S0072 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH kk ; ---------------------------------------------------------------------- ; Opcode: 0x90 ; Handler: 0x0072 ; Token: 0A00+0x90 ; Definition: Push 8-bit immediate kk, zero-extended to 16-bit (0x00kk) ; ; Implementation: ; Single inline byte literal. ; ====================================================================== PHI RA ;0072: BA LDA RD ;0073: 4D DEC RE ;0074: 2E STR RE ;0075: 5E DEC RE ;0076: 2E GHI RA ;0077: 9A STR RE ;0078: 5E SEP RF ;0079: DF S007A ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH aaaa, RC ; ---------------------------------------------------------------------- ; Opcode: 0x91 ; Handler: 0x007A ; Token: 0A00+0x91 ; Definition: Push 16-bit immediate + RC (16-bit add of RC) ; ; Implementation: ; Reads 2 inline bytes, adds RC via GLO RC; ADD (low) / GHI RC; ADC ; (high). With RC=0 a plain PUSH aaaa. ; ====================================================================== LDA RD ;007A: 4D PHI RA ;007B: BA LDA RD ;007C: 4D SEX RE ;007D: EE DEC RE ;007E: 2E STR RE ;007F: 5E GLO RC ;0080: 8C ADD ;0081: F4 STXD ;0082: 73 GHI RA ;0083: 9A STR RE ;0084: 5E GHI RC ;0085: 9C ADC ;0086: 74 STR RE ;0087: 5E SEP RF ;0088: DF DB 00H ;0089: 00 S008A SEX RE ;008A: EE LDA RE ;008B: 4E OR ;008C: F1 INC RE ;008D: 1E BZ S0092 ;008E: 32 92 INC RD ;0090: 1D SEP RF ;0091: DF S0092 SEX RD ;0092: ED GLO RD ;0093: 8D ADD ;0094: F4 PLO RD ;0095: AD GHI RD ;0096: 9D ADCI 0FFH ;0097: 7C FF PHI RD ;0099: BD SEP RF ;009A: DF DB 00H ;009B: 00 S009C ; ; ====================================================================== ; PSEUDO INSTRUCTION: LOOP aaaa ; ---------------------------------------------------------------------- ; Opcode: 0x94 ; Handler: 0x009C ; Token: 0A00+0x94 ; Definition: Increment 16-bit counter at R2 return-stack top (SP+0/1) by 1; compare with limit SP+2/3; branch backward if counter > limit ; ; Implementation: ; Matches PTC 1.7 0Cbb LOOP aaaa. Signed compare; on exit pops the loop ; frame. ; ====================================================================== LDA R2 ;009C: 42 PHI RB ;009D: BB LDN R2 ;009E: 02 PLO RB ;009F: AB INC RB ;00A0: 1B GLO RB ;00A1: 8B STR R2 ;00A2: 52 INC R2 ;00A3: 12 INC R2 ;00A4: 12 SEX R2 ;00A5: E2 SM ;00A6: F7 DEC R2 ;00A7: 22 GHI RB ;00A8: 9B SMB ;00A9: 77 BNF R00B0 ;00AA: 3B B0 R00AC INC R2 ;00AC: 12 INC R2 ;00AD: 12 INC RD ;00AE: 1D SEP RF ;00AF: DF R00B0 DEC R2 ;00B0: 22 DEC R2 ;00B1: 22 GHI RB ;00B2: 9B STR R2 ;00B3: 52 BR S0092 ;00B4: 30 92 S00B6 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LOOP TOS, aaaa ; ---------------------------------------------------------------------- ; Opcode: 0x95 ; Handler: 0x00B6 ; Token: 0A00+0x95 ; Definition: LOOP with variable step: increment R2-return-stack counter by TOS instead of 1 ; ; Implementation: ; Matches PTC 1.7 0Dbb LOOP TOS, aaaa. Pops TOS as step; sign of TOS ; selects SM/SMB (TOS>=0) or SD/SDB (TOS<0). ; ====================================================================== LDA RE ;00B6: 4E PHI RA ;00B7: BA LDA RE ;00B8: 4E SEX R2 ;00B9: E2 INC R2 ;00BA: 12 ADD ;00BB: F4 PLO RB ;00BC: AB STXD ;00BD: 73 GHI RA ;00BE: 9A ADC ;00BF: 74 PHI RB ;00C0: BB STR R2 ;00C1: 52 INC R2 ;00C2: 12 INC R2 ;00C3: 12 INC R2 ;00C4: 12 GHI RA ;00C5: 9A SHL ;00C6: FE GLO RB ;00C7: 8B BDF R00D0 ;00C8: 33 D0 SM ;00CA: F7 DEC R2 ;00CB: 22 GHI RB ;00CC: 9B SMB ;00CD: 77 BR R00D4 ;00CE: 30 D4 R00D0 SD ;00D0: F5 DEC R2 ;00D1: 22 GHI RB ;00D2: 9B SDB ;00D3: 75 R00D4 BNF R00D8 ;00D4: 3B D8 BR R00AC ;00D6: 30 AC R00D8 DEC R2 ;00D8: 22 DEC R2 ;00D9: 22 BR S0092 ;00DA: 30 92 S00DC ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0000 ; ---------------------------------------------------------------------- ; Opcode: 0x96 ; Handler: 0x00DC ; Token: 0A00+0x96 ; Definition: Push word 0x0000 ; ; Implementation: ; Short literal. ; ====================================================================== DEC RE ;00DC: 2E STR RE ;00DD: 5E DEC RE ;00DE: 2E GHI RF ;00DF: 9F STR RE ;00E0: 5E SEP RF ;00E1: DF S00E2 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0001 ; ---------------------------------------------------------------------- ; Opcode: 0x97 ; Handler: 0x00E2 ; Token: 0A00+0x97 ; Definition: Push word 0x0001 ; ; Implementation: ; Short literal. ; ====================================================================== LDI 01H ;00E2: F8 01 BR S00DC ;00E4: 30 DC S00E6 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0002 ; ---------------------------------------------------------------------- ; Opcode: 0x98 ; Handler: 0x00E6 ; Token: 0A00+0x98 ; Definition: Push word 0x0002 ; ; Implementation: ; Short literal. ; ====================================================================== LDI 02H ;00E6: F8 02 BR S00DC ;00E8: 30 DC S00EA ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0010 ; ---------------------------------------------------------------------- ; Opcode: 0x99 ; Handler: 0x00EA ; Token: 0A00+0x99 ; Definition: Push word 0x0010 ; ; Implementation: ; Short literal. ; ====================================================================== LDI 10H ;00EA: F8 10 BR S00DC ;00EC: 30 DC S00EE ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0020 ; ---------------------------------------------------------------------- ; Opcode: 0x9A ; Handler: 0x00EE ; Token: 0A00+0x9A ; Definition: Push word 0x0020 ; ; Implementation: ; Short literal. ; ====================================================================== LDI 20H ;00EE: F8 20 BR S00DC ;00F0: 30 DC S00F2 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0040 ; ---------------------------------------------------------------------- ; Opcode: 0x9B ; Handler: 0x00F2 ; Token: 0A00+0x9B ; Definition: Push word 0x0040 ; ; Implementation: ; Short literal. Used by the E8/E9 combined opcodes (port-2 bit 6 ; set/clear). ; ====================================================================== LDI 40H ;00F2: F8 40 BR S00DC ;00F4: 30 DC S00F6 ; ; ====================================================================== ; PSEUDO INSTRUCTION: DISPA NOS.0, TOS ; ---------------------------------------------------------------------- ; Opcode: 0x9C ; Handler: 0x00F6 ; Token: 0A00+0x9C ; Definition: Dispatch (indirect / record-table): pop base word TOS, use NOS.0 doubled as a 2-byte record offset ; ; Implementation: ; RB = TOS + 2xNOS.0; M(RB) = page index (-> R7.1 = M(0x82:(index+8))), ; M(RB+1) = token. INC RF + SEP RF executes the token implicitly at ; 0x0012. ; ====================================================================== LDA RE ;00F6: 4E PHI RB ;00F7: BB LDA RE ;00F8: 4E PLO RB ;00F9: AB INC RE ;00FA: 1E LDN RE ;00FB: 0E SHL ;00FC: FE STR RE ;00FD: 5E GLO RB ;00FE: 8B SEX RE ;00FF: EE ADD ;0100: F4 PLO RB ;0101: AB GHI RB ;0102: 9B ADCI 00H ;0103: 7C 00 PHI RB ;0105: BB INC RE ;0106: 1E SEX RB ;0107: EB LSKP ;0108: C8 DB 00H ;0109: 00 S010A ; ; ====================================================================== ; PSEUDO INSTRUCTION: DISPA TOS ; ---------------------------------------------------------------------- ; Opcode: 0x9D ; Handler: 0x010A ; Token: 0A00+0x9D ; Definition: Dispatch (direct): pop TOS; TOS high byte indexes the 0x8208+ page table, TOS low byte is the token ; ; Implementation: ; RA = 0x82:(byte+8), R7.1 = M(RA). INC RF + SEP RF resumes at 0x0012 ; (SHL) so D is an implicit token. ; ====================================================================== SEX RE ;010A: EE LDXA ;010B: 72 ADI 08H ;010C: FC 08 PLO RA ;010E: AA LDI 82H ;010F: F8 82 PHI RA ;0111: BA LDN RA ;0112: 0A PHI R7 ;0113: B7 LDXA ;0114: 72 INC RF ;0115: 1F SEP RF ;0116: DF DB 00H ;0117: 00 S0118 ; ; ====================================================================== ; PSEUDO INSTRUCTION: JZ aaaa ; ---------------------------------------------------------------------- ; Opcode: 0x9E ; Handler: 0x0118 ; Token: 0A00+0x9E ; Definition: Jump if zero, forward (pop a test value; branch forward if 0) ; ; Implementation: ; Unsigned relative offset. ; ====================================================================== SEX RE ;0118: EE LDA RE ;0119: 4E OR ;011A: F1 INC RE ;011B: 1E BZ S0120 ;011C: 32 20 INC RD ;011E: 1D SEP RF ;011F: DF S0120 ; ; ====================================================================== ; PSEUDO INSTRUCTION: JP aaaa ; ---------------------------------------------------------------------- ; Opcode: 0x9F ; Handler: 0x0120 ; Token: 0A00+0x9F ; Definition: Unconditional jump, forward (unsigned) ; ; Implementation: ; Verified: boot 1E3F:04 -> 1E43. ; ====================================================================== SEX RD ;0120: ED GLO RD ;0121: 8D ADD ;0122: F4 PLO RD ;0123: AD GHI RD ;0124: 9D ADCI 00H ;0125: 7C 00 PHI RD ;0127: BD SEP RF ;0128: DF DB 00H ;0129: 00 S012A ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSHR TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0xA0 ; Handler: 0x012A ; Token: 0A00+0xA0 ; Definition: Pop TOS and NOS from the data stack and push both onto the R2 return/control stack (NOS deeper, TOS on top) ; ; Implementation: ; Handler 0x012A transfers both 16-bit words to R2. ; ====================================================================== LDA RE ;012A: 4E PHI RA ;012B: BA LDA RE ;012C: 4E SKP ;012D: 38 S012E ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSHR 0 ; ---------------------------------------------------------------------- ; Opcode: 0xA1 ; Handler: 0x012E ; Token: 0A00+0xA1 ; Definition: Pop TOS from data stack; push TOS and a zero word onto the R2 return/control stack (2-word frame/setup) ; ; Implementation: ; 2-word frame/setup variant of PUSHR. ; ====================================================================== PHI RA ;012E: BA PLO RA ;012F: AA LDA RE ;0130: 4E PHI RB ;0131: BB LDA RE ;0132: 4E SEX R2 ;0133: E2 DEC R2 ;0134: 22 STXD ;0135: 73 GHI RB ;0136: 9B STXD ;0137: 73 GLO RA ;0138: 8A STXD ;0139: 73 GHI RA ;013A: 9A STR R2 ;013B: 52 SEP RF ;013C: DF DB 00H ;013D: 00 S013E ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSHR ; ---------------------------------------------------------------------- ; Opcode: 0xA2 ; Handler: 0x013E ; Token: 0A00+0xA2 ; Definition: Pop TOS from data stack and push it onto the R2 return/control stack ; ; Implementation: ; Like PTC PUSHR. ; ====================================================================== LDA RE ;013E: 4E PLO RA ;013F: AA LDA RE ;0140: 4E DEC R2 ;0141: 22 STR R2 ;0142: 52 DEC R2 ;0143: 22 GLO RA ;0144: 8A STR R2 ;0145: 52 SEP RF ;0146: DF DB 00H ;0147: 00 S0148 ; ; ====================================================================== ; PSEUDO INSTRUCTION: POPR ; ---------------------------------------------------------------------- ; Opcode: 0xA3 ; Handler: 0x0148 ; Token: 0A00+0xA3 ; Definition: Pop a 16-bit value from the R2 return/control stack and push it onto the data stack ; ; Implementation: ; Like PTC POPR. ; ====================================================================== LDA R2 ;0148: 42 PLO RA ;0149: AA LDA R2 ;014A: 42 R014B DEC RE ;014B: 2E STR RE ;014C: 5E GLO RA ;014D: 8A S014E ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSHB ; ---------------------------------------------------------------------- ; Opcode: 0xD3 ; Handler: 0x014E ; Token: 0A00+0xD3 ; Definition: Push a single zero byte (0x00) onto the data stack (8-bit push) ; ; Implementation: ; Byte-level push, misaligns the stack by 1 byte. ; ====================================================================== DEC RE ;014E: 2E STR RE ;014F: 5E SEP RF ;0150: DF DB 00H ;0151: 00 S0152 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH R ; ---------------------------------------------------------------------- ; Opcode: 0xA4 ; Handler: 0x0152 ; Token: 0A00+0xA4 ; Definition: Push the control/return-stack top value onto the data stack (peek, non-destructive) ; ; Implementation: ; Like PTC PUSH R. ; ====================================================================== LDA R2 ;0152: 42 PLO RA ;0153: AA LDN R2 ;0154: 02 DEC R2 ;0155: 22 BR R014B ;0156: 30 4B S0158 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH R2, 4 ; ---------------------------------------------------------------------- ; Opcode: 0xA5 ; Handler: 0x0158 ; Token: 0A00+0xA5 ; Definition: Push the 16-bit word 4 bytes above the R2 return-stack top (M(R2+4):M(R2+5)) ; ; Implementation: ; Peek two words below the top word; R2 unchanged. ; ====================================================================== INC R2 ;0158: 12 INC R2 ;0159: 12 INC R2 ;015A: 12 INC R2 ;015B: 12 LDA R2 ;015C: 42 PLO RA ;015D: AA LDN R2 ;015E: 02 DEC R2 ;015F: 22 DEC R2 ;0160: 22 DEC R2 ;0161: 22 DEC R2 ;0162: 22 DEC R2 ;0163: 22 BR R014B ;0164: 30 4B S0166 ; ; ====================================================================== ; PSEUDO INSTRUCTION: DUPR ; ---------------------------------------------------------------------- ; Opcode: 0xA6 ; Handler: 0x0166 ; Token: 0A00+0xA6 ; Definition: Duplicate the R2 return-stack top word one slot higher ; ; Implementation: ; M(R2+2):M(R2+3) = M(R2):M(R2+1); R2 unchanged. ; ====================================================================== LDA R2 ;0166: 42 PLO RA ;0167: AA LDA R2 ;0168: 42 INC R2 ;0169: 12 STR R2 ;016A: 52 DEC R2 ;016B: 22 GLO RA ;016C: 8A STR R2 ;016D: 52 DEC R2 ;016E: 22 DEC R2 ;016F: 22 SEP RF ;0170: DF DB 00H ;0171: 00 S0172 ; ; ====================================================================== ; PSEUDO INSTRUCTION: DROP ; ---------------------------------------------------------------------- ; Opcode: 0xA7 ; Handler: 0x0172 ; Token: 0A00+0xA7 ; Definition: Discard top word (INC RE x2) ; ; Implementation: ; Simple stack pop. ; ====================================================================== INC RE ;0172: 1E INC RE ;0173: 1E SEP RF ;0174: DF DB 00H ;0175: 00 S0176 ; ; ====================================================================== ; PSEUDO INSTRUCTION: DUP ; ---------------------------------------------------------------------- ; Opcode: 0xA8 ; Handler: 0x0176 ; Token: 0A00+0xA8 ; Definition: Duplicate top word (read top, re-push one slot lower) ; ; Implementation: ; Simple stack dup. ; ====================================================================== LDA RE ;0176: 4E PHI RB ;0177: BB LDN RE ;0178: 0E DEC RE ;0179: 2E R017A DEC RE ;017A: 2E SEX RE ;017B: EE R017C STXD ;017C: 73 GHI RB ;017D: 9B STR RE ;017E: 5E SEP RF ;017F: DF S0180 ; ; ====================================================================== ; PSEUDO INSTRUCTION: SWAP ; ---------------------------------------------------------------------- ; Opcode: 0xA9 ; Handler: 0x0180 ; Token: 0A00+0xA9 ; Definition: Exchange TOS and NOS on the data stack (no net depth change) ; ; Implementation: ; Like PTC SWAP. ; ====================================================================== LDA RE ;0180: 4E PHI RA ;0181: BA LDA RE ;0182: 4E PLO RA ;0183: AA LDA RE ;0184: 4E PHI RB ;0185: BB SEX RE ;0186: EE LDN RE ;0187: 0E PLO RB ;0188: AB J0189 GLO RA ;0189: 8A STXD ;018A: 73 GHI RA ;018B: 9A STXD ;018C: 73 GLO RB ;018D: 8B BR R017C ;018E: 30 7C S0190 ; ; ====================================================================== ; PSEUDO INSTRUCTION: OVER ; ---------------------------------------------------------------------- ; Opcode: 0xAA ; Handler: 0x0190 ; Token: 0A00+0xAA ; Definition: Copy 2nd word ([RE+2]:[RE+3]) onto the top ; ; Implementation: ; Simple stack over. ; ====================================================================== INC RE ;0190: 1E INC RE ;0191: 1E LDA RE ;0192: 4E PHI RB ;0193: BB LDN RE ;0194: 0E DEC RE ;0195: 2E DEC RE ;0196: 2E DEC RE ;0197: 2E BR R017A ;0198: 30 7A S019A ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD TOS, [TOS] ; ---------------------------------------------------------------------- ; Opcode: 0xAB ; Handler: 0x019A ; Token: 0A00+0xAB ; Definition: Dereference: TOS = M[TOS] (16-bit load through pointer) ; ; Implementation: ; Like PTC LD. ; ====================================================================== LDA RE ;019A: 4E PHI RB ;019B: BB LDN RE ;019C: 0E PLO RB ;019D: AB LDA RB ;019E: 4B PLO RA ;019F: AA LDN RB ;01A0: 0B SEX RE ;01A1: EE STXD ;01A2: 73 GLO RA ;01A3: 8A STR RE ;01A4: 5E SEP RF ;01A5: DF S01A6 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD TOS.0, [TOS] ; ---------------------------------------------------------------------- ; Opcode: 0xAC ; Handler: 0x01A6 ; Token: 0A00+0xAC ; Definition: Byte dereference: load M[TOS] into the low byte of TOS, zero-extend the high byte ; ; Implementation: ; Like PTC LD TOS.0, [TOS]. ; ====================================================================== LDA RE ;01A6: 4E PHI RB ;01A7: BB LDN RE ;01A8: 0E PLO RB ;01A9: AB LDN RB ;01AA: 0B SEX RE ;01AB: EE STXD ;01AC: 73 GHI RF ;01AD: 9F STR RE ;01AE: 5E SEP RF ;01AF: DF S01B0 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD [TOS], NOS ; ---------------------------------------------------------------------- ; Opcode: 0xAD ; Handler: 0x01B0 ; Token: 0A00+0xAD ; Definition: Store NOS into M[TOS] ([TOS] = NOS) ; ; Implementation: ; Like PTC LD24. ; ====================================================================== LDA RE ;01B0: 4E PHI RB ;01B1: BB LDA RE ;01B2: 4E PLO RB ;01B3: AB LDA RE ;01B4: 4E PHI RA ;01B5: BA LDA RE ;01B6: 4E INC RB ;01B7: 1B STR RB ;01B8: 5B DEC RB ;01B9: 2B GHI RA ;01BA: 9A STR RB ;01BB: 5B SEP RF ;01BC: DF DB 00H ;01BD: 00 S01BE ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD [TOS], NOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xAE ; Handler: 0x01BE ; Token: 0A00+0xAE ; Definition: Byte store: M[TOS] = NOS.0 (low byte of NOS) ; ; Implementation: ; Like PTC [TOS], NOS.0. ; ====================================================================== LDA RE ;01BE: 4E PHI RB ;01BF: BB LDA RE ;01C0: 4E PLO RB ;01C1: AB INC RE ;01C2: 1E LDA RE ;01C3: 4E STR RB ;01C4: 5B SEP RF ;01C5: DF S01C6 ; ; ====================================================================== ; PSEUDO INSTRUCTION: ADD [TOS], NOS ; ---------------------------------------------------------------------- ; Opcode: 0xAF ; Handler: 0x01C6 ; Token: 0A00+0xAF ; Definition: 16-bit memory add: M[TOS] += NOS (big-endian word with carry) ; ; Implementation: ; Pops TOS (address) and NOS; carry across bytes via ADC. ; ====================================================================== LDA RE ;01C6: 4E PHI RB ;01C7: BB LDA RE ;01C8: 4E PLO RB ;01C9: AB LDA RE ;01CA: 4E PHI RA ;01CB: BA LDA RE ;01CC: 4E SEX RB ;01CD: EB INC RB ;01CE: 1B ADD ;01CF: F4 STXD ;01D0: 73 GHI RA ;01D1: 9A ADC ;01D2: 74 STR RB ;01D3: 5B SEP RF ;01D4: DF DB 00H ;01D5: 00 S01D6 ; ; ====================================================================== ; PSEUDO INSTRUCTION: AND TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0xB0 ; Handler: 0x01D6 ; Token: 0A00+0xB0 ; Definition: 16-bit bitwise AND: TOS = NOS AND TOS ; ; Implementation: ; Pops both, pushes result. ; ====================================================================== SEX RE ;01D6: EE LDA RE ;01D7: 4E PHI RA ;01D8: BA LDA RE ;01D9: 4E INC RE ;01DA: 1E AND ;01DB: F2 STXD ;01DC: 73 GHI RA ;01DD: 9A AND ;01DE: F2 STR RE ;01DF: 5E SEP RF ;01E0: DF DB 00H ;01E1: 00 S01E2 ; ; ====================================================================== ; PSEUDO INSTRUCTION: OR TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0xB1 ; Handler: 0x01E2 ; Token: 0A00+0xB1 ; Definition: 16-bit bitwise OR: TOS = NOS OR TOS ; ; Implementation: ; Pops both, pushes result. ; ====================================================================== SEX RE ;01E2: EE LDA RE ;01E3: 4E PHI RA ;01E4: BA LDA RE ;01E5: 4E INC RE ;01E6: 1E OR ;01E7: F1 STXD ;01E8: 73 GHI RA ;01E9: 9A OR ;01EA: F1 STR RE ;01EB: 5E SEP RF ;01EC: DF DB 00H ;01ED: 00 S01EE ; ; ====================================================================== ; PSEUDO INSTRUCTION: SUB TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0xB2 ; Handler: 0x01EE ; Token: 0A00+0xB2 ; Definition: TOS = NOS - TOS (16-bit subtract with borrow) ; ; Implementation: ; Symmetric to ADD (B3). ; ====================================================================== SEX RE ;01EE: EE LDA RE ;01EF: 4E PHI RB ;01F0: BB LDA RE ;01F1: 4E INC RE ;01F2: 1E SD ;01F3: F5 STXD ;01F4: 73 GHI RB ;01F5: 9B SDB ;01F6: 75 STR RE ;01F7: 5E SEP RF ;01F8: DF DB 00H ;01F9: 00 S01FA ; ; ====================================================================== ; PSEUDO INSTRUCTION: ADD TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0xB3 ; Handler: 0x01FA ; Token: 0A00+0xB3 ; Definition: 16-bit add: pop an operand, add to data-stack top -> TOS = NOS + TOS ; ; Implementation: ; Core add. ; ====================================================================== SEX RE ;01FA: EE LDA RE ;01FB: 4E PHI RB ;01FC: BB LDA RE ;01FD: 4E INC RE ;01FE: 1E ADD ;01FF: F4 STXD ;0200: 73 GHI RB ;0201: 9B ADC ;0202: 74 STR RE ;0203: 5E SEP RF ;0204: DF DB 00H ;0205: 00 S0206 ; ; ====================================================================== ; PSEUDO INSTRUCTION: SUB TOS, const=0 ; ---------------------------------------------------------------------- ; Opcode: 0xB4 ; Handler: 0x0206 ; Token: 0A00+0xB4 ; Definition: Negate TOS: TOS = 0 - TOS (16-bit two's complement) ; ; Implementation: ; Handler 0x0206 negates low then high byte with borrow. The Forth 0- ; (NEGATE) mnemonic is correct. ; ====================================================================== SEX RE ;0206: EE INC RE ;0207: 1E LDN RE ;0208: 0E GHI RF ;0209: 9F SM ;020A: F7 STXD ;020B: 73 GHI RF ;020C: 9F SMB ;020D: 77 STR RE ;020E: 5E SEP RF ;020F: DF S0210 ; ; ====================================================================== ; PSEUDO INSTRUCTION: ISZ TOS ; ---------------------------------------------------------------------- ; Opcode: 0xB5 ; Handler: 0x0210 ; Token: 0A00+0xB5 ; Definition: Zero test: push 16-bit flag 1 if TOS == 0, else 0 ; ; Implementation: ; Like PTC ISZ. ; ====================================================================== SEX RE ;0210: EE LDA RE ;0211: 4E R0212 OR ;0212: F1 BNZ R0218 ;0213: 3A 18 LDI 01H ;0215: F8 01 SKP ;0217: 38 R0218 GHI RF ;0218: 9F R0219 STXD ;0219: 73 GHI RF ;021A: 9F STR RE ;021B: 5E SEP RF ;021C: DF DB 00H ;021D: 00 S021E ; ; ====================================================================== ; PSEUDO INSTRUCTION: ISNEG TOS ; ---------------------------------------------------------------------- ; Opcode: 0xB6 ; Handler: 0x021E ; Token: 0A00+0xB6 ; Definition: Sign test on TOS: push 16-bit flag 1 if TOS < 0 (bit 15 set), else 0 ; ; Implementation: ; Like PTC ISNEG. ; ====================================================================== SEX RE ;021E: EE LDA RE ;021F: 4E ANI 80H ;0220: FA 80 SHL ;0222: FE SHLC ;0223: 7E BR R0219 ;0224: 30 19 S0226 ; ; ====================================================================== ; PSEUDO INSTRUCTION: ISGT NOS, TOS ; ---------------------------------------------------------------------- ; Opcode: 0xB7 ; Handler: 0x0226 ; Token: 0A00+0xB7 ; Definition: Signed 16-bit compare: push 1 if NOS > TOS else 0 ; ; Implementation: ; Like PTC ISGT. ; ====================================================================== SEX RE ;0226: EE LDA RE ;0227: 4E PHI RB ;0228: BB LDA RE ;0229: 4E INC RE ;022A: 1E SM ;022B: F7 DEC RE ;022C: 2E GHI RB ;022D: 9B SMB ;022E: 77 R022F GHI RB ;022F: 9B XOR ;0230: F3 SHLC ;0231: 7E ADCI 01H ;0232: 7C 01 SHR ;0234: F6 GHI RF ;0235: 9F INC RE ;0236: 1E SHLC ;0237: 7E BR R0219 ;0238: 30 19 S023A ; ; ====================================================================== ; PSEUDO INSTRUCTION: ISLT NOS, TOS ; ---------------------------------------------------------------------- ; Opcode: 0xB8 ; Handler: 0x023A ; Token: 0A00+0xB8 ; Definition: Signed 16-bit less-than: push 1 if NOS < TOS else 0 ; ; Implementation: ; Computes NOS - TOS then the RCA signed-compare idiom. ; ====================================================================== SEX RE ;023A: EE LDA RE ;023B: 4E PHI RB ;023C: BB LDA RE ;023D: 4E INC RE ;023E: 1E SD ;023F: F5 DEC RE ;0240: 2E GHI RB ;0241: 9B SDB ;0242: 75 BR R022F ;0243: 30 2F DB 00H ;0245: 00 S0246 ; ; ====================================================================== ; PSEUDO INSTRUCTION: ISEQ TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0xB9 ; Handler: 0x0246 ; Token: 0A00+0xB9 ; Definition: Equality compare: 16-bit borrow subtraction; push 16-bit flag 1 = equal, 0 = not ; ; Implementation: ; Like PTC ISEQ. ; ====================================================================== SEX RE ;0246: EE LDA RE ;0247: 4E PHI RA ;0248: BA LDA RE ;0249: 4E INC RE ;024A: 1E SM ;024B: F7 STXD ;024C: 73 GHI RA ;024D: 9A SM ;024E: F7 INC RE ;024F: 1E BR R0212 ;0250: 30 12 R0252 LDA RB ;0252: 4B STR RA ;0253: 5A INC RA ;0254: 1A DEC R9 ;0255: 29 R0256 GLO R9 ;0256: 89 BNZ R0252 ;0257: 3A 52 GHI R9 ;0259: 99 BNZ R0252 ;025A: 3A 52 SEP RF ;025C: DF DB 00H ;025D: 00 S025E ; ; ====================================================================== ; PSEUDO INSTRUCTION: MCPY [NOS], [3OS] ; ---------------------------------------------------------------------- ; Opcode: 0xBA ; Handler: 0x025E ; Token: 0A00+0xBA ; Definition: Copy TOS bytes from memory at 3OS into memory at NOS ; ; Implementation: ; Pops count, dest, src. Like PTC MCPY [NOS],[3OS]. ; ====================================================================== LDA RE ;025E: 4E PHI R9 ;025F: B9 LDA RE ;0260: 4E PLO R9 ;0261: A9 LDA RE ;0262: 4E PHI RA ;0263: BA LDA RE ;0264: 4E PLO RA ;0265: AA LDA RE ;0266: 4E PHI RB ;0267: BB LDA RE ;0268: 4E PLO RB ;0269: AB BR R0256 ;026A: 30 56 S026C ; ; ====================================================================== ; PSEUDO INSTRUCTION: MUL ; ---------------------------------------------------------------------- ; Opcode: 0xBB ; Handler: 0x026C ; Token: 0A00+0xBB ; Definition: 8-bit x 8-bit -> 16-bit multiply: TOS = TOS.0 x NOS.0 ; ; Implementation: ; Shift-and-add loop, 8 iterations. ; ====================================================================== LDI 08H ;026C: F8 08 PLO RA ;026E: AA GHI RF ;026F: 9F PHI RB ;0270: BB INC RE ;0271: 1E LDA RE ;0272: 4E SHR ;0273: F6 PLO RB ;0274: AB INC RE ;0275: 1E SEX RE ;0276: EE R0277 GHI RB ;0277: 9B BNF R027B ;0278: 3B 7B ADD ;027A: F4 R027B SHRC ;027B: 76 PHI RB ;027C: BB GLO RB ;027D: 8B SHRC ;027E: 76 PLO RB ;027F: AB DEC RA ;0280: 2A GLO RA ;0281: 8A BNZ R0277 ;0282: 3A 77 GLO RB ;0284: 8B STXD ;0285: 73 GHI RB ;0286: 9B STR RE ;0287: 5E SEP RF ;0288: DF DB 00H ;0289: 00 S028A ; ; ====================================================================== ; PSEUDO INSTRUCTION: DIV ; ---------------------------------------------------------------------- ; Opcode: 0xBC ; Handler: 0x028A ; Token: 0A00+0xBC ; Definition: Divide: NOS = NOS / TOS.0 (TOS.0 = divisor); quotient -> NOS, remainder -> TOS (in place) ; ; Implementation: ; 8-bit restoring-division loop (SHLC/SM). Used for hex-digit extraction ; by repeated /16. ; ====================================================================== LDI 08H ;028A: F8 08 PLO RA ;028C: AA INC RE ;028D: 1E LDA RE ;028E: 4E PHI RA ;028F: BA LDA RE ;0290: 4E PHI RB ;0291: BB LDN RE ;0292: 0E SHL ;0293: FE PLO RB ;0294: AB GHI RA ;0295: 9A STR RE ;0296: 5E SEX RE ;0297: EE R0298 GHI RB ;0298: 9B SHLC ;0299: 7E PHI RB ;029A: BB SM ;029B: F7 BNF R029F ;029C: 3B 9F PHI RB ;029E: BB R029F GLO RB ;029F: 8B SHLC ;02A0: 7E PLO RB ;02A1: AB DEC RA ;02A2: 2A GLO RA ;02A3: 8A BNZ R0298 ;02A4: 3A 98 GLO RB ;02A6: 8B STXD ;02A7: 73 GHI RF ;02A8: 9F STXD ;02A9: 73 GHI RB ;02AA: 9B STXD ;02AB: 73 GHI RF ;02AC: 9F STR RE ;02AD: 5E SEP RF ;02AE: DF S02AF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8100 ; ---------------------------------------------------------------------- ; Opcode: 0xBD ; Handler: 0x02AF ; Token: 0A00+0xBD ; Definition: Push 16-bit constant 0x8100 (port-2 shadow / display strobe base) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02AF (PUSH 8100; RET). ; ====================================================================== DB 8FH, 81H, 00H ;02AF: 0 PUSH 8100 DB 8CH ;02B2: RET S02B3 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8101 ; ---------------------------------------------------------------------- ; Opcode: 0xBE ; Handler: 0x02B3 ; Token: 0A00+0xBE ; Definition: Push 16-bit constant 0x8101 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02B3. ; ====================================================================== DB 8FH, 81H, 01H ;02B3: 1 PUSH 8101 DB 8CH ;02B6: RET S02B7 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8102 ; ---------------------------------------------------------------------- ; Opcode: 0xBF ; Handler: 0x02B7 ; Token: 0A00+0xBF ; Definition: Push 16-bit constant 0x8102 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02B7. ; ====================================================================== DB 8FH, 81H, 02H ;02B7: 2 PUSH 8102 DB 8CH ;02BA: RET S02BB ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8103 ; ---------------------------------------------------------------------- ; Opcode: 0xC0 ; Handler: 0x02BB ; Token: 0A00+0xC0 ; Definition: Push 16-bit constant 0x8103 (program-loaded flag high byte address) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02BB. ; ====================================================================== DB 8FH, 81H, 03H ;02BB: 3 PUSH 8103 DB 8CH ;02BE: RET S02BF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8105 ; ---------------------------------------------------------------------- ; Opcode: 0xC1 ; Handler: 0x02BF ; Token: 0A00+0xC1 ; Definition: Push 16-bit constant 0x8105 (font-base pointer high byte address) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02BF. ; ====================================================================== DB 8FH, 81H, 05H ;02BF: 5 PUSH 8105 DB 8CH ;02C2: RET S02C3 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8107 ; ---------------------------------------------------------------------- ; Opcode: 0xC2 ; Handler: 0x02C3 ; Token: 0A00+0xC2 ; Definition: Push 16-bit constant 0x8107 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02C3. ; ====================================================================== DB 8FH, 81H, 07H ;02C3: 7 PUSH 8107 DB 8CH ;02C6: RET S02C7 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8108 ; ---------------------------------------------------------------------- ; Opcode: 0xC3 ; Handler: 0x02C7 ; Token: 0A00+0xC3 ; Definition: Push 16-bit constant 0x8108 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02C7. ; ====================================================================== DB 8FH, 81H, 08H ;02C7: 8 PUSH 8108 DB 8CH ;02CA: RET S02CB ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8109 ; ---------------------------------------------------------------------- ; Opcode: 0xC4 ; Handler: 0x02CB ; Token: 0A00+0xC4 ; Definition: Push 16-bit constant 0x8109 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02CB. ; ====================================================================== DB 8FH, 81H, 09H ;02CB: 9 PUSH 8109 DB 8CH ;02CE: RET S02CF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 810A ; ---------------------------------------------------------------------- ; Opcode: 0xC5 ; Handler: 0x02CF ; Token: 0A00+0xC5 ; Definition: Push 16-bit constant 0x810A (cursor / HASH-seed byte address) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02CF. ; ====================================================================== DB 8FH, 81H, 0AH ;02CF: A PUSH 810A DB 8CH ;02D2: RET DB 00H ;02D3: 00 S02D4 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 810B ; ---------------------------------------------------------------------- ; Opcode: 0xC6 ; Handler: 0x02D4 ; Token: 0A00+0xC6 ; Definition: Push word 0x810B (text/edit buffer base); also sets flag M(0x8002)=1 (buffer active) ; ; Implementation: ; Display buffer base. Sets the buffer-active flag used by SEND. ; ====================================================================== DEC RE ;02D4: 2E LDI 0BH ;02D5: F8 0B STR RE ;02D7: 5E DEC RE ;02D8: 2E GHI R6 ;02D9: 96 STR RE ;02DA: 5E J02DB LDI 80H ;02DB: F8 80 PHI RB ;02DD: BB LDI 02H ;02DE: F8 02 PLO RB ;02E0: AB LDI 01H ;02E1: F8 01 STR RB ;02E3: 5B SEP RF ;02E4: DF S02E5 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81DB ; ---------------------------------------------------------------------- ; Opcode: 0xC7 ; Handler: 0x02E5 ; Token: 0A00+0xC7 ; Definition: Push 16-bit constant 0x81DB (message table base) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x02E5. ; ====================================================================== DB 8FH, 81H, 0DBH ;02E5: B PUSH 81DB DB 8CH ;02E8: RET DB 00H ;02E9: 00 S02EA ; ; ====================================================================== ; PSEUDO INSTRUCTION: ADD TOS, const=1 ; ---------------------------------------------------------------------- ; Opcode: 0xC8 ; Handler: 0x02EA ; Token: 0A00+0xC8 ; Definition: TOS += 1 (16-bit) ; ; Implementation: ; ADI 01 / ADCI 00. ; ====================================================================== INC RE ;02EA: 1E LDN RE ;02EB: 0E ADI 01H ;02EC: FC 01 R02EE STR RE ;02EE: 5E DEC RE ;02EF: 2E LDN RE ;02F0: 0E ADCI 00H ;02F1: 7C 00 STR RE ;02F3: 5E SEP RF ;02F4: DF DB 00H ;02F5: 00 S02F6 ; ; ====================================================================== ; PSEUDO INSTRUCTION: ADD TOS, const=2 ; ---------------------------------------------------------------------- ; Opcode: 0xC9 ; Handler: 0x02F6 ; Token: 0A00+0xC9 ; Definition: TOS += 2 (16-bit) ; ; Implementation: ; ADI 02. ; ====================================================================== INC RE ;02F6: 1E LDN RE ;02F7: 0E ADI 02H ;02F8: FC 02 BR R02EE ;02FA: 30 EE S02FC ; ; ====================================================================== ; PSEUDO INSTRUCTION: SUB TOS, const=1 ; ---------------------------------------------------------------------- ; Opcode: 0xCA ; Handler: 0x02FC ; Token: 0A00+0xCA ; Definition: TOS -= 1 (16-bit) ; ; Implementation: ; ADI FF / ADCI FF. ; ====================================================================== INC RE ;02FC: 1E LDN RE ;02FD: 0E ADI 0FFH ;02FE: FC FF J0300 STR RE ;0300: 5E DEC RE ;0301: 2E LDN RE ;0302: 0E ADCI 0FFH ;0303: 7C FF STR RE ;0305: 5E SEP RF ;0306: DF DB 00H ;0307: 00 S0308 ; ; ====================================================================== ; PSEUDO INSTRUCTION: SUB TOS, const=2 ; ---------------------------------------------------------------------- ; Opcode: 0xCB ; Handler: 0x0308 ; Token: 0A00+0xCB ; Definition: TOS -= 2 (16-bit) ; ; Implementation: ; ADI FE. ; ====================================================================== INC RE ;0308: 1E LDN RE ;0309: 0E ADI 0FEH ;030A: FC FE LBR J0300 ;030C: C0 03 00 S030F ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 812D ; ---------------------------------------------------------------------- ; Opcode: 0xCC ; Handler: 0x030F ; Token: 0A00+0xCC ; Definition: Push 16-bit constant 0x812D ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x030F. ; ====================================================================== DB 8FH, 81H, 2DH ;030F: D PUSH 812D DB 8CH ;0312: RET S0313 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 812F ; ---------------------------------------------------------------------- ; Opcode: 0xCD ; Handler: 0x0313 ; Token: 0A00+0xCD ; Definition: Push 16-bit constant 0x812F ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x0313. ; ====================================================================== DB 8FH, 81H, 2FH ;0313: F PUSH 812F DB 8CH ;0316: RET S0317 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH [810A] ; ---------------------------------------------------------------------- ; Opcode: 0xCE ; Handler: 0x0317 ; Token: 0A00+0xCE ; Definition: Push the byte at M[0x810A] zero-extended to 16 bits ; ; Implementation: ; Runtime status/message byte used as HASH seed and message-pointer ; offset. ; ====================================================================== DB 0C5H ;0317: PUSH 810A DB 0ACH ;0318: LD TOS.0, [TOS] DB 8CH ;0319: RET DB 00H ;031A: 00 S031B ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 810B+[810A] ; ---------------------------------------------------------------------- ; Opcode: 0xCF ; Handler: 0x031B ; Token: 0A00+0xCF ; Definition: Push 0x810B + M[0x810A] (address of the buffer position at the cursor byte) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x031B. ; ====================================================================== DB 0C6H ;031B: PUSH 810B DB 0CEH ;031C: PUSH [810A] DB 0B3H ;031D: ADD TOS, NOS DB 8CH ;031E: RET S031F ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD TOS.0, 810B+[810A] ; ---------------------------------------------------------------------- ; Opcode: 0xD0 ; Handler: 0x031F ; Token: 0A00+0xD0 ; Definition: Push the byte at M[0x810B + M[0x810A]] zero-extended to 16 bits (buffer char at cursor) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x031F. ; ====================================================================== DB 0CFH ;031F: PUSH 810B+[810A] DB 0ACH ;0320: LD TOS.0, [TOS] DB 8CH ;0321: RET DB 00H ;0322: 00 S0323 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD 810B+[810A], NOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xD1 ; Handler: 0x0323 ; Token: 0A00+0xD1 ; Definition: Store NOS.0 at M[0x810B + M[0x810A]] (buffer char at cursor) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x0323. ; ====================================================================== DB 0CFH ;0323: PUSH 810B+[810A] DB 0AEH ;0324: LD [TOS], NOS.0 DB 8CH ;0325: RET DB 00H ;0326: 00 S0327 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH [8107] ; ---------------------------------------------------------------------- ; Opcode: 0xD2 ; Handler: 0x0327 ; Token: 0A00+0xD2 ; Definition: Push the byte at M[0x8107] zero-extended to 16 bits ; ; Implementation: ; Twin of PUSH [810A] (CE) for address 0x8107. ; ====================================================================== DB 0C2H ;0327: PUSH 8107 DB 0ACH ;0328: LD TOS.0, [TOS] DB 8CH ;0329: RET S032A ; ; ====================================================================== ; PSEUDO INSTRUCTION: SHL TOS ; ---------------------------------------------------------------------- ; Opcode: 0xD4 ; Handler: 0x032A ; Token: 0A00+0xD4 ; Definition: 16-bit left shift / double: TOS = TOS << 1 ; ; Implementation: ; Low byte SHL carries bit 7 into high byte SHLC. In place. ; ====================================================================== SEX RE ;032A: EE INC RE ;032B: 1E LDN RE ;032C: 0E SHL ;032D: FE STXD ;032E: 73 LDN RE ;032F: 0E SHLC ;0330: 7E STR RE ;0331: 5E SEP RF ;0332: DF S0333 DB 0A2H ;0333: PUSHR DB 0A8H ;0334: DUP DB 0A4H ;0335: PUSH R DB 0BBH ;0336: MUL TOS.0, NOS.0 DB 0A9H ;0337: SWAP DB 8FH, 0FFH, 00H ;0338: 0 PUSH FF00 DB 0B0H ;033B: AND TOS, NOS DB 0D3H ;033C: PUSHB 0 DB 0A3H ;033D: POPR DB 0BBH ;033E: MUL TOS.0, NOS.0 DB 0B3H ;033F: ADD TOS, NOS DB 8CH ;0340: RET S0341 DB 0D5H ;0341: CALL 0333 DB 0D3H ;0342: PUSHB 0 DB 0A7H ;0343: DROP DB 8CH ;0344: RET S0345 ; ; ====================================================================== ; PSEUDO INSTRUCTION: DIVR NOS, TOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xD7 ; Handler: 0x0345 ; Token: 0A00+0xD7 ; Definition: 16-bit / byte division producing [quotient, remainder] with the quotient on top ; ; Implementation: ; Result-order complement of DIV (BC). Wraps the byte-splitting ; long-division data-subroutine at 0x0345. ; ====================================================================== DB 0A2H ;0345: PUSHR DB 0D3H ;0346: PUSHB 0 DB 0A4H ;0347: PUSH R DB 0BCH ;0348: DIV NOS, TOS.0 DB 0A9H ;0349: SWAP DB 0D3H ;034A: PUSHB 0 DB 0A7H ;034B: DROP DB 0A9H ;034C: SWAP DB 0A3H ;034D: POPR DB 0BCH ;034E: DIV NOS, TOS.0 DB 0A2H ;034F: PUSHR DB 0B3H ;0350: ADD TOS, NOS DB 0A3H ;0351: POPR DB 0A9H ;0352: SWAP DB 8CH ;0353: RET DB 00H ;0354: 00 S0355 ; ; ====================================================================== ; PSEUDO INSTRUCTION: MOD NOS, TOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xD8 ; Handler: 0x0355 ; Token: 0A00+0xD8 ; Definition: Remainder of NOS / TOS.0 (16-bit / byte) ; ; Implementation: ; DIVR + SWAP + DROP discards the quotient, leaves remainder only. ; ====================================================================== DB 0D7H ;0355: DIVR NOS, TOS.0 DB 0A9H ;0356: SWAP DB 0A7H ;0357: DROP DB 8CH ;0358: RET DB 00H ;0359: 00 S035A ; ; ====================================================================== ; PSEUDO INSTRUCTION: CLS ; ---------------------------------------------------------------------- ; Opcode: 0xD9 ; Handler: 0x035A ; Token: 0A00+0xD9 ; Definition: Clear the display (fill the 34-byte display buffer with 0x20 spaces) ; ; Implementation: ; Writes 0x20 via STXD over the buffer, sets M(0x8002)=1 buffer-active. ; ====================================================================== LDI 2CH ;035A: F8 2C PLO R6 ;035C: A6 SEX R6 ;035D: E6 LDI 22H ;035E: F8 22 PLO RA ;0360: AA R0361 LDI 20H ;0361: F8 20 STXD ;0363: 73 DEC RA ;0364: 2A GLO RA ;0365: 8A BNZ R0361 ;0366: 3A 61 LBR J02DB ;0368: C0 02 DB S036B ; ; ====================================================================== ; PSEUDO INSTRUCTION: SVM ; ---------------------------------------------------------------------- ; Opcode: 0xDA ; Handler: 0x036B ; Token: 0A00+0xDA ; Definition: Save the message: copy 32 bytes from display buffer (0x810B) to message table (0x81DB) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x036B. ; ====================================================================== DB 0C6H ;036B: PUSH 810B DB 0C7H ;036C: PUSH 81DB DB 9AH ;036D: PUSH 0020 DB 0BAH ;036E: MCPY [NOS], [3OS] DB 8CH ;036F: RET DB 00H ;0370: 00 S0371 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LDM ; ---------------------------------------------------------------------- ; Opcode: 0xDB ; Handler: 0x0371 ; Token: 0A00+0xDB ; Definition: Load the message: copy 32 bytes from message table (0x81DB) into display buffer (0x810B) ; ; Implementation: ; Reverse direction of SVM (DA). ; ====================================================================== DB 0C7H ;0371: PUSH 81DB DB 0C6H ;0372: PUSH 810B DB 9AH ;0373: PUSH 0020 DB 0BAH ;0374: MCPY [NOS], [3OS] DB 8CH ;0375: RET DB 00H ;0376: 00 S0377 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LDMSG TOS ; ---------------------------------------------------------------------- ; Opcode: 0xDC ; Handler: 0x0377 ; Token: 0A00+0xDC ; Definition: Clear the display and load a length-prefixed message into the text/edit buffer at 0x810B ; ; Implementation: ; Pops TOS = table-entry address; reads byte length M[TOS], copies that ; many bytes from M[TOS+1..]. ; ====================================================================== DB 0D9H ;0377: CLS DB 0A8H ;0378: DUP DB 0ACH ;0379: LD TOS.0, [TOS] DB 0A2H ;037A: PUSHR DB 0C8H ;037B: ADD TOS, 1 DB 0C6H ;037C: PUSH 810B DB 0A3H ;037D: POPR DB 0BAH ;037E: MCPY [NOS], [3OS] DB 8CH ;037F: RET S0380 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD [TOS], const=1 ; ---------------------------------------------------------------------- ; Opcode: 0xDE ; Handler: 0x0380 ; Token: 0A00+0xDE ; Definition: Byte store of constant 1: M[TOS] = 0x01 ; ; Implementation: ; LDI 01; PLO RA then shared 0x0382 store. ; ====================================================================== LDI 01H ;0380: F8 01 S0382 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD [TOS], const=0 ; ---------------------------------------------------------------------- ; Opcode: 0xDD ; Handler: 0x0382 ; Token: 0A00+0xDD ; Definition: Byte store of constant 0: M[TOS] = 0x00 ; ; Implementation: ; D is deterministically 0 at entry, so PLO RA sets RA.0=0 and the store ; writes 0. ; ====================================================================== PLO RA ;0382: AA LDA RE ;0383: 4E PHI RB ;0384: BB LDA RE ;0385: 4E PLO RB ;0386: AB GLO RA ;0387: 8A STR RB ;0388: 5B SEP RF ;0389: DF DB 00H ;038A: 00 S038B DB 33H ;038B: SYS 1F0E DB 0A9H ;038C: SWAP DB 0A7H ;038D: DROP DB 8CH ;038E: RET S038F DB 33H ;038F: SYS 1F0E DB 0A7H ;0390: DROP DB 8CH ;0391: RET DB 00H ;0392: 00 DB 00H ;0393: 00 S0394 ; ; ====================================================================== ; PSEUDO INSTRUCTION: OUT 2, TOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xE1 ; Handler: 0x0394 ; Token: 0A00+0xE1 ; Definition: Set bits in the port-2 output: pop one byte (low byte of TOS) as a mask, M(8100) |= TOS.0, output to port 2 ; ; Implementation: ; The value output is the modified M(0x8100), never TOS/NOS. ; ====================================================================== GHI RF ;0394: 9F PLO R6 ;0395: A6 SEX R6 ;0396: E6 INC RE ;0397: 1E LDA RE ;0398: 4E OR ;0399: F1 R039A STR R6 ;039A: 56 OUT 2 ;039B: 62 SEP RF ;039C: DF DB 00H ;039D: 00 S039E ; ; ====================================================================== ; PSEUDO INSTRUCTION: OUTM 2, TOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xE2 ; Handler: 0x039E ; Token: 0A00+0xE2 ; Definition: Clear bits in the port-2 output (OUT with Mask = M): pop mask, complement, M(8100) &= ~TOS.0, output ; ; Implementation: ; Bit-clear companion of OUT (E1/0x0394 does OR). ; ====================================================================== GHI RF ;039E: 9F PLO R6 ;039F: A6 SEX R6 ;03A0: E6 INC RE ;03A1: 1E LDA RE ;03A2: 4E XRI 0FFH ;03A3: FB FF AND ;03A5: F2 BR R039A ;03A6: 30 9A S03A8 ; ; ====================================================================== ; PSEUDO INSTRUCTION: INP1 TOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xE3 ; Handler: 0x03A8 ; Token: 0A00+0xE3 ; Definition: Push 0x0001 if (INP 1 AND TOS.0) != 0, else 0x0000 ; ; Implementation: ; Pops TOS as the mask byte. ; ====================================================================== SEX RE ;03A8: EE INP 1 ;03A9: 69 INC RE ;03AA: 1E AND ;03AB: F2 LSZ ;03AC: CE LDI 01H ;03AD: F8 01 STXD ;03AF: 73 GHI RF ;03B0: 9F STR RE ;03B1: 5E SEP RF ;03B2: DF S03B3 ; ; ====================================================================== ; PSEUDO INSTRUCTION: INP1 const=08 ; ---------------------------------------------------------------------- ; Opcode: 0xE4 ; Handler: 0x03B3 ; Token: 0A00+0xE4 ; Definition: Push 0x0001 if (INP 1 AND 0x08) != 0, else 0x0000 ; ; Implementation: ; Fixed mask 0x08 (INP1 bit 3 = battery/voltage flag). ; ====================================================================== DB 90H, 08H ;03B3: PUSH 08 DB 0E3H ;03B5: INP1 TOS, TOS.0 DB 8CH ;03B6: RET S03B7 ; ; ====================================================================== ; PSEUDO INSTRUCTION: INP1 const=20 ; ---------------------------------------------------------------------- ; Opcode: 0xE5 ; Handler: 0x03B7 ; Token: 0A00+0xE5 ; Definition: Push 0x0001 if (INP 1 AND 0x20) != 0, else 0x0000 ; ; Implementation: ; Fixed mask 0x20 (bit 5 function unconfirmed). ; ====================================================================== DB 9AH ;03B7: PUSH 0020 DB 0E3H ;03B8: INP1 TOS, TOS.0 DB 8CH ;03B9: RET S03BA ; ; ====================================================================== ; PSEUDO INSTRUCTION: SCAN ; ---------------------------------------------------------------------- ; Opcode: 0xE6 ; Handler: 0x03BA ; Token: 0A00+0xE6 ; Definition: Keyboard scan + program check + display BLANK strobe ; ; Implementation: ; Saves context, DIS -> P=R1, blanks the display (OUT 1/2/4 = 0), checks ; the 5A5B program-loaded flag. Single-use: R1 is the PC and advances; a ; second SCAN jumps to 0x08F0 (IDL) and halts. Does NOT render the ; buffer. ; ====================================================================== DEC R2 ;03BA: 22 MARK ;03BB: 79 INC R2 ;03BC: 12 INC R2 ;03BD: 12 DIS ;03BE: 71 DB 21H ;03BF: 21 SEP RF ;03C0: DF S03C1 ; ; ====================================================================== ; PSEUDO INSTRUCTION: OUT 2, const=20 ; ---------------------------------------------------------------------- ; Opcode: 0xEA ; Handler: 0x03C1 ; Token: 0A00+0xEA ; Definition: Set port-2 bit 5 (0x20), then hold it for a fixed 500-iteration delay ; ; Implementation: ; Bit-5 set companion of EB; used to bracket transmit/recorder ; operations. ; ====================================================================== DB 9AH ;03C1: PUSH 0020 DB 0E1H ;03C2: OUT 2, TOS.0 DB 8FH, 01H, 0F4H ;03C3: 4 PUSH 01F4 DB 0A1H ;03C6: PUSHR 0 DB 94H, 0FFH ;03C7: LOOP 03C7 DB 8CH ;03C9: RET DB 00H ;03CA: 00 S03CB ; ; ====================================================================== ; PSEUDO INSTRUCTION: OUTM 2, const=20 ; ---------------------------------------------------------------------- ; Opcode: 0xEB ; Handler: 0x03CB ; Token: 0A00+0xEB ; Definition: Clear port-2 bit 5 (0x20) ; ; Implementation: ; Bit-clear companion of EA. ; ====================================================================== DB 9AH ;03CB: PUSH 0020 DB 0E2H ;03CC: OUTM 2, TOS.0 DB 8CH ;03CD: RET DB 00H ;03CE: 00 DB 00H ;03CF: 00 S03D0 ; ; ====================================================================== ; PSEUDO INSTRUCTION: IDLE ; ---------------------------------------------------------------------- ; Opcode: 0xEC ; Handler: 0x03D0 ; Token: 0A00+0xEC ; Definition: Terminal halt / power-down ; ; Implementation: ; SEX R3; OUT 2 0x00; DIS; zero R0; OUT 2 0x80; IDL. Permanent halt (no ; interrupt/DMA source). ; ====================================================================== SEX R3 ;03D0: E3 OUT 2 ;03D1: 62 DB 00H ;03D2: 00 DIS ;03D3: 71 DB 33H ;03D4: 33 GHI RF ;03D5: 9F PHI R0 ;03D6: B0 PLO R0 ;03D7: A0 OUT 2 ;03D8: 62 DB 80H ;03D9: 80 IDL ;03DA: 00 S03DB ; ; ====================================================================== ; PSEUDO INSTRUCTION: IDLE ; ---------------------------------------------------------------------- ; Opcode: 0x01 ; Handler: 0x03DB ; Token: 0B00+0x01 ; Definition: Power down — CALL-form entry for IDLE ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x03DB (IDLE; RET). ; ====================================================================== DB 0ECH ;03DB: IDLE DB 8CH ;03DC: RET DB 00H ;03DD: 00 S03DE ; ; ====================================================================== ; PSEUDO INSTRUCTION: INC [TOS] ; ---------------------------------------------------------------------- ; Opcode: 0xED ; Handler: 0x03DE ; Token: 0A00+0xED ; Definition: 16-bit memory increment: M[TOS] += 1 ; ; Implementation: ; Big-endian word with carry. ; ====================================================================== ADI 00H ;03DE: FC 00 S03E0 ; ; ====================================================================== ; PSEUDO INSTRUCTION: DEC [TOS] ; ---------------------------------------------------------------------- ; Opcode: 0xEE ; Handler: 0x03E0 ; Token: 0A00+0xEE ; Definition: 16-bit memory decrement: M[TOS] -= 1 ; ; Implementation: ; Big-endian word with borrow. ; ====================================================================== LDA RE ;03E0: 4E PHI RB ;03E1: BB LDA RE ;03E2: 4E PLO RB ;03E3: AB INC RB ;03E4: 1B LDN RB ;03E5: 0B BDF R03F1 ;03E6: 33 F1 ADI 01H ;03E8: FC 01 STR RB ;03EA: 5B DEC RB ;03EB: 2B LDN RB ;03EC: 0B ADCI 00H ;03ED: 7C 00 STR RB ;03EF: 5B SEP RF ;03F0: DF R03F1 ADI 0FFH ;03F1: FC FF STR RB ;03F3: 5B DEC RB ;03F4: 2B LDN RB ;03F5: 0B ADCI 0FFH ;03F6: 7C FF STR RB ;03F8: 5B SEP RF ;03F9: DF DB 00H ;03FA: 00 DB 00H ;03FB: 00 DB 00H ;03FC: 00 DB 00H ;03FD: 00 DB 00H ;03FE: 00 DB 00H ;03FF: 00 DB 00H ;0400: 00 DB 01H ;0401: 01 DB 01H ;0402: 01 DB 02H ;0403: 02 DB 01H ;0404: 01 DB 02H ;0405: 02 DB 02H ;0406: 02 DB 03H ;0407: 03 J0408 GHI R6 ;0408: 96 PHI RA ;0409: BA PHI RB ;040A: BB GHI RF ;040B: 9F PLO RA ;040C: AA SEX RA ;040D: EA LDN RA ;040E: 0A ORI 02H ;040F: F9 02 ANI 0FAH ;0411: FA FA STR RA ;0413: 5A SEX RE ;0414: EE INP 1 ;0415: 69 ANI 40H ;0416: FA 40 BZ R0434 ;0418: 32 34 LDN RA ;041A: 0A ANI 40H ;041B: FA 40 BNZ R0434 ;041D: 3A 34 LDI 02H ;041F: F8 02 PLO RB ;0421: AB LDN RB ;0422: 0B BZ R042A ;0423: 32 2A LDI 0FFH ;0425: F8 FF STR RB ;0427: 5B BR R0434 ;0428: 30 34 R042A LDI 01H ;042A: F8 01 STR RB ;042C: 5B SEX RA ;042D: EA LDI 10H ;042E: F8 10 OR ;0430: F1 STR RA ;0431: 5A OUT 2 ;0432: 62 DEC RA ;0433: 2A R0434 LDI 0FEH ;0434: F8 FE PLO R7 ;0436: A7 DEC R2 ;0437: 22 R0438 GLO R7 ;0438: 87 STR RE ;0439: 5E LDI 02H ;043A: F8 02 PLO R8 ;043C: A8 R043D LDI 0BH ;043D: F8 0B PLO RB ;043F: AB SEX RA ;0440: EA LDN RA ;0441: 0A ORI 01H ;0442: F9 01 STR RA ;0444: 5A GHI RF ;0445: 9F PLO R5 ;0446: A5 PLO R9 ;0447: A9 LDI 05H ;0448: F8 05 PLO R6 ;044A: A6 R044B LDA RB ;044B: 4B SHL ;044C: FE SEX R6 ;044D: E6 INC R6 ;044E: 16 ADD ;044F: F4 PLO R4 ;0450: A4 GHI RF ;0451: 9F DEC R6 ;0452: 26 ADC ;0453: 74 PHI R4 ;0454: B4 SEX R3 ;0455: E3 OUT 1 ;0456: 61 DB 00H ;0457: 00 OUT 4 ;0458: 64 DB 00H ;0459: 00 DEC R2 ;045A: 22 LDA R2 ;045B: 42 SHR ;045C: F6 SEX RA ;045D: EA OUT 2 ;045E: 62 DEC RA ;045F: 2A GLO R5 ;0460: 85 LSDF ;0461: CF SMI 06H ;0462: FF 06 SMI 0AH ;0464: FF 0A BZ R0484 ;0466: 32 84 SEX R4 ;0468: E4 OUT 1 ;0469: 61 OUT 4 ;046A: 64 LDN RA ;046B: 0A ANI 0FAH ;046C: FA FA STR RA ;046E: 5A SEX R2 ;046F: E2 INP 1 ;0470: 69 ANI 07H ;0471: FA 07 XRI 07H ;0473: FB 07 PLO R4 ;0475: A4 BZ R047B ;0476: 32 7B PHI R5 ;0478: B5 GLO R5 ;0479: 85 PLO R7 ;047A: A7 R047B GHI R3 ;047B: 93 PHI R4 ;047C: B4 SEX R4 ;047D: E4 GLO R9 ;047E: 89 ADD ;047F: F4 PLO R9 ;0480: A9 INC R5 ;0481: 15 BR R044B ;0482: 30 4B R0484 SEX RE ;0484: EE GLO R9 ;0485: 89 SMI 01H ;0486: FF 01 BNZ R0498 ;0488: 3A 98 GHI R5 ;048A: 95 SHR ;048B: F6 BZ R0496 ;048C: 32 96 SHR ;048E: F6 GLO R7 ;048F: 87 LSDF ;0490: CF ADI 09H ;0491: FC 09 ADI 09H ;0493: FC 09 PLO R7 ;0495: A7 R0496 BR R049B ;0496: 30 9B R0498 LDI 0FFH ;0498: F8 FF PLO R7 ;049A: A7 R049B GLO R7 ;049B: 87 SM ;049C: F7 BNZ R0438 ;049D: 3A 38 DEC R8 ;049F: 28 GLO R8 ;04A0: 88 BNZ R043D ;04A1: 3A 3D INC R2 ;04A3: 12 LDI 07H ;04A4: F8 07 PLO R6 ;04A6: A6 LDI 01H ;04A7: F8 01 PLO RB ;04A9: AB GLO R9 ;04AA: 89 BNZ R04B4 ;04AB: 3A B4 STR RB ;04AD: 5B STXD ;04AE: 73 STR RE ;04AF: 5E LDI 0FFH ;04B0: F8 FF STR R6 ;04B2: 56 SEP RF ;04B3: DF R04B4 LDI 2DH ;04B4: F8 2D PLO RA ;04B6: AA LDA RA ;04B7: 4A PHI R4 ;04B8: B4 LDA RA ;04B9: 4A PLO R4 ;04BA: A4 GHI R4 ;04BB: 94 STR RA ;04BC: 5A INC RA ;04BD: 1A GLO R4 ;04BE: 84 STR RA ;04BF: 5A GLO R9 ;04C0: 89 SDI 02H ;04C1: FD 02 BNZ R04CC ;04C3: 3A CC LDN RB ;04C5: 0B SHR ;04C6: F6 BNF R04CC ;04C7: 3B CC STXD ;04C9: 73 STR RE ;04CA: 5E SEP RF ;04CB: DF R04CC BDF R04D4 ;04CC: 33 D4 LDI 0FFH ;04CE: F8 FF STXD ;04D0: 73 STR RE ;04D1: 5E STR R6 ;04D2: 56 SEP RF ;04D3: DF R04D4 LDN RB ;04D4: 0B SHR ;04D5: F6 SEX R6 ;04D6: E6 GLO R7 ;04D7: 87 BNF R04E6 ;04D8: 3B E6 SM ;04DA: F7 SEX RE ;04DB: EE BZ R04E2 ;04DC: 32 E2 R04DE GLO R7 ;04DE: 87 STR R6 ;04DF: 56 LDI 01H ;04E0: F8 01 R04E2 STXD ;04E2: 73 GHI RF ;04E3: 9F STR RE ;04E4: 5E SEP RF ;04E5: DF R04E6 SEX RE ;04E6: EE LDI 01H ;04E7: F8 01 STR RB ;04E9: 5B BR R04DE ;04EA: 30 DE ; ; ====================================================================== ; DATA AREA: MAN2815 FONT TABLE ; Range: 0x04EC-0x05AB ; ---------------------------------------------------------------------- ; 2 bytes per ASCII character, base 0x04AC (M[0x8105]:M[0x8106] = 0x04AC). ; Entry for char c is at 0x04AC + 2*c; byte0 (-> OUT 1) = pattern bits 0-7, ; byte1 (-> OUT 4) = pattern bits 8-15. ; ; Representative entries: H 6E 80, E 9E 00, F 8E 00, K 0E 0A, O FC 00, ; D F0 60, B F0 E0, A EE 80, 0 FC 0C, 7 E0 00, 8 FE 80. ; Visible block starts at 0x04EC (char 0x20 = space). ; ====================================================================== DB 00H ;04EC: 00 DB 00H ;04ED: 00 DB 01H ;04EE: 01 DB 40H ;04EF: 40 DB 44H ;04F0: 44 DB 00H ;04F1: 00 DB 40H ;04F2: 40 DB 40H ;04F3: 40 DB 0B6H ;04F4: B6 DB 0E0H ;04F5: E0 DB 26H ;04F6: 26 DB 9EH ;04F7: 9E DB 4AH ;04F8: 4A DB 80H ;04F9: 80 DB 00H ;04FA: 00 DB 08H ;04FB: 08 DB 60H ;04FC: 60 DB 0AH ;04FD: 0A DB 0CH ;04FE: 0C DB 14H ;04FF: 14 DB 02H ;0500: 02 DB 0FEH ;0501: FE DB 02H ;0502: 02 DB 0E0H ;0503: E0 DB 00H ;0504: 00 DB 04H ;0505: 04 DB 02H ;0506: 02 DB 80H ;0507: 80 DB 01H ;0508: 01 DB 00H ;0509: 00 DB 00H ;050A: 00 DB 0CH ;050B: 0C DB 0FCH ;050C: FC DB 0CH ;050D: 0C DB 60H ;050E: 60 DB 00H ;050F: 00 DB 0DAH ;0510: DA DB 80H ;0511: 80 DB 0F2H ;0512: F2 DB 80H ;0513: 80 DB 66H ;0514: 66 DB 80H ;0515: 80 DB 0B6H ;0516: B6 DB 80H ;0517: 80 DB 0BEH ;0518: BE DB 80H ;0519: 80 DB 0E0H ;051A: E0 DB 00H ;051B: 00 DB 0FEH ;051C: FE DB 80H ;051D: 80 DB 0F6H ;051E: F6 DB 80H ;051F: 80 DB 01H ;0520: 01 DB 80H ;0521: 80 DB 02H ;0522: 02 DB 04H ;0523: 04 DB 00H ;0524: 00 DB 0AH ;0525: 0A DB 12H ;0526: 12 DB 80H ;0527: 80 DB 00H ;0528: 00 DB 14H ;0529: 14 DB 0C0H ;052A: C0 DB 0A0H ;052B: A0 DB 0DCH ;052C: DC DB 0C0H ;052D: C0 DB 0EEH ;052E: EE DB 80H ;052F: 80 DB 0F0H ;0530: F0 DB 0E0H ;0531: E0 DB 9CH ;0532: 9C DB 00H ;0533: 00 DB 0F0H ;0534: F0 DB 60H ;0535: 60 DB 9EH ;0536: 9E DB 00H ;0537: 00 DB 8EH ;0538: 8E DB 00H ;0539: 00 DB 0BCH ;053A: BC DB 80H ;053B: 80 DB 6EH ;053C: 6E DB 80H ;053D: 80 DB 90H ;053E: 90 DB 60H ;053F: 60 DB 78H ;0540: 78 DB 00H ;0541: 00 DB 0EH ;0542: 0E DB 0AH ;0543: 0A DB 1CH ;0544: 1C DB 00H ;0545: 00 DB 6CH ;0546: 6C DB 18H ;0547: 18 DB 6CH ;0548: 6C DB 12H ;0549: 12 DB 0FCH ;054A: FC DB 00H ;054B: 00 DB 0CEH ;054C: CE DB 80H ;054D: 80 DB 0FCH ;054E: FC DB 02H ;054F: 02 DB 0CEH ;0550: CE DB 82H ;0551: 82 DB 0B6H ;0552: B6 DB 80H ;0553: 80 DB 80H ;0554: 80 DB 60H ;0555: 60 DB 7CH ;0556: 7C DB 00H ;0557: 00 DB 0CH ;0558: 0C DB 0CH ;0559: 0C DB 6CH ;055A: 6C DB 06H ;055B: 06 DB 00H ;055C: 00 DB 1EH ;055D: 1E DB 00H ;055E: 00 DB 38H ;055F: 38 DB 90H ;0560: 90 DB 0CH ;0561: 0C DB 9CH ;0562: 9C DB 00H ;0563: 00 DB 00H ;0564: 00 DB 12H ;0565: 12 DB 0F0H ;0566: F0 DB 00H ;0567: 00 DB 40H ;0568: 40 DB 88H ;0569: 88 DB 10H ;056A: 10 DB 00H ;056B: 00 DB 62H ;056C: 62 DB 80H ;056D: 80 DB 0EEH ;056E: EE DB 80H ;056F: 80 DB 3EH ;0570: 3E DB 80H ;0571: 80 DB 1AH ;0572: 1A DB 80H ;0573: 80 DB 7AH ;0574: 7A DB 80H ;0575: 80 DB 9EH ;0576: 9E DB 00H ;0577: 00 DB 8EH ;0578: 8E DB 00H ;0579: 00 DB 0BCH ;057A: BC DB 80H ;057B: 80 DB 2EH ;057C: 2E DB 80H ;057D: 80 DB 20H ;057E: 20 DB 00H ;057F: 00 DB 78H ;0580: 78 DB 00H ;0581: 00 DB 0EH ;0582: 0E DB 0AH ;0583: 0A DB 60H ;0584: 60 DB 00H ;0585: 00 DB 2AH ;0586: 2A DB 0A0H ;0587: A0 DB 2AH ;0588: 2A DB 80H ;0589: 80 DB 3AH ;058A: 3A DB 80H ;058B: 80 DB 0CEH ;058C: CE DB 80H ;058D: 80 DB 0FDH ;058E: FD DB 02H ;058F: 02 DB 0AH ;0590: 0A DB 80H ;0591: 80 DB 0B6H ;0592: B6 DB 80H ;0593: 80 DB 1EH ;0594: 1E DB 00H ;0595: 00 DB 38H ;0596: 38 DB 00H ;0597: 00 DB 08H ;0598: 08 DB 04H ;0599: 04 DB 38H ;059A: 38 DB 20H ;059B: 20 DB 00H ;059C: 00 DB 1EH ;059D: 1E DB 76H ;059E: 76 DB 80H ;059F: 80 DB 0DAH ;05A0: DA DB 80H ;05A1: 80 DB 0C6H ;05A2: C6 DB 80H ;05A3: 80 DB 10H ;05A4: 10 DB 06H ;05A5: 06 DB 80H ;05A6: 80 DB 18H ;05A7: 18 DB 20H ;05A8: 20 DB 82H ;05A9: 82 DB 80H ;05AA: 80 DB 00H ;05AB: 00 S05AC ; ; ====================================================================== ; PSEUDO INSTRUCTION: SEND ; ---------------------------------------------------------------------- ; Opcode: 0xEF ; Handler: 0x05AC ; Token: 0A00+0xEF ; Definition: Send status/display message to external device (serial / terminal) ; ; Implementation: ; Reads mode switches INP 2; if (switches & 3)==0 or M(0x8002)==0, ; skips. Otherwise outputs the 810B buffer byte-by-byte on port 7, ; clears M(0x8002), then falls into the J0408 display refresh. ; ====================================================================== PLO RB ;05AC: AB SEX RE ;05AD: EE DEC RE ;05AE: 2E INP 2 ;05AF: 6A ANI 03H ;05B0: FA 03 BZ R05E4 ;05B2: 32 E4 INC RB ;05B4: 1B PLO RA ;05B5: AA LDI 80H ;05B6: F8 80 PHI R4 ;05B8: B4 LDI 02H ;05B9: F8 02 PLO R4 ;05BB: A4 LDN R4 ;05BC: 04 BZ R05E4 ;05BD: 32 E4 R05BF INP 6 ;05BF: 6E SHL ;05C0: FE BDF R05BF ;05C1: 33 BF SEX R3 ;05C3: E3 OUT 6 ;05C4: 66 DB 01H ;05C5: 01 GLO RA ;05C6: 8A SHR ;05C7: F6 BDF R05D2 ;05C8: 33 D2 DEC R4 ;05CA: 24 LDN R4 ;05CB: 04 INC R4 ;05CC: 14 BZ R05D2 ;05CD: 32 D2 LDI 20H ;05CF: F8 20 LSKP ;05D1: C8 R05D2 LDI 10H ;05D2: F8 10 PLO RA ;05D4: AA LDI 0BH ;05D5: F8 0B PLO R6 ;05D7: A6 R05D8 SEX RE ;05D8: EE INP 6 ;05D9: 6E SHL ;05DA: FE BDF R05D8 ;05DB: 33 D8 SEX R6 ;05DD: E6 OUT 7 ;05DE: 67 DEC RA ;05DF: 2A GLO RA ;05E0: 8A BNZ R05D8 ;05E1: 3A D8 STR R4 ;05E3: 54 R05E4 GLO RB ;05E4: 8B DEC R2 ;05E5: 22 DEC R2 ;05E6: 22 STR R2 ;05E7: 52 INC R2 ;05E8: 12 INC R2 ;05E9: 12 LBR J0408 ;05EA: C0 04 08 S05ED DB 0A1H ;05ED: PUSHR 0 DB 0EFH ;05EE: SEND DB 0A7H ;05EF: DROP DB 94H, 0FDH ;05F0: LOOP 05EE DB 8CH ;05F2: RET S05F3 DB 0E8H ;05F3: OUT 2, 40 DB 0F0H ;05F4: CALL 05ED DB 0E9H ;05F5: OUTM 2, 40 DB 8CH ;05F6: RET S05F7 DB 90H, 07H ;05F7: PUSH 07 DB 0A1H ;05F9: PUSHR 0 DB 90H, 0C8H ;05FA: PUSH C8 DB 0A1H ;05FC: PUSHR 0 DB 94H, 0FFH ;05FD: LOOP 05FD DB 99H ;05FF: PUSH 0010 DB 0F1H ;0600: CALL 05F3 DB 94H, 0F8H ;0601: LOOP 05FA DB 8CH ;0603: RET DB 00H ;0604: 00 S0605 DB 90H, 06H ;0605: PUSH 06 DB 81H ;0607: SYS 0040 DB 07H ;0608: HASH TOS DB 0DCH ;0609: LDMSG TOS DB 0F2H ;060A: CALL 05F7 DB 0E6H ;060B: SCAN DB 8CH ;060C: RET S060D DB 0BFH ;060D: PUSH 8102 DB 0ACH ;060E: LD TOS.0, [TOS] DB 90H, 0FFH ;060F: PUSH FF DB 0B9H ;0611: ISEQ TOS, NOS DB 9EH, 02H ;0612: JZ 0615 DB 0F3H ;0614: CALL 0605 DB 8CH ;0615: RET DB 00H ;0616: 00 S0617 DB 0F0H ;0617: CALL 05ED DB 0F4H ;0618: CALL 060D DB 8CH ;0619: RET DB 00H ;061A: 00 S061B DB 0F1H ;061B: CALL 05F3 DB 0F4H ;061C: CALL 060D DB 8CH ;061D: RET DB 00H ;061E: 00 S061F DB 0A1H ;061F: PUSHR 0 DB 0EFH ;0620: SEND DB 97H ;0621: PUSH 0001 DB 0B9H ;0622: ISEQ TOS, NOS DB 9EH, 03H ;0623: JZ 0627 DB 97H ;0625: PUSH 0001 DB 8DH ;0626: RET DROP, 4 DB 94H, 0F8H ;0627: LOOP 0620 DB 96H ;0629: PUSH 0000 DB 8CH ;062A: RET S062B DB 0F7H ;062B: CALL 061F DB 0F4H ;062C: CALL 060D DB 8CH ;062D: RET DB 00H ;062E: 00 S062F DB 0C3H ;062F: PUSH 8108 DB 0AEH ;0630: LD [TOS], NOS.0 DB 0A1H ;0631: PUSHR 0 DB 0EFH ;0632: SEND DB 97H ;0633: PUSH 0001 DB 0B9H ;0634: ISEQ TOS, NOS DB 0D2H ;0635: PUSH [8107] DB 0C3H ;0636: PUSH 8108 DB 0ACH ;0637: LD TOS.0, [TOS] DB 0B9H ;0638: ISEQ TOS, NOS DB 0B0H ;0639: AND TOS, NOS DB 9EH, 03H ;063A: JZ 063E DB 97H ;063C: PUSH 0001 DB 8DH ;063D: RET DROP, 4 DB 94H, 0F3H ;063E: LOOP 0632 DB 96H ;0640: PUSH 0000 DB 8CH ;0641: RET DB 00H ;0642: 00 S0643 DB 0F9H ;0643: CALL 062F DB 0F4H ;0644: CALL 060D DB 8CH ;0645: RET S0646 ; ; ====================================================================== ; PSEUDO INSTRUCTION: INCB ; ---------------------------------------------------------------------- ; Opcode: 0xFB ; Handler: 0x0646 ; Token: 0A00+0xFB ; Definition: Byte memory increment: M[TOS] += 1 ; ; Implementation: ; ADI 00 forces DF=0 so LSDF falls through to ADI 02; ADI FF = +1. ; ====================================================================== ADI 00H ;0646: FC 00 S0648 ; ; ====================================================================== ; PSEUDO INSTRUCTION: DECB ; ---------------------------------------------------------------------- ; Opcode: 0xFC ; Handler: 0x0648 ; Token: 0A00+0xFC ; Definition: Byte memory decrement: M[TOS] -= 1 ; ; Implementation: ; Enters with DF=1 left over from dispatch SHL, so LSDF skips ADI 02 and ; only ADI FF runs (-1). ; ====================================================================== LDA RE ;0648: 4E PHI RB ;0649: BB LDA RE ;064A: 4E PLO RB ;064B: AB LDN RB ;064C: 0B LSDF ;064D: CF ADI 02H ;064E: FC 02 ADI 0FFH ;0650: FC FF STR RB ;0652: 5B SEP RF ;0653: DF S0654 ; ; ====================================================================== ; PSEUDO INSTRUCTION: ADD [TOS], NOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0xFD ; Handler: 0x0654 ; Token: 0A00+0xFD ; Definition: Byte memory add: M[TOS] += NOS.0 (low byte of NOS) ; ; Implementation: ; SEX RE; LDN RB; ADD; STR RB. ; ====================================================================== LDA RE ;0654: 4E PHI RB ;0655: BB LDA RE ;0656: 4E PLO RB ;0657: AB INC RE ;0658: 1E SEX RE ;0659: EE LDN RB ;065A: 0B ADD ;065B: F4 STR RB ;065C: 5B INC RE ;065D: 1E SEP RF ;065E: DF S065F DB 0C3H ;065F: PUSH 8108 DB 0AEH ;0660: LD [TOS], NOS.0 DB 0A1H ;0661: PUSHR 0 DB 0EFH ;0662: SEND DB 0A7H ;0663: DROP DB 0D2H ;0664: PUSH [8107] DB 0C3H ;0665: PUSH 8108 DB 0ACH ;0666: LD TOS.0, [TOS] DB 0B9H ;0667: ISEQ TOS, NOS DB 0B5H ;0668: ISZ TOS DB 9EH, 03H ;0669: JZ 066D DB 97H ;066B: PUSH 0001 DB 8DH ;066C: RET DROP, 4 DB 94H, 0F4H ;066D: LOOP 0662 DB 96H ;066F: PUSH 0000 DB 8CH ;0670: RET S0671 DB 0FEH ;0671: CALL 065F DB 0F4H ;0672: CALL 060D DB 8CH ;0673: RET DB 00H ;0674: 00 S0675 ; ; ====================================================================== ; PSEUDO INSTRUCTION: MAX NOS, TOS ; ---------------------------------------------------------------------- ; Opcode: 0x00 ; Handler: 0x0675 ; Token: 0B00+0x00 ; Definition: Maximum of two values: pop NOS and TOS, push the larger ; ; Implementation: ; Wraps OVER OVER ISLT JZ SWAP DROP — the Forth MAX idiom. ; ====================================================================== DB 0AAH ;0675: OVER DB 0AAH ;0676: OVER DB 0B8H ;0677: ISLT NOS, TOS DB 9EH, 02H ;0678: JZ 067B DB 0A9H ;067A: SWAP DB 0A7H ;067B: DROP DB 8CH ;067C: RET S067D ; ; ====================================================================== ; PSEUDO INSTRUCTION: ABS TOS ; ---------------------------------------------------------------------- ; Opcode: 0x02 ; Handler: 0x067D ; Token: 0B00+0x02 ; Definition: Absolute value of TOS: replace TOS with its magnitude ; ; Implementation: ; Wraps DUP ISNEG JZ skip NEGATE. ; ====================================================================== DB 0A8H ;067D: DUP DB 0B6H ;067E: ISNEG TOS DB 9EH, 02H ;067F: JZ 0682 DB 0B4H ;0681: SUB TOS, 0 DB 8CH ;0682: RET S0683 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PULSE 2, const=08 ; ---------------------------------------------------------------------- ; Opcode: 0x03 ; Handler: 0x0683 ; Token: 0B00+0x03 ; Definition: Pulse port-2 bit 3 (0x08): set it then immediately clear it ; ; Implementation: ; Wraps PUSH 08; OUT 2 TOS.0; PUSH 08; OUTM 2 TOS.0. ; ====================================================================== DB 90H, 08H ;0683: PUSH 08 DB 0E1H ;0685: OUT 2, TOS.0 DB 90H, 08H ;0686: PUSH 08 DB 0E2H ;0688: OUTM 2, TOS.0 DB 8CH ;0689: RET S068A ; ; ====================================================================== ; PSEUDO INSTRUCTION: SEQ ; ---------------------------------------------------------------------- ; Opcode: 0x04 ; Handler: 0x068A ; Token: 0B00+0x04 ; Definition: Set Q output (=1) — FSK/sound/tape bit ; ; Implementation: ; Q output on. ; ====================================================================== SEQ ;068A: 7B SEP RF ;068B: DF S068C ; ; ====================================================================== ; PSEUDO INSTRUCTION: REQ ; ---------------------------------------------------------------------- ; Opcode: 0x05 ; Handler: 0x068C ; Token: 0B00+0x05 ; Definition: Reset Q output (=0) ; ; Implementation: ; Q output off. ; ====================================================================== REQ ;068C: 7A SEP RF ;068D: DF DB 00H ;068E: 00 S068F ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0693 ; ---------------------------------------------------------------------- ; Opcode: 0x06 ; Handler: 0x068F ; Token: 0B00+0x06 ; Definition: Push the 16-bit constant 0x0693 (message table base for 'ERR') ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x068F. ; ====================================================================== DB 8FH, 06H, 93H ;068F: 3 PUSH 0693 DB 8CH ;0692: RET ; ; ====================================================================== ; DATA AREA: MESSAGE TEXT STRINGS ; Range: 0x0693-0x06FC ; ---------------------------------------------------------------------- ; Length-prefixed ASCII strings shown by the LDMSG (DC) / message-loading ; routines. Each entry: length byte followed by that many ASCII chars. ; ; 0x0693 'ERR' 0x0697 'DONE' 0x069C 'END' 0x06A0 'R RDY' ; 0x06A6 'T RDY' 0x06AC 'C RDY' 0x06B2 'REPLACE CELLS' ; 0x06C0 'LOW BATTERY' 0x06CC 'DOUBLE KEY ERROR' ; 0x06DD 'ENTER HEADER' 0x06EA 'BAUD' 0x06EF 'DELAY' ; 0x06F5 'LOADING' 0x06FD terminator (00). ; ; The boot 'ERR 2' report text is built from 'ERR' + value digits, not a ; single stored string. ; ====================================================================== DB 03H ;0693: 03 DB 'ERR' ;0694: 45 ;0695: 52 ;0696: 52 DB 04H ;0697: 04 DB 'DONE' ;0698: 44 ;0699: 4F ;069A: 4E ;069B: 45 DB 03H ;069C: 03 DB 'END' ;069D: 45 ;069E: 4E ;069F: 44 DB 05H ;06A0: 05 DB 'R RDY' ;06A1: 52 ;06A2: 20 ;06A3: 52 ;06A4: 44 ;06A5: 59 DB 05H ;06A6: 05 DB 'T RDY' ;06A7: 54 ;06A8: 20 ;06A9: 52 ;06AA: 44 ;06AB: 59 DB 05H ;06AC: 05 DB 'C RDY' ;06AD: 43 ;06AE: 20 ;06AF: 52 ;06B0: 44 ;06B1: 59 DB 0DH ;06B2: 0D DB 'REPLACE CELLS' ;06B3: 52 ;06B4: 45 ;06B5: 50 ;06B6: 4C ;06B7: 41 ;06B8: 43 ;06B9: 45 ;06BA: 20 ;06BB: 43 ;06BC: 45 ;06BD: 4C ;06BE: 4C ;06BF: 53 DB 0BH ;06C0: 0B DB 'LOW BATTERY' ;06C1: 4C ;06C2: 4F ;06C3: 57 ;06C4: 20 ;06C5: 42 ;06C6: 41 ;06C7: 54 ;06C8: 54 ;06C9: 45 ;06CA: 52 ;06CB: 59 DB 10H ;06CC: 10 DB 'DOUBLE KEY' ;06CD: 44 ;06CE: 4F ;06CF: 55 ;06D0: 42 ;06D1: 4C ;06D2: 45 ;06D3: 20 ;06D4: 4B ;06D5: 45 ;06D6: 59 DB 20H ;06D7: 20 DB 'ERROR' ;06D8: 45 ;06D9: 52 ;06DA: 52 ;06DB: 4F ;06DC: 52 DB 0CH ;06DD: 0C DB 'ENTER HEADER' ;06DE: 45 ;06DF: 4E ;06E0: 54 ;06E1: 45 ;06E2: 52 ;06E3: 20 ;06E4: 48 ;06E5: 45 ;06E6: 41 ;06E7: 44 ;06E8: 45 ;06E9: 52 DB 04H ;06EA: 04 DB 'BAUD' ;06EB: 42 ;06EC: 41 ;06ED: 55 ;06EE: 44 DB 05H ;06EF: 05 DB 'DELAY' ;06F0: 44 ;06F1: 45 ;06F2: 4C ;06F3: 41 ;06F4: 59 DB 07H ;06F5: 07 DB 'LOADING' ;06F6: 4C ;06F7: 4F ;06F8: 41 ;06F9: 44 ;06FA: 49 ;06FB: 4E ;06FC: 47 DB 00H ;06FD: 00 S06FE ; ; ====================================================================== ; PSEUDO INSTRUCTION: HASH TOS ; ---------------------------------------------------------------------- ; Opcode: 0x07 ; Handler: 0x06FE ; Token: 0B00+0x07 ; Definition: Composite memory-range walk (checksum/hash): pop counter, seed address from 0x81D1/0x81D3 table, accumulate ; ; Implementation: ; Provisional — needs more traces. Likely a checksum/address-generator. ; ====================================================================== LDA RE ;06FE: 4E PHI R4 ;06FF: B4 LDA RE ;0700: 4E PLO R4 ;0701: A4 GHI R4 ;0702: 94 BNZ R0709 ;0703: 3A 09 LDI 0D1H ;0705: F8 D1 BR R070E ;0707: 30 0E R0709 SMI 01H ;0709: FF 01 PHI R4 ;070B: B4 LDI 0D3H ;070C: F8 D3 R070E PLO R6 ;070E: A6 SEX R5 ;070F: E5 LDA R6 ;0710: 46 PHI R5 ;0711: B5 LDA R6 ;0712: 46 PLO R5 ;0713: A5 R0714 GLO R4 ;0714: 84 BNZ R0721 ;0715: 3A 21 GHI R4 ;0717: 94 BNZ R0721 ;0718: 3A 21 DEC RE ;071A: 2E GLO R5 ;071B: 85 STR RE ;071C: 5E DEC RE ;071D: 2E GHI R5 ;071E: 95 STR RE ;071F: 5E SEP RF ;0720: DF R0721 GLO R7 ;0721: 87 ADD ;0722: F4 PLO R5 ;0723: A5 GHI R5 ;0724: 95 ADCI 00H ;0725: 7C 00 PHI R5 ;0727: B5 INC R5 ;0728: 15 DEC R4 ;0729: 24 BR R0714 ;072A: 30 14 S072C LDI 08H ;072C: F8 08 PHI R9 ;072E: B9 LDI 76H ;072F: F8 76 PLO R9 ;0731: A9 LDA RE ;0732: 4E PHI RB ;0733: BB LDA RE ;0734: 4E PLO RB ;0735: AB LDA RE ;0736: 4E PHI RA ;0737: BA LDA RE ;0738: 4E PLO RA ;0739: AA BR R073F ;073A: 30 3F R073C LDA RA ;073C: 4A SEP R9 ;073D: D9 DEC RB ;073E: 2B R073F GLO RB ;073F: 8B BNZ R073C ;0740: 3A 3C GHI RB ;0742: 9B BNZ R073C ;0743: 3A 3C SEP RF ;0745: DF DB 00H ;0746: 00 S0747 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81FB ; ---------------------------------------------------------------------- ; Opcode: 0x09 ; Handler: 0x0747 ; Token: 0B00+0x09 ; Definition: Push the 16-bit constant 0x81FB ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x0747. ; ====================================================================== DB 8FH, 81H, 0FBH ;0747: B PUSH 81FB DB 8CH ;074A: RET S074B ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81D7 ; ---------------------------------------------------------------------- ; Opcode: 0x0A ; Handler: 0x074B ; Token: 0B00+0x0A ; Definition: Push the 16-bit constant 0x81D7 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x074B. ; ====================================================================== DB 8FH, 81H, 0D7H ;074B: 7 PUSH 81D7 DB 8CH ;074E: RET S074F ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81D9 ; ---------------------------------------------------------------------- ; Opcode: 0x0B ; Handler: 0x074F ; Token: 0B00+0x0B ; Definition: Push the 16-bit constant 0x81D9 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x074F. ; ====================================================================== DB 8FH, 81H, 0D9H ;074F: 9 PUSH 81D9 DB 8CH ;0752: RET S0753 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LDVAL TOS ; ---------------------------------------------------------------------- ; Opcode: 0x0C ; Handler: 0x0753 ; Token: 0B00+0x0C ; Definition: Clear display, load the standard message into the text buffer, write the low byte of the popped value at buffer offset 4 (0x810F) ; ; Implementation: ; Wraps PUSH 0000; HASH; LDMSG; PUSH 810B; PUSH 04; ADD; LD [TOS],NOS.0. ; ====================================================================== DB 96H ;0753: PUSH 0000 DB 07H ;0754: HASH TOS DB 0DCH ;0755: LDMSG TOS DB 0C6H ;0756: PUSH 810B DB 90H, 04H ;0757: PUSH 04 DB 0B3H ;0759: ADD TOS, NOS DB 0AEH ;075A: LD [TOS], NOS.0 DB 8CH ;075B: RET S075C ; ; ====================================================================== ; PSEUDO INSTRUCTION: TIN ; ---------------------------------------------------------------------- ; Opcode: 0x0D ; Handler: 0x075C ; Token: 0B00+0x0D ; Definition: Serial byte receive into memory — tape or terminal input (PROVISIONAL) ; ; Implementation: ; Pops count and address; assembles one byte MSB-first by sampling EF2 8 ; times, one sample per Q-clock pulse. ; ====================================================================== LDA RE ;075C: 4E PHI RB ;075D: BB LDA RE ;075E: 4E PLO RB ;075F: AB LDA RE ;0760: 4E PHI RA ;0761: BA LDN RE ;0762: 0E PLO RA ;0763: AA R0764 LDI 40H ;0764: F8 40 SHL ;0766: FE R0767 PLO R9 ;0767: A9 B3 R0773 ;0768: 36 73 SEX R3 ;076A: E3 OUT 2 ;076B: 62 DB 28H ;076C: 28 SEX RE ;076D: EE R076E INP 1 ;076E: 69 ANI 80H ;076F: FA 80 BZ R076E ;0771: 32 6E R0773 GLO R9 ;0773: 89 BN2 R0778 ;0774: 3D 78 SMI 00H ;0776: FF 00 R0778 REQ ;0778: 7A SEQ ;0779: 7B SHRC ;077A: 76 BNF R0767 ;077B: 3B 67 STR RA ;077D: 5A SEX RA ;077E: EA XOR ;077F: F3 BZ R0791 ;0780: 32 91 LDI 43H ;0782: F8 43 PLO R6 ;0784: A6 GHI RA ;0785: 9A STR R6 ;0786: 56 INC R6 ;0787: 16 GLO RA ;0788: 8A STR R6 ;0789: 56 LDI 01H ;078A: F8 01 R078C STR RE ;078C: 5E GHI RF ;078D: 9F DEC RE ;078E: 2E STR RE ;078F: 5E SEP RF ;0790: DF R0791 INC RA ;0791: 1A DEC RB ;0792: 2B GLO RB ;0793: 8B BNZ R0764 ;0794: 3A 64 GHI RB ;0796: 9B BNZ R0764 ;0797: 3A 64 BR R078C ;0799: 30 8C S079B ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8131 ; ---------------------------------------------------------------------- ; Opcode: 0x0E ; Handler: 0x079B ; Token: 0B00+0x0E ; Definition: Push the 16-bit constant 0x8131 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x079B. ; ====================================================================== DB 8FH, 81H, 31H ;079B: 1 PUSH 8131 DB 8CH ;079E: RET S079F ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8133 ; ---------------------------------------------------------------------- ; Opcode: 0x0F ; Handler: 0x079F ; Token: 0B00+0x0F ; Definition: Push the 16-bit constant 0x8133 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x079F. ; ====================================================================== DB 8FH, 81H, 33H ;079F: 3 PUSH 8133 DB 8CH ;07A2: RET S07A3 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8135 ; ---------------------------------------------------------------------- ; Opcode: 0x10 ; Handler: 0x07A3 ; Token: 0B00+0x10 ; Definition: Push the 16-bit constant 0x8135 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x07A3. ; ====================================================================== DB 8FH, 81H, 35H ;07A3: 5 PUSH 8135 DB 8CH ;07A6: RET S07A7 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8140 ; ---------------------------------------------------------------------- ; Opcode: 0x11 ; Handler: 0x07A7 ; Token: 0B00+0x11 ; Definition: Push the 16-bit constant 0x8140 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x07A7. ; ====================================================================== DB 8FH, 81H, 40H ;07A7: 0 PUSH 8140 DB 8CH ;07AA: RET S07AB ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8142 ; ---------------------------------------------------------------------- ; Opcode: 0x12 ; Handler: 0x07AB ; Token: 0B00+0x12 ; Definition: Push the 16-bit constant 0x8142 (program-loaded marker companion) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x07AB. ; ====================================================================== DB 8FH, 81H, 42H ;07AB: 2 PUSH 8142 DB 8CH ;07AE: RET S07AF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8143 ; ---------------------------------------------------------------------- ; Opcode: 0x13 ; Handler: 0x07AF ; Token: 0B00+0x13 ; Definition: Push the 16-bit constant 0x8143 (load failure address save) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x07AF. ; ====================================================================== DB 8FH, 81H, 43H ;07AF: 3 PUSH 8143 DB 8CH ;07B2: RET DB 00H ;07B3: 00 S07B4 ; ; ====================================================================== ; PSEUDO INSTRUCTION: SUB [TOS], NOS ; ---------------------------------------------------------------------- ; Opcode: 0x14 ; Handler: 0x07B4 ; Token: 0B00+0x14 ; Definition: 16-bit memory subtract: M[TOS] -= NOS ; ; Implementation: ; Pops address and subtrahend; subtracts with borrow. ; ====================================================================== SEX RA ;07B4: EA LDA RE ;07B5: 4E PHI RA ;07B6: BA LDA RE ;07B7: 4E PLO RA ;07B8: AA INC RA ;07B9: 1A LDA RE ;07BA: 4E PLO RB ;07BB: AB LDA RE ;07BC: 4E SD ;07BD: F5 STXD ;07BE: 73 GLO RB ;07BF: 8B SDB ;07C0: 75 STR RA ;07C1: 5A SEP RF ;07C2: DF DB 00H ;07C3: 00 S07C4 ; ; ====================================================================== ; PSEUDO INSTRUCTION: SUB [TOS], NOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0x15 ; Handler: 0x07C4 ; Token: 0B00+0x15 ; Definition: Byte memory subtract: M[TOS] -= NOS.0 ; ; Implementation: ; Pops address, skips NOS high byte, subtracts NOS.low. ; ====================================================================== SEX RE ;07C4: EE LDA RE ;07C5: 4E PHI RA ;07C6: BA LDA RE ;07C7: 4E PLO RA ;07C8: AA LDN RA ;07C9: 0A INC RE ;07CA: 1E SM ;07CB: F7 STR RA ;07CC: 5A INC RE ;07CD: 1E SEP RF ;07CE: DF S07CF DB 0F2H ;07CF: CALL 05F7 DB 0F2H ;07D0: CALL 05F7 DB 0F2H ;07D1: CALL 05F7 DB 0F2H ;07D2: CALL 05F7 DB 01H ;07D3: IDLE DB 8CH ;07D4: RET S07D5 DB 97H ;07D5: PUSH 0001 DB 07H ;07D6: HASH TOS DB 0DCH ;07D7: LDMSG TOS DB 16H ;07D8: CALL 07CF DB 8CH ;07D9: RET DB 00H ;07DA: 00 S07DB DB 0CH ;07DB: LDVAL TOS DB 90H, 04H ;07DC: PUSH 04 DB 0A1H ;07DE: PUSHR 0 DB 99H ;07DF: PUSH 0010 DB 0D7H ;07E0: DIVR NOS, TOS.0 DB 0A9H ;07E1: SWAP DB 90H, 30H ;07E2: PUSH 30 DB 0B3H ;07E4: ADD TOS, NOS DB 0A8H ;07E5: DUP DB 90H, 39H ;07E6: PUSH 39 DB 0B7H ;07E8: ISGT NOS, TOS DB 9EH, 04H ;07E9: JZ 07EE DB 90H, 07H ;07EB: PUSH 07 DB 0B3H ;07ED: ADD TOS, NOS DB 0C6H ;07EE: PUSH 810B DB 90H, 0CH ;07EF: PUSH 0C DB 0B3H ;07F1: ADD TOS, NOS DB 0A4H ;07F2: PUSH R DB 0B2H ;07F3: SUB TOS, NOS DB 0AEH ;07F4: LD [TOS], NOS.0 DB 94H, 0E9H ;07F5: LOOP 07DF DB 0A7H ;07F7: DROP DB 16H ;07F8: CALL 07CF DB 8CH ;07F9: RET DB 00H ;07FA: 00 S07FB DB 0DH ;07FB: TIN TOS DB 9EH, 06H ;07FC: JZ 0803 DB 13H ;07FE: PUSH 8143 DB 0ABH ;07FF: LD TOS, [TOS] DB 90H, 34H ;0800: PUSH 34 DB 18H ;0802: CALL 07DB DB 8CH ;0803: RET DB 00H ;0804: 00 S0805 DB 0EAH ;0805: OUT 2, 20 DB 0CEH ;0806: PUSH [810A] DB 9EH, 13H ;0807: JZ 081B DB 0CEH ;0809: PUSH [810A] DB 0A1H ;080A: PUSHR 0 DB 0C6H ;080B: PUSH 810B DB 9AH ;080C: PUSH 0020 DB 19H ;080D: CALL 07FB DB 0C6H ;080E: PUSH 810B DB 90H, 12H ;080F: PUSH 12 DB 0B3H ;0811: ADD TOS, NOS DB 0ABH ;0812: LD TOS, [TOS] DB 0A1H ;0813: PUSHR 0 DB 0C6H ;0814: PUSH 810B DB 99H ;0815: PUSH 0010 DB 19H ;0816: CALL 07FB DB 94H, 0FCH ;0817: LOOP 0814 DB 94H, 0F1H ;0819: LOOP 080B DB 0C6H ;081B: PUSH 810B DB 9AH ;081C: PUSH 0020 DB 19H ;081D: CALL 07FB DB 8CH ;081E: RET DB 00H ;081F: 00 S0820 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH EF3 ; ---------------------------------------------------------------------- ; Opcode: 0x23 ; Handler: 0x0820 ; Token: 0B00+0x23 ; Definition: Push 16-bit flag 0x0001 if EF3=1, else 0x0000 ; ; Implementation: ; BN3 -> LDI 01 push / BR -> GHI RF push 0. ; ====================================================================== BN3 R0824 ;0820: 3E 24 R0822 GHI RF ;0822: 9F LSKP ;0823: C8 R0824 LDI 01H ;0824: F8 01 DEC RE ;0826: 2E STR RE ;0827: 5E DEC RE ;0828: 2E GHI RF ;0829: 9F STR RE ;082A: 5E SEP RF ;082B: DF S082C ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH EF1 ; ---------------------------------------------------------------------- ; Opcode: 0x24 ; Handler: 0x082C ; Token: 0B00+0x24 ; Definition: Push 16-bit flag 0x0001 if EF1=1, else 0x0000 ; ; Implementation: ; BN1 -> push 1 / BR -> push 0. ; ====================================================================== BN1 R0824 ;082C: 3C 24 BR R0822 ;082E: 30 22 S0830 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH EF2 ; ---------------------------------------------------------------------- ; Opcode: 0x25 ; Handler: 0x0830 ; Token: 0B00+0x25 ; Definition: Push 16-bit flag 0x0001 if EF2=1, else 0x0000 ; ; Implementation: ; B2 -> push 0 / BR -> push 1. ; ====================================================================== B2 R0822 ;0830: 35 22 BR R0824 ;0832: 30 24 DB 00H ;0834: 00 S0835 DB 0E8H ;0835: OUT 2, 40 DB 03H ;0836: PULSE 2, 08 DB 04H ;0837: SEQ DB 0A1H ;0838: PUSHR 0 DB 94H, 0FFH ;0839: LOOP 0839 DB 0E9H ;083B: OUTM 2, 40 DB 8CH ;083C: RET S083D DB 0EBH ;083D: OUTM 2, 20 DB 03H ;083E: PULSE 2, 08 DB 8CH ;083F: RET DB 00H ;0840: 00 S0841 DB 04H ;0841: SEQ DB 09H ;0842: PUSH 81FB DB 0ABH ;0843: LD TOS, [TOS] DB 26H ;0844: CALL 0835 DB 8FH, 80H, 0ACH ;0845: C PUSH 80AC DB 0ABH ;0848: LD TOS, [TOS] DB 90H, 06H ;0849: PUSH 06 DB 3BH ;084B: TOUT TOS DB 8CH ;084C: RET S084D DB 05H ;084D: REQ DB 90H, 32H ;084E: PUSH 32 DB 26H ;0850: CALL 0835 DB 8CH ;0851: RET DB 00H ;0852: 00 S0853 DB 8FH, 80H, 27H ;0853: 7 PUSH 8027 DB 0ACH ;0856: LD TOS.0, [TOS] DB 97H ;0857: PUSH 0001 DB 0B0H ;0858: AND TOS, NOS DB 9EH, 06H ;0859: JZ 0860 DB 8FH, 10H, 61H ;085B: 1 PUSH 1061 DB 9FH, 04H ;085E: JP 0863 DB 8FH, 10H, 70H ;0860: 0 PUSH 1070 DB 8FH, 80H, 0ACH ;0863: C PUSH 80AC DB 0ABH ;0866: LD TOS, [TOS] DB 0C9H ;0867: ADD TOS, 2 DB 0ADH ;0868: LD [TOS], NOS DB 8CH ;0869: RET DB 00H ;086A: 00 DB 00H ;086B: 00 DB 00H ;086C: 00 DB 00H ;086D: 00 DB 00H ;086E: 00 DB 00H ;086F: 00 DB 00H ;0870: 00 DB 00H ;0871: 00 DB 00H ;0872: 00 DB 00H ;0873: 00 DB 00H ;0874: 00 DB 00H ;0875: 00 SKP ;0876: 38 R0877 SEP R3 ;0877: D3 PLO R8 ;0878: A8 DEC RE ;0879: 2E LDI 40H ;087A: F8 40 PLO R6 ;087C: A6 GLO R8 ;087D: 88 SEX R6 ;087E: E6 XOR ;087F: F3 STR RE ;0880: 5E SEX RE ;0881: EE SHL ;0882: FE XOR ;0883: F3 SHL ;0884: FE XOR ;0885: F3 SHL ;0886: FE XOR ;0887: F3 SHL ;0888: FE XOR ;0889: F3 SHL ;088A: FE XOR ;088B: F3 SHL ;088C: FE XOR ;088D: F3 SHL ;088E: FE XOR ;088F: F3 PLO R8 ;0890: A8 SHR ;0891: F6 SHRC ;0892: 76 SHRC ;0893: 76 STR RE ;0894: 5E ANI 0C0H ;0895: FA C0 SEX R6 ;0897: E6 INC R6 ;0898: 16 XOR ;0899: F3 PLO R7 ;089A: A7 LDN RE ;089B: 0E SHLC ;089C: 7E ANI 3FH ;089D: FA 3F SEX RE ;089F: EE STR RE ;08A0: 5E GLO R8 ;08A1: 88 XOR ;08A2: F3 STR R6 ;08A3: 56 GLO R8 ;08A4: 88 SHL ;08A5: FE GLO R7 ;08A6: 87 LSNF ;08A7: C7 XRI 01H ;08A8: FB 01 DEC R6 ;08AA: 26 STR R6 ;08AB: 56 INC RE ;08AC: 1E BR R0877 ;08AD: 30 77 DB 00H ;08AF: 00 DB 00H ;08B0: 00 DB 00H ;08B1: 00 DB 00H ;08B2: 00 DB 00H ;08B3: 00 DB 00H ;08B4: 00 DB 00H ;08B5: 00 DB 00H ;08B6: 00 DB 00H ;08B7: 00 DB 00H ;08B8: 00 DB 00H ;08B9: 00 DB 00H ;08BA: 00 DB 00H ;08BB: 00 S08BC SEX R1 ;08BC: E1 OUT 1 ;08BD: 61 DB 00H ;08BE: 00 OUT 2 ;08BF: 62 DB 00H ;08C0: 00 OUT 4 ;08C1: 64 DB 00H ;08C2: 00 LDI 11H ;08C3: F8 11 PLO RF ;08C5: AF SEX RE ;08C6: EE DEC RE ;08C7: 2E LDI 09H ;08C8: F8 09 PLO R6 ;08CA: A6 LDI 01H ;08CB: F8 01 STR R6 ;08CD: 56 LDI 03H ;08CE: F8 03 PLO R6 ;08D0: A6 LDA R6 ;08D1: 46 XRI 5AH ;08D2: FB 5A STR RE ;08D4: 5E LDN R6 ;08D5: 06 XRI 5BH ;08D6: FB 5B OR ;08D8: F1 INC RE ;08D9: 1E BZ R08E3 ;08DA: 32 E3 LDI 03H ;08DC: F8 03 PHI RD ;08DE: BD LDI 0DBH ;08DF: F8 DB PLO RD ;08E1: AD SEP RF ;08E2: DF R08E3 LDI 82H ;08E3: F8 82 PHI RA ;08E5: BA LDI 03H ;08E6: F8 03 PLO RA ;08E8: AA LDA RA ;08E9: 4A PHI RD ;08EA: BD LDA RA ;08EB: 4A PLO RD ;08EC: AD LDN RA ;08ED: 0A PHI R7 ;08EE: B7 SEP RF ;08EF: DF DB 00H ;08F0: 00 S08F1 DB 39H ;08F1: PUSH 0D23 DB 90H, 04H ;08F2: PUSH 04 DB 0B3H ;08F4: ADD TOS, NOS DB 8FH, 81H, 0FDH ;08F5: D PUSH 81FD DB 90H, 03H ;08F8: PUSH 03 DB 0BAH ;08FA: MCPY [NOS], [3OS] DB 3BH ;08FB: TOUT TOS DB 0A7H ;08FC: DROP DB 8CH ;08FD: RET DB 00H ;08FE: 00 DB 00H ;08FF: 00 DB 00H ;0900: 00 R0901 GHI RA ;0901: 9A PHI R3 ;0902: B3 GLO RA ;0903: 8A PLO R3 ;0904: A3 R0905 LDA RE ;0905: 4E PLO R8 ;0906: A8 LDI 40H ;0907: F8 40 PLO R6 ;0909: A6 GLO RB ;090A: 8B SEP R3 ;090B: D3 S090C DEC RE ;090C: 2E GLO R8 ;090D: 88 STR RE ;090E: 5E LDI 0FEH ;090F: F8 FE PLO R6 ;0911: A6 LDA R6 ;0912: 46 PLO R8 ;0913: A8 LDI 51H ;0914: F8 51 PHI RB ;0916: BB LDI 0F2H ;0917: F8 F2 PLO RB ;0919: AB R091A BN1 R091E ;091A: 3C 1E BR R0901 ;091C: 30 01 R091E B2 R0944 ;091E: 35 44 BN3 R0944 ;0920: 3E 44 GLO R8 ;0922: 88 R0923 SMI 01H ;0923: FF 01 BNZ R0923 ;0925: 3A 23 BN3 R0944 ;0927: 3E 44 LDI 80H ;0929: F8 80 R092B PLO RB ;092B: AB GLO RB ;092C: 8B LDN R6 ;092D: 06 R092E SMI 01H ;092E: FF 01 BNZ R092E ;0930: 3A 2E GLO RB ;0932: 8B SHR ;0933: F6 BN3 R0938 ;0934: 3E 38 BR R093A ;0936: 30 3A R0938 ORI 80H ;0938: F9 80 R093A BNF R092B ;093A: 3B 2B PLO RB ;093C: AB GLO R8 ;093D: 88 R093E SMI 01H ;093E: FF 01 BNZ R093E ;0940: 3A 3E BR R0905 ;0942: 30 05 R0944 DEC RB ;0944: 2B GHI RB ;0945: 9B BNZ R091A ;0946: 3A 1A BR R0901 ;0948: 30 01 DB 00H ;094A: 00 S094B DB 1AH ;094B: CALL 1DF7 DB 0C6H ;094C: PUSH 810B DB 90H, 15H ;094D: PUSH 15 DB 0B3H ;094F: ADD TOS, NOS DB 0ABH ;0950: LD TOS, [TOS] DB 8FH, 5AH, 5AH ;0951: A PUSH 5A5A DB 0B2H ;0954: SUB TOS, NOS DB 0A8H ;0955: DUP DB 9EH, 02H ;0956: JZ 0959 DB 0CAH ;0958: SUB TOS, 1 DB 0B5H ;0959: ISZ TOS DB 0C6H ;095A: PUSH 810B DB 90H, 1EH ;095B: PUSH 1E DB 0B3H ;095D: ADD TOS, NOS DB 0ACH ;095E: LD TOS.0, [TOS] DB 90H, 5BH ;095F: PUSH 5B DB 0B9H ;0961: ISEQ TOS, NOS DB 0B5H ;0962: ISZ TOS DB 0B0H ;0963: AND TOS, NOS DB 9EH, 5CH ;0964: JZ 09C1 DB 99H ;0966: PUSH 0010 DB 90H, 15H ;0967: PUSH 15 DB 0FAH ;0969: CALL 0643 DB 0E4H ;096A: INP1 08 DB 0B5H ;096B: ISZ TOS DB 0B1H ;096C: OR TOS, NOS DB 92H, 0F8H ;096D: JZ 0966 DB 0E4H ;096F: INP1 08 DB 0B5H ;0970: ISZ TOS DB 9EH, 3BH ;0971: JZ 09AD DB 0C0H ;0973: PUSH 8103 DB 0DFH ;0974: SYS 1E02 DB 1BH ;0975: CALL 0805 DB 0C6H ;0976: PUSH 810B DB 99H ;0977: PUSH 0010 DB 0B3H ;0978: ADD TOS, NOS DB 0ABH ;0979: LD TOS, [TOS] DB 0C6H ;097A: PUSH 810B DB 90H, 12H ;097B: PUSH 12 DB 0B3H ;097D: ADD TOS, NOS DB 0ABH ;097E: LD TOS, [TOS] DB 99H ;097F: PUSH 0010 DB 0D6H ;0980: CALL 0341 DB 19H ;0981: CALL 07FB DB 0EBH ;0982: OUTM 2, 20 DB 8FH, 82H, 1AH ;0983: A PUSH 821A DB 0ABH ;0986: LD TOS, [TOS] DB 0B5H ;0987: ISZ TOS DB 0B5H ;0988: ISZ TOS DB 9EH, 1BH ;0989: JZ 09A5 DB 11H ;098B: PUSH 8140 DB 0DFH ;098C: SYS 1E02 DB 8FH, 82H, 20H ;098D: 0 PUSH 8220 DB 8FH, 82H, 06H ;0990: 6 PUSH 8206 DB 0ABH ;0993: LD TOS, [TOS] DB 0AAH ;0994: OVER DB 0B2H ;0995: SUB TOS, NOS DB 08H ;0996: SYS 072C DB 11H ;0997: PUSH 8140 DB 0ABH ;0998: LD TOS, [TOS] DB 8FH, 82H, 1AH ;0999: A PUSH 821A DB 0ABH ;099C: LD TOS, [TOS] DB 0B9H ;099D: ISEQ TOS, NOS DB 0B5H ;099E: ISZ TOS DB 9EH, 05H ;099F: JZ 09A5 DB 90H, 36H ;09A1: PUSH 36 DB 0CH ;09A3: LDVAL TOS DB 16H ;09A4: CALL 07CF DB 8FH, 5AH, 5BH ;09A5: B PUSH 5A5B DB 0C0H ;09A8: PUSH 8103 DB 0ADH ;09A9: LD [TOS], NOS DB 12H ;09AA: PUSH 8142 DB 0DEH ;09AB: LD [TOS], 1 DB 8CH ;09AC: RET DB 0C6H ;09AD: PUSH 810B DB 90H, 14H ;09AE: PUSH 14 DB 0B3H ;09B0: ADD TOS, NOS DB 0ACH ;09B1: LD TOS.0, [TOS] DB 9EH, 08H ;09B2: JZ 09BB DB 98H ;09B4: PUSH 0002 DB 07H ;09B5: HASH TOS DB 0DCH ;09B6: LDMSG TOS DB 0F2H ;09B7: CALL 05F7 DB 1AH ;09B8: CALL 1DF7 DB 9FH, 05H ;09B9: JP 09BF DB 0C5H ;09BB: PUSH 810A DB 0FBH ;09BC: INCB [TOS] DB 1BH ;09BD: CALL 0805 DB 0EBH ;09BE: OUTM 2, 20 DB 9FH, 05H ;09BF: JP 09C5 DB 90H, 33H ;09C1: PUSH 33 DB 0CH ;09C3: LDVAL TOS DB 16H ;09C4: CALL 07CF DB 93H, 86H ;09C5: JP 094C DB 8CH ;09C7: RET S09C8 ; ; ====================================================================== ; PSEUDO INSTRUCTION: CKRAM TOS ; ---------------------------------------------------------------------- ; Opcode: 0x1D ; Handler: 0x09C8 ; Token: 0B00+0x1D ; Definition: RAM-probe / writable-memory boundary scan ; ; Implementation: ; Pop start addr; write-verify 0 and 0xFF at each byte, restore it, ; advance; stop+re-push at first non-writable byte. ; ====================================================================== LDA RE ;09C8: 4E PHI RB ;09C9: BB LDA RE ;09CA: 4E PLO RB ;09CB: AB SEX RB ;09CC: EB R09CD LDN RB ;09CD: 0B PLO RA ;09CE: AA GHI RF ;09CF: 9F STR RB ;09D0: 5B XOR ;09D1: F3 BZ R09DB ;09D2: 32 DB R09D4 DEC RE ;09D4: 2E GLO RB ;09D5: 8B STR RE ;09D6: 5E DEC RE ;09D7: 2E GHI RB ;09D8: 9B STR RE ;09D9: 5E SEP RF ;09DA: DF R09DB LDI 0FFH ;09DB: F8 FF STR RB ;09DD: 5B XOR ;09DE: F3 BNZ R09D4 ;09DF: 3A D4 GLO RA ;09E1: 8A STR RB ;09E2: 5B INC RB ;09E3: 1B BR R09CD ;09E4: 30 CD DB 00H ;09E6: 00 DB 00H ;09E7: 00 DB 00H ;09E8: 00 DB 00H ;09E9: 00 DB 00H ;09EA: 00 DB 00H ;09EB: 00 DB 00H ;09EC: 00 DB 00H ;09ED: 00 DB 00H ;09EE: 00 DB 00H ;09EF: 00 DB 00H ;09F0: 00 DB 00H ;09F1: 00 DB 00H ;09F2: 00 DB 00H ;09F3: 00 DB 00H ;09F4: 00 DB 00H ;09F5: 00 DB 00H ;09F6: 00 DB 00H ;09F7: 00 DB 00H ;09F8: 00 DB 00H ;09F9: 00 DB 00H ;09FA: 00 DB 00H ;09FB: 00 DB 00H ;09FC: 00 DB 00H ;09FD: 00 DB 00H ;09FE: 00 DB 00H ;09FF: 00 DW S004E ;0A00: 00 4E ; No operation DW S0040 ;0A02: 00 40 ; Return from data-subroutine (even, unused?) DW S0044 ;0A04: 00 44 ; Return (shares 0x0044) DW S0044 ;0A06: 00 44 ; Return (shares 0x0044) DW S0044 ;0A08: 00 44 ; Return (shares 0x0044) DW S0044 ;0A0A: 00 44 ; Return (shares 0x0044) DW S0044 ;0A0C: 00 44 ; Return (shares 0x0044) DW S0044 ;0A0E: 00 44 ; Return (shares 0x0044) DW S0044 ;0A10: 00 44 ; Return (shares 0x0044) DW S0044 ;0A12: 00 44 ; Return (shares 0x0044) DW S0044 ;0A14: 00 44 ; Return (shares 0x0044) DW S0050 ;0A16: 00 50 ; Return (shares 0x0050) DW S005E ;0A18: 00 5E ; Return from data-subroutine DW S0064 ;0A1A: 00 64 ; Return dropping 4 bytes off R2 DW S006A ;0A1C: 00 6A ; Return dropping 8 bytes off R2 DW S0070 ;0A1E: 00 70 ; Push 16-bit immediate DW S0072 ;0A20: 00 72 ; Push 8-bit immediate (zero-extended) DW S007A ;0A22: 00 7A ; Push 16-bit immediate + RC DW S008A ;0A24: 00 8A ; Jump if zero, backward DW S0092 ;0A26: 00 92 ; Unconditional jump, backward DW S009C ;0A28: 00 9C ; Increment counter, branch back if > limit DW S00B6 ;0A2A: 00 B6 ; LOOP with variable step DW S00DC ;0A2C: 00 DC ; Push word 0x0000 DW S00E2 ;0A2E: 00 E2 ; Push word 0x0001 DW S00E6 ;0A30: 00 E6 ; Push word 0x0002 DW S00EA ;0A32: 00 EA ; Push word 0x0010 DW S00EE ;0A34: 00 EE ; Push word 0x0020 DW S00F2 ;0A36: 00 F2 ; Push word 0x0040 DW S00F6 ;0A38: 00 F6 ; Dispatch (indirect / record-table) DW S010A ;0A3A: 01 0A ; Dispatch (direct, page 0x8208+) DW S0118 ;0A3C: 01 18 ; Jump if zero, forward DW S0120 ;0A3E: 01 20 ; Unconditional jump, forward DW S012A ;0A40: 01 2A ; Push TOS+NOS onto return stack DW S012E ;0A42: 01 2E ; Push TOS + zero word onto return stack DW S013E ;0A44: 01 3E ; Push TOS onto return stack DW S0148 ;0A46: 01 48 ; Pop return stack to data stack DW S0152 ;0A48: 01 52 ; Push return-stack top (peek) DW S0158 ;0A4A: 01 58 ; Push word 4 bytes above R2 top DW S0166 ;0A4C: 01 66 ; Duplicate return-stack top one slot up DW S0172 ;0A4E: 01 72 ; Discard top word DW S0176 ;0A50: 01 76 ; Duplicate top word DW S0180 ;0A52: 01 80 ; Exchange TOS and NOS DW S0190 ;0A54: 01 90 ; Copy 2nd word onto top DW S019A ;0A56: 01 9A ; 16-bit dereference DW S01A6 ;0A58: 01 A6 ; Byte dereference DW S01B0 ;0A5A: 01 B0 ; 16-bit store DW S01BE ;0A5C: 01 BE ; Byte store DW S01C6 ;0A5E: 01 C6 ; 16-bit memory add DW S01D6 ;0A60: 01 D6 ; 16-bit bitwise AND DW S01E2 ;0A62: 01 E2 ; 16-bit bitwise OR DW S01EE ;0A64: 01 EE ; TOS = NOS - TOS DW S01FA ;0A66: 01 FA ; TOS = NOS + TOS DW S0206 ;0A68: 02 06 ; Negate TOS (0 - TOS) DW S0210 ;0A6A: 02 10 ; Zero test -> 16-bit flag DW S021E ;0A6C: 02 1E ; Sign test -> 16-bit flag DW S0226 ;0A6E: 02 26 ; Signed compare NOS > TOS DW S023A ;0A70: 02 3A ; Signed compare NOS < TOS DW S0246 ;0A72: 02 46 ; Equality -> 16-bit flag DW S025E ;0A74: 02 5E ; Memory copy (count, dest, src) DW S026C ;0A76: 02 6C ; 8x8 -> 16 multiply DW S028A ;0A78: 02 8A ; NOS / TOS.0 -> [remainder, quotient] DW S02AF ;0A7A: 02 AF ; Push port-2 shadow base DW S02B3 ;0A7C: 02 B3 ; Push constant 0x8101 DW S02B7 ;0A7E: 02 B7 ; Push constant 0x8102 DW S02BB ;0A80: 02 BB ; Push program-flag high addr DW S02BF ;0A82: 02 BF ; Push font-base high addr DW S02C3 ;0A84: 02 C3 ; Push constant 0x8107 DW S02C7 ;0A86: 02 C7 ; Push constant 0x8108 DW S02CB ;0A88: 02 CB ; Push constant 0x8109 DW S02CF ;0A8A: 02 CF ; Push cursor/HASH-seed byte addr DW S02D4 ;0A8C: 02 D4 ; Push display buffer base + set active flag DW S02E5 ;0A8E: 02 E5 ; Push message table base DW S02EA ;0A90: 02 EA ; TOS += 1 DW S02F6 ;0A92: 02 F6 ; TOS += 2 DW S02FC ;0A94: 02 FC ; TOS -= 1 DW S0308 ;0A96: 03 08 ; TOS -= 2 DW S030F ;0A98: 03 0F ; Push constant 0x812D DW S0313 ;0A9A: 03 13 ; Push constant 0x812F DW S0317 ;0A9C: 03 17 ; Push byte at M[810A] DW S031B ;0A9E: 03 1B ; Push buffer position at cursor DW S031F ;0AA0: 03 1F ; Push buffer char at cursor DW S0323 ;0AA2: 03 23 ; Store buffer char at cursor DW S0327 ;0AA4: 03 27 ; Push byte at M[8107] DW S014E ;0AA6: 01 4E ; Push single zero byte DW S032A ;0AA8: 03 2A ; 16-bit left shift / double DW S0333 ;0AAA: 03 33 ; Push word 0x0040 (shares 0x00F2) DW S0341 ;0AAC: 03 41 ; Push word 0x0000 (shares 0x00DC) DW S0345 ;0AAE: 03 45 ; 16/8 division -> [quotient, remainder] DW S0355 ;0AB0: 03 55 ; Remainder only DW S035A ;0AB2: 03 5A ; Clear the display DW S036B ;0AB4: 03 6B ; Save message (810B -> 81DB) DW S0371 ;0AB6: 03 71 ; Load message (81DB -> 810B) DW S0377 ;0AB8: 03 77 ; Load length-prefixed message DW S0382 ;0ABA: 03 82 ; Byte store of 0 DW S0380 ;0ABC: 03 80 ; Byte store of 1 DW S1E02 ;0ABE: 1E 02 ; Return (odd target, data-subroutine) DW S1E00 ;0AC0: 1E 00 ; Word store of 1 DW S0394 ;0AC2: 03 94 ; Set port-2 bits DW S039E ;0AC4: 03 9E ; Clear port-2 bits DW S03A8 ;0AC6: 03 A8 ; Test INP 1 with mask DW S03B3 ;0AC8: 03 B3 ; Test INP 1 bit 3 DW S03B7 ;0ACA: 03 B7 ; Test INP 1 bit 5 DW S03BA ;0ACC: 03 BA ; Keyboard scan + blank + 5A5B check DW S1E0E ;0ACE: 1E 0E ; Rotate top 3 stack words DW S1E23 ;0AD0: 1E 23 ; Set port-2 bit 6 DW S1E27 ;0AD2: 1E 27 ; Clear port-2 bit 6 DW S03C1 ;0AD4: 03 C1 ; Set port-2 bit 5 + delay DW S03CB ;0AD6: 03 CB ; Clear port-2 bit 5 DW S03D0 ;0AD8: 03 D0 ; Terminal halt / power-down DW S03DE ;0ADA: 03 DE ; 16-bit memory increment DW S03E0 ;0ADC: 03 E0 ; 16-bit memory decrement DW S05AC ;0ADE: 05 AC ; Send status/display message DW S05ED ;0AE0: 05 ED ; 16-SEND burst loop (0x05ED) DW S05F3 ;0AE2: 05 F3 ; SEND burst + OUTM 2,40 (0x05F3) DW S05F7 ;0AE4: 05 F7 ; 200-iteration delay + SEND burst (0x05F7) DW S0605 ;0AE6: 06 05 ; CALL 05F7 x4 (0x0604 area) DW S060D ;0AE8: 06 0D ; CALL 05F7 x4 (0x0604 area) DW S0617 ;0AEA: 06 17 ; CALL 05F7 x4 (0x0604 area) DW S061B ;0AEC: 06 1B ; CALL 05F7 x4 (0x0604 area) DW S061F ;0AEE: 06 1F ; Data-subroutine (0x061F) DW S062B ;0AF0: 06 2B ; Data-subroutine (0x0629) DW S062F ;0AF2: 06 2F ; Data-subroutine (0x062E) DW S0643 ;0AF4: 06 43 ; Data-subroutine (0x0634) DW S0646 ;0AF6: 06 46 ; Byte memory increment DW S0648 ;0AF8: 06 48 ; Byte memory decrement DW S0654 ;0AFA: 06 54 ; Byte memory add DW S065F ;0AFC: 06 5F ; Data-subroutine (0x065F) DW S0671 ;0AFE: 06 71 ; Data-subroutine (0x0671) DW S0675 ;0B00: 06 75 ; Maximum of two values DW S03DB ;0B02: 03 DB ; Power down (CALL form) DW S067D ;0B04: 06 7D ; Absolute value DW S0683 ;0B06: 06 83 ; Pulse port-2 bit 3 DW S068A ;0B08: 06 8A ; Set Q output DW S068C ;0B0A: 06 8C ; Reset Q output DW S068F ;0B0C: 06 8F ; Push message-table base 'ERR' DW S06FE ;0B0E: 06 FE ; Checksum / memory walk DW S072C ;0B10: 07 2C ; Push constant 0x80AC DW S0747 ;0B12: 07 47 ; Push constant 0x81FB DW S074B ;0B14: 07 4B ; Push constant 0x81D7 DW S074F ;0B16: 07 4F ; Push constant 0x81D9 DW S0753 ;0B18: 07 53 ; Load message + value byte DW S075C ;0B1A: 07 5C ; Serial byte receive DW S079B ;0B1C: 07 9B ; Push constant 0x8131 DW S079F ;0B1E: 07 9F ; Push constant 0x8133 DW S07A3 ;0B20: 07 A3 ; Push constant 0x8135 DW S07A7 ;0B22: 07 A7 ; Push constant 0x8140 DW S07AB ;0B24: 07 AB ; Push constant 0x8142 DW S07AF ;0B26: 07 AF ; Push constant 0x8143 DW S07B4 ;0B28: 07 B4 ; 16-bit memory subtract DW S07C4 ;0B2A: 07 C4 ; Byte memory subtract DW S07CF ;0B2C: 07 CF ; J0408 display refresh + transmit (0x07CF) DW S07D5 ;0B2E: 07 D5 ; Hex-digit display-value routine (0x07D5) DW S07DB ;0B30: 07 DB ; Display value w/ message (0x07DB) DW S07FB ;0B32: 07 FB ; Transmit message routine (0x07FB) DW S1DF7 ;0B34: 1D F7 ; Data-subroutine (0x1DF7) DW S0805 ;0B36: 08 05 ; Data-subroutine (0x0805) DW S094B ;0B38: 09 4B ; Data-subroutine (0x094B) DW S09C8 ;0B3A: 09 C8 ; RAM boundary probe DW S08BC ;0B3C: 08 BC ; Data-subroutine (0x1DF2) DW S1E2B ;0B3E: 1E 2B ; Boot token stream entry (0x1E2B) DW S1DC0 ;0B40: 1D C0 ; Data-subroutine (0x1E2E) DW S08F1 ;0B42: 08 F1 ; Data-subroutine (0x08F1) DW S090C ;0B44: 09 0C ; Data-subroutine (0x1E74) DW S0820 ;0B46: 08 20 ; Test EF3 flag DW S082C ;0B48: 08 2C ; Test EF1 flag DW S0830 ;0B4A: 08 30 ; Test EF2 flag DW S0835 ;0B4C: 08 35 ; Timed port-2/Q strobe (0x0835) DW S083D ;0B4E: 08 3D ; Data-subroutine (0x083D) DW S0841 ;0B50: 08 41 ; Data-subroutine (0x0841) DW S084D ;0B52: 08 4D ; Data-subroutine (0x084D) DW S0853 ;0B54: 08 53 ; Data-subroutine (0x0853) DW S0C00 ;0B56: 0C 00 ; Data-subroutine (0x0856) DW S0CEF ;0B58: 0C EF ; Data-subroutine (0x0CEF) DW S0CF7 ;0B5A: 0C F7 ; Data-subroutine (0x0CF7) DW S1E91 ;0B5C: 1E 91 ; Data-subroutine (0x1E91) DW S1E99 ;0B5E: 1E 99 ; Data-subroutine (0x1E99) DW S1ECF ;0B60: 1E CF ; Data-subroutine (0x1ECF) DW S1EED ;0B62: 1E ED ; Data-subroutine (0x1EED) DW S1EEF ;0B64: 1E EF ; Data-subroutine (0x1EEF) DW S1F0E ;0B66: 1F 0E ; Data-subroutine (0x1F01) DW S1F34 ;0B68: 1F 34 ; Data-subroutine (0x1F08) DW S1F45 ;0B6A: 1F 45 ; Data-subroutine (0x1F45) DW S1D71 ;0B6C: 1D 71 ; Data-subroutine (0x1D71) DW S0D0B ;0B6E: 0D 0B ; Data-subroutine (0x0D0B) DW S0D1B ;0B70: 0D 1B ; Push constant 0x81FD DW S0D1F ;0B72: 0D 1F ; Push baud label table base DW S0D41 ;0B74: 0D 41 ; Data-subroutine (0x0D41) DW S0D4C ;0B76: 0D 4C ; Serial byte transmit DW S0E40 ;0B78: 0E 40 ; Data-subroutine (0x0D4C area) DW S0E92 ;0B7A: 0E 92 ; Data-subroutine (0x0D6B) DW S0F0E ;0B7C: 0F 0E ; Data-subroutine (0x0D91) DW S0F20 ;0B7E: 0F 20 ; Restore interpreter context (0x8213 table) DW S0F35 ;0B80: 0F 35 ; Data-subroutine (0x0F35) DW S0F37 ;0B82: 0F 37 ; Data-subroutine (0x0F37) DW S0F3A ;0B84: 0F 3A ; Data-subroutine (0x0F42) DW S0F3A ;0B86: 0F 3A ; Data-subroutine (0x0F44) DW S0F3C ;0B88: 0F 3C ; Data-subroutine (0x0F4A) DW S0F71 ;0B8A: 0F 71 ; Push constant 0x8026 DW S0F76 ;0B8C: 0F 76 ; Data-subroutine (0x0F75) DW S0F8A ;0B8E: 0F 8A ; Push data-stack pointer DW S0F94 ;0B90: 0F 94 ; Memory walk with explicit base DW S0FB2 ;0B92: 0F B2 ; Fill memory DW S0FC6 ;0B94: 0F C6 ; Data-subroutine (0x0F9A) DW S0FDA ;0B96: 0F DA ; Push return-stack pointer DW S0FE2 ;0B98: 0F E2 ; 16-bit bitwise XOR DW S0FEC ;0B9A: 0F EC ; Variable-count left shift DW S1003 ;0B9C: 10 03 ; Push display buffer base DW S1007 ;0B9E: 10 07 ; Data-subroutine (0x1007) DW S1E80 ;0BA0: 1E 80 ; Push mode-switch flag DW S103F ;0BA2: 10 3F ; Push keypad table base DW S1091 ;0BA4: 10 91 ; Push menu label ' 200' DW S10B3 ;0BA6: 10 B3 ; Push constant 0x10B7 DW S10BB ;0BA8: 10 BB ; Push constant 0x10BF DW S10C3 ;0BAA: 10 C3 ; Push constant 0x10C7 DW S10C9 ;0BAC: 10 C9 ; Push constant 0x10CD DW S10CF ;0BAE: 10 CF ; Push constant 0x10D3 DW S10D5 ;0BB0: 10 D5 ; Push constant 0x10D9 DW S10DF ;0BB2: 10 DF ; Push constant 0x81FD DW S10E3 ;0BB4: 10 E3 ; Push constant 0x81FE DW S10E7 ;0BB6: 10 E7 ; Push constant 0x81FF DW S10EB ;0BB8: 10 EB ; Push keycode variable addr DW S10EF ;0BBA: 10 EF ; Push constant 0x80A2 DW S10F3 ;0BBC: 10 F3 ; Data-subroutine (0x10F3) DW S10FB ;0BBE: 10 FB ; Push constant 0x80A4 DW S10FF ;0BC0: 10 FF ; Push constant 0x80A6 DW S1103 ;0BC2: 11 03 ; Push constant 0x80A8 DW S1107 ;0BC4: 11 07 ; Push constant 0x80AA DW S110B ;0BC6: 11 0B ; Push runtime pointer var addr DW S110F ;0BC8: 11 0F ; Push constant 0x8027 DW S1113 ;0BCA: 11 13 ; Push constant 0x8028 DW S1117 ;0BCC: 11 17 ; Push constant 0x802A DW S111B ;0BCE: 11 1B ; Data-subroutine (0x111B) DW S0D4A ;0BD0: 0D 4A ; Data-subroutine (0x1120) DW S11A2 ;0BD2: 11 A2 ; Data-subroutine (0x1124) DW S11AD ;0BD4: 11 AD ; Fetch runtime pointer value DW S11B1 ;0BD6: 11 B1 ; Data-subroutine (0x11B0) DW S11DB ;0BD8: 11 DB ; Push constant 0x81D5 DW S11DF ;0BDA: 11 DF ; Store value to both fixed addrs DW S11E5 ;0BDC: 11 E5 ; Data-subroutine (0x11E3) DW S123A ;0BDE: 12 3A ; Byte-swap top word DW S1245 ;0BE0: 12 45 ; Data-subroutine (0x120B) DW S124B ;0BE2: 12 4B ; Data-subroutine (0x1216) DW S1253 ;0BE4: 12 53 ; Data-subroutine (0x1253) DW S1279 ;0BE6: 12 79 ; Data-subroutine (0x1259) DW S128B ;0BE8: 12 8B ; Data-subroutine (0x1267) DW S1295 ;0BEA: 12 95 ; Data-subroutine (0x1278) DW S129D ;0BEC: 12 9D ; Data-subroutine (0x1281) DW S12A1 ;0BEE: 12 A1 ; Data-subroutine (0x128C) DW S12C5 ;0BF0: 12 C5 ; Data-subroutine (0x129C) DW S1C65 ;0BF2: 1C 65 ; Data-subroutine (0x12A2) DW S1339 ;0BF4: 13 39 ; Data-subroutine (0x12B1) DW S136B ;0BF6: 13 6B ; Data-subroutine (0x12BA) DB 00H ;0BF8: 00 ; Data-subroutine (0x12C1) DB 00H ;0BF9: 00 DB 00H ;0BFA: 00 ; Data-subroutine (0x12CA) DB 00H ;0BFB: 00 DB 00H ;0BFC: 00 ; Data-subroutine (0x12D4) DB 00H ;0BFD: 00 DB 00H ;0BFE: 00 ; Data-subroutine (0x12DE) DB 00H ;0BFF: 00 S0C00 LDA RE ;0C00: 4E PHI R5 ;0C01: B5 LDA RE ;0C02: 4E PLO R5 ;0C03: A5 LDI 09H ;0C04: F8 09 PHI R4 ;0C06: B4 LDI 0CH ;0C07: F8 0C PLO R4 ;0C09: A4 LDI 0D5H ;0C0A: F8 D5 PLO R6 ;0C0C: A6 GHI R2 ;0C0D: 92 PHI R9 ;0C0E: B9 LDI 0A8H ;0C0F: F8 A8 PLO R9 ;0C11: A9 LDA R9 ;0C12: 49 STR R6 ;0C13: 56 INC R6 ;0C14: 16 LDN R9 ;0C15: 09 STR R6 ;0C16: 56 LDI 40H ;0C17: F8 40 PLO R6 ;0C19: A6 LDI 14H ;0C1A: F8 14 PLO R8 ;0C1C: A8 LDI 28H ;0C1D: F8 28 PLO R9 ;0C1F: A9 GHI R3 ;0C20: 93 PHI RA ;0C21: BA LDI 25H ;0C22: F8 25 PLO RA ;0C24: AA GHI RF ;0C25: 9F STR R9 ;0C26: 59 INC R9 ;0C27: 19 STR R9 ;0C28: 59 DEC R9 ;0C29: 29 DEC R8 ;0C2A: 28 GLO R8 ;0C2B: 88 BNZ R0C41 ;0C2C: 3A 41 BZ R0C39 ;0C2E: 32 39 R0C30 GHI RF ;0C30: 9F DEC RE ;0C31: 2E STR RE ;0C32: 5E GLO RB ;0C33: 8B DEC RE ;0C34: 2E STR RE ;0C35: 5E LDI 05H ;0C36: F8 05 LSKP ;0C38: C8 R0C39 LDI 09H ;0C39: F8 09 R0C3B DEC RD ;0C3B: 2D SMI 01H ;0C3C: FF 01 BNZ R0C3B ;0C3E: 3A 3B SEP RF ;0C40: DF R0C41 LDI 78H ;0C41: F8 78 PLO R7 ;0C43: A7 R0C44 SEP R4 ;0C44: D4 XRI 32H ;0C45: FB 32 BZ R0C4F ;0C47: 32 4F DEC R7 ;0C49: 27 GLO R7 ;0C4A: 87 BNZ R0C4F ;0C4B: 3A 4F GLO RA ;0C4D: 8A PLO R3 ;0C4E: A3 R0C4F BNZ R0C44 ;0C4F: 3A 44 R0C51 SEP R4 ;0C51: D4 XRI 32H ;0C52: FB 32 BZ R0C51 ;0C54: 32 51 XRI 32H ;0C56: FB 32 STR R9 ;0C58: 59 INC R9 ;0C59: 19 XRI 2DH ;0C5A: FB 2D BNZ R0C60 ;0C5C: 3A 60 BR R0C39 ;0C5E: 30 39 R0C60 XRI 2DH ;0C60: FB 2D XRI 37H ;0C62: FB 37 BNZ R0C6B ;0C64: 3A 6B LDI 06H ;0C66: F8 06 PLO RB ;0C68: AB BR R0C30 ;0C69: 30 30 R0C6B XRI 35H ;0C6B: FB 35 BNZ R0C79 ;0C6D: 3A 79 SEP R4 ;0C6F: D4 STR R9 ;0C70: 59 XRI 2DH ;0C71: FB 2D BNZ R0C77 ;0C73: 3A 77 BR R0CD8 ;0C75: 30 D8 R0C77 BR R0C44 ;0C77: 30 44 R0C79 XRI 12H ;0C79: FB 12 BNZ R0C44 ;0C7B: 3A 44 SEP R4 ;0C7D: D4 STR R9 ;0C7E: 59 XRI 02H ;0C7F: FB 02 BZ R0C85 ;0C81: 32 85 XRI 03H ;0C83: FB 03 R0C85 BZ R0C90 ;0C85: 32 90 XRI 36H ;0C87: FB 36 BNZ R0C90 ;0C89: 3A 90 LDI 07H ;0C8B: F8 07 PLO RB ;0C8D: AB BR R0C30 ;0C8E: 30 30 R0C90 BNZ R0C44 ;0C90: 3A 44 STR R6 ;0C92: 56 INC R6 ;0C93: 16 STR R6 ;0C94: 56 LDI 08H ;0C95: F8 08 PHI R9 ;0C97: B9 LDI 78H ;0C98: F8 78 PLO R9 ;0C9A: A9 R0C9B SEP R4 ;0C9B: D4 STR R5 ;0C9C: 55 XRI 10H ;0C9D: FB 10 BNZ R0CC3 ;0C9F: 3A C3 SEP R4 ;0CA1: D4 STR R5 ;0CA2: 55 XRI 32H ;0CA3: FB 32 BNZ R0CA9 ;0CA5: 3A A9 BR R0C9B ;0CA7: 30 9B R0CA9 LDN R5 ;0CA9: 05 XRI 10H ;0CAA: FB 10 BZ R0CC3 ;0CAC: 32 C3 LDN R5 ;0CAE: 05 SEP R9 ;0CAF: D9 LDI 14H ;0CB0: F8 14 PLO R8 ;0CB2: A8 SEP R4 ;0CB3: D4 SEP R9 ;0CB4: D9 LDI 14H ;0CB5: F8 14 PLO R8 ;0CB7: A8 SEP R4 ;0CB8: D4 SEP R9 ;0CB9: D9 LDN R5 ;0CBA: 05 SKP ;0CBB: 38 GHI RF ;0CBC: 9F DEC RE ;0CBD: 2E STR RE ;0CBE: 5E DEC RE ;0CBF: 2E GHI RF ;0CC0: 9F STR RE ;0CC1: 5E SEP RF ;0CC2: DF R0CC3 LDA R5 ;0CC3: 45 SEP R9 ;0CC4: D9 LDI 14H ;0CC5: F8 14 PLO R8 ;0CC7: A8 LDI 0D6H ;0CC8: F8 D6 PLO R6 ;0CCA: A6 LDN R6 ;0CCB: 06 SMI 01H ;0CCC: FF 01 STR R6 ;0CCE: 56 DEC R6 ;0CCF: 26 SEX R6 ;0CD0: E6 GHI RF ;0CD1: 9F SMB ;0CD2: 77 STR R6 ;0CD3: 56 INC R6 ;0CD4: 16 OR ;0CD5: F1 BNZ R0CEC ;0CD6: 3A EC R0CD8 GHI R2 ;0CD8: 92 PHI RB ;0CD9: BB LDI 0ACH ;0CDA: F8 AC PLO RB ;0CDC: AB LDA RB ;0CDD: 4B PHI R9 ;0CDE: B9 LDN RB ;0CDF: 0B PLO R9 ;0CE0: A9 INC R9 ;0CE1: 19 INC R9 ;0CE2: 19 LDI 32H ;0CE3: F8 32 STR R9 ;0CE5: 59 INC R9 ;0CE6: 19 LDI 3DH ;0CE7: F8 3D STR R9 ;0CE9: 59 BR R0C39 ;0CEA: 30 39 R0CEC BR R0C9B ;0CEC: 30 9B DB 00H ;0CEE: 00 S0CEF DB 0F2H ;0CEF: CALL 05F7 DB 0E4H ;0CF0: INP1 08 DB 0B5H ;0CF1: ISZ TOS DB 92H, 0FCH ;0CF2: JZ 0CEF DB 0EAH ;0CF4: OUT 2, 20 DB 8CH ;0CF5: RET DB 00H ;0CF6: 00 S0CF7 DB 03H ;0CF7: PULSE 2, 08 DB 90H, 03H ;0CF8: PUSH 03 DB 07H ;0CFA: HASH TOS DB 0DCH ;0CFB: LDMSG TOS DB 2CH ;0CFC: CALL 0CEF DB 0C0H ;0CFD: PUSH 8103 DB 8FH, 7EH, 0FDH ;0CFE: D PUSH 7EFD DB 19H ;0D01: CALL 07FB DB 8FH, 20H, 00H ;0D02: 0 PUSH 2000 DB 8FH, 60H, 00H ;0D05: 0 PUSH 6000 DB 19H ;0D08: CALL 07FB DB 17H ;0D09: CALL 07D5 DB 8CH ;0D0A: RET S0D0B DB 0D9H ;0D0B: CLS DB 0EFH ;0D0C: SEND DB 0A7H ;0D0D: DROP DB 0BFH ;0D0E: PUSH 8102 DB 0ACH ;0D0F: LD TOS.0, [TOS] DB 0B5H ;0D10: ISZ TOS DB 0B5H ;0D11: ISZ TOS DB 9EH, 06H ;0D12: JZ 0D19 DB 90H, 07H ;0D14: PUSH 07 DB 07H ;0D16: HASH TOS DB 0DCH ;0D17: LDMSG TOS DB 0F2H ;0D18: CALL 05F7 DB 8CH ;0D19: RET DB 00H ;0D1A: 00 S0D1B ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81FD ; ---------------------------------------------------------------------- ; Opcode: 0x38 ; Handler: 0x0D1B ; Token: 0B00+0x38 ; Definition: Push the 16-bit constant 0x81FD ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x0D1B. ; ====================================================================== DB 8FH, 81H, 0FDH ;0D1B: D PUSH 81FD DB 8CH ;0D1E: RET S0D1F ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 0D23 ; ---------------------------------------------------------------------- ; Opcode: 0x39 ; Handler: 0x0D1F ; Token: 0B00+0x39 ; Definition: Push the 16-bit constant 0x0D23 (baud-rate label table base) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x0D1F. ; ====================================================================== DB 8FH, 0DH, 23H ;0D1F: 3 PUSH 0D23 DB 8CH ;0D22: RET ; ; ====================================================================== ; DATA AREA: BAUD-RATE LABEL TABLE ; Range: 0x0D23-0x0D3B ; ---------------------------------------------------------------------- ; Four ASCII labels, each followed by three configuration bytes: ; ; 0x0D23 '1200' -> 2E 1A 30 ; 0x0D2A ' 600' -> 62 34 64 ; 0x0D31 ' 300' -> CA 68 CC ; 0x0D38 '2400' -> 14 0D 16 ; ; Trailing triples are per-rate constants (divisor/setup bytes — exact ; meaning not yet decoded). Referenced by PUSH 0D23 (token 39). ; ====================================================================== DB '1200' ;0D23: 31 ;0D24: 32 ;0D25: 30 ;0D26: 30 DB 2EH ;0D27: 2E DB 1AH ;0D28: 1A DB 30H ;0D29: 30 DB ' 600' ;0D2A: 20 ;0D2B: 36 ;0D2C: 30 ;0D2D: 30 DB 62H ;0D2E: 62 DB 34H ;0D2F: 34 DB 64H ;0D30: 64 DB ' 300' ;0D31: 20 ;0D32: 33 ;0D33: 30 ;0D34: 30 DB 0CAH ;0D35: CA DB 68H ;0D36: 68 DB 0CCH ;0D37: CC DB '2400' ;0D38: 32 ;0D39: 34 ;0D3A: 30 ;0D3B: 30 DB 14H ;0D3C: 14 DB 0DH ;0D3D: 0D DB 16H ;0D3E: 16 DB 00H ;0D3F: 00 DB 00H ;0D40: 00 S0D41 DB 90H, 0AH ;0D41: PUSH 0A DB 36H ;0D43: CALL 1D71 DB 38H ;0D44: PUSH 81FD DB 90H, 03H ;0D45: PUSH 03 DB 0BAH ;0D47: MCPY [NOS], [3OS] DB 8CH ;0D48: RET DB 00H ;0D49: 00 S0D4A LDI 01H ;0D4A: F8 01 S0D4C ; ; ====================================================================== ; PSEUDO INSTRUCTION: TOUT ; ---------------------------------------------------------------------- ; Opcode: 0x3B ; Handler: 0x0D4C ; Token: 0B00+0x3B ; Definition: Serial byte transmit from memory — tape or terminal output (PROVISIONAL) ; ; Implementation: ; Pops count and address; waits for EF2=1 (with timeout -> push 1), then ; transmits bytes bit-by-bit on Q. ; ====================================================================== PLO R8 ;0D4C: A8 GHI RF ;0D4D: 9F PLO R7 ;0D4E: A7 LDA RE ;0D4F: 4E PHI R4 ;0D50: B4 LDA RE ;0D51: 4E PLO R4 ;0D52: A4 LDA RE ;0D53: 4E PHI R5 ;0D54: B5 LDN RE ;0D55: 0E PLO R5 ;0D56: A5 LDI 0FDH ;0D57: F8 FD PLO R6 ;0D59: A6 GLO R8 ;0D5A: 88 STR RE ;0D5B: 5E BR R0DCB ;0D5C: 30 CB R0D5E GHI RF ;0D5E: 9F PHI R9 ;0D5F: B9 PLO R9 ;0D60: A9 R0D61 DEC R9 ;0D61: 29 GHI R9 ;0D62: 99 BNZ R0D6C ;0D63: 3A 6C LDI 01H ;0D65: F8 01 STR RE ;0D67: 5E GHI RF ;0D68: 9F DEC RE ;0D69: 2E STR RE ;0D6A: 5E SEP RF ;0D6B: DF R0D6C B2 R0D61 ;0D6C: 35 61 LDI 08H ;0D6E: F8 08 PHI R9 ;0D70: B9 LDI 78H ;0D71: F8 78 PLO R9 ;0D73: A9 LDI 09H ;0D74: F8 09 PLO RA ;0D76: AA LDN RE ;0D77: 0E BNZ R0D82 ;0D78: 3A 82 LDN R6 ;0D7A: 06 R0D7B SMI 01H ;0D7B: FF 01 BNZ R0D7B ;0D7D: 3A 7B LDA R5 ;0D7F: 45 BR R0DA2 ;0D80: 30 A2 R0D82 GLO R7 ;0D82: 87 BZ R0D90 ;0D83: 32 90 GHI RF ;0D85: 9F PLO R7 ;0D86: A7 LDN R6 ;0D87: 06 R0D88 SMI 01H ;0D88: FF 01 BNZ R0D88 ;0D8A: 3A 88 LDI 10H ;0D8C: F8 10 BR R0DA2 ;0D8E: 30 A2 R0D90 LDN R5 ;0D90: 05 SEP R9 ;0D91: D9 LDI 0FDH ;0D92: F8 FD PLO R6 ;0D94: A6 LDN R6 ;0D95: 06 SMI 21H ;0D96: FF 21 BNF R0DA0 ;0D98: 3B A0 ADI 01H ;0D9A: FC 01 R0D9C SMI 01H ;0D9C: FF 01 BNZ R0D9C ;0D9E: 3A 9C R0DA0 LDA R5 ;0DA0: 45 PLO R7 ;0DA1: A7 R0DA2 ADI 00H ;0DA2: FC 00 LSKP ;0DA4: C8 R0DA5 GLO RB ;0DA5: 8B SHRC ;0DA6: 76 PLO RB ;0DA7: AB BDF R0DAD ;0DA8: 33 AD REQ ;0DAA: 7A BR R0DAF ;0DAB: 30 AF R0DAD SEQ ;0DAD: 7B SEQ ;0DAE: 7B R0DAF LDN R6 ;0DAF: 06 R0DB0 SMI 01H ;0DB0: FF 01 BNZ R0DB0 ;0DB2: 3A B0 NOP ;0DB4: C4 SEP R3 ;0DB5: D3 DEC RA ;0DB6: 2A GLO RA ;0DB7: 8A BNZ R0DA5 ;0DB8: 3A A5 LDN RE ;0DBA: 0E BZ R0DC8 ;0DBB: 32 C8 GLO R7 ;0DBD: 87 XRI 10H ;0DBE: FB 10 SEQ ;0DC0: 7B BZ R0DC6 ;0DC1: 32 C6 GHI RF ;0DC3: 9F BR R0DC8 ;0DC4: 30 C8 R0DC6 INC R4 ;0DC6: 14 GLO R7 ;0DC7: 87 R0DC8 PLO R7 ;0DC8: A7 DEC R4 ;0DC9: 24 SEQ ;0DCA: 7B R0DCB GLO R4 ;0DCB: 84 BNZ R0D5E ;0DCC: 3A 5E GHI R4 ;0DCE: 94 BNZ R0D5E ;0DCF: 3A 5E LDN R6 ;0DD1: 06 R0DD2 SMI 01H ;0DD2: FF 01 BNZ R0DD2 ;0DD4: 3A D2 GLO R4 ;0DD6: 84 STR RE ;0DD7: 5E DEC RE ;0DD8: 2E GHI R4 ;0DD9: 94 STR RE ;0DDA: 5E SEP RF ;0DDB: DF S0DDC LDI 0FFH ;0DDC: F8 FF PLO RB ;0DDE: AB SEX RE ;0DDF: EE LDN RE ;0DE0: 0E SHL ;0DE1: FE BNF R0DEC ;0DE2: 3B EC INC RB ;0DE4: 1B GHI RF ;0DE5: 9F INC RE ;0DE6: 1E SM ;0DE7: F7 STXD ;0DE8: 73 GHI RF ;0DE9: 9F SMB ;0DEA: 77 STR RE ;0DEB: 5E R0DEC LDA RE ;0DEC: 4E PHI R5 ;0DED: B5 LDA RE ;0DEE: 4E PLO R5 ;0DEF: A5 LDN RE ;0DF0: 0E PHI RA ;0DF1: BA SHL ;0DF2: FE BNF R0DFD ;0DF3: 3B FD INC RB ;0DF5: 1B GHI RF ;0DF6: 9F INC RE ;0DF7: 1E SM ;0DF8: F7 STXD ;0DF9: 73 GHI RF ;0DFA: 9F SMB ;0DFB: 77 STR RE ;0DFC: 5E R0DFD LDI 10H ;0DFD: F8 10 PLO RA ;0DFF: AA SEP R3 ;0E00: D3 DB 00H ;0E01: 00 S0E02 LDI 0DH ;0E02: F8 0D PHI R4 ;0E04: B4 LDI 0DCH ;0E05: F8 DC PLO R4 ;0E07: A4 SEP R4 ;0E08: D4 LDA RE ;0E09: 4E PHI R4 ;0E0A: B4 LDN RE ;0E0B: 0E PLO R4 ;0E0C: A4 GHI RF ;0E0D: 9F STXD ;0E0E: 73 STR RE ;0E0F: 5E R0E10 INC RE ;0E10: 1E LDX ;0E11: F0 SHL ;0E12: FE STXD ;0E13: 73 LDX ;0E14: F0 SHLC ;0E15: 7E STR RE ;0E16: 5E GLO R5 ;0E17: 85 SHL ;0E18: FE PLO R5 ;0E19: A5 GHI R5 ;0E1A: 95 SHLC ;0E1B: 7E PHI R5 ;0E1C: B5 BNF R0E26 ;0E1D: 3B 26 INC RE ;0E1F: 1E GLO R4 ;0E20: 84 ADD ;0E21: F4 STXD ;0E22: 73 GHI R4 ;0E23: 94 ADC ;0E24: 74 STR RE ;0E25: 5E R0E26 DEC RA ;0E26: 2A GLO RA ;0E27: 8A BNZ R0E10 ;0E28: 3A 10 GLO RB ;0E2A: 8B BNZ R0E33 ;0E2B: 3A 33 INC RE ;0E2D: 1E SM ;0E2E: F7 STXD ;0E2F: 73 GHI RF ;0E30: 9F SMB ;0E31: 77 STR RE ;0E32: 5E R0E33 SEP RF ;0E33: DF DB 00H ;0E34: 00 DB 00H ;0E35: 00 DB 00H ;0E36: 00 DB 00H ;0E37: 00 DB 00H ;0E38: 00 DB 00H ;0E39: 00 DB 00H ;0E3A: 00 DB 00H ;0E3B: 00 DB 00H ;0E3C: 00 DB 00H ;0E3D: 00 DB 00H ;0E3E: 00 DB 00H ;0E3F: 00 S0E40 LDI 09H ;0E40: F8 09 PLO R6 ;0E42: A6 LDA R0 ;0E43: 40 STR R6 ;0E44: 56 LDI 02H ;0E45: F8 02 PLO R6 ;0E47: A6 LDA R0 ;0E48: 40 STXD ;0E49: 73 LDA R0 ;0E4A: 40 STXD ;0E4B: 73 LDA R0 ;0E4C: 40 ANI 7FH ;0E4D: FA 7F STR R6 ;0E4F: 56 OUT 2 ;0E50: 62 LDA R0 ;0E51: 40 PHI RF ;0E52: BF LDA R0 ;0E53: 40 PLO RF ;0E54: AF LDA R0 ;0E55: 40 PHI RE ;0E56: BE LDA R0 ;0E57: 40 PLO RE ;0E58: AE LDA R0 ;0E59: 40 PHI RD ;0E5A: BD LDA R0 ;0E5B: 40 PLO RD ;0E5C: AD LDA R0 ;0E5D: 40 PHI RC ;0E5E: BC LDA R0 ;0E5F: 40 PLO RC ;0E60: AC LDA R0 ;0E61: 40 PHI RB ;0E62: BB LDA R0 ;0E63: 40 PLO RB ;0E64: AB LDA R0 ;0E65: 40 PHI RA ;0E66: BA LDA R0 ;0E67: 40 PLO RA ;0E68: AA LDA R0 ;0E69: 40 PHI R9 ;0E6A: B9 LDA R0 ;0E6B: 40 PLO R9 ;0E6C: A9 LDA R0 ;0E6D: 40 PHI R8 ;0E6E: B8 LDA R0 ;0E6F: 40 PLO R8 ;0E70: A8 LDA R0 ;0E71: 40 PHI R7 ;0E72: B7 LDA R0 ;0E73: 40 PLO R7 ;0E74: A7 LDA R0 ;0E75: 40 PHI R6 ;0E76: B6 LDA R0 ;0E77: 40 PLO R6 ;0E78: A6 LDA R0 ;0E79: 40 PHI R5 ;0E7A: B5 LDA R0 ;0E7B: 40 PLO R5 ;0E7C: A5 LDA R0 ;0E7D: 40 PHI R4 ;0E7E: B4 LDA R0 ;0E7F: 40 PLO R4 ;0E80: A4 LDA R0 ;0E81: 40 PHI R3 ;0E82: B3 LDA R0 ;0E83: 40 PLO R3 ;0E84: A3 LDA R0 ;0E85: 40 PHI R2 ;0E86: B2 LDA R0 ;0E87: 40 PLO R2 ;0E88: A2 LDA R0 ;0E89: 40 SHR ;0E8A: F6 REQ ;0E8B: 7A BZ R0E8F ;0E8C: 32 8F SEQ ;0E8E: 7B R0E8F LDA R0 ;0E8F: 40 SEX R0 ;0E90: E0 RET ;0E91: 70 S0E92 SEX R0 ;0E92: E0 DEC R0 ;0E93: 20 SAV ;0E94: 78 DEC R0 ;0E95: 20 STXD ;0E96: 73 SEX R1 ;0E97: E1 OUT 1 ;0E98: 61 DB 00H ;0E99: 00 OUT 2 ;0E9A: 62 DB 00H ;0E9B: 00 OUT 4 ;0E9C: 64 DB 00H ;0E9D: 00 SEX R0 ;0E9E: E0 LDI 00H ;0E9F: F8 00 LSNQ ;0EA1: C5 LDI 01H ;0EA2: F8 01 SHLC ;0EA4: 7E STXD ;0EA5: 73 GLO R2 ;0EA6: 82 STXD ;0EA7: 73 GHI R2 ;0EA8: 92 STXD ;0EA9: 73 GLO R3 ;0EAA: 83 STXD ;0EAB: 73 GHI R3 ;0EAC: 93 STXD ;0EAD: 73 GLO R4 ;0EAE: 84 STXD ;0EAF: 73 GHI R4 ;0EB0: 94 STXD ;0EB1: 73 GLO R5 ;0EB2: 85 STXD ;0EB3: 73 GHI R5 ;0EB4: 95 STXD ;0EB5: 73 GLO R6 ;0EB6: 86 STXD ;0EB7: 73 GHI R6 ;0EB8: 96 STXD ;0EB9: 73 GLO R7 ;0EBA: 87 STXD ;0EBB: 73 GHI R7 ;0EBC: 97 STXD ;0EBD: 73 GLO R8 ;0EBE: 88 STXD ;0EBF: 73 GHI R8 ;0EC0: 98 STXD ;0EC1: 73 GLO R9 ;0EC2: 89 STXD ;0EC3: 73 GHI R9 ;0EC4: 99 STXD ;0EC5: 73 GLO RA ;0EC6: 8A STXD ;0EC7: 73 GHI RA ;0EC8: 9A STXD ;0EC9: 73 GLO RB ;0ECA: 8B STXD ;0ECB: 73 GHI RB ;0ECC: 9B STXD ;0ECD: 73 GLO RC ;0ECE: 8C STXD ;0ECF: 73 GHI RC ;0ED0: 9C STXD ;0ED1: 73 GLO RD ;0ED2: 8D STXD ;0ED3: 73 GHI RD ;0ED4: 9D STXD ;0ED5: 73 GLO RE ;0ED6: 8E STXD ;0ED7: 73 GHI RE ;0ED8: 9E STXD ;0ED9: 73 GLO RF ;0EDA: 8F STXD ;0EDB: 73 GHI RF ;0EDC: 9F STXD ;0EDD: 73 LDI 81H ;0EDE: F8 81 PHI RE ;0EE0: BE LDI 00H ;0EE1: F8 00 PLO RE ;0EE3: AE LDA RE ;0EE4: 4E STXD ;0EE5: 73 LDA RE ;0EE6: 4E STXD ;0EE7: 73 LDA RE ;0EE8: 4E STXD ;0EE9: 73 INP 1 ;0EEA: 69 ANI 08H ;0EEB: FA 08 ADI 0FFH ;0EED: FC FF LDI 09H ;0EEF: F8 09 PLO RE ;0EF1: AE LDN RE ;0EF2: 0E STR R0 ;0EF3: 50 GLO R0 ;0EF4: 80 SHL ;0EF5: FE PLO R4 ;0EF6: A4 LDI 00H ;0EF7: F8 00 STR RE ;0EF9: 5E PLO R0 ;0EFA: A0 GLO R4 ;0EFB: 84 STR R0 ;0EFC: 50 LDI 80H ;0EFD: F8 80 PHI R4 ;0EFF: B4 LDI 26H ;0F00: F8 26 PLO R4 ;0F02: A4 LDI 01H ;0F03: F8 01 STR R4 ;0F05: 54 LDI 03H ;0F06: F8 03 PHI R3 ;0F08: B3 LDI 0D0H ;0F09: F8 D0 PLO R3 ;0F0B: A3 SEP R3 ;0F0C: D3 DB 00H ;0F0D: 00 S0F0E SEX R3 ;0F0E: E3 DIS ;0F0F: 71 DB 33H ;0F10: 33 LDI 0EH ;0F11: F8 0E PHI R1 ;0F13: B1 LDI 40H ;0F14: F8 40 PLO R1 ;0F16: A1 GHI R2 ;0F17: 92 PHI R0 ;0F18: B0 GHI RF ;0F19: 9F PLO R0 ;0F1A: A0 LDA R0 ;0F1B: 40 SHR ;0F1C: F6 PLO R0 ;0F1D: A0 DIS ;0F1E: 71 DB 61H ;0F1F: 61 S0F20 LDI 82H ;0F20: F8 82 PHI RA ;0F22: BA LDI 13H ;0F23: F8 13 PLO RA ;0F25: AA LDA RA ;0F26: 4A PHI RD ;0F27: BD LDA RA ;0F28: 4A PLO RD ;0F29: AD LDA RA ;0F2A: 4A PHI R7 ;0F2B: B7 LDA RA ;0F2C: 4A PHI R2 ;0F2D: B2 LDA RA ;0F2E: 4A PLO R2 ;0F2F: A2 LDA RA ;0F30: 4A PHI RE ;0F31: BE LDA RA ;0F32: 4A PLO RE ;0F33: AE SEP RF ;0F34: DF S0F35 DB 3FH ;0F35: RSTOR DB 8CH ;0F36: RET S0F37 DB 3EH ;0F37: SYS 0F0E DB 8CH ;0F38: RET DB 00H ;0F39: 00 S0F3A LDI 02H ;0F3A: F8 02 S0F3C ADI 35H ;0F3C: FC 35 PLO R8 ;0F3E: A8 DEC R2 ;0F3F: 22 SEX R2 ;0F40: E2 MARK ;0F41: 79 DB 12H ;0F42: 12 DIS ;0F43: 71 DB 23H ;0F44: 23 LDI 80H ;0F45: F8 80 PHI R0 ;0F47: B0 LDI 26H ;0F48: F8 26 PLO R0 ;0F4A: A0 LDI 82H ;0F4B: F8 82 PHI RA ;0F4D: BA LDI 01H ;0F4E: F8 01 PLO RA ;0F50: AA GLO R8 ;0F51: 88 STR RA ;0F52: 5A LDI 80H ;0F53: F8 80 PHI RA ;0F55: BA GHI RF ;0F56: 9F PLO RA ;0F57: AA STR RA ;0F58: 5A GLO R7 ;0F59: 87 SMI 88H ;0F5A: FF 88 PLO RA ;0F5C: AA LDI 3CH ;0F5D: F8 3C LSDF ;0F5F: CF LDI 7AH ;0F60: F8 7A PLO RB ;0F62: AB LDI 0BH ;0F63: F8 0B PHI RB ;0F65: BB LDA RB ;0F66: 4B PHI R1 ;0F67: B1 LDA RB ;0F68: 4B PLO R1 ;0F69: A1 INC RA ;0F6A: 1A GLO RA ;0F6B: 8A LSNZ ;0F6C: C6 SEP R1 ;0F6D: D1 NOP ;0F6E: C4 RET ;0F6F: 70 SEP RF ;0F70: DF S0F71 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8026 ; ---------------------------------------------------------------------- ; Opcode: 0x45 ; Handler: 0x0F71 ; Token: 0B00+0x45 ; Definition: Push the 16-bit constant 0x8026 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x0F71. ; ====================================================================== DB 8FH, 80H, 26H ;0F71: 6 PUSH 8026 DB 8CH ;0F74: RET DB 00H ;0F75: 00 S0F76 LDA RE ;0F76: 4E SEX RE ;0F77: EE OR ;0F78: F1 BNZ R0F7D ;0F79: 3A 7D DEC RE ;0F7B: 2E SEP RF ;0F7C: DF R0F7D LDN RE ;0F7D: 0E PLO R4 ;0F7E: A4 DEC RE ;0F7F: 2E LDN RE ;0F80: 0E PHI R4 ;0F81: B4 DEC RE ;0F82: 2E GLO R4 ;0F83: 84 STR RE ;0F84: 5E DEC RE ;0F85: 2E GHI R4 ;0F86: 94 STR RE ;0F87: 5E SEP RF ;0F88: DF DB 00H ;0F89: 00 S0F8A ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH RE ; ---------------------------------------------------------------------- ; Opcode: 0x47 ; Handler: 0x0F8A ; Token: 0B00+0x47 ; Definition: Push the 16-bit data-stack pointer RE as a word (stack-position snapshot / frame marker) ; ; Implementation: ; GHI RE; PHI R4; GLO RE; DEC RE; STR RE; DEC RE; GHI R4; STR RE. ; ====================================================================== GHI RE ;0F8A: 9E PHI R4 ;0F8B: B4 GLO RE ;0F8C: 8E DEC RE ;0F8D: 2E STR RE ;0F8E: 5E DEC RE ;0F8F: 2E GHI R4 ;0F90: 94 STR RE ;0F91: 5E SEP RF ;0F92: DF DB 00H ;0F93: 00 S0F94 ; ; ====================================================================== ; PSEUDO INSTRUCTION: HASH TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0x48 ; Handler: 0x0F94 ; Token: 0B00+0x48 ; Definition: Memory-range walk with explicit base: pop base and count, accumulate M(R5) over the range ; ; Implementation: ; Same accumulation as HASH 07 but the base comes from the stack instead ; of the internal pointer table. ; ====================================================================== LDA RE ;0F94: 4E PHI R5 ;0F95: B5 LDA RE ;0F96: 4E PLO R5 ;0F97: A5 LDA RE ;0F98: 4E PHI R4 ;0F99: B4 LDA RE ;0F9A: 4E PLO R4 ;0F9B: A4 SEX R5 ;0F9C: E5 R0F9D GLO R4 ;0F9D: 84 BNZ R0FA7 ;0F9E: 3A A7 DEC RE ;0FA0: 2E GLO R5 ;0FA1: 85 STR RE ;0FA2: 5E DEC RE ;0FA3: 2E GHI R5 ;0FA4: 95 STR RE ;0FA5: 5E SEP RF ;0FA6: DF R0FA7 GLO R5 ;0FA7: 85 ADD ;0FA8: F4 PLO R5 ;0FA9: A5 GHI R5 ;0FAA: 95 ADCI 00H ;0FAB: 7C 00 PHI R5 ;0FAD: B5 INC R5 ;0FAE: 15 DEC R4 ;0FAF: 24 BR R0F9D ;0FB0: 30 9D S0FB2 ; ; ====================================================================== ; PSEUDO INSTRUCTION: FILL TOS.0, NOS.0, [3OS] ; ---------------------------------------------------------------------- ; Opcode: 0x49 ; Handler: 0x0FB2 ; Token: 0B00+0x49 ; Definition: Fill memory: pop fill byte, byte count, dest address ; ; Implementation: ; Pops 3 words but uses only the low bytes of the top two. ; ====================================================================== INC RE ;0FB2: 1E LDA RE ;0FB3: 4E PLO R4 ;0FB4: A4 INC RE ;0FB5: 1E LDA RE ;0FB6: 4E PLO R5 ;0FB7: A5 LDA RE ;0FB8: 4E PHI RA ;0FB9: BA LDA RE ;0FBA: 4E PLO RA ;0FBB: AA BR R0FC2 ;0FBC: 30 C2 R0FBE GLO R4 ;0FBE: 84 STR RA ;0FBF: 5A INC RA ;0FC0: 1A DEC R5 ;0FC1: 25 R0FC2 GLO R5 ;0FC2: 85 BNZ R0FBE ;0FC3: 3A BE SEP RF ;0FC5: DF S0FC6 SEX RE ;0FC6: EE INC RE ;0FC7: 1E GHI RE ;0FC8: 9E PHI RB ;0FC9: BB LDN RE ;0FCA: 0E SHL ;0FCB: FE STR RE ;0FCC: 5E GLO RE ;0FCD: 8E ADD ;0FCE: F4 PLO RB ;0FCF: AB GHI RB ;0FD0: 9B ADCI 00H ;0FD1: 7C 00 PHI RB ;0FD3: BB LDN RB ;0FD4: 0B STXD ;0FD5: 73 DEC RB ;0FD6: 2B LDN RB ;0FD7: 0B STR RE ;0FD8: 5E SEP RF ;0FD9: DF S0FDA ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH R2 ; ---------------------------------------------------------------------- ; Opcode: 0x4B ; Handler: 0x0FDA ; Token: 0B00+0x4B ; Definition: Push the 16-bit return-stack pointer R2 as a word ; ; Implementation: ; Companion of PUSH RE (0x47). ; ====================================================================== GLO R2 ;0FDA: 82 DEC RE ;0FDB: 2E STR RE ;0FDC: 5E GHI R2 ;0FDD: 92 DEC RE ;0FDE: 2E STR RE ;0FDF: 5E SEP RF ;0FE0: DF DB 00H ;0FE1: 00 S0FE2 ; ; ====================================================================== ; PSEUDO INSTRUCTION: XOR TOS, NOS ; ---------------------------------------------------------------------- ; Opcode: 0x4C ; Handler: 0x0FE2 ; Token: 0B00+0x4C ; Definition: 16-bit bitwise XOR: TOS = NOS XOR TOS ; ; Implementation: ; Pops both, pushes result. ; ====================================================================== SEX RE ;0FE2: EE LDA RE ;0FE3: 4E INC RE ;0FE4: 1E XOR ;0FE5: F3 STXD ;0FE6: 73 LDA RE ;0FE7: 4E INC RE ;0FE8: 1E XOR ;0FE9: F3 STXD ;0FEA: 73 SEP RF ;0FEB: DF S0FEC ; ; ====================================================================== ; PSEUDO INSTRUCTION: SHL NOS, TOS.0 ; ---------------------------------------------------------------------- ; Opcode: 0x4D ; Handler: 0x0FEC ; Token: 0B00+0x4D ; Definition: 16-bit variable-count left shift: TOS = NOS << TOS.0 ; ; Implementation: ; Pops count and value; loops a shift-left 16 times. ; ====================================================================== INC RE ;0FEC: 1E LDA RE ;0FED: 4E PLO R4 ;0FEE: A4 LDA RE ;0FEF: 4E PHI R5 ;0FF0: B5 LDN RE ;0FF1: 0E PLO R5 ;0FF2: A5 R0FF3 GLO R5 ;0FF3: 85 SHL ;0FF4: FE PLO R5 ;0FF5: A5 GHI R5 ;0FF6: 95 SHLC ;0FF7: 7E R0FF8 PHI R5 ;0FF8: B5 DEC R4 ;0FF9: 24 GLO R4 ;0FFA: 84 BNZ R0FF3 ;0FFB: 3A F3 GLO R5 ;0FFD: 85 STR RE ;0FFE: 5E DEC RE ;0FFF: 2E GHI R5 ;1000: 95 STR RE ;1001: 5E SEP RF ;1002: DF S1003 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 810B ; ---------------------------------------------------------------------- ; Opcode: 0x4E ; Handler: 0x1003 ; Token: 0B00+0x4E ; Definition: Push the 16-bit constant 0x810B ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x1003. ; ====================================================================== DB 8FH, 81H, 0BH ;1003: B PUSH 810B DB 8CH ;1006: RET S1007 DB 8FH, 80H, 02H ;1007: 2 PUSH 8002 DB 0DDH ;100A: LD [TOS], 0 DB 0EFH ;100B: SEND DB 0BFH ;100C: PUSH 8102 DB 0ACH ;100D: LD TOS.0, [TOS] DB 90H, 0FFH ;100E: PUSH FF DB 0B9H ;1010: ISEQ TOS, NOS DB 9EH, 05H ;1011: JZ 1017 DB 0A7H ;1013: DROP DB 90H, 05H ;1014: PUSH 05 DB 8CH ;1016: RET DB 0A8H ;1017: DUP DB 97H ;1018: PUSH 0001 DB 0B9H ;1019: ISEQ TOS, NOS DB 9EH, 04H ;101A: JZ 101F DB 8CH ;101C: RET DB 9FH, 20H ;101D: JP 103E DB 0A8H ;101F: DUP DB 0B5H ;1020: ISZ TOS DB 9EH, 19H ;1021: JZ 103B DB 0BEH ;1023: PUSH 8101 DB 0ACH ;1024: LD TOS.0, [TOS] DB 97H ;1025: PUSH 0001 DB 0B9H ;1026: ISEQ TOS, NOS DB 9EH, 05H ;1027: JZ 102D DB 0A7H ;1029: DROP DB 98H ;102A: PUSH 0002 DB 9FH, 0CH ;102B: JP 1038 DB 0CDH ;102D: PUSH 812F DB 0EEH ;102E: DEC [TOS] DB 0CDH ;102F: PUSH 812F DB 0ABH ;1030: LD TOS, [TOS] DB 0B5H ;1031: ISZ TOS DB 9EH, 05H ;1032: JZ 1038 DB 0A7H ;1034: DROP DB 90H, 04H ;1035: PUSH 04 DB 8CH ;1037: RET DB 8CH ;1038: RET DB 9FH, 04H ;1039: JP 103E DB 0A7H ;103B: DROP DB 90H, 03H ;103C: PUSH 03 DB 8CH ;103E: RET S103F ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 1043 ; ---------------------------------------------------------------------- ; Opcode: 0x51 ; Handler: 0x103F ; Token: 0B00+0x51 ; Definition: Push the 16-bit constant 0x1043 (keypad conversion table base) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x103F. The 0x1043 table ; is 2 columns x 39 entries. ; ====================================================================== DB 8FH, 10H, 43H ;103F: 3 PUSH 1043 DB 8CH ;1042: RET ; ; ====================================================================== ; DATA AREA: KEYPAD CONVERSION TABLE (2 columns x 39 entries) ; Range: 0x1043-0x1090 ; ---------------------------------------------------------------------- ; Base 0x1043, pushed by token A2 (data-subroutine at 0x103F) and ; referenced inline at 0x112C. Indexed twice per key: ; ; PUSH 1043; +keycode -> M[0x1043+key] = column A ; PUSH 27; +keycode (+0x27) -> M[0x1043+key+0x27] = column B ; ; Column A (0x1043-0x1069): display characters ; ' ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.-' ; Column B (0x106A-0x1090): host/transmit bytes with bit 7 set ; 40 C1-C9 D1-D9 E2-E9 F0-F9 4B 60 ; ; Column A is written to the display buffer (810B+[810A]); column B to ; the transmit buffer at 81DB+[810A]. Keycode source: M[0x80A0] (0-38). ; Bit 7 on column B = shifted/function-key marker; the trailing 4B ('K') ; and 60 ('`') entries deliberately lack bit 7. ; NOTE: keep column B as individual DB hex lines — a printable string ; would strip bit 7 and corrupt the table (see revB vs revC). ; ====================================================================== DB ' ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.-';1043: 20 ;1044: 41 ;1045: 42 ;1046: 43 ;1047: 44 ;1048: 45 ;1049: 46 ;104A: 47 ;104B: 48 ;104C: 49 ;104D: 4A ;104E: 4B ;104F: 4C ;1050: 4D ;1051: 4E ;1052: 4F ;1053: 50 ;1054: 51 ;1055: 52 ;1056: 53 ;1057: 54 ;1058: 55 ;1059: 56 ;105A: 57 ;105B: 58 ;105C: 59 ;105D: 5A ;105E: 30 ;105F: 31 ;1060: 32 ;1061: 33 ;1062: 34 ;1063: 35 ;1064: 36 ;1065: 37 ;1066: 38 ;1067: 39 ;1068: 2E ;1069: 2D DB 40H ;106A: 40 DB 0C1H ;106B: C1 DB 0C2H ;106C: C2 DB 0C3H ;106D: C3 DB 0C4H ;106E: C4 DB 0C5H ;106F: C5 DB 0C6H ;1070: C6 DB 0C7H ;1071: C7 DB 0C8H ;1072: C8 DB 0C9H ;1073: C9 DB 0D1H ;1074: D1 DB 0D2H ;1075: D2 DB 0D3H ;1076: D3 DB 0D4H ;1077: D4 DB 0D5H ;1078: D5 DB 0D6H ;1079: D6 DB 0D7H ;107A: D7 DB 0D8H ;107B: D8 DB 0D9H ;107C: D9 DB 0E2H ;107D: E2 DB 0E3H ;107E: E3 DB 0E4H ;107F: E4 DB 0E5H ;1080: E5 DB 0E6H ;1081: E6 DB 0E7H ;1082: E7 DB 0E8H ;1083: E8 DB 0E9H ;1084: E9 DB 0F0H ;1085: F0 DB 0F1H ;1086: F1 DB 0F2H ;1087: F2 DB 0F3H ;1088: F3 DB 0F4H ;1089: F4 DB 0F5H ;108A: F5 DB 0F6H ;108B: F6 DB 0F7H ;108C: F7 DB 0F8H ;108D: F8 DB 0F9H ;108E: F9 DB 4BH ;108F: 4B DB 60H ;1090: 60 S1091 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 1095 ; ---------------------------------------------------------------------- ; Opcode: 0x52 ; Handler: 0x1091 ; Token: 0B00+0x52 ; Definition: Push the 16-bit constant 0x1095 (menu label ' 200') ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x1091. ; ====================================================================== ; ; ====================================================================== ; DATA AREA: MENU LABEL STRINGS ; Range: 0x1091-0x10AE ; ---------------------------------------------------------------------- ; Selection menu entries, each an ASCII label followed by a 3-byte ; parameter block: ; ; 0x1095 ' 200' -> 01 9C 00 ; 0x109C ' 400' -> 03 50 00 ; 0x10A3 ' 600' -> 04 F0 00 ; 0x10AA 'NONE' -> 00 01 00 00 00 ; ====================================================================== DB 8FH, 10H, 95H ;1091: 5 PUSH 1095 DB 8CH ;1094: RET DB ' 200' ;1095: 20 ;1096: 32 ;1097: 30 ;1098: 30 DB 01H ;1099: 01 DB 9CH ;109A: 9C DB 00H ;109B: 00 DB ' 400' ;109C: 20 ;109D: 34 ;109E: 30 ;109F: 30 DB 03H ;10A0: 03 DB 50H ;10A1: 50 DB 00H ;10A2: 00 DB ' 600' ;10A3: 20 ;10A4: 36 ;10A5: 30 ;10A6: 30 DB 04H ;10A7: 04 DB 0F0H ;10A8: F0 DB 00H ;10A9: 00 DB 'NONE' ;10AA: 4E ;10AB: 4F ;10AC: 4E ;10AD: 45 DB 00H ;10AE: 00 DB 01H ;10AF: 01 DB 00H ;10B0: 00 DB 00H ;10B1: 00 DB 00H ;10B2: 00 S10B3 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 10B7 ; ---------------------------------------------------------------------- ; Opcode: 0x53 ; Handler: 0x10B3 ; Token: 0B00+0x53 ; Definition: Push the 16-bit constant 0x10B7 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10B3. ; ====================================================================== DB 8FH, 10H, 0B7H ;10B3: 7 PUSH 10B7 DB 8CH ;10B6: RET DB 32H ;10B7: 32 DB 32H ;10B8: 32 DB 10H ;10B9: 10 DB 02H ;10BA: 02 S10BB ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 10BF ; ---------------------------------------------------------------------- ; Opcode: 0x54 ; Handler: 0x10BB ; Token: 0B00+0x54 ; Definition: Push the 16-bit constant 0x10BF ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10BB. ; ====================================================================== DB 8FH, 10H, 0BFH ;10BB: F PUSH 10BF DB 8CH ;10BE: RET DB 32H ;10BF: 32 DB 32H ;10C0: 32 DB 01H ;10C1: 01 DB 5CH ;10C2: 5C S10C3 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 10C7 ; ---------------------------------------------------------------------- ; Opcode: 0x55 ; Handler: 0x10C3 ; Token: 0B00+0x55 ; Definition: Push the 16-bit constant 0x10C7 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10C3. ; ====================================================================== DB 8FH, 10H, 0C7H ;10C3: 7 PUSH 10C7 DB 8CH ;10C6: RET DB 10H ;10C7: 10 DB 26H ;10C8: 26 S10C9 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 10CD ; ---------------------------------------------------------------------- ; Opcode: 0x56 ; Handler: 0x10C9 ; Token: 0B00+0x56 ; Definition: Push the 16-bit constant 0x10CD ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10C9. ; ====================================================================== DB 8FH, 10H, 0CDH ;10C9: D PUSH 10CD DB 8CH ;10CC: RET DB 10H ;10CD: 10 DB 03H ;10CE: 03 S10CF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 10D3 ; ---------------------------------------------------------------------- ; Opcode: 0x57 ; Handler: 0x10CF ; Token: 0B00+0x57 ; Definition: Push the 16-bit constant 0x10D3 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10CF. ; ====================================================================== DB 8FH, 10H, 0D3H ;10CF: 3 PUSH 10D3 DB 8CH ;10D2: RET DB 0FFH ;10D3: FF DB 0FFH ;10D4: FF S10D5 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 10D9 ; ---------------------------------------------------------------------- ; Opcode: 0x58 ; Handler: 0x10D5 ; Token: 0B00+0x58 ; Definition: Push the 16-bit constant 0x10D9 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10D5. ; ====================================================================== DB 8FH, 10H, 0D9H ;10D5: 9 PUSH 10D9 DB 8CH ;10D8: RET DB 32H ;10D9: 32 DB 32H ;10DA: 32 DB 32H ;10DB: 32 DB 2DH ;10DC: 2D DB 0FFH ;10DD: FF DB 0FFH ;10DE: FF S10DF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81FD ; ---------------------------------------------------------------------- ; Opcode: 0x59 ; Handler: 0x10DF ; Token: 0B00+0x59 ; Definition: Push the 16-bit constant 0x81FD ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10DF. ; ====================================================================== DB 8FH, 81H, 0FDH ;10DF: D PUSH 81FD DB 8CH ;10E2: RET S10E3 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81FE ; ---------------------------------------------------------------------- ; Opcode: 0x5A ; Handler: 0x10E3 ; Token: 0B00+0x5A ; Definition: Push the 16-bit constant 0x81FE ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10E3. ; ====================================================================== DB 8FH, 81H, 0FEH ;10E3: E PUSH 81FE DB 8CH ;10E6: RET S10E7 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81FF ; ---------------------------------------------------------------------- ; Opcode: 0x5B ; Handler: 0x10E7 ; Token: 0B00+0x5B ; Definition: Push the 16-bit constant 0x81FF ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10E7. ; ====================================================================== DB 8FH, 81H, 0FFH ;10E7: F PUSH 81FF DB 8CH ;10EA: RET S10EB ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 80A0 ; ---------------------------------------------------------------------- ; Opcode: 0x5C ; Handler: 0x10EB ; Token: 0B00+0x5C ; Definition: Push the 16-bit constant 0x80A0 (keycode variable address) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10EB. ; ====================================================================== DB 8FH, 80H, 0A0H ;10EB: 0 PUSH 80A0 DB 8CH ;10EE: RET S10EF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 80A2 ; ---------------------------------------------------------------------- ; Opcode: 0x5D ; Handler: 0x10EF ; Token: 0B00+0x5D ; Definition: Push the 16-bit constant 0x80A2 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10EF. ; ====================================================================== DB 8FH, 80H, 0A2H ;10EF: 2 PUSH 80A2 DB 8CH ;10F2: RET S10F3 DB 90H, 0BH ;10F3: PUSH 0B DB 36H ;10F5: CALL 1D71 DB 0ABH ;10F6: LD TOS, [TOS] DB 09H ;10F7: PUSH 81FB DB 0ADH ;10F8: LD [TOS], NOS DB 8CH ;10F9: RET DB 00H ;10FA: 00 S10FB ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 80A4 ; ---------------------------------------------------------------------- ; Opcode: 0x5F ; Handler: 0x10FB ; Token: 0B00+0x5F ; Definition: Push the 16-bit constant 0x80A4 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10FB. ; ====================================================================== DB 8FH, 80H, 0A4H ;10FB: 4 PUSH 80A4 DB 8CH ;10FE: RET S10FF ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 80A6 ; ---------------------------------------------------------------------- ; Opcode: 0x60 ; Handler: 0x10FF ; Token: 0B00+0x60 ; Definition: Push the 16-bit constant 0x80A6 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x10FF. ; ====================================================================== DB 8FH, 80H, 0A6H ;10FF: 6 PUSH 80A6 DB 8CH ;1102: RET S1103 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 80A8 ; ---------------------------------------------------------------------- ; Opcode: 0x61 ; Handler: 0x1103 ; Token: 0B00+0x61 ; Definition: Push the 16-bit constant 0x80A8 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x1103. ; ====================================================================== DB 8FH, 80H, 0A8H ;1103: 8 PUSH 80A8 DB 8CH ;1106: RET S1107 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 80AA ; ---------------------------------------------------------------------- ; Opcode: 0x62 ; Handler: 0x1107 ; Token: 0B00+0x62 ; Definition: Push the 16-bit constant 0x80AA ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x1107. ; ====================================================================== DB 8FH, 80H, 0AAH ;1107: A PUSH 80AA DB 8CH ;110A: RET S110B ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 80AC ; ---------------------------------------------------------------------- ; Opcode: 0x63 ; Handler: 0x110B ; Token: 0B00+0x63 ; Definition: Push the 16-bit constant 0x80AC (runtime pointer variable) ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x110B. ; ====================================================================== DB 8FH, 80H, 0ACH ;110B: C PUSH 80AC DB 8CH ;110E: RET S110F ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8027 ; ---------------------------------------------------------------------- ; Opcode: 0x64 ; Handler: 0x110F ; Token: 0B00+0x64 ; Definition: Push the 16-bit constant 0x8027 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x110F. ; ====================================================================== DB 8FH, 80H, 27H ;110F: 7 PUSH 8027 DB 8CH ;1112: RET S1113 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 8028 ; ---------------------------------------------------------------------- ; Opcode: 0x65 ; Handler: 0x1113 ; Token: 0B00+0x65 ; Definition: Push the 16-bit constant 0x8028 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x1113. ; ====================================================================== DB 8FH, 80H, 28H ;1113: 8 PUSH 8028 DB 8CH ;1116: RET S1117 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 802A ; ---------------------------------------------------------------------- ; Opcode: 0x66 ; Handler: 0x1117 ; Token: 0B00+0x66 ; Definition: Push the 16-bit constant 0x802A ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x1117. ; ====================================================================== DB 8FH, 80H, 2AH ;1117: A PUSH 802A DB 8CH ;111A: RET S111B DB 90H, 09H ;111B: PUSH 09 DB 07H ;111D: HASH TOS DB 0DCH ;111E: LDMSG TOS DB 0EFH ;111F: SEND DB 92H, 0FEH ;1120: JZ 111F DB 0D9H ;1122: CLS DB 0C5H ;1123: PUSH 810A DB 0DDH ;1124: LD [TOS], 0 DB 0C6H ;1125: PUSH 810B DB 99H ;1126: PUSH 0010 DB 90H, 5FH ;1127: PUSH 5F DB 49H ;1129: FILL TOS.0,NOS.0,[3OS] DB 5CH ;112A: PUSH 80A0 DB 0DDH ;112B: LD [TOS], 0 DB 51H ;112C: PUSH 1043 DB 5CH ;112D: PUSH 80A0 DB 0ACH ;112E: LD TOS.0, [TOS] DB 0B3H ;112F: ADD TOS, NOS DB 0A8H ;1130: DUP DB 0ACH ;1131: LD TOS.0, [TOS] DB 0D1H ;1132: LD 810B+[810A],NOS.0 DB 90H, 27H ;1133: PUSH 27 DB 0B3H ;1135: ADD TOS, NOS DB 0ACH ;1136: LD TOS.0, [TOS] DB 0C7H ;1137: PUSH 81DB DB 0CEH ;1138: PUSH [810A] DB 0B3H ;1139: ADD TOS, NOS DB 0AEH ;113A: LD [TOS], NOS.0 DB 0EFH ;113B: SEND DB 0A8H ;113C: DUP DB 5DH ;113D: PUSH 80A2 DB 0AEH ;113E: LD [TOS], NOS.0 DB 0B5H ;113F: ISZ TOS DB 9EH, 09H ;1140: JZ 114A DB 90H, 06H ;1142: PUSH 06 DB 0D2H ;1144: PUSH [8107] DB 0FEH ;1145: CALL 065F DB 9EH, 03H ;1146: JZ 114A DB 0C2H ;1148: PUSH 8107 DB 0DDH ;1149: LD [TOS], 0 DB 96H ;114A: PUSH 0000 DB 0D2H ;114B: PUSH [8107] DB 90H, 15H ;114C: PUSH 15 DB 0B2H ;114E: SUB TOS, NOS DB 46H ;114F: SYS 0F76 DB 9EH, 13H ;1150: JZ 1164 DB 0CAH ;1152: SUB TOS, 1 DB 46H ;1153: SYS 0F76 DB 9EH, 0AH ;1154: JZ 115F DB 0CAH ;1156: SUB TOS, 1 DB 0B5H ;1157: ISZ TOS DB 9EH, 04H ;1158: JZ 115D DB 5CH ;115A: PUSH 80A0 DB 0FBH ;115B: INCB [TOS] DB 97H ;115C: PUSH 0001 DB 9FH, 04H ;115D: JP 1162 DB 5CH ;115F: PUSH 80A0 DB 0FCH ;1160: DECB [TOS] DB 97H ;1161: PUSH 0001 DB 9FH, 05H ;1162: JP 1168 DB 0A7H ;1164: DROP DB 5DH ;1165: PUSH 80A2 DB 0ACH ;1166: LD TOS.0, [TOS] DB 46H ;1167: SYS 0F76 DB 92H, 0D2H ;1168: JZ 113B DB 5CH ;116A: PUSH 80A0 DB 0ACH ;116B: LD TOS.0, [TOS] DB 90H, 26H ;116C: PUSH 26 DB 0D7H ;116E: DIVR NOS, TOS.0 DB 0A9H ;116F: SWAP DB 0A7H ;1170: DROP DB 46H ;1171: SYS 0F76 DB 9EH, 0CH ;1172: JZ 117F DB 97H ;1174: PUSH 0001 DB 0B9H ;1175: ISEQ TOS, NOS DB 9EH, 04H ;1176: JZ 117B DB 96H ;1178: PUSH 0000 DB 9FH, 03H ;1179: JP 117D DB 90H, 26H ;117B: PUSH 26 DB 5CH ;117D: PUSH 80A0 DB 0AEH ;117E: LD [TOS], NOS.0 DB 92H, 0ACH ;117F: JZ 112C DB 0D0H ;1181: LD TOS.0,810B+[810A] DB 9AH ;1182: PUSH 0020 DB 0B9H ;1183: ISEQ TOS, NOS DB 0A8H ;1184: DUP DB 0B5H ;1185: ISZ TOS DB 9EH, 03H ;1186: JZ 118A DB 0C5H ;1188: PUSH 810A DB 0FBH ;1189: INCB [TOS] DB 0CEH ;118A: PUSH [810A] DB 99H ;118B: PUSH 0010 DB 0B9H ;118C: ISEQ TOS, NOS DB 0B1H ;118D: OR TOS, NOS DB 92H, 9BH ;118E: JZ 112A DB 0C7H ;1190: PUSH 81DB DB 60H ;1191: PUSH 80A6 DB 0ADH ;1192: LD [TOS], NOS DB 0CEH ;1193: PUSH [810A] DB 0A8H ;1194: DUP DB 5FH ;1195: PUSH 80A4 DB 0ADH ;1196: LD [TOS], NOS DB 90H, 0F0H ;1197: PUSH F0 DB 0A9H ;1199: SWAP DB 9EH, 02H ;119A: JZ 119D DB 0C8H ;119C: ADD TOS, 1 DB 66H ;119D: PUSH 802A DB 0C8H ;119E: ADD TOS, 1 DB 0AEH ;119F: LD [TOS], NOS.0 DB 8CH ;11A0: RET DB 00H ;11A1: 00 S11A2 LDI 08H ;11A2: F8 08 PHI R9 ;11A4: B9 LDI 78H ;11A5: F8 78 PLO R9 ;11A7: A9 INC RE ;11A8: 1E LDA RE ;11A9: 4E SEP R9 ;11AA: D9 SEP RF ;11AB: DF DB 00H ;11AC: 00 S11AD ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD TOS, [80AC] ; ---------------------------------------------------------------------- ; Opcode: 0x6A ; Handler: 0x11AD ; Token: 0B00+0x6A ; Definition: Fetch the 16-bit word at the fixed RAM address 0x80AC and push it (runtime pointer read) ; ; Implementation: ; Wraps PUSH 80AC; LD TOS,[TOS]. M[0x80AC] is a runtime pointer variable ; initialized to 0x810B. ; ====================================================================== DB 63H ;11AD: PUSH 80AC DB 0ABH ;11AE: LD TOS, [TOS] DB 8CH ;11AF: RET DB 00H ;11B0: 00 S11B1 DB 63H ;11B1: PUSH 80AC DB 0ADH ;11B2: LD [TOS], NOS DB 24H ;11B3: PUSH EF1 DB 9EH, 23H ;11B4: JZ 11D8 DB 0EAH ;11B6: OUT 2, 20 DB 29H ;11B7: CALL 084D DB 64H ;11B8: PUSH 8027 DB 0DDH ;11B9: LD [TOS], 0 DB 58H ;11BA: PUSH 10D9 DB 6AH ;11BB: LD TOS, [80AC] DB 90H, 06H ;11BC: PUSH 06 DB 0BAH ;11BE: MCPY [NOS], [3OS] DB 8FH, 10H, 70H ;11BF: 0 PUSH 1070 DB 6AH ;11C2: LD TOS, [80AC] DB 0C9H ;11C3: ADD TOS, 2 DB 0ADH ;11C4: LD [TOS], NOS DB 90H, 0AH ;11C5: PUSH 0A DB 0A1H ;11C7: PUSHR 0 DB 33H ;11C8: SYS 1F0E DB 46H ;11C9: SYS 0F76 DB 0B5H ;11CA: ISZ TOS DB 9EH, 03H ;11CB: JZ 11CF DB 97H ;11CD: PUSH 0001 DB 8DH ;11CE: RET DROP, 4 DB 90H, 2DH ;11CF: PUSH 2D DB 0B9H ;11D1: ISEQ TOS, NOS DB 9EH, 03H ;11D2: JZ 11D6 DB 96H ;11D4: PUSH 0000 DB 8DH ;11D5: RET DROP, 4 DB 94H, 0F1H ;11D6: LOOP 11C8 DB 97H ;11D8: PUSH 0001 DB 8CH ;11D9: RET DB 00H ;11DA: 00 S11DB ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH 81D5 ; ---------------------------------------------------------------------- ; Opcode: 0x6C ; Handler: 0x11DB ; Token: 0B00+0x6C ; Definition: Push the 16-bit constant 0x81D5 ; ; Implementation: ; Dedicated combined opcode replacing CALL at 0x11DB. ; ====================================================================== DB 8FH, 81H, 0D5H ;11DB: 5 PUSH 81D5 DB 8CH ;11DE: RET S11DF ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD [81D5], [80A8], TOS ; ---------------------------------------------------------------------- ; Opcode: 0x6D ; Handler: 0x11DF ; Token: 0B00+0x6D ; Definition: Store the popped 16-bit value TOS into the two fixed RAM locations 0x81D5 and 0x80A8 ; ; Implementation: ; Wraps DUP; PUSH 81D5; LD [TOS],NOS; PUSH 80A8; LD [TOS],NOS. ; ====================================================================== DB 0A8H ;11DF: DUP DB 6CH ;11E0: PUSH 81D5 DB 0ADH ;11E1: LD [TOS], NOS DB 61H ;11E2: PUSH 80A8 DB 0ADH ;11E3: LD [TOS], NOS DB 8CH ;11E4: RET S11E5 DB 04H ;11E5: SEQ DB 09H ;11E6: PUSH 81FB DB 0ABH ;11E7: LD TOS, [TOS] DB 26H ;11E8: CALL 0835 DB 0A8H ;11E9: DUP DB 9EH, 09H ;11EA: JZ 11F4 DB 53H ;11EC: PUSH 10B7 DB 90H, 04H ;11ED: PUSH 04 DB 11H ;11EF: PUSH 8140 DB 0DFH ;11F0: SYS 1E02 DB 3BH ;11F1: TOUT TOS DB 9FH, 0DH ;11F2: JP 1200 DB 54H ;11F4: PUSH 10BF DB 90H, 04H ;11F5: PUSH 04 DB 90H, 39H ;11F7: PUSH 39 DB 11H ;11F9: PUSH 8140 DB 0ADH ;11FA: LD [TOS], NOS DB 3BH ;11FB: TOUT TOS DB 66H ;11FC: PUSH 802A DB 98H ;11FD: PUSH 0002 DB 68H ;11FE: SYS 0D4A DB 0B1H ;11FF: OR TOS, NOS DB 46H ;1200: SYS 0F76 DB 9EH, 06H ;1201: JZ 1208 DB 0A9H ;1203: SWAP DB 0E7H ;1204: ROT DB 0A7H ;1205: DROP DB 0A7H ;1206: DROP DB 8CH ;1207: RET DB 5DH ;1208: PUSH 80A2 DB 0ABH ;1209: LD TOS, [TOS] DB 5CH ;120A: PUSH 80A0 DB 0ABH ;120B: LD TOS, [TOS] DB 68H ;120C: SYS 0D4A DB 46H ;120D: SYS 0F76 DB 9EH, 06H ;120E: JZ 1215 DB 0A9H ;1210: SWAP DB 0E7H ;1211: ROT DB 0A7H ;1212: DROP DB 0A7H ;1213: DROP DB 8CH ;1214: RET DB 0A9H ;1215: SWAP DB 9EH, 06H ;1216: JZ 121D DB 56H ;1218: PUSH 10CD DB 90H, 03H ;1219: PUSH 03 DB 9FH, 04H ;121B: JP 1220 DB 55H ;121D: PUSH 10C7 DB 90H, 26H ;121E: PUSH 26 DB 69H ;1220: SYS 11A2 DB 0A9H ;1221: SWAP DB 9EH, 04H ;1222: JZ 1227 DB 98H ;1224: PUSH 0002 DB 9FH, 03H ;1225: JP 1229 DB 0C8H ;1227: ADD TOS, 1 DB 97H ;1228: PUSH 0001 DB 3BH ;1229: TOUT TOS DB 46H ;122A: SYS 0F76 DB 9EH, 02H ;122B: JZ 122E DB 8CH ;122D: RET DB 11H ;122E: PUSH 8140 DB 98H ;122F: PUSH 0002 DB 3BH ;1230: TOUT TOS DB 46H ;1231: SYS 0F76 DB 9EH, 02H ;1232: JZ 1235 DB 8CH ;1234: RET DB 57H ;1235: PUSH 10D3 DB 98H ;1236: PUSH 0002 DB 3BH ;1237: TOUT TOS DB 29H ;1238: CALL 084D DB 8CH ;1239: RET S123A ; ; ====================================================================== ; PSEUDO INSTRUCTION: SWAPB TOS ; ---------------------------------------------------------------------- ; Opcode: 0x6F ; Handler: 0x123A ; Token: 0B00+0x6F ; Definition: Byte-swap the top word: TOS = (TOS.0 << 8) | TOS.1 ; ; Implementation: ; Swaps high/low bytes of TOS in place; no depth change. ; ====================================================================== LDA RE ;123A: 4E PLO R8 ;123B: A8 LDN RE ;123C: 0E PLO R7 ;123D: A7 GLO R8 ;123E: 88 STR RE ;123F: 5E DEC RE ;1240: 2E GLO R7 ;1241: 87 STR RE ;1242: 5E SEP RF ;1243: DF DB 00H ;1244: 00 S1245 DB 58H ;1245: PUSH 10D9 DB 63H ;1246: PUSH 80AC DB 0ADH ;1247: LD [TOS], NOS DB 28H ;1248: CALL 0841 DB 8CH ;1249: RET DB 00H ;124A: 00 S124B DB 29H ;124B: CALL 084D DB 33H ;124C: SYS 1F0E DB 34H ;124D: SYS 1F34 DB 0A9H ;124E: SWAP DB 6FH ;124F: SWAPB TOS DB 0B1H ;1250: OR TOS, NOS DB 8CH ;1251: RET DB 00H ;1252: 00 S1253 DB 90H, 8CH ;1253: PUSH 8C DB 6DH ;1255: LD [81D5],[80A8],TOS DB 90H, 0F0H ;1256: PUSH F0 DB 66H ;1258: PUSH 802A DB 0AEH ;1259: LD [TOS], NOS.0 DB 67H ;125A: CALL 111B DB 39H ;125B: PUSH 0D23 DB 3AH ;125C: CALL 0D41 DB 52H ;125D: PUSH 1095 DB 5EH ;125E: CALL 10F3 DB 90H, 05H ;125F: PUSH 05 DB 07H ;1261: HASH TOS DB 0DCH ;1262: LDMSG TOS DB 0E8H ;1263: OUT 2, 40 DB 0F2H ;1264: CALL 05F7 DB 0E4H ;1265: INP1 08 DB 0B5H ;1266: ISZ TOS DB 92H, 0FCH ;1267: JZ 1264 DB 0EAH ;1269: OUT 2, 20 DB 37H ;126A: CALL 0D0B DB 90H, 0CH ;126B: PUSH 0C DB 07H ;126D: HASH TOS DB 0DCH ;126E: LDMSG TOS DB 0EFH ;126F: SEND DB 0A7H ;1270: DROP DB 58H ;1271: PUSH 10D9 DB 4EH ;1272: PUSH 810B DB 90H, 06H ;1273: PUSH 06 DB 0BAH ;1275: MCPY [NOS], [3OS] DB 0E9H ;1276: OUTM 2, 40 DB 8CH ;1277: RET DB 00H ;1278: 00 S1279 DB 4EH ;1279: PUSH 810B DB 63H ;127A: PUSH 80AC DB 0ADH ;127B: LD [TOS], NOS DB 58H ;127C: PUSH 10D9 DB 4EH ;127D: PUSH 810B DB 90H, 06H ;127E: PUSH 06 DB 0BAH ;1280: MCPY [NOS], [3OS] DB 8FH, 10H, 37H ;1281: 7 PUSH 1037 DB 4EH ;1284: PUSH 810B DB 0C9H ;1285: ADD TOS, 2 DB 0ADH ;1286: LD [TOS], NOS DB 28H ;1287: CALL 0841 DB 29H ;1288: CALL 084D DB 8CH ;1289: RET DB 00H ;128A: 00 S128B DB 73H ;128B: CALL 1279 DB 8FH, 08H, 00H ;128C: 0 PUSH 0800 DB 0A1H ;128F: PUSHR 0 DB 94H, 0FFH ;1290: LOOP 1290 DB 27H ;1292: CALL 083D DB 8CH ;1293: RET DB 00H ;1294: 00 S1295 DB 74H ;1295: CALL 128B DB 0A7H ;1296: DROP DB 90H, 35H ;1297: PUSH 35 DB 0CH ;1299: LDVAL TOS DB 16H ;129A: CALL 07CF DB 8CH ;129B: RET DB 00H ;129C: 00 S129D DB 9EH, 02H ;129D: JZ 12A0 DB 75H ;129F: CALL 1295 DB 8CH ;12A0: RET S12A1 DB 24H ;12A1: PUSH EF1 DB 9EH, 20H ;12A2: JZ 12C3 DB 64H ;12A4: PUSH 8027 DB 0DDH ;12A5: LD [TOS], 0 DB 90H, 14H ;12A6: PUSH 14 DB 0A1H ;12A8: PUSHR 0 DB 70H ;12A9: CALL 1245 DB 0A7H ;12AA: DROP DB 29H ;12AB: CALL 084D DB 33H ;12AC: SYS 1F0E DB 34H ;12AD: SYS 1F34 DB 90H, 70H ;12AE: PUSH 70 DB 0B9H ;12B0: ISEQ TOS, NOS DB 9EH, 0AH ;12B1: JZ 12BC DB 90H, 10H ;12B3: PUSH 10 DB 0B9H ;12B5: ISEQ TOS, NOS DB 9EH, 03H ;12B6: JZ 12BA DB 96H ;12B8: PUSH 0000 DB 8DH ;12B9: RET DROP, 4 DB 9FH, 02H ;12BA: JP 12BD DB 0A7H ;12BC: DROP DB 94H, 0EBH ;12BD: LOOP 12A9 DB 90H, 08H ;12BF: PUSH 08 DB 9FH, 02H ;12C1: JP 12C4 DB 97H ;12C3: PUSH 0001 DB 8CH ;12C4: RET S12C5 DB 90H, 07H ;12C5: PUSH 07 DB 0A1H ;12C7: PUSHR 0 DB 71H ;12C8: CALL 124B DB 0A8H ;12C9: DUP DB 8FH, 10H, 6BH ;12CA: B PUSH 106B DB 0B9H ;12CD: ISEQ TOS, NOS DB 9EH, 07H ;12CE: JZ 12D6 DB 0A7H ;12D0: DROP DB 70H ;12D1: CALL 1245 DB 0A7H ;12D2: DROP DB 96H ;12D3: PUSH 0000 DB 9FH, 02H ;12D4: JP 12D7 DB 97H ;12D6: PUSH 0001 DB 92H, 0F0H ;12D7: JZ 12C8 DB 0A8H ;12D9: DUP DB 64H ;12DA: PUSH 8027 DB 0ACH ;12DB: LD TOS.0, [TOS] DB 9EH, 06H ;12DC: JZ 12E3 DB 8FH, 10H, 70H ;12DE: 0 PUSH 1070 DB 9FH, 04H ;12E1: JP 12E6 DB 8FH, 10H, 61H ;12E3: 1 PUSH 1061 DB 0B9H ;12E6: ISEQ TOS, NOS DB 9EH, 09H ;12E7: JZ 12F1 DB 8FH, 10H, 61H ;12E9: 1 PUSH 1061 DB 0B9H ;12EC: ISEQ TOS, NOS DB 64H ;12ED: PUSH 8027 DB 0AEH ;12EE: LD [TOS], NOS.0 DB 96H ;12EF: PUSH 0000 DB 8DH ;12F0: RET DROP, 4 DB 0A8H ;12F1: DUP DB 8FH, 10H, 7CH ;12F2: C PUSH 107C DB 0B9H ;12F5: ISEQ TOS, NOS DB 9EH, 05H ;12F6: JZ 12FC DB 0A7H ;12F8: DROP DB 90H, 05H ;12F9: PUSH 05 DB 8DH ;12FB: RET DROP, 4 DB 0A8H ;12FC: DUP DB 8FH, 10H, 61H ;12FD: 1 PUSH 1061 DB 0B9H ;1300: ISEQ TOS, NOS DB 0AAH ;1301: OVER DB 8FH, 10H, 70H ;1302: 0 PUSH 1070 DB 0B9H ;1305: ISEQ TOS, NOS DB 0B1H ;1306: OR TOS, NOS DB 0AAH ;1307: OVER DB 8FH, 0FFH, 00H ;1308: 0 PUSH FF00 DB 0B0H ;130B: AND TOS, NOS DB 8FH, 3DH, 00H ;130C: 0 PUSH 3D00 DB 0B9H ;130F: ISEQ TOS, NOS DB 0B1H ;1310: OR TOS, NOS DB 9EH, 04H ;1311: JZ 1316 DB 0A7H ;1313: DROP DB 98H ;1314: PUSH 0002 DB 8DH ;1315: RET DROP, 4 DB 0A8H ;1316: DUP DB 8FH, 10H, 37H ;1317: 7 PUSH 1037 DB 0B9H ;131A: ISEQ TOS, NOS DB 9EH, 05H ;131B: JZ 1321 DB 0A7H ;131D: DROP DB 90H, 07H ;131E: PUSH 07 DB 8DH ;1320: RET DROP, 4 DB 8FH, 0FFH, 00H ;1321: 0 PUSH FF00 DB 0B0H ;1324: AND TOS, NOS DB 8FH, 37H, 00H ;1325: 0 PUSH 3700 DB 0B9H ;1328: ISEQ TOS, NOS DB 9EH, 04H ;1329: JZ 132E DB 90H, 06H ;132B: PUSH 06 DB 8DH ;132D: RET DROP, 4 DB 70H ;132E: CALL 1245 DB 46H ;132F: SYS 0F76 DB 9EH, 02H ;1330: JZ 1333 DB 8DH ;1332: RET DROP, 4 DB 94H, 94H ;1333: LOOP 12C8 DB 90H, 08H ;1335: PUSH 08 DB 8CH ;1337: RET DB 00H ;1338: 00 S1339 DB 61H ;1339: PUSH 80A8 DB 0ADH ;133A: LD [TOS], NOS DB 62H ;133B: PUSH 80AA DB 0ADH ;133C: LD [TOS], NOS DB 28H ;133D: CALL 0841 DB 46H ;133E: SYS 0F76 DB 9EH, 02H ;133F: JZ 1342 DB 8CH ;1341: RET DB 29H ;1342: CALL 084D DB 62H ;1343: PUSH 80AA DB 0ABH ;1344: LD TOS, [TOS] DB 2BH ;1345: SYS 0C00 DB 0A8H ;1346: DUP DB 90H, 03H ;1347: PUSH 03 DB 0B9H ;1349: ISEQ TOS, NOS DB 0AAH ;134A: OVER DB 90H, 26H ;134B: PUSH 26 DB 0B9H ;134D: ISEQ TOS, NOS DB 0B1H ;134E: OR TOS, NOS DB 11H ;134F: PUSH 8140 DB 0ABH ;1350: LD TOS, [TOS] DB 0B5H ;1351: ISZ TOS DB 0B0H ;1352: AND TOS, NOS DB 9EH, 0EH ;1353: JZ 1362 DB 64H ;1355: PUSH 8027 DB 0FBH ;1356: INCB [TOS] DB 2AH ;1357: CALL 0853 DB 90H, 26H ;1358: PUSH 26 DB 0B9H ;135A: ISEQ TOS, NOS DB 64H ;135B: PUSH 8027 DB 0C9H ;135C: ADD TOS, 2 DB 0ACH ;135D: LD TOS.0, [TOS] DB 97H ;135E: PUSH 0001 DB 0B9H ;135F: ISEQ TOS, NOS DB 96H ;1360: PUSH 0000 DB 8CH ;1361: RET DB 8FH, 32H, 3DH ;1362: D PUSH 323D DB 6AH ;1365: LD TOS, [80AC] DB 0C9H ;1366: ADD TOS, 2 DB 0ADH ;1367: LD [TOS], NOS DB 93H, 0D4H ;1368: JP 133D DB 8CH ;136A: RET S136B DB 72H ;136B: CALL 1253 DB 77H ;136C: CALL 12A1 DB 76H ;136D: CALL 129D DB 97H ;136E: PUSH 0001 DB 96H ;136F: PUSH 0000 DB 60H ;1370: PUSH 80A6 DB 0ABH ;1371: LD TOS, [TOS] DB 5FH ;1372: PUSH 80A4 DB 0ABH ;1373: LD TOS, [TOS] DB 79H ;1374: CALL 1C65 DB 76H ;1375: CALL 129D DB 4EH ;1376: PUSH 810B DB 63H ;1377: PUSH 80AC DB 0ADH ;1378: LD [TOS], NOS DB 8FH, 32H, 37H ;1379: 7 PUSH 3237 DB 4EH ;137C: PUSH 810B DB 0C9H ;137D: ADD TOS, 2 DB 0ADH ;137E: LD [TOS], NOS DB 28H ;137F: CALL 0841 DB 0A7H ;1380: DROP DB 0C6H ;1381: PUSH 810B DB 6BH ;1382: CALL 11B1 DB 76H ;1383: CALL 129D DB 13H ;1384: PUSH 8143 DB 90H, 8CH ;1385: PUSH 8C DB 7AH ;1387: CALL 1339 DB 76H ;1388: CALL 129D DB 0A7H ;1389: DROP DB 13H ;138A: PUSH 8143 DB 0C9H ;138B: ADD TOS, 2 DB 0C9H ;138C: ADD TOS, 2 DB 13H ;138D: PUSH 8143 DB 0ABH ;138E: LD TOS, [TOS] DB 13H ;138F: PUSH 8143 DB 90H, 03H ;1390: PUSH 03 DB 0B3H ;1392: ADD TOS, NOS DB 0ACH ;1393: LD TOS.0, [TOS] DB 30H ;1394: CALL 1ECF DB 0C0H ;1395: PUSH 8103 DB 0DFH ;1396: SYS 1E02 DB 0B5H ;1397: ISZ TOS DB 9EH, 12H ;1398: JZ 13AB DB 28H ;139A: CALL 0841 DB 0A7H ;139B: DROP DB 8FH, 08H, 00H ;139C: 0 PUSH 0800 DB 0A1H ;139F: PUSHR 0 DB 94H, 0FFH ;13A0: LOOP 13A0 DB 27H ;13A2: CALL 083D DB 8FH, 5AH, 5BH ;13A3: B PUSH 5A5B DB 0C0H ;13A6: PUSH 8103 DB 0ADH ;13A7: LD [TOS], NOS DB 12H ;13A8: PUSH 8142 DB 0DEH ;13A9: LD [TOS], 1 DB 17H ;13AA: CALL 07D5 DB 93H, 0D8H ;13AB: JP 1384 DB 8CH ;13AD: RET DB 00H ;13AE: 00 S13AF DB 81H ;13AF: SYS 0040 DB 4FH ;13B0: CALL 1007 DB 97H ;13B1: PUSH 0001 DB 0B9H ;13B2: ISEQ TOS, NOS DB 9EH, 05H ;13B3: JZ 13B9 DB 0D2H ;13B5: PUSH [8107] DB 97H ;13B6: PUSH 0001 DB 9FH, 02H ;13B7: JP 13BA DB 96H ;13B9: PUSH 0000 DB 8AH ;13BA: SYS 0044 DB 8CH ;13BB: RET S13BC SEX RE ;13BC: EE R13BD INP 6 ;13BD: 6E SHL ;13BE: FE BDF R13BD ;13BF: 33 BD INC RE ;13C1: 1E OUT 7 ;13C2: 67 SEP RF ;13C3: DF S13C4 SEX RE ;13C4: EE R13C5 INP 6 ;13C5: 6E SHL ;13C6: FE BDF R13C5 ;13C7: 33 C5 INC RE ;13C9: 1E OUT 6 ;13CA: 66 SEP RF ;13CB: DF S13CC LDI 0AH ;13CC: F8 0A PLO R6 ;13CE: A6 LDN R6 ;13CF: 06 STR RE ;13D0: 5E ADI 01H ;13D1: FC 01 STR R6 ;13D3: 56 LDI 0BH ;13D4: F8 0B SEX RE ;13D6: EE ADD ;13D7: F4 PLO R6 ;13D8: A6 R13D9 INP 6 ;13D9: 6E SHL ;13DA: FE BDF R13D9 ;13DB: 33 D9 INC RE ;13DD: 1E LDN RE ;13DE: 0E STR R6 ;13DF: 56 OUT 7 ;13E0: 67 SEP RF ;13E1: DF LDA RE ;13E2: 4E PHI R4 ;13E3: B4 LDA RE ;13E4: 4E PLO R4 ;13E5: A4 LDA RE ;13E6: 4E PHI R5 ;13E7: B5 LDA RE ;13E8: 4E PLO R5 ;13E9: A5 S13EA LDA RE ;13EA: 4E PHI R4 ;13EB: B4 LDA RE ;13EC: 4E PLO R4 ;13ED: A4 LDA RE ;13EE: 4E PHI R5 ;13EF: B5 LDA RE ;13F0: 4E PLO R5 ;13F1: A5 LDI 0AH ;13F2: F8 0A PLO R6 ;13F4: A6 LDN R6 ;13F5: 06 PHI R4 ;13F6: B4 SEX R6 ;13F7: E6 GLO R4 ;13F8: 84 ADD ;13F9: F4 STR R6 ;13FA: 56 GHI R4 ;13FB: 94 ADI 0BH ;13FC: FC 0B PLO R6 ;13FE: A6 DEC RE ;13FF: 2E R1400 GLO R4 ;1400: 84 BNZ R1405 ;1401: 3A 05 INC RE ;1403: 1E SEP RF ;1404: DF R1405 LDA R5 ;1405: 45 STR R6 ;1406: 56 SEX RE ;1407: EE R1408 INP 6 ;1408: 6E SHL ;1409: FE BDF R1408 ;140A: 33 08 SEX R6 ;140C: E6 OUT 7 ;140D: 67 DEC R4 ;140E: 24 BR R1400 ;140F: 30 00 DB 00H ;1411: 00 S1412 DEC RE ;1412: 2E SEX RE ;1413: EE INP 2 ;1414: 6A ANI 03H ;1415: FA 03 LSZ ;1417: CE XRI 03H ;1418: FB 03 BNZ R1420 ;141A: 3A 20 LDI 10H ;141C: F8 10 BR R1422 ;141E: 30 22 R1420 LDI 20H ;1420: F8 20 R1422 STR RE ;1422: 5E GHI RF ;1423: 9F DEC RE ;1424: 2E STR RE ;1425: 5E SEP RF ;1426: DF S1427 DB 05H ;1427: REQ DB 0CAH ;1428: SUB TOS, 1 DB 0B0H ;1429: AND TOS, NOS DB 0A8H ;142A: DUP DB 0C5H ;142B: PUSH 810A DB 0AEH ;142C: LD [TOS], NOS.0 DB 0A8H ;142D: DUP DB 90H, 0FH ;142E: PUSH 0F DB 0B7H ;1430: ISGT NOS, TOS DB 9EH, 07H ;1431: JZ 1439 DB 90H, 0FH ;1433: PUSH 0F DB 0B0H ;1435: AND TOS, NOS DB 90H, 40H ;1436: PUSH 40 DB 0B1H ;1438: OR TOS, NOS DB 90H, 80H ;1439: PUSH 80 DB 0B1H ;143B: OR TOS, NOS DB 02H ;143C: ABS TOS DB 8CH ;143D: RET DB 00H ;143E: 00 S143F DB 97H ;143F: PUSH 0001 DB 02H ;1440: ABS TOS DB 0C5H ;1441: PUSH 810A DB 0DDH ;1442: LD [TOS], 0 DB 0C6H ;1443: PUSH 810B DB 05H ;1444: REQ DB 90H, 20H ;1445: PUSH 20 DB 81H ;1447: SYS 0040 DB 49H ;1448: FILL TOS.0,NOS.0,[3OS] DB 8AH ;1449: SYS 0044 DB 8CH ;144A: RET S144B DB 98H ;144B: PUSH 0002 DB 02H ;144C: ABS TOS DB 0C5H ;144D: PUSH 810A DB 0DDH ;144E: LD [TOS], 0 DB 8CH ;144F: RET DB 00H ;1450: 00 S1451 DB 0C5H ;1451: PUSH 810A DB 0ACH ;1452: LD TOS.0, [TOS] DB 90H, 10H ;1453: PUSH 10 DB 0B0H ;1455: AND TOS, NOS DB 06H ;1456: PUSH 0693 DB 8CH ;1457: RET DB 00H ;1458: 00 S1459 DB 05H ;1459: REQ DB 99H ;145A: PUSH 0010 DB 0B9H ;145B: ISEQ TOS, NOS DB 9EH, 07H ;145C: JZ 1464 DB 0C5H ;145E: PUSH 810A DB 0ACH ;145F: LD TOS.0, [TOS] DB 07H ;1460: HASH TOS DB 06H ;1461: PUSH 0693 DB 9FH, 1CH ;1462: JP 147F DB 0C5H ;1464: PUSH 810A DB 0ACH ;1465: LD TOS.0, [TOS] DB 0A8H ;1466: DUP DB 90H, 0FH ;1467: PUSH 0F DB 0B7H ;1469: ISGT NOS, TOS DB 9EH, 11H ;146A: JZ 147C DB 0C6H ;146C: PUSH 810B DB 99H ;146D: PUSH 0010 DB 0B3H ;146E: ADD TOS, NOS DB 0A8H ;146F: DUP DB 0C6H ;1470: PUSH 810B DB 99H ;1471: PUSH 0010 DB 0BAH ;1472: MCPY [NOS], [3OS] DB 99H ;1473: PUSH 0010 DB 9AH ;1474: PUSH 0020 DB 81H ;1475: SYS 0040 DB 49H ;1476: FILL TOS.0,NOS.0,[3OS] DB 8AH ;1477: SYS 0044 DB 08H ;1478: SYS 072C DB 0C6H ;1479: PUSH 810B DB 9AH ;147A: PUSH 0020 DB 04H ;147B: SEQ DB 99H ;147C: PUSH 0010 DB 0B1H ;147D: OR TOS, NOS DB 06H ;147E: PUSH 0693 DB 8CH ;147F: RET DB 00H ;1480: 00 S1481 DB 09H ;1481: PUSH 81FB DB 0AH ;1482: PUSH 81D7 DB 8CH ;1483: RET S1484 SEX RE ;1484: EE DEC RE ;1485: 2E R1486 INP 6 ;1486: 6E SHL ;1487: FE BDF R1486 ;1488: 33 86 LDI 04H ;148A: F8 04 STR RE ;148C: 5E OUT 6 ;148D: 66 SEP RF ;148E: DF DB 00H ;148F: 00 S1490 SEX RE ;1490: EE DEC RE ;1491: 2E R1492 INP 6 ;1492: 6E SHL ;1493: FE BDF R1492 ;1494: 33 92 LDI 05H ;1496: F8 05 STR RE ;1498: 5E OUT 6 ;1499: 66 SEP RF ;149A: DF S149B DB 0A8H ;149B: DUP DB 0C8H ;149C: ADD TOS, 1 DB 0A9H ;149D: SWAP DB 0ACH ;149E: LD TOS.0, [TOS] DB 8CH ;149F: RET DB 00H ;14A0: 00 S14A1 DB 81H ;14A1: SYS 0040 DB 07H ;14A2: HASH TOS DB 8AH ;14A3: SYS 0044 DB 0EH ;14A4: PUSH 8131 DB 04H ;14A5: SEQ DB 8CH ;14A6: RET S14A7 DB 0D2H ;14A7: PUSH [8107] DB 97H ;14A8: PUSH 0001 DB 8CH ;14A9: RET DB 00H ;14AA: 00 S14AB DB 0DAH ;14AB: SVM DB 90H, 08H ;14AC: PUSH 08 DB 81H ;14AE: SYS 0040 DB 07H ;14AF: HASH TOS DB 0DCH ;14B0: LDMSG TOS DB 0F2H ;14B1: CALL 05F7 DB 0DBH ;14B2: LDM DB 0EFH ;14B3: SEND DB 0A7H ;14B4: DROP DB 96H ;14B5: PUSH 0000 DB 8AH ;14B6: SYS 0044 DB 8CH ;14B7: RET DB 00H ;14B8: 00 S14B9 DB 0DAH ;14B9: SVM DB 0C4H ;14BA: PUSH 8109 DB 0DEH ;14BB: LD [TOS], 1 DB 81H ;14BC: SYS 0040 DB 01H ;14BD: IDLE DB 8AH ;14BE: SYS 0044 DB 8CH ;14BF: RET DB 00H ;14C0: 00 S14C1 DB 0F3H ;14C1: CALL 0605 DB 8CH ;14C2: RET S14C3 DB 8FH, 14H, 0C7H ;14C3: 7 PUSH 14C7 DB 8CH ;14C6: RET DB 00H ;14C7: 00 DB 96H ;14C8: 96 DB 0AH ;14C9: 0A DB 10H ;14CA: 10 DB 00H ;14CB: 00 DB 96H ;14CC: 96 DB 0AH ;14CD: 0A DB 11H ;14CE: 11 DB 0AH ;14CF: 0A DB 12H ;14D0: 12 DB 0AH ;14D1: 0A DB 13H ;14D2: 13 S14D3 DB 81H ;14D3: SYS 0040 DB 4FH ;14D4: CALL 1007 DB 8AH ;14D5: SYS 0044 DB 14H ;14D6: SUB [TOS], NOS DB 9CH ;14D7: DISPA TOS, NOS.0 DB 92H, 0FAH ;14D8: JZ 14D3 DB 8AH ;14DA: SYS 0044 DB 8CH ;14DB: RET S14DC INC RE ;14DC: 1E LDA RE ;14DD: 4E PLO R4 ;14DE: A4 LDA RE ;14DF: 4E PHI R5 ;14E0: B5 LDN RE ;14E1: 0E PLO R5 ;14E2: A5 R14E3 GHI R5 ;14E3: 95 SHR ;14E4: F6 PHI R5 ;14E5: B5 GLO R5 ;14E6: 85 SHRC ;14E7: 76 PLO R5 ;14E8: A5 DEC R4 ;14E9: 24 GLO R4 ;14EA: 84 BNZ R14E3 ;14EB: 3A E3 GLO R5 ;14ED: 85 STR RE ;14EE: 5E DEC RE ;14EF: 2E GHI R5 ;14F0: 95 STR RE ;14F1: 5E SEP RF ;14F2: DF S14F3 DB 0AAH ;14F3: OVER DB 0AAH ;14F4: OVER DB 0B7H ;14F5: ISGT NOS, TOS DB 9EH, 02H ;14F6: JZ 14F9 DB 0A9H ;14F8: SWAP DB 0A7H ;14F9: DROP DB 8CH ;14FA: RET S14FB DB 90H, 80H ;14FB: PUSH 80 DB 0E3H ;14FD: INP1 TOS, TOS.0 DB 8CH ;14FE: RET DB 00H ;14FF: 00 S1500 LDI 82H ;1500: F8 82 PHI RB ;1502: BB LDI 18H ;1503: F8 18 PLO RB ;1505: AB LDA RB ;1506: 4B PHI RE ;1507: BE LDN RB ;1508: 0B PLO RE ;1509: AE SEP RF ;150A: DF S150B DB 8FH, 81H, 0D1H ;150B: 1 PUSH 81D1 DB 8CH ;150E: RET S150F DB 8FH, 81H, 0D3H ;150F: 3 PUSH 81D3 DB 8CH ;1512: RET DB 00H ;1513: 00 S1514 LDA RE ;1514: 4E PHI R4 ;1515: B4 LDA RE ;1516: 4E PLO R4 ;1517: A4 LDA RE ;1518: 4E PHI R5 ;1519: B5 LDA RE ;151A: 4E PLO R5 ;151B: A5 LDA RE ;151C: 4E PHI RA ;151D: BA LDN RE ;151E: 0E PLO RA ;151F: AA GHI R4 ;1520: 94 STR RE ;1521: 5E GLO R4 ;1522: 84 SEX RE ;1523: EE OR ;1524: F1 INC RE ;1525: 1E BNZ R1529 ;1526: 3A 29 SEP RF ;1528: DF R1529 SEX R5 ;1529: E5 R152A LDN RA ;152A: 0A STXD ;152B: 73 DEC RA ;152C: 2A DEC R4 ;152D: 24 GLO R4 ;152E: 84 BNZ R152A ;152F: 3A 2A GHI R4 ;1531: 94 BNZ R152A ;1532: 3A 2A SEP RF ;1534: DF S1535 DB 8FH, 80H, 02H ;1535: 2 PUSH 8002 DB 0DEH ;1538: LD [TOS], 1 DB 8CH ;1539: RET DB 00H ;153A: 00 S153B DB 8FH, 80H, 02H ;153B: 2 PUSH 8002 DB 0DDH ;153E: LD [TOS], 0 DB 8CH ;153F: RET S1540 INC RE ;1540: 1E LDA RE ;1541: 4E PLO R4 ;1542: A4 LDA RE ;1543: 4E PHI R5 ;1544: B5 LDA RE ;1545: 4E PLO R5 ;1546: A5 LDA RE ;1547: 4E PHI RA ;1548: BA LDN RE ;1549: 0E PLO RA ;154A: AA SEX R5 ;154B: E5 R154C LDA RA ;154C: 4A SD ;154D: F5 BZ R155E ;154E: 32 5E SEX RE ;1550: EE BNF R1558 ;1551: 3B 58 LDI 0FFH ;1553: F8 FF STXD ;1555: 73 BR R155C ;1556: 30 5C R1558 LDI 01H ;1558: F8 01 STXD ;155A: 73 GHI RF ;155B: 9F R155C STR RE ;155C: 5E SEP RF ;155D: DF R155E INC R5 ;155E: 15 DEC R4 ;155F: 24 GLO R4 ;1560: 84 BNZ R154C ;1561: 3A 4C STR RE ;1563: 5E DEC RE ;1564: 2E STR RE ;1565: 5E SEP RF ;1566: DF DB 00H ;1567: 00 S1568 SEX RE ;1568: EE DEC RE ;1569: 2E INP 1 ;156A: 69 ANI 10H ;156B: FA 10 BNZ R1576 ;156D: 3A 76 BN3 R1573 ;156F: 3E 73 GHI RF ;1571: 9F LSKP ;1572: C8 R1573 LDI 01H ;1573: F8 01 SKP ;1575: 38 R1576 GHI RF ;1576: 9F STXD ;1577: 73 GHI RF ;1578: 9F STR RE ;1579: 5E SEP RF ;157A: DF DB 00H ;157B: 00 S157C LDI 80H ;157C: F8 80 PHI RB ;157E: BB LDI 9DH ;157F: F8 9D PLO RB ;1581: AB LDA RB ;1582: 4B PHI R7 ;1583: B7 LDA RB ;1584: 4B PHI R2 ;1585: B2 LDN RB ;1586: 0B PLO R2 ;1587: A2 DEC R2 ;1588: 22 DEC R2 ;1589: 22 LDA R2 ;158A: 42 PHI RD ;158B: BD LDA R2 ;158C: 42 PLO RD ;158D: AD SEP RF ;158E: DF S158F DB 0A9H ;158F: SWAP DB 0E7H ;1590: ROT DB 0DAH ;1591: SVM DB 81H ;1592: SYS 0040 DB 07H ;1593: HASH TOS DB 0D9H ;1594: CLS DB 0A9H ;1595: SWAP DB 0A1H ;1596: PUSHR 0 DB 4EH ;1597: PUSH 810B DB 90H, 20H ;1598: PUSH 20 DB 90H, 20H ;159A: PUSH 20 DB 49H ;159C: FILL TOS.0,NOS.0,[3OS] DB 0AAH ;159D: OVER DB 90H, 04H ;159E: PUSH 04 DB 0A9H ;15A0: SWAP DB 0F9H ;15A1: CALL 062F DB 9EH, 04H ;15A2: JZ 15A7 DB 0A6H ;15A4: DUPR DB 9FH, 0DH ;15A5: JP 15B3 DB 0E8H ;15A7: OUT 2, 40 DB 0A8H ;15A8: DUP DB 0DCH ;15A9: LDMSG TOS DB 0AAH ;15AA: OVER DB 90H, 0DH ;15AB: PUSH 0D DB 0A9H ;15AD: SWAP DB 0F9H ;15AE: CALL 062F DB 0E9H ;15AF: OUTM 2, 40 DB 9EH, 02H ;15B0: JZ 15B3 DB 0A6H ;15B2: DUPR DB 94H, 0E3H ;15B3: LOOP 1597 DB 0A7H ;15B5: DROP DB 0A7H ;15B6: DROP DB 0DBH ;15B7: LDM DB 8AH ;15B8: SYS 0044 DB 8CH ;15B9: RET S15BA SEX RE ;15BA: EE LDA RE ;15BB: 4E PHI RB ;15BC: BB LDA RE ;15BD: 4E INC RE ;15BE: 1E SD ;15BF: F5 DEC RE ;15C0: 2E GHI RB ;15C1: 9B SDB ;15C2: 75 GHI RF ;15C3: 9F STR RE ;15C4: 5E INC RE ;15C5: 1E SHLC ;15C6: 7E XRI 01H ;15C7: FB 01 STXD ;15C9: 73 SEP RF ;15CA: DF S15CB DB 0A9H ;15CB: SWAP DB 23H ;15CC: PUSH EF3 DB 8CH ;15CD: RET S15CE LDI 02H ;15CE: F8 02 PLO R6 ;15D0: A6 LDN R6 ;15D1: 06 SHL ;15D2: FE BNF R15DC ;15D3: 3B DC LDI 06H ;15D5: F8 06 PHI RD ;15D7: BD LDI 05H ;15D8: F8 05 PLO RD ;15DA: AD SEP RF ;15DB: DF R15DC LDI 2FH ;15DC: F8 2F PLO R6 ;15DE: A6 SEX R6 ;15DF: E6 LDA R6 ;15E0: 46 PHI R4 ;15E1: B4 LDN R6 ;15E2: 06 PLO R4 ;15E3: A4 DEC R4 ;15E4: 24 GLO R4 ;15E5: 84 STXD ;15E6: 73 GHI R4 ;15E7: 94 STR R6 ;15E8: 56 GLO R4 ;15E9: 84 OR ;15EA: F1 BNZ R15F1 ;15EB: 3A F1 LDI 01H ;15ED: F8 01 BR R15F2 ;15EF: 30 F2 R15F1 GHI RF ;15F1: 9F R15F2 DEC RE ;15F2: 2E STR RE ;15F3: 5E GHI RF ;15F4: 9F DEC RE ;15F5: 2E STR RE ;15F6: 5E SEP RF ;15F7: DF S15F8 INC RE ;15F8: 1E LDA RE ;15F9: 4E PLO R4 ;15FA: A4 LDA RE ;15FB: 4E PHI R5 ;15FC: B5 LDA RE ;15FD: 4E PLO R5 ;15FE: A5 LDA RE ;15FF: 4E PHI RA ;1600: BA LDN RE ;1601: 0E PLO RA ;1602: AA GHI RF ;1603: 9F STR RE ;1604: 5E SEX RE ;1605: EE LDA RA ;1606: 4A PLO RB ;1607: AB LDA RA ;1608: 4A PHI RB ;1609: BB GHI RA ;160A: 9A PHI R9 ;160B: B9 GLO RA ;160C: 8A PLO R9 ;160D: A9 R160E LDA RA ;160E: 4A PLO R8 ;160F: A8 BNZ R1618 ;1610: 3A 18 GHI R9 ;1612: 99 PHI RA ;1613: BA GLO R9 ;1614: 89 PLO RA ;1615: AA LDA RA ;1616: 4A PLO R8 ;1617: A8 R1618 LDN R5 ;1618: 05 ANI 0FH ;1619: FA 0F PLO R7 ;161B: A7 GLO RB ;161C: 8B BNZ R1639 ;161D: 3A 39 DEC RE ;161F: 2E GHI RF ;1620: 9F STR RE ;1621: 5E R1622 GLO R7 ;1622: 87 ADD ;1623: F4 STR RE ;1624: 5E DEC R8 ;1625: 28 GLO R8 ;1626: 88 BNZ R1622 ;1627: 3A 22 LDA RE ;1629: 4E R162A INC R8 ;162A: 18 SMI 0AH ;162B: FF 0A BDF R162A ;162D: 33 2A ADI 0AH ;162F: FC 0A ADD ;1631: F4 STR RE ;1632: 5E DEC R8 ;1633: 28 GLO R8 ;1634: 88 ADD ;1635: F4 STR RE ;1636: 5E BR R1640 ;1637: 30 40 R1639 GLO R7 ;1639: 87 ADD ;163A: F4 STR RE ;163B: 5E DEC R8 ;163C: 28 GLO R8 ;163D: 88 BNZ R1639 ;163E: 3A 39 R1640 GHI RB ;1640: 9B SD ;1641: F5 BNF R1649 ;1642: 3B 49 R1644 STR RE ;1644: 5E GHI RB ;1645: 9B SD ;1646: F5 BDF R1644 ;1647: 33 44 R1649 DEC R5 ;1649: 25 DEC R4 ;164A: 24 GLO R4 ;164B: 84 BNZ R160E ;164C: 3A 0E DEC RE ;164E: 2E GHI RF ;164F: 9F STR RE ;1650: 5E SEP RF ;1651: DF S1652 LDA RE ;1652: 4E SMI 40H ;1653: FF 40 BNF R1659 ;1655: 3B 59 ADI 09H ;1657: FC 09 R1659 ANI 0FH ;1659: FA 0F PLO R4 ;165B: A4 LDN RE ;165C: 0E SMI 40H ;165D: FF 40 BNF R1663 ;165F: 3B 63 ADI 09H ;1661: FC 09 R1663 ANI 0FH ;1663: FA 0F STR RE ;1665: 5E SEX RE ;1666: EE GLO R4 ;1667: 84 SHL ;1668: FE SHL ;1669: FE SHL ;166A: FE SHL ;166B: FE OR ;166C: F1 STXD ;166D: 73 GHI RF ;166E: 9F STR RE ;166F: 5E SEP RF ;1670: DF DB 00H ;1671: 00 S1672 SEX RE ;1672: EE LDA RE ;1673: 4E LDN RE ;1674: 0E PLO R4 ;1675: A4 ANI 0FH ;1676: FA 0F SMI 0AH ;1678: FF 0A BNF R1680 ;167A: 3B 80 ADI 41H ;167C: FC 41 BR R1682 ;167E: 30 82 R1680 ADI 3AH ;1680: FC 3A R1682 STXD ;1682: 73 GLO R4 ;1683: 84 SHR ;1684: F6 SHR ;1685: F6 SHR ;1686: F6 SHR ;1687: F6 SMI 0AH ;1688: FF 0A BNF R1690 ;168A: 3B 90 ADI 41H ;168C: FC 41 BR R1692 ;168E: 30 92 R1690 ADI 3AH ;1690: FC 3A R1692 STR RE ;1692: 5E SEP RF ;1693: DF S1694 INC RE ;1694: 1E LDA RE ;1695: 4E ADI 01H ;1696: FC 01 SHR ;1698: F6 PLO R4 ;1699: A4 LDA RE ;169A: 4E PHI R5 ;169B: B5 LDA RE ;169C: 4E PLO R5 ;169D: A5 SEX R5 ;169E: E5 LDA RE ;169F: 4E PHI RA ;16A0: BA LDA RE ;16A1: 4E PLO RA ;16A2: AA R16A3 LDA RA ;16A3: 4A SHL ;16A4: FE SHL ;16A5: FE SHL ;16A6: FE SHL ;16A7: FE STR R5 ;16A8: 55 LDA RA ;16A9: 4A ANI 0FH ;16AA: FA 0F OR ;16AC: F1 STR R5 ;16AD: 55 INC R5 ;16AE: 15 DEC R4 ;16AF: 24 GLO R4 ;16B0: 84 BNZ R16A3 ;16B1: 3A A3 SEP RF ;16B3: DF DB 00H ;16B4: 00 S16B5 DB 98H ;16B5: PUSH 0002 DB 0D8H ;16B6: MOD NOS, TOS.0 DB 0A2H ;16B7: PUSHR DB 0A9H ;16B8: SWAP DB 0A3H ;16B9: POPR DB 0AAH ;16BA: OVER DB 0B3H ;16BB: ADD TOS, NOS DB 0A9H ;16BC: SWAP DB 0A0H ;16BD: PUSHR TOS, NOS DB 0A4H ;16BE: PUSH R DB 0ACH ;16BF: LD TOS.0, [TOS] DB 28H ;16C0: CALL 0841 DB 0AAH ;16C1: OVER DB 0ADH ;16C2: LD [TOS], NOS DB 0C9H ;16C3: ADD TOS, 2 DB 94H, 0F9H ;16C4: LOOP 16BE DB 0A7H ;16C6: DROP DB 8CH ;16C7: RET DB 00H ;16C8: 00 S16C9 DB 81H ;16C9: SYS 0040 DB 5BH ;16CA: PUSH 81FF DB 0DEH ;16CB: LD [TOS], 1 DB 8AH ;16CC: SYS 0044 DB 8CH ;16CD: RET DB 00H ;16CE: 00 S16CF DB 81H ;16CF: SYS 0040 DB 5BH ;16D0: PUSH 81FF DB 0DDH ;16D1: LD [TOS], 0 DB 8AH ;16D2: SYS 0044 DB 8CH ;16D3: RET DB 00H ;16D4: 00 S16D5 DB 8FH, 16H, 0D9H ;16D5: 9 PUSH 16D9 DB 8CH ;16D8: RET DB 34H ;16D9: 34 DB 68H ;16DA: 68 DB 0D0H ;16DB: D0 DB 00H ;16DC: 00 DB 00H ;16DD: 00 DB 00H ;16DE: 00 DB 00H ;16DF: 00 DB 00H ;16E0: 00 DB 00H ;16E1: 00 DB 00H ;16E2: 00 DB 00H ;16E3: 00 DB 00H ;16E4: 00 DB 00H ;16E5: 00 DB 00H ;16E6: 00 DB 00H ;16E7: 00 S16E8 SEX R3 ;16E8: E3 OUT 2 ;16E9: 62 DB 03H ;16EA: 03 LDI 06H ;16EB: F8 06 PLO R5 ;16ED: A5 R16EE OUT 2 ;16EE: 62 DB 02H ;16EF: 02 DEC R5 ;16F0: 25 GLO R5 ;16F1: 85 BNZ R16EE ;16F2: 3A EE LDI 0FFH ;16F4: F8 FF PLO R6 ;16F6: A6 LDN R6 ;16F7: 06 LBNZ J1700 ;16F8: CA 17 00 OUT 3 ;16FB: 63 DB 04H ;16FC: 04 LBR J1702 ;16FD: C0 17 02 J1700 OUT 2 ;1700: 62 DB 04H ;1701: 04 J1702 SEX R3 ;1702: E3 DIS ;1703: 71 DB 0E3H ;1704: E3 LDI 81H ;1705: F8 81 PHI R4 ;1707: B4 LDI 0D5H ;1708: F8 D5 PLO R4 ;170A: A4 LDA R4 ;170B: 44 PHI RA ;170C: BA LDN R4 ;170D: 04 PLO RA ;170E: AA LDA RE ;170F: 4E PHI R9 ;1710: B9 LDN RE ;1711: 0E PLO R9 ;1712: A9 GLO R0 ;1713: 80 STXD ;1714: 73 GHI R0 ;1715: 90 STXD ;1716: 73 GLO R1 ;1717: 81 STXD ;1718: 73 GHI R1 ;1719: 91 STXD ;171A: 73 GLO R2 ;171B: 82 STXD ;171C: 73 GHI R2 ;171D: 92 STXD ;171E: 73 GHI R6 ;171F: 96 STXD ;1720: 73 GHI R7 ;1721: 97 STXD ;1722: 73 GHI R8 ;1723: 98 STXD ;1724: 73 GLO RF ;1725: 8F STXD ;1726: 73 GHI RF ;1727: 9F STXD ;1728: 73 GLO RD ;1729: 8D STXD ;172A: 73 GHI RD ;172B: 9D STXD ;172C: 73 GLO RC ;172D: 8C STXD ;172E: 73 GHI RC ;172F: 9C STR RE ;1730: 5E LDI 80H ;1731: F8 80 PHI R4 ;1733: B4 LDI 0A0H ;1734: F8 A0 PLO R4 ;1736: A4 GHI RE ;1737: 9E STR R4 ;1738: 54 INC R4 ;1739: 14 GLO RE ;173A: 8E STR R4 ;173B: 54 DEC RE ;173C: 2E LDI 81H ;173D: F8 81 PHI R4 ;173F: B4 LDI 0FDH ;1740: F8 FD PLO R4 ;1742: A4 LDN R4 ;1743: 04 PHI R2 ;1744: B2 LDI 1CH ;1745: F8 1C PHI RC ;1747: BC LDI 81H ;1748: F8 81 PHI R5 ;174A: B5 LDI 0FBH ;174B: F8 FB PLO R5 ;174D: A5 INC R5 ;174E: 15 DEC R9 ;174F: 29 LDI 17H ;1750: F8 17 PHI R1 ;1752: B1 LDI 0A0H ;1753: F8 A0 PLO R1 ;1755: A1 LDI 17H ;1756: F8 17 PHI RB ;1758: BB LDI 64H ;1759: F8 64 PLO RB ;175B: AB SEX R3 ;175C: E3 OUT 5 ;175D: 65 DB 30H ;175E: 30 RET ;175F: 70 DB 0E3H ;1760: E3 BR R17AA ;1761: 30 AA R1763 SEP R3 ;1763: D3 BNQ R1769 ;1764: 39 69 REQ ;1766: 7A BR R1763 ;1767: 30 63 R1769 SEQ ;1769: 7B BR R1763 ;176A: 30 63 LDI 80H ;176C: F8 80 PHI RA ;176E: BA LDI 0A0H ;176F: F8 A0 PLO RA ;1771: AA LDA RA ;1772: 4A PHI RE ;1773: BE LDN RA ;1774: 0A PLO RE ;1775: AE LDA RE ;1776: 4E PHI RC ;1777: BC LDA RE ;1778: 4E PLO RC ;1779: AC LDA RE ;177A: 4E PHI RD ;177B: BD LDA RE ;177C: 4E PLO RD ;177D: AD LDA RE ;177E: 4E PHI RF ;177F: BF LDA RE ;1780: 4E PLO RF ;1781: AF LDA RE ;1782: 4E PHI R8 ;1783: B8 LDA RE ;1784: 4E PHI R7 ;1785: B7 LDA RE ;1786: 4E PHI R6 ;1787: B6 LDA RE ;1788: 4E PHI R2 ;1789: B2 LDA RE ;178A: 4E PLO R2 ;178B: A2 LDA RE ;178C: 4E PHI R1 ;178D: B1 LDA RE ;178E: 4E PLO R1 ;178F: A1 LDA RE ;1790: 4E PHI R0 ;1791: B0 LDA RE ;1792: 4E PLO R0 ;1793: A0 GLO R5 ;1794: 85 REQ ;1795: 7A LSNZ ;1796: C6 SEX RE ;1797: EE SEP RF ;1798: DF SEP R1 ;1799: D1 S179A SEX RE ;179A: EE LDI 00H ;179B: F8 00 STR RE ;179D: 5E OUT 5 ;179E: 65 LSKP ;179F: C8 LDI 01H ;17A0: F8 01 PLO R5 ;17A2: A5 LDI 17H ;17A3: F8 17 PHI R4 ;17A5: B4 LDI 6CH ;17A6: F8 6C PLO R4 ;17A8: A4 SEP R4 ;17A9: D4 R17AA BNQ R17AF ;17AA: 39 AF REQ ;17AC: 7A BR R17B1 ;17AD: 30 B1 R17AF SEQ ;17AF: 7B SEX RE ;17B0: EE R17B1 INC R9 ;17B1: 19 SEX RE ;17B2: EE LDN R9 ;17B3: 09 SMI 01H ;17B4: FF 01 SHL ;17B6: FE STXD ;17B7: 73 LDI 00H ;17B8: F8 00 STR RE ;17BA: 5E ADC ;17BB: 74 STR RE ;17BC: 5E INC RE ;17BD: 1E LDN R9 ;17BE: 09 SMI 01H ;17BF: FF 01 SHL ;17C1: FE ADD ;17C2: F4 STXD ;17C3: 73 LDI 00H ;17C4: F8 00 ADC ;17C6: 74 STR RE ;17C7: 5E INC RE ;17C8: 1E LDN R9 ;17C9: 09 SMI 01H ;17CA: FF 01 ADD ;17CC: F4 STXD ;17CD: 73 LDI 00H ;17CE: F8 00 ADC ;17D0: 74 STR RE ;17D1: 5E INC RE ;17D2: 1E LDN R5 ;17D3: 05 ADD ;17D4: F4 PLO R6 ;17D5: A6 DEC RE ;17D6: 2E DEC R5 ;17D7: 25 LDN R5 ;17D8: 05 ADC ;17D9: 74 PHI R6 ;17DA: B6 INC RE ;17DB: 1E INC R6 ;17DC: 16 INC R6 ;17DD: 16 INC R6 ;17DE: 16 LDA R6 ;17DF: 46 PHI R7 ;17E0: B7 LDN R6 ;17E1: 06 PLO R7 ;17E2: A7 J17E3 SEP RB ;17E3: DB GHI RF ;17E4: 9F SHR ;17E5: F6 BNF R17ED ;17E6: 3B ED INC R7 ;17E8: 17 INC R7 ;17E9: 17 INC R7 ;17EA: 17 BR R17F0 ;17EB: 30 F0 R17ED NOP ;17ED: C4 NOP ;17EE: C4 SEX RE ;17EF: EE R17F0 LDN R7 ;17F0: 07 SMI 01H ;17F1: FF 01 SHL ;17F3: FE STR RE ;17F4: 5E GHI RA ;17F5: 9A PHI R4 ;17F6: B4 GLO RA ;17F7: 8A ADD ;17F8: F4 PLO R4 ;17F9: A4 LDA R4 ;17FA: 44 PHI R8 ;17FB: B8 LDN R4 ;17FC: 04 PLO R8 ;17FD: A8 SEP R8 ;17FE: D8 NOP ;17FF: C4 NOP ;1800: C4 SEX RE ;1801: EE INP 1 ;1802: 69 ANI 04H ;1803: FA 04 LBZ S179A ;1805: C2 17 9A NOP ;1808: C4 SEX RE ;1809: EE GHI R2 ;180A: 92 SMI 0FH ;180B: FF 0F PLO R2 ;180D: A2 LDI 09H ;180E: F8 09 PLO R6 ;1810: A6 LDI 00H ;1811: F8 00 PLO R0 ;1813: A0 PLO R5 ;1814: A5 LDI 81H ;1815: F8 81 PHI R4 ;1817: B4 LDI 0FEH ;1818: F8 FE PLO R4 ;181A: A4 SMI 00H ;181B: FF 00 R181D BNQ R1822 ;181D: 39 22 REQ ;181F: 7A BR R1824 ;1820: 30 24 R1822 SEQ ;1822: 7B SEX RE ;1823: EE R1824 BNF R1849 ;1824: 3B 49 LDI 0AH ;1826: F8 0A R1828 SMI 01H ;1828: FF 01 BNZ R1828 ;182A: 3A 28 GLO R2 ;182C: 82 STR RE ;182D: 5E SMI 0FH ;182E: FF 0F PLO R2 ;1830: A2 BR R181D ;1831: 30 1D R1833 BNQ R1838 ;1833: 39 38 REQ ;1835: 7A BR R183A ;1836: 30 3A R1838 SEQ ;1838: 7B SEX RE ;1839: EE R183A BNF R1849 ;183A: 3B 49 LDI 13H ;183C: F8 13 R183E SMI 01H ;183E: FF 01 BNZ R183E ;1840: 3A 3E GLO R2 ;1842: 82 STR RE ;1843: 5E SMI 18H ;1844: FF 18 PLO R2 ;1846: A2 BR R1833 ;1847: 30 33 R1849 DEC R6 ;1849: 26 GHI R0 ;184A: 90 SHR ;184B: F6 GLO R6 ;184C: 86 BZ R1865 ;184D: 32 65 BDF R1865 ;184F: 33 65 GLO R0 ;1851: 80 BZ R1859 ;1852: 32 59 DEC R0 ;1854: 20 LDI 03H ;1855: F8 03 BR R1874 ;1857: 30 74 R1859 LDN RE ;1859: 0E BZ R1863 ;185A: 32 63 ADI 01H ;185C: FC 01 R185E STR RE ;185E: 5E LDI 2BH ;185F: F8 2B BR R1877 ;1861: 30 77 R1863 BR R185E ;1863: 30 5E R1865 GLO R0 ;1865: 80 BNZ R186D ;1866: 3A 6D INC R0 ;1868: 10 LDI 1CH ;1869: F8 1C BR R1874 ;186B: 30 74 R186D SEX RE ;186D: EE NOP ;186E: C4 NOP ;186F: C4 LDI 1BH ;1870: F8 1B BR R1877 ;1872: 30 77 R1874 ADD ;1874: F4 SEX RE ;1875: EE SEX RE ;1876: EE R1877 PLO RC ;1877: AC LDN RC ;1878: 0C SM ;1879: F7 STR RE ;187A: 5E GHI R2 ;187B: 92 SM ;187C: F7 PLO R2 ;187D: A2 LDN RC ;187E: 0C SMI 0EH ;187F: FF 0E R1881 SMI 01H ;1881: FF 01 BNZ R1881 ;1883: 3A 81 SEP RB ;1885: DB GHI R0 ;1886: 90 SHR ;1887: F6 PHI R0 ;1888: B0 LDI 00H ;1889: F8 00 SHLC ;188B: 7E PLO R0 ;188C: A0 STR RE ;188D: 5E GLO R5 ;188E: 85 ADD ;188F: F4 PLO R5 ;1890: A5 GLO R6 ;1891: 86 SMI 02H ;1892: FF 02 BNZ R18BB ;1894: 3A BB GLO R5 ;1896: 85 SHR ;1897: F6 LDI 00H ;1898: F8 00 SHLC ;189A: 7E STR RE ;189B: 5E LDN R4 ;189C: 04 BZ J18C9 ;189D: 32 C9 ADD ;189F: F4 ANI 01H ;18A0: FA 01 PHI R0 ;18A2: B0 R18A3 GLO R0 ;18A3: 80 BNZ R18AF ;18A4: 3A AF SEP RB ;18A6: DB GLO R2 ;18A7: 82 SMI 1EH ;18A8: FF 1E PLO R2 ;18AA: A2 LDI 08H ;18AB: F8 08 BR R1828 ;18AD: 30 28 R18AF GLO R2 ;18AF: 82 SMI 18H ;18B0: FF 18 PLO R2 ;18B2: A2 SEX RE ;18B3: EE GLO R6 ;18B4: 86 BZ R18CD ;18B5: 32 CD LDI 03H ;18B7: F8 03 BR R183E ;18B9: 30 3E R18BB GLO R6 ;18BB: 86 BNZ R18C5 ;18BC: 3A C5 LDI 01H ;18BE: F8 01 PLO R0 ;18C0: A0 NOP ;18C1: C4 LBR J18C9 ;18C2: C0 18 C9 R18C5 SEX RE ;18C5: EE NOP ;18C6: C4 NOP ;18C7: C4 SEX RE ;18C8: EE J18C9 SEX RE ;18C9: EE SEX RE ;18CA: EE BR R18A3 ;18CB: 30 A3 R18CD NOP ;18CD: C4 NOP ;18CE: C4 SEX RE ;18CF: EE GLO R2 ;18D0: 82 SMI 18H ;18D1: FF 18 PLO R2 ;18D3: A2 BZ R18EA ;18D4: 32 EA BNF R18EB ;18D6: 3B EB NOP ;18D8: C4 NOP ;18D9: C4 SEX RE ;18DA: EE BNQ R18E0 ;18DB: 39 E0 REQ ;18DD: 7A BR R18E2 ;18DE: 30 E2 R18E0 SEQ ;18E0: 7B SEX RE ;18E1: EE R18E2 LDI 0FH ;18E2: F8 0F R18E4 SMI 01H ;18E4: FF 01 BNZ R18E4 ;18E6: 3A E4 BR R18CD ;18E8: 30 CD R18EA SEX RE ;18EA: EE R18EB NOP ;18EB: C4 LBR J17E3 ;18EC: C0 17 E3 DB 00H ;18EF: 00 DB 00H ;18F0: 00 DB 00H ;18F1: 00 DB 00H ;18F2: 00 DB 00H ;18F3: 00 DB 00H ;18F4: 00 DB 00H ;18F5: 00 DB 00H ;18F6: 00 DB 00H ;18F7: 00 DB 00H ;18F8: 00 DB 00H ;18F9: 00 DB 00H ;18FA: 00 DB 00H ;18FB: 00 DB 00H ;18FC: 00 DB 00H ;18FD: 00 DB 00H ;18FE: 00 DB 00H ;18FF: 00 S1900 NOP ;1900: C4 NOP ;1901: C4 INC R7 ;1902: 17 GHI RF ;1903: 9F SHR ;1904: F6 SHR ;1905: F6 BDF R190C ;1906: 33 0C LDN R7 ;1908: 07 PLO RF ;1909: AF BR R190E ;190A: 30 0E R190C NOP ;190C: C4 NOP ;190D: C4 R190E SEX RE ;190E: EE GLO RF ;190F: 8F BZ R194F ;1910: 32 4F DEC RF ;1912: 2F SEX RE ;1913: EE GHI RF ;1914: 9F ORI 02H ;1915: F9 02 PHI RF ;1917: BF J1918 GHI RF ;1918: 9F ANI 0FEH ;1919: FA FE PHI RF ;191B: BF INC R7 ;191C: 17 BNQ R1922 ;191D: 39 22 REQ ;191F: 7A BR R1924 ;1920: 30 24 R1922 SEQ ;1922: 7B SEX RE ;1923: EE R1924 LDN R7 ;1924: 07 SHL ;1925: FE STXD ;1926: 73 BDF R192D ;1927: 33 2D LDI 00H ;1929: F8 00 BR R1930 ;192B: 30 30 R192D LDI 0FEH ;192D: F8 FE SEX RE ;192F: EE R1930 STR RE ;1930: 5E INC RE ;1931: 1E LDN R7 ;1932: 07 ADD ;1933: F4 STXD ;1934: 73 LDI 00H ;1935: F8 00 ADC ;1937: 74 STR RE ;1938: 5E INC RE ;1939: 1E DEC R7 ;193A: 27 DEC R7 ;193B: 27 GLO R7 ;193C: 87 ADD ;193D: F4 PLO R7 ;193E: A7 DEC RE ;193F: 2E GHI R7 ;1940: 97 ADC ;1941: 74 PHI R7 ;1942: B7 INC RE ;1943: 1E LDI 07H ;1944: F8 07 R1946 SMI 01H ;1946: FF 01 BNZ R1946 ;1948: 3A 46 SEX RE ;194A: EE LDI 0E3H ;194B: F8 E3 PLO R3 ;194D: A3 SEP R3 ;194E: D3 R194F GHI RF ;194F: 9F ANI 0FDH ;1950: FA FD PHI RF ;1952: BF DEC R7 ;1953: 27 SEX RE ;1954: EE SEX RE ;1955: EE R1956 LDI 0E5H ;1956: F8 E5 PLO R3 ;1958: A3 GHI RF ;1959: 9F BNQ R1961 ;195A: 39 61 REQ ;195C: 7A ORI 01H ;195D: F9 01 PHI RF ;195F: BF SEP R3 ;1960: D3 R1961 SEQ ;1961: 7B ORI 01H ;1962: F9 01 PHI RF ;1964: BF SEP R3 ;1965: D3 S1966 INC R7 ;1966: 17 GHI RF ;1967: 9F ANI 30H ;1968: FA 30 SMI 20H ;196A: FF 20 BZ R1999 ;196C: 32 99 SMI 10H ;196E: FF 10 BZ R1983 ;1970: 32 83 INC R9 ;1972: 19 LDN R9 ;1973: 09 STR RE ;1974: 5E LDN R7 ;1975: 07 SM ;1976: F7 SEX RE ;1977: EE NOP ;1978: C4 NOP ;1979: C4 BNZ R1980 ;197A: 3A 80 DEC R7 ;197C: 27 SEX RE ;197D: EE BR R1956 ;197E: 30 56 R1980 DEC R9 ;1980: 29 BR J1918 ;1981: 30 18 R1983 SEX RE ;1983: EE LDN R7 ;1984: 07 STR RE ;1985: 5E LDN R9 ;1986: 09 ANI 0FH ;1987: FA 0F SM ;1989: F7 BNZ R1994 ;198A: 3A 94 DEC R7 ;198C: 27 GHI RF ;198D: 9F XRI 10H ;198E: FB 10 PHI RF ;1990: BF SEX RE ;1991: EE BR R1956 ;1992: 30 56 R1994 SEX RE ;1994: EE NOP ;1995: C4 NOP ;1996: C4 BR J1918 ;1997: 30 18 R1999 INC R9 ;1999: 19 LDN R9 ;199A: 09 SHR ;199B: F6 SHR ;199C: F6 SHR ;199D: F6 SHR ;199E: F6 STR RE ;199F: 5E LDN R7 ;19A0: 07 SM ;19A1: F7 BZ R19A9 ;19A2: 32 A9 DEC R9 ;19A4: 29 NOP ;19A5: C4 LBR J1918 ;19A6: C0 19 18 R19A9 GHI RF ;19A9: 9F XRI 10H ;19AA: FB 10 PHI RF ;19AC: BF DEC R7 ;19AD: 27 BR R1956 ;19AE: 30 56 S19B0 INC R7 ;19B0: 17 GHI RF ;19B1: 9F ANI 30H ;19B2: FA 30 SMI 20H ;19B4: FF 20 BZ R19E3 ;19B6: 32 E3 SMI 10H ;19B8: FF 10 BZ R19CE ;19BA: 32 CE INC R9 ;19BC: 19 LDN R9 ;19BD: 09 STR RE ;19BE: 5E LDN R7 ;19BF: 07 SM ;19C0: F7 SEX RE ;19C1: EE SEX RE ;19C2: EE NOP ;19C3: C4 BNZ R19CA ;19C4: 3A CA SEX RE ;19C6: EE LBR J1918 ;19C7: C0 19 18 R19CA DEC R7 ;19CA: 27 DEC R9 ;19CB: 29 BR R1956 ;19CC: 30 56 R19CE SEX RE ;19CE: EE SEX RE ;19CF: EE LDN R7 ;19D0: 07 STR RE ;19D1: 5E LDN R9 ;19D2: 09 ANI 0FH ;19D3: FA 0F SM ;19D5: F7 BNZ R19DE ;19D6: 3A DE R19D8 GHI RF ;19D8: 9F XRI 10H ;19D9: FB 10 PHI RF ;19DB: BF BR J1918 ;19DC: 30 18 R19DE DEC R7 ;19DE: 27 NOP ;19DF: C4 NOP ;19E0: C4 BR R1956 ;19E1: 30 56 R19E3 INC R9 ;19E3: 19 LDN R9 ;19E4: 09 SHR ;19E5: F6 SHR ;19E6: F6 SHR ;19E7: F6 SHR ;19E8: F6 STR RE ;19E9: 5E LDN R7 ;19EA: 07 SM ;19EB: F7 BZ R19D8 ;19EC: 32 D8 DEC R9 ;19EE: 29 DEC R7 ;19EF: 27 SEX RE ;19F0: EE SEX RE ;19F1: EE BR R1956 ;19F2: 30 56 DB 00H ;19F4: 00 DB 00H ;19F5: 00 DB 00H ;19F6: 00 DB 00H ;19F7: 00 DB 00H ;19F8: 00 DB 00H ;19F9: 00 DB 00H ;19FA: 00 DB 00H ;19FB: 00 S19FC INC R7 ;19FC: 17 INC R7 ;19FD: 17 GHI RF ;19FE: 9F ANI 40H ;19FF: FA 40 BNZ R1A12 ;1A01: 3A 12 DEC R7 ;1A03: 27 LDA R7 ;1A04: 47 PLO RD ;1A05: AD BR R1A15 ;1A06: 30 15 R1A08 SEX RE ;1A08: EE SEX RE ;1A09: EE GHI RF ;1A0A: 9F ANI 0FEH ;1A0B: FA FE ORI 40H ;1A0D: F9 40 PHI RF ;1A0F: BF BR R1A21 ;1A10: 30 21 R1A12 NOP ;1A12: C4 NOP ;1A13: C4 SEX RE ;1A14: EE R1A15 DEC RD ;1A15: 2D GLO RD ;1A16: 8D BNZ R1A08 ;1A17: 3A 08 GHI RF ;1A19: 9F ORI 01H ;1A1A: F9 01 ANI 0BFH ;1A1C: FA BF PHI RF ;1A1E: BF NOP ;1A1F: C4 NOP ;1A20: C4 R1A21 LDN R7 ;1A21: 07 PHI R0 ;1A22: B0 DEC R7 ;1A23: 27 DEC R7 ;1A24: 27 BNQ R1A2A ;1A25: 39 2A REQ ;1A27: 7A BR R1A2C ;1A28: 30 2C R1A2A SEQ ;1A2A: 7B SEX RE ;1A2B: EE R1A2C LDI 0AH ;1A2C: F8 0A R1A2E SMI 01H ;1A2E: FF 01 BNZ R1A2E ;1A30: 3A 2E SEP R3 ;1A32: D3 S1A33 LDI 17H ;1A33: F8 17 PHI R3 ;1A35: B3 LDI 0E3H ;1A36: F8 E3 PLO R3 ;1A38: A3 GHI RF ;1A39: 9F ORI 01H ;1A3A: F9 01 PHI RF ;1A3C: BF INC R7 ;1A3D: 17 LDN R7 ;1A3E: 07 PHI R4 ;1A3F: B4 DEC R7 ;1A40: 27 NOP ;1A41: C4 NOP ;1A42: C4 NOP ;1A43: C4 NOP ;1A44: C4 SEX RE ;1A45: EE SEX RE ;1A46: EE GHI R2 ;1A47: 92 PLO R2 ;1A48: A2 R1A49 LDI 0AH ;1A49: F8 0A PLO R4 ;1A4B: A4 R1A4C BNQ R1A51 ;1A4C: 39 51 REQ ;1A4E: 7A BR R1A53 ;1A4F: 30 53 R1A51 SEQ ;1A51: 7B SEX RE ;1A52: EE R1A53 LDI 0EH ;1A53: F8 0E R1A55 SMI 01H ;1A55: FF 01 BNZ R1A55 ;1A57: 3A 55 SEX RE ;1A59: EE GLO R2 ;1A5A: 82 SMI 18H ;1A5B: FF 18 STR RE ;1A5D: 5E BNF R1A6D ;1A5E: 3B 6D PLO R2 ;1A60: A2 NOP ;1A61: C4 NOP ;1A62: C4 INP 1 ;1A63: 69 ANI 04H ;1A64: FA 04 LBZ S179A ;1A66: C2 17 9A NOP ;1A69: C4 SEX RE ;1A6A: EE BR R1A4C ;1A6B: 30 4C R1A6D GHI R2 ;1A6D: 92 ADD ;1A6E: F4 PLO R2 ;1A6F: A2 DEC R4 ;1A70: 24 GLO R4 ;1A71: 84 BZ R1A79 ;1A72: 32 79 NOP ;1A74: C4 NOP ;1A75: C4 SEX RE ;1A76: EE BR R1A4C ;1A77: 30 4C R1A79 DEC R4 ;1A79: 24 GHI R4 ;1A7A: 94 BNZ R1A49 ;1A7B: 3A 49 SEP R3 ;1A7D: D3 S1A7E GHI RF ;1A7E: 9F ORI 01H ;1A7F: F9 01 PHI RF ;1A81: BF LDI 0FFH ;1A82: F8 FF PLO R4 ;1A84: A4 INC R7 ;1A85: 17 LDN R7 ;1A86: 07 DEC R7 ;1A87: 27 PHI R4 ;1A88: B4 LDI 17H ;1A89: F8 17 PHI R3 ;1A8B: B3 LDI 0E3H ;1A8C: F8 E3 PLO R3 ;1A8E: A3 SEX RE ;1A8F: EE SEX RE ;1A90: EE LBR J1AA7 ;1A91: C0 1A A7 R1A94 BNQ R1A99 ;1A94: 39 99 REQ ;1A96: 7A BR R1A9B ;1A97: 30 9B R1A99 SEQ ;1A99: 7B SEX RE ;1A9A: EE R1A9B LDI 11H ;1A9B: F8 11 R1A9D SMI 01H ;1A9D: FF 01 BNZ R1A9D ;1A9F: 3A 9D INP 1 ;1AA1: 69 ANI 04H ;1AA2: FA 04 LBZ S179A ;1AA4: C2 17 9A J1AA7 NOP ;1AA7: C4 DEC R4 ;1AA8: 24 GHI R4 ;1AA9: 94 BZ R1AAF ;1AAA: 32 AF SEX RE ;1AAC: EE BR R1A94 ;1AAD: 30 94 R1AAF SEP R3 ;1AAF: D3 S1AB0 GHI RF ;1AB0: 9F ORI 01H ;1AB1: F9 01 PHI RF ;1AB3: BF LDI 0FFH ;1AB4: F8 FF PLO R4 ;1AB6: A4 INC R7 ;1AB7: 17 LDN R7 ;1AB8: 07 DEC R7 ;1AB9: 27 PHI R4 ;1ABA: B4 LDI 17H ;1ABB: F8 17 PHI R3 ;1ABD: B3 LDI 0E3H ;1ABE: F8 E3 PLO R3 ;1AC0: A3 LDI 04H ;1AC1: F8 04 BR R1ACE ;1AC3: 30 CE R1AC5 BNQ R1ACA ;1AC5: 39 CA REQ ;1AC7: 7A BR R1ACC ;1AC8: 30 CC R1ACA SEQ ;1ACA: 7B SEX RE ;1ACB: EE R1ACC LDI 0DH ;1ACC: F8 0D R1ACE SMI 01H ;1ACE: FF 01 BNZ R1ACE ;1AD0: 3A CE BNQ R1AD7 ;1AD2: 39 D7 REQ ;1AD4: 7A BR R1AD9 ;1AD5: 30 D9 R1AD7 SEQ ;1AD7: 7B SEX RE ;1AD8: EE R1AD9 LDI 05H ;1AD9: F8 05 R1ADB SMI 01H ;1ADB: FF 01 BNZ R1ADB ;1ADD: 3A DB INP 1 ;1ADF: 69 ANI 04H ;1AE0: FA 04 LBZ S179A ;1AE2: C2 17 9A NOP ;1AE5: C4 GLO R4 ;1AE6: 84 SMI 30H ;1AE7: FF 30 LSNZ ;1AE9: C6 PLO R4 ;1AEA: A4 LSZ ;1AEB: CE NOP ;1AEC: C4 SEX RE ;1AED: EE DEC R4 ;1AEE: 24 GHI R4 ;1AEF: 94 BZ R1AF5 ;1AF0: 32 F5 SEX RE ;1AF2: EE BR R1AC5 ;1AF3: 30 C5 R1AF5 SEP R3 ;1AF5: D3 DB 00H ;1AF6: 00 DB 00H ;1AF7: 00 DB 00H ;1AF8: 00 DB 00H ;1AF9: 00 DB 00H ;1AFA: 00 DB 00H ;1AFB: 00 S1AFC GHI RF ;1AFC: 9F ORI 04H ;1AFD: F9 04 BR R1B06 ;1AFF: 30 06 DB 00H ;1B01: 00 S1B02 GHI RF ;1B02: 9F ANI 0FBH ;1B03: FA FB SEX RE ;1B05: EE R1B06 SEX RE ;1B06: EE PHI RF ;1B07: BF SHL ;1B08: FE SHL ;1B09: FE BDF R1B1F ;1B0A: 33 1F SHL ;1B0C: FE BNF R1B15 ;1B0D: 3B 15 SHL ;1B0F: FE BNF R1B17 ;1B10: 3B 17 SEX RE ;1B12: EE BR R1B19 ;1B13: 30 19 R1B15 SEX RE ;1B15: EE SEX RE ;1B16: EE R1B17 SEX RE ;1B17: EE SEX RE ;1B18: EE R1B19 INC R7 ;1B19: 17 LDN R7 ;1B1A: 07 PLO RD ;1B1B: AD DEC R7 ;1B1C: 27 BR R1B25 ;1B1D: 30 25 R1B1F LDI 05H ;1B1F: F8 05 R1B21 SMI 01H ;1B21: FF 01 BNZ R1B21 ;1B23: 3A 21 R1B25 SEX RE ;1B25: EE INC R9 ;1B26: 19 LDN R9 ;1B27: 09 STR RE ;1B28: 5E BNQ R1B2E ;1B29: 39 2E REQ ;1B2B: 7A BR R1B30 ;1B2C: 30 30 R1B2E SEQ ;1B2E: 7B SEX RE ;1B2F: EE R1B30 PHI R0 ;1B30: B0 GHI RF ;1B31: 9F ANI 04H ;1B32: FA 04 BNZ R1B4F ;1B34: 3A 4F DEC RD ;1B36: 2D GLO RD ;1B37: 8D BZ R1B41 ;1B38: 32 41 R1B3A GHI RF ;1B3A: 9F ORI 40H ;1B3B: F9 40 ANI 0DEH ;1B3D: FA DE BR R1B47 ;1B3F: 30 47 R1B41 GHI RF ;1B41: 9F ORI 01H ;1B42: F9 01 ANI 9FH ;1B44: FA 9F SEX RE ;1B46: EE R1B47 PHI RF ;1B47: BF NOP ;1B48: C4 NOP ;1B49: C4 NOP ;1B4A: C4 NOP ;1B4B: C4 NOP ;1B4C: C4 NOP ;1B4D: C4 SEP R3 ;1B4E: D3 R1B4F GLO RD ;1B4F: 8D SM ;1B50: F7 BNZ R1B3A ;1B51: 3A 3A GHI RF ;1B53: 9F ORI 01H ;1B54: F9 01 ANI 9FH ;1B56: FA 9F PHI RF ;1B58: BF INC R7 ;1B59: 17 INC R7 ;1B5A: 17 LDN R7 ;1B5B: 07 PHI R0 ;1B5C: B0 DEC R7 ;1B5D: 27 DEC R7 ;1B5E: 27 NOP ;1B5F: C4 NOP ;1B60: C4 SEX RE ;1B61: EE SEP R3 ;1B62: D3 DB 00H ;1B63: 00 S1B64 INC R7 ;1B64: 17 LDN R7 ;1B65: 07 PLO RD ;1B66: AD DEC R7 ;1B67: 27 GHI RF ;1B68: 9F ANI 20H ;1B69: FA 20 BNZ R1BAC ;1B6B: 3A AC GHI RF ;1B6D: 9F ANI 0EFH ;1B6E: FA EF PHI RF ;1B70: BF J1B71 GHI RF ;1B71: 9F XRI 10H ;1B72: FB 10 PHI RF ;1B74: BF ANI 10H ;1B75: FA 10 BZ R1BB0 ;1B77: 32 B0 INC R9 ;1B79: 19 LDN R9 ;1B7A: 09 SHR ;1B7B: F6 SHR ;1B7C: F6 SHR ;1B7D: F6 SHR ;1B7E: F6 R1B7F SEX RE ;1B7F: EE SEX RE ;1B80: EE BNQ R1B86 ;1B81: 39 86 REQ ;1B83: 7A BR R1B88 ;1B84: 30 88 R1B86 SEQ ;1B86: 7B SEX RE ;1B87: EE R1B88 SEX RE ;1B88: EE ANI 0FH ;1B89: FA 0F STR RE ;1B8B: 5E GLO RD ;1B8C: 8D SM ;1B8D: F7 BZ R1B97 ;1B8E: 32 97 GHI RF ;1B90: 9F ORI 60H ;1B91: F9 60 ANI 0FEH ;1B93: FA FE BR R1B9D ;1B95: 30 9D R1B97 GHI RF ;1B97: 9F ORI 21H ;1B98: F9 21 ANI 0BFH ;1B9A: FA BF SEX RE ;1B9C: EE R1B9D PHI RF ;1B9D: BF LDI 0A2H ;1B9E: F8 A2 ADD ;1BA0: F4 PLO R4 ;1BA1: A4 SEX RE ;1BA2: EE SEX RE ;1BA3: EE LDI 80H ;1BA4: F8 80 ADCI 00H ;1BA6: 7C 00 PHI R4 ;1BA8: B4 LDN R4 ;1BA9: 04 PHI R0 ;1BAA: B0 SEP R3 ;1BAB: D3 R1BAC NOP ;1BAC: C4 LBR J1B71 ;1BAD: C0 1B 71 R1BB0 SEX RE ;1BB0: EE LDN R9 ;1BB1: 09 NOP ;1BB2: C4 NOP ;1BB3: C4 BR R1B7F ;1BB4: 30 7F S1BB6 GHI RF ;1BB6: 9F SHL ;1BB7: FE SHL ;1BB8: FE BDF R1BFB ;1BB9: 33 FB SHL ;1BBB: FE BDF R1BF7 ;1BBC: 33 F7 GHI RF ;1BBE: 9F ANI 0EFH ;1BBF: FA EF PHI RF ;1BC1: BF J1BC2 INC R7 ;1BC2: 17 LDN R7 ;1BC3: 07 PLO RD ;1BC4: AD DEC R7 ;1BC5: 27 J1BC6 DEC RD ;1BC6: 2D GLO RD ;1BC7: 8D BNZ R1BD1 ;1BC8: 3A D1 GHI RF ;1BCA: 9F ORI 21H ;1BCB: F9 21 ANI 0BFH ;1BCD: FA BF BR R1BD7 ;1BCF: 30 D7 R1BD1 GHI RF ;1BD1: 9F ORI 60H ;1BD2: F9 60 ANI 0FEH ;1BD4: FA FE SEX RE ;1BD6: EE R1BD7 XRI 10H ;1BD7: FB 10 PHI RF ;1BD9: BF ANI 10H ;1BDA: FA 10 BNQ R1BE1 ;1BDC: 39 E1 REQ ;1BDE: 7A BR R1BE3 ;1BDF: 30 E3 R1BE1 SEQ ;1BE1: 7B SEX RE ;1BE2: EE R1BE3 BZ R1BEF ;1BE3: 32 EF INC R9 ;1BE5: 19 LDN R9 ;1BE6: 09 SHR ;1BE7: F6 SHR ;1BE8: F6 SHR ;1BE9: F6 SHR ;1BEA: F6 R1BEB STR RE ;1BEB: 5E GHI RF ;1BEC: 9F BR R1B9D ;1BED: 30 9D R1BEF SEX RE ;1BEF: EE LDN R9 ;1BF0: 09 ANI 0FH ;1BF1: FA 0F SEX RE ;1BF3: EE SEX RE ;1BF4: EE BR R1BEB ;1BF5: 30 EB R1BF7 NOP ;1BF7: C4 LBR J1BC2 ;1BF8: C0 1B C2 R1BFB NOP ;1BFB: C4 NOP ;1BFC: C4 NOP ;1BFD: C4 NOP ;1BFE: C4 NOP ;1BFF: C4 LBR J1BC6 ;1C00: C0 1B C6 ; ; ====================================================================== ; DATA AREA: LOOKUP TABLE (debounce/delay) ; Range: 0x1C03-0x1C2B ; ---------------------------------------------------------------------- ; Sequential lookup table (41 bytes): ; 0F 0F 10 10 10 11 11 11 ... 10 10 0F ; Purpose not yet confirmed — possibly a debounce/delay profile. ; ====================================================================== DB 0FH ;1C03: 0F DB 0FH ;1C04: 0F DB 10H ;1C05: 10 DB 10H ;1C06: 10 DB 10H ;1C07: 10 DB 11H ;1C08: 11 DB 11H ;1C09: 11 DB 12H ;1C0A: 12 DB 12H ;1C0B: 12 DB 12H ;1C0C: 12 DB 13H ;1C0D: 13 DB 13H ;1C0E: 13 DB 14H ;1C0F: 14 DB 14H ;1C10: 14 DB 14H ;1C11: 14 DB 15H ;1C12: 15 DB 15H ;1C13: 15 DB 15H ;1C14: 15 DB 16H ;1C15: 16 DB 16H ;1C16: 16 DB 17H ;1C17: 17 DB 17H ;1C18: 17 DB 17H ;1C19: 17 DB 18H ;1C1A: 18 DB 18H ;1C1B: 18 DB 18H ;1C1C: 18 DB 17H ;1C1D: 17 DB 17H ;1C1E: 17 DB 16H ;1C1F: 16 DB 16H ;1C20: 16 DB 15H ;1C21: 15 DB 14H ;1C22: 14 DB 14H ;1C23: 14 DB 13H ;1C24: 13 DB 13H ;1C25: 13 DB 12H ;1C26: 12 DB 11H ;1C27: 11 DB 11H ;1C28: 11 DB 10H ;1C29: 10 DB 10H ;1C2A: 10 DB 0FH ;1C2B: 0F S1C2C SEX RE ;1C2C: EE NOP ;1C2D: C4 NOP ;1C2E: C4 NOP ;1C2F: C4 NOP ;1C30: C4 NOP ;1C31: C4 NOP ;1C32: C4 INC R9 ;1C33: 19 LDI 00H ;1C34: F8 00 PHI RF ;1C36: BF LDI 17H ;1C37: F8 17 PHI R3 ;1C39: B3 LDI 0AAH ;1C3A: F8 AA PLO R3 ;1C3C: A3 LDI 81H ;1C3D: F8 81 PHI R5 ;1C3F: B5 LDI 0FBH ;1C40: F8 FB PLO R5 ;1C42: A5 INC R5 ;1C43: 15 SEP R3 ;1C44: D3 S1C45 DB 8FH, 1CH, 49H ;1C45: 9 PUSH 1C49 DB 8CH ;1C48: RET DW S1BB6 ;1C49: 1B B6 DW S1B64 ;1C4B: 1B 64 DW S1B02 ;1C4D: 1B 02 DW S1AFC ;1C4F: 1A FC DW S1AB0 ;1C51: 1A B0 DW S1A7E ;1C53: 1A 7E DW S1A33 ;1C55: 1A 33 DW S1C2C ;1C57: 1C 2C DW S19FC ;1C59: 19 FC DW S1900 ;1C5B: 19 00 DW S19B0 ;1C5D: 19 B0 DW S1966 ;1C5F: 19 66 DW S179A ;1C61: 17 9A DB 00H ;1C63: 00 DB 00H ;1C64: 00 S1C65 DB 5CH ;1C65: PUSH 80A0 DB 0ADH ;1C66: LD [TOS], NOS DB 5DH ;1C67: PUSH 80A2 DB 0ADH ;1C68: LD [TOS], NOS DB 90H, 07H ;1C69: PUSH 07 DB 0A1H ;1C6B: PUSHR 0 DB 0AAH ;1C6C: OVER DB 0AAH ;1C6D: OVER DB 6EH ;1C6E: CALL 11E5 DB 9EH, 05H ;1C6F: JZ 1C75 DB 0A7H ;1C71: DROP DB 0A7H ;1C72: DROP DB 97H ;1C73: PUSH 0001 DB 8DH ;1C74: RET DROP, 4 DB 78H ;1C75: CALL 12C5 DB 0A8H ;1C76: DUP DB 0B5H ;1C77: ISZ TOS DB 9EH, 06H ;1C78: JZ 1C7F DB 0A9H ;1C7A: SWAP DB 0A7H ;1C7B: DROP DB 0A9H ;1C7C: SWAP DB 0A7H ;1C7D: DROP DB 8DH ;1C7E: RET DROP, 4 DB 0A8H ;1C7F: DUP DB 98H ;1C80: PUSH 0002 DB 0B9H ;1C81: ISEQ TOS, NOS DB 9EH, 04H ;1C82: JZ 1C87 DB 0A7H ;1C84: DROP DB 9FH, 06H ;1C85: JP 1C8C DB 0A9H ;1C87: SWAP DB 0A7H ;1C88: DROP DB 0A9H ;1C89: SWAP DB 0A7H ;1C8A: DROP DB 8DH ;1C8B: RET DROP, 4 DB 94H, 0DFH ;1C8C: LOOP 1C6C DB 0A7H ;1C8E: DROP DB 0A7H ;1C8F: DROP DB 90H, 08H ;1C90: PUSH 08 DB 8CH ;1C92: RET DB 00H ;1C93: 00 S1C94 LDI 0DH ;1C94: F8 0D PHI R4 ;1C96: B4 LDI 0DCH ;1C97: F8 DC PLO R4 ;1C99: A4 SEP R4 ;1C9A: D4 GHI RF ;1C9B: 9F PHI R4 ;1C9C: B4 PLO R4 ;1C9D: A4 R1C9E INC RE ;1C9E: 1E LDX ;1C9F: F0 SHLC ;1CA0: 7E STXD ;1CA1: 73 LDX ;1CA2: F0 SHLC ;1CA3: 7E STXD ;1CA4: 73 GLO R4 ;1CA5: 84 STR RE ;1CA6: 5E ADC ;1CA7: 74 PLO R4 ;1CA8: A4 GHI R4 ;1CA9: 94 STR RE ;1CAA: 5E ADC ;1CAB: 74 DEC RE ;1CAC: 2E GLO R4 ;1CAD: 84 STR RE ;1CAE: 5E GLO R5 ;1CAF: 85 SD ;1CB0: F5 STR RE ;1CB1: 5E INC RE ;1CB2: 1E GHI R5 ;1CB3: 95 SDB ;1CB4: 75 STR RE ;1CB5: 5E BDF R1CC1 ;1CB6: 33 C1 GLO R5 ;1CB8: 85 DEC RE ;1CB9: 2E ADD ;1CBA: F4 STR RE ;1CBB: 5E GHI R5 ;1CBC: 95 INC RE ;1CBD: 1E ADC ;1CBE: 74 ADI 00H ;1CBF: FC 00 R1CC1 PHI R4 ;1CC1: B4 DEC RE ;1CC2: 2E LDXA ;1CC3: 72 PLO R4 ;1CC4: A4 INC RE ;1CC5: 1E DEC RA ;1CC6: 2A GLO RA ;1CC7: 8A BNZ R1C9E ;1CC8: 3A 9E INC RE ;1CCA: 1E LDX ;1CCB: F0 SHLC ;1CCC: 7E PLO R5 ;1CCD: A5 DEC RE ;1CCE: 2E LDX ;1CCF: F0 SHLC ;1CD0: 7E PHI R5 ;1CD1: B5 INC RE ;1CD2: 1E GLO R4 ;1CD3: 84 STXD ;1CD4: 73 GHI R4 ;1CD5: 94 STR RE ;1CD6: 5E GHI RA ;1CD7: 9A SHL ;1CD8: FE BNF R1CE2 ;1CD9: 3B E2 GHI RF ;1CDB: 9F INC RE ;1CDC: 1E SM ;1CDD: F7 STXD ;1CDE: 73 GHI RF ;1CDF: 9F SMB ;1CE0: 77 STR RE ;1CE1: 5E R1CE2 DEC RE ;1CE2: 2E GLO R5 ;1CE3: 85 STR RE ;1CE4: 5E DEC RE ;1CE5: 2E GHI R5 ;1CE6: 95 STR RE ;1CE7: 5E GLO RB ;1CE8: 8B BNZ R1CF1 ;1CE9: 3A F1 INC RE ;1CEB: 1E SM ;1CEC: F7 STXD ;1CED: 73 GHI RF ;1CEE: 9F SMB ;1CEF: 77 STR RE ;1CF0: 5E R1CF1 SEP RF ;1CF1: DF DB 00H ;1CF2: 00 DB 00H ;1CF3: 00 DB 00H ;1CF4: 00 DB 00H ;1CF5: 00 DB 00H ;1CF6: 00 DB 00H ;1CF7: 00 DB 00H ;1CF8: 00 DB 00H ;1CF9: 00 DB 00H ;1CFA: 00 DB 00H ;1CFB: 00 DB 00H ;1CFC: 00 DB 00H ;1CFD: 00 DB 00H ;1CFE: 00 DB 00H ;1CFF: 00 DW S13AF ;1D00: 13 AF DW S13BC ;1D02: 13 BC DW S13C4 ;1D04: 13 C4 DW S13CC ;1D06: 13 CC DW S13EA ;1D08: 13 EA DW S1412 ;1D0A: 14 12 DW S1427 ;1D0C: 14 27 DW S143F ;1D0E: 14 3F DW S144B ;1D10: 14 4B DW S1451 ;1D12: 14 51 DW S1459 ;1D14: 14 59 DW S1481 ;1D16: 14 81 DW S1484 ;1D18: 14 84 DW S1490 ;1D1A: 14 90 DW S149B ;1D1C: 14 9B DW S14A1 ;1D1E: 14 A1 DW S14A7 ;1D20: 14 A7 DW S14AB ;1D22: 14 AB DW S14B9 ;1D24: 14 B9 DW S14C1 ;1D26: 14 C1 DW S14C3 ;1D28: 14 C3 DW S14D3 ;1D2A: 14 D3 DW S14DC ;1D2C: 14 DC DW S14F3 ;1D2E: 14 F3 DW S14FB ;1D30: 14 FB DW S1500 ;1D32: 15 00 DW S150B ;1D34: 15 0B DW S150F ;1D36: 15 0F DW S1514 ;1D38: 15 14 DW S1535 ;1D3A: 15 35 DW S153B ;1D3C: 15 3B DW S1540 ;1D3E: 15 40 DW S1568 ;1D40: 15 68 DW S157C ;1D42: 15 7C DW S158F ;1D44: 15 8F DW S15BA ;1D46: 15 BA DW S15CB ;1D48: 15 CB DW S15CE ;1D4A: 15 CE DW S15F8 ;1D4C: 15 F8 DW S1652 ;1D4E: 16 52 DW S1672 ;1D50: 16 72 DW S1694 ;1D52: 16 94 DW S16B5 ;1D54: 16 B5 DW S16C9 ;1D56: 16 C9 DW S16CF ;1D58: 16 CF DW S16D5 ;1D5A: 16 D5 DW S16E8 ;1D5C: 16 E8 DW S1F47 ;1D5E: 1F 47 DW S1C45 ;1D60: 1C 45 DW S0DDC ;1D62: 0D DC DW S0E02 ;1D64: 0E 02 DW S1C94 ;1D66: 1C 94 DW S038B ;1D68: 03 8B DW S038F ;1D6A: 03 8F DB 00H ;1D6C: 00 DB 00H ;1D6D: 00 DB 00H ;1D6E: 00 DB 00H ;1D6F: 00 DB 00H ;1D70: 00 S1D71 DB 07H ;1D71: HASH TOS DB 0DCH ;1D72: LDMSG TOS DB 0A8H ;1D73: DUP DB 0A8H ;1D74: DUP DB 0C6H ;1D75: PUSH 810B DB 90H, 07H ;1D76: PUSH 07 DB 0B3H ;1D78: ADD TOS, NOS DB 90H, 04H ;1D79: PUSH 04 DB 0BAH ;1D7B: MCPY [NOS], [3OS] DB 0EFH ;1D7C: SEND DB 0A8H ;1D7D: DUP DB 9EH, 1FH ;1D7E: JZ 1D9E DB 0A7H ;1D80: DROP DB 0D2H ;1D81: PUSH [8107] DB 90H, 15H ;1D82: PUSH 15 DB 0B9H ;1D84: ISEQ TOS, NOS DB 0B5H ;1D85: ISZ TOS DB 9EH, 16H ;1D86: JZ 1D9D DB 90H, 07H ;1D88: PUSH 07 DB 0B3H ;1D8A: ADD TOS, NOS DB 0A8H ;1D8B: DUP DB 0ACH ;1D8C: LD TOS.0, [TOS] DB 0B5H ;1D8D: ISZ TOS DB 9EH, 03H ;1D8E: JZ 1D92 DB 0A7H ;1D90: DROP DB 0A8H ;1D91: DUP DB 0A8H ;1D92: DUP DB 0C6H ;1D93: PUSH 810B DB 90H, 07H ;1D94: PUSH 07 DB 0B3H ;1D96: ADD TOS, NOS DB 90H, 04H ;1D97: PUSH 04 DB 0BAH ;1D99: MCPY [NOS], [3OS] DB 96H ;1D9A: PUSH 0000 DB 9FH, 02H ;1D9B: JP 1D9E DB 97H ;1D9D: PUSH 0001 DB 92H, 0DDH ;1D9E: JZ 1D7C DB 90H, 04H ;1DA0: PUSH 04 DB 0B3H ;1DA2: ADD TOS, NOS DB 0A9H ;1DA3: SWAP DB 0A7H ;1DA4: DROP DB 8CH ;1DA5: RET DB 00H ;1DA6: 00 DB 00H ;1DA7: 00 DB 00H ;1DA8: 00 DB 00H ;1DA9: 00 DB 00H ;1DAA: 00 DB 00H ;1DAB: 00 DB 00H ;1DAC: 00 DB 00H ;1DAD: 00 DB 00H ;1DAE: 00 DB 00H ;1DAF: 00 DB 00H ;1DB0: 00 DB 00H ;1DB1: 00 DB 00H ;1DB2: 00 DB 00H ;1DB3: 00 DB 00H ;1DB4: 00 DB 00H ;1DB5: 00 DB 00H ;1DB6: 00 DB 00H ;1DB7: 00 DB 00H ;1DB8: 00 DB 00H ;1DB9: 00 DB 00H ;1DBA: 00 DB 00H ;1DBB: 00 DB 00H ;1DBC: 00 DB 00H ;1DBD: 00 DB 00H ;1DBE: 00 DB 00H ;1DBF: 00 S1DC0 GHI RF ;1DC0: 9F PLO R5 ;1DC1: A5 GHI R6 ;1DC2: 96 PHI RB ;1DC3: BB LDI 03H ;1DC4: F8 03 PLO RB ;1DC6: AB DEC RE ;1DC7: 2E R1DC8 LDI 08H ;1DC8: F8 08 PLO R9 ;1DCA: A9 LDA RB ;1DCB: 4B PLO RA ;1DCC: AA R1DCD SEX RE ;1DCD: EE INP 1 ;1DCE: 69 SHL ;1DCF: FE BNF R1DCD ;1DD0: 3B CD GLO RA ;1DD2: 8A SHR ;1DD3: F6 PLO RA ;1DD4: AA BNF R1DD9 ;1DD5: 3B D9 SEQ ;1DD7: 7B SKP ;1DD8: 38 R1DD9 REQ ;1DD9: 7A SEX R3 ;1DDA: E3 OUT 2 ;1DDB: 62 DB 28H ;1DDC: 28 DEC R9 ;1DDD: 29 GLO R9 ;1DDE: 89 BNZ R1DCD ;1DDF: 3A CD GLO R5 ;1DE1: 85 BNZ R1DED ;1DE2: 3A ED GHI RB ;1DE4: 9B BNZ R1DEB ;1DE5: 3A EB INC R5 ;1DE7: 15 LDI 20H ;1DE8: F8 20 PHI RB ;1DEA: BB R1DEB BR R1DEF ;1DEB: 30 EF R1DED GHI RB ;1DED: 9B SHL ;1DEE: FE R1DEF BNZ R1DC8 ;1DEF: 3A C8 INC RE ;1DF1: 1E SEP RF ;1DF2: DF DB 00H ;1DF3: 00 DB 00H ;1DF4: 00 DB 00H ;1DF5: 00 DB 00H ;1DF6: 00 S1DF7 DB 0C5H ;1DF7: PUSH 810A DB 0DDH ;1DF8: LD [TOS], 0 DB 0EAH ;1DF9: OUT 2, 20 DB 37H ;1DFA: CALL 0D0B DB 0C6H ;1DFB: PUSH 810B DB 9AH ;1DFC: PUSH 0020 DB 19H ;1DFD: CALL 07FB DB 0EBH ;1DFE: OUTM 2, 20 DB 8CH ;1DFF: RET S1E00 ; ; ====================================================================== ; PSEUDO INSTRUCTION: LD [TOS], const=0001 ; ---------------------------------------------------------------------- ; Opcode: 0xE0 ; Handler: 0x1E00 ; Token: 0A00+0xE0 ; Definition: Word store of constant 1: M[TOS]:M[TOS+1] = 0x0001 ; ; Implementation: ; High byte GHI RF=0, low byte from LDI 01; PLO RA. ; ====================================================================== LDI 01H ;1E00: F8 01 S1E02 PLO RA ;1E02: AA LDA RE ;1E03: 4E PHI RB ;1E04: BB LDA RE ;1E05: 4E PLO RB ;1E06: AB GHI RF ;1E07: 9F STR RB ;1E08: 5B INC RB ;1E09: 1B GLO RA ;1E0A: 8A STR RB ;1E0B: 5B SEP RF ;1E0C: DF DB 00H ;1E0D: 00 S1E0E ; ; ====================================================================== ; PSEUDO INSTRUCTION: ROT ; ---------------------------------------------------------------------- ; Opcode: 0xE7 ; Handler: 0x1E0E ; Token: 0A00+0xE7 ; Definition: Rotate the top three stack words: A,B,C -> C,A,B ; ; Implementation: ; Like PTC ROT. ; ====================================================================== LDA RE ;1E0E: 4E PHI RA ;1E0F: BA LDA RE ;1E10: 4E PLO RA ;1E11: AA LDA RE ;1E12: 4E PHI R5 ;1E13: B5 LDA RE ;1E14: 4E PLO R5 ;1E15: A5 LDA RE ;1E16: 4E PHI RB ;1E17: BB LDN RE ;1E18: 0E PLO RB ;1E19: AB SEX RE ;1E1A: EE GLO R5 ;1E1B: 85 STXD ;1E1C: 73 GHI R5 ;1E1D: 95 STXD ;1E1E: 73 LBR J0189 ;1E1F: C0 01 89 DB 00H ;1E22: 00 S1E23 ; ; ====================================================================== ; PSEUDO INSTRUCTION: OUT 2, const=40 ; ---------------------------------------------------------------------- ; Opcode: 0xE8 ; Handler: 0x1E23 ; Token: 0A00+0xE8 ; Definition: Output the 8-bit value 0x40 to port 2 (set bit 6 of the port-2 shadow) ; ; Implementation: ; Wraps PUSH 0040; OUT 2, TOS.0. ; ====================================================================== DB 9BH ;1E23: PUSH 0040 DB 0E1H ;1E24: OUT 2, TOS.0 DB 8CH ;1E25: RET DB 00H ;1E26: 00 S1E27 ; ; ====================================================================== ; PSEUDO INSTRUCTION: OUTM 2, const=40 ; ---------------------------------------------------------------------- ; Opcode: 0xE9 ; Handler: 0x1E27 ; Token: 0A00+0xE9 ; Definition: Clear bit 6 in the port-2 output (mask 0x40) ; ; Implementation: ; Wraps PUSH 0040; OUTM 2, TOS.0. ; ====================================================================== DB 9BH ;1E27: PUSH 0040 DB 0E2H ;1E28: OUTM 2, TOS.0 DB 8CH ;1E29: RET DB 00H ;1E2A: 00 S1E2B ; ; ====================================================================== ; DATA AREA: BOOT TOKEN STREAM (monitor program) ; Range: 0x1E2B-0x1F45 ; ---------------------------------------------------------------------- ; The operator/monitor program, executed by the interpreter at reset. ; RAM test -> build 'ERR 2' status -> display refresh + transmit bursts ; -> IDLE (power down) when no program is loaded. ; Contains: E8 OUT 2,40; RAM test (CKRAM); SEND bursts (F2/16-DELAYED- ; SEND); 07CF display refresh; IDLE (EC). ; ====================================================================== DB 0E8H ;1E2B: OUT 2, 40 DB 96H ;1E2C: PUSH 0000 DB 0A8H ;1E2D: DUP DB 0AH ;1E2E: PUSH 81D7 DB 0ADH ;1E2F: LD [TOS], NOS DB 0A8H ;1E30: DUP DB 1DH ;1E31: CKRAM TOS DB 0AAH ;1E32: OVER DB 0AAH ;1E33: OVER DB 0B9H ;1E34: ISEQ TOS, NOS DB 9EH, 0AH ;1E35: JZ 1E40 DB 0A7H ;1E37: DROP DB 8FH, 04H, 00H ;1E38: 0 PUSH 0400 DB 0B3H ;1E3B: ADD TOS, NOS DB 0A8H ;1E3C: DUP DB 96H ;1E3D: PUSH 0000 DB 9FH, 04H ;1E3E: JP 1E43 DB 0A9H ;1E40: SWAP DB 0A7H ;1E41: DROP DB 97H ;1E42: PUSH 0001 DB 92H, 0EAH ;1E43: JZ 1E2E DB 0A8H ;1E45: DUP DB 0CAH ;1E46: SUB TOS, 1 DB 0A8H ;1E47: DUP DB 0BH ;1E48: PUSH 81D9 DB 0ADH ;1E49: LD [TOS], NOS DB 0B6H ;1E4A: ISNEG TOS DB 9EH, 14H ;1E4B: JZ 1E60 DB 0AH ;1E4D: PUSH 81D7 DB 0ABH ;1E4E: LD TOS, [TOS] DB 0B6H ;1E4F: ISNEG TOS DB 9EH, 04H ;1E50: JZ 1E55 DB 96H ;1E52: PUSH 0000 DB 9FH, 04H ;1E53: JP 1E58 DB 8FH, 7FH, 0FFH ;1E55: F PUSH 7FFF DB 0BH ;1E58: PUSH 81D9 DB 0ADH ;1E59: LD [TOS], NOS DB 8FH, 7FH, 0FFH ;1E5A: F PUSH 7FFF DB 0A9H ;1E5D: SWAP DB 9FH, 08H ;1E5E: JP 1E67 DB 0A7H ;1E60: DROP DB 0BH ;1E61: PUSH 81D9 DB 0ABH ;1E62: LD TOS, [TOS] DB 8FH, 82H, 00H ;1E63: 0 PUSH 8200 DB 1DH ;1E66: CKRAM TOS DB 0CAH ;1E67: SUB TOS, 1 DB 0A8H ;1E68: DUP DB 0FH ;1E69: PUSH 8133 DB 0ADH ;1E6A: LD [TOS], NOS DB 0A8H ;1E6B: DUP DB 0EH ;1E6C: PUSH 8131 DB 0ADH ;1E6D: LD [TOS], NOS DB 8FH, 7FH, 0FFH ;1E6E: F PUSH 7FFF DB 0B2H ;1E71: SUB TOS, NOS DB 0A9H ;1E72: SWAP DB 0AH ;1E73: PUSH 81D7 DB 0ABH ;1E74: LD TOS, [TOS] DB 0CAH ;1E75: SUB TOS, 1 DB 0B2H ;1E76: SUB TOS, NOS DB 0B3H ;1E77: ADD TOS, NOS DB 90H, 32H ;1E78: PUSH 32 DB 18H ;1E7A: CALL 07DB DB 8CH ;1E7B: RET DB 00H ;1E7C: 00 DB 00H ;1E7D: 00 DB 00H ;1E7E: 00 DB 00H ;1E7F: 00 S1E80 ; ; ====================================================================== ; PSEUDO INSTRUCTION: PUSH SW ; ---------------------------------------------------------------------- ; Opcode: 0x50 ; Handler: 0x1E80 ; Token: 0B00+0x50 ; Definition: Push 0x0001 if the mode switches are clear, else 0x0000 (INP 2, low 2 bits) ; ; Implementation: ; Reads the mode-switch bits; used to detect the OPER/PRGM switch state. ; ====================================================================== SEX RE ;1E80: EE DEC RE ;1E81: 2E INP 2 ;1E82: 6A ANI 03H ;1E83: FA 03 BNZ R1E8B ;1E85: 3A 8B LDI 01H ;1E87: F8 01 BR R1E8C ;1E89: 30 8C R1E8B GHI RF ;1E8B: 9F R1E8C STR RE ;1E8C: 5E DEC RE ;1E8D: 2E GHI RF ;1E8E: 9F STR RE ;1E8F: 5E SEP RF ;1E90: DF S1E91 DB 90H, 04H ;1E91: PUSH 04 DB 07H ;1E93: HASH TOS DB 0DCH ;1E94: LDMSG TOS DB 2CH ;1E95: CALL 0CEF DB 20H ;1E96: SYS 1DC0 DB 17H ;1E97: CALL 07D5 DB 8CH ;1E98: RET S1E99 DB 0C6H ;1E99: PUSH 810B DB 8FH, 80H, 0ACH ;1E9A: C PUSH 80AC DB 0ADH ;1E9D: LD [TOS], NOS DB 90H, 1AH ;1E9E: PUSH 1A DB 0A1H ;1EA0: PUSHR 0 DB 8FH, 32H, 2DH ;1EA1: D PUSH 322D DB 0C6H ;1EA4: PUSH 810B DB 0C9H ;1EA5: ADD TOS, 2 DB 0ADH ;1EA6: LD [TOS], NOS DB 28H ;1EA7: CALL 0841 DB 29H ;1EA8: CALL 084D DB 0E8H ;1EA9: OUT 2, 40 DB 0A7H ;1EAA: DROP DB 33H ;1EAB: SYS 1F0E DB 34H ;1EAC: SYS 1F34 DB 90H, 70H ;1EAD: PUSH 70 DB 0B9H ;1EAF: ISEQ TOS, NOS DB 9EH, 16H ;1EB0: JZ 1EC7 DB 90H, 10H ;1EB2: PUSH 10 DB 0B9H ;1EB4: ISEQ TOS, NOS DB 9EH, 11H ;1EB5: JZ 1EC7 DB 8FH, 32H, 37H ;1EB7: 7 PUSH 3237 DB 0C6H ;1EBA: PUSH 810B DB 0C9H ;1EBB: ADD TOS, 2 DB 0ADH ;1EBC: LD [TOS], NOS DB 28H ;1EBD: CALL 0841 DB 29H ;1EBE: CALL 084D DB 0A7H ;1EBF: DROP DB 33H ;1EC0: SYS 1F0E DB 90H, 2DH ;1EC1: PUSH 2D DB 0B9H ;1EC3: ISEQ TOS, NOS DB 92H, 0FBH ;1EC4: JZ 1EC0 DB 8DH ;1EC6: RET DROP, 4 DB 94H, 0D9H ;1EC7: LOOP 1EA1 DB 90H, 35H ;1EC9: PUSH 35 DB 0CH ;1ECB: LDVAL TOS DB 16H ;1ECC: CALL 07CF DB 8CH ;1ECD: RET DB 00H ;1ECE: 00 S1ECF DB 0A1H ;1ECF: PUSHR 0 DB 0AAH ;1ED0: OVER DB 0A4H ;1ED1: PUSH R DB 0B3H ;1ED2: ADD TOS, NOS DB 0ACH ;1ED3: LD TOS.0, [TOS] DB 0AAH ;1ED4: OVER DB 0A4H ;1ED5: PUSH R DB 0B3H ;1ED6: ADD TOS, NOS DB 0AEH ;1ED7: LD [TOS], NOS.0 DB 0AAH ;1ED8: OVER DB 0A4H ;1ED9: PUSH R DB 0B3H ;1EDA: ADD TOS, NOS DB 0ACH ;1EDB: LD TOS.0, [TOS] DB 0AAH ;1EDC: OVER DB 0A4H ;1EDD: PUSH R DB 0B3H ;1EDE: ADD TOS, NOS DB 0ACH ;1EDF: LD TOS.0, [TOS] DB 0B2H ;1EE0: SUB TOS, NOS DB 9EH, 06H ;1EE1: JZ 1EE8 DB 0A4H ;1EE3: PUSH R DB 0B3H ;1EE4: ADD TOS, NOS DB 90H, 34H ;1EE5: PUSH 34 DB 18H ;1EE7: CALL 07DB DB 94H, 0E7H ;1EE8: LOOP 1ED0 DB 0A7H ;1EEA: DROP DB 0A7H ;1EEB: DROP DB 8CH ;1EEC: RET S1EED DB 7BH ;1EED: CALL 136B DB 8CH ;1EEE: RET S1EEF DB 37H ;1EEF: CALL 0D0B DB 99H ;1EF0: PUSH 0010 DB 0E3H ;1EF1: INP1 TOS, TOS.0 DB 9EH, 15H ;1EF2: JZ 1F08 DB 24H ;1EF4: PUSH EF1 DB 9EH, 04H ;1EF5: JZ 1EFA DB 31H ;1EF7: CALL 1EED DB 9FH, 0EH ;1EF8: JP 1F07 DB 23H ;1EFA: PUSH EF3 DB 9EH, 04H ;1EFB: JZ 1F00 DB 2DH ;1EFD: CALL 0CF7 DB 9FH, 08H ;1EFE: JP 1F07 DB 0E5H ;1F00: INP1 20 DB 9EH, 04H ;1F01: JZ 1F06 DB 2EH ;1F03: CALL 1E91 DB 9FH, 02H ;1F04: JP 1F07 DB 1CH ;1F06: CALL 094B DB 17H ;1F07: CALL 07D5 DB 90H, 31H ;1F08: PUSH 31 DB 0CH ;1F0A: LDVAL TOS DB 16H ;1F0B: CALL 07CF DB 8CH ;1F0C: RET DB 00H ;1F0D: 00 S1F0E LDI 09H ;1F0E: F8 09 PHI R4 ;1F10: B4 LDI 0CH ;1F11: F8 0C PLO R4 ;1F13: A4 LDI 64H ;1F14: F8 64 PLO R8 ;1F16: A8 LDI 2EH ;1F17: F8 2E PLO RA ;1F19: AA GHI R3 ;1F1A: 93 PHI RA ;1F1B: BA R1F1C DEC R8 ;1F1C: 28 GLO R8 ;1F1D: 88 BNZ R1F22 ;1F1E: 3A 22 BR J1F2E ;1F20: 30 2E R1F22 SEP R4 ;1F22: D4 XRI 32H ;1F23: FB 32 BNZ R1F1C ;1F25: 3A 1C R1F27 SEP R4 ;1F27: D4 XRI 32H ;1F28: FB 32 BZ R1F27 ;1F2A: 32 27 XRI 32H ;1F2C: FB 32 J1F2E DEC RE ;1F2E: 2E STR RE ;1F2F: 5E DEC RE ;1F30: 2E GHI RF ;1F31: 9F STR RE ;1F32: 5E SEP RF ;1F33: DF S1F34 LDI 09H ;1F34: F8 09 PHI R4 ;1F36: B4 LDI 0CH ;1F37: F8 0C PLO R4 ;1F39: A4 LDI 2EH ;1F3A: F8 2E PLO RA ;1F3C: AA LDI 1FH ;1F3D: F8 1F PHI RA ;1F3F: BA SEP R4 ;1F40: D4 LBR J1F2E ;1F41: C0 1F 2E DB 00H ;1F44: 00 S1F45 DB 75H ;1F45: CALL 1295 DB 8CH ;1F46: RET S1F47 DB 8FH, 1FH, 4BH ;1F47: B PUSH 1F4B DB 8CH ;1F4A: RET ; ; ====================================================================== ; DATA AREA: HEX DIGIT STRING ; Range: 0x1F4B-0x1F5A ; ---------------------------------------------------------------------- ; 16-character string '0123456789ABCDEF' used for hex display. ; ====================================================================== DB '0123456789ABCDEF' ;1F4B: 30 ;1F4C: 31 ;1F4D: 32 ;1F4E: 33 ;1F4F: 34 ;1F50: 35 ;1F51: 36 ;1F52: 37 ;1F53: 38 ;1F54: 39 ;1F55: 41 ;1F56: 42 ;1F57: 43 ;1F58: 44 ;1F59: 45 ;1F5A: 46 DB 00H ;1F5B: 00 DB 00H ;1F5C: 00 DB 00H ;1F5D: 00 DB 00H ;1F5E: 00 DB 00H ;1F5F: 00 J1F60 LDI 80H ;1F60: F8 80 PHI R2 ;1F62: B2 LDI 9CH ;1F63: F8 9C PLO R2 ;1F65: A2 LDI 81H ;1F66: F8 81 PHI RE ;1F68: BE PHI R6 ;1F69: B6 LDI 00H ;1F6A: F8 00 PLO RE ;1F6C: AE PLO R6 ;1F6D: A6 STR R6 ;1F6E: 56 INC R6 ;1F6F: 16 STR R6 ;1F70: 56 INC R6 ;1F71: 16 STR R6 ;1F72: 56 LDI 82H ;1F73: F8 82 PHI RA ;1F75: BA LDI 06H ;1F76: F8 06 PLO RA ;1F78: AA LDA RA ;1F79: 4A PHI RC ;1F7A: BC LDA RA ;1F7B: 4A PLO RC ;1F7C: AC GHI RA ;1F7D: 9A PHI R5 ;1F7E: B5 LDI 09H ;1F7F: F8 09 PLO R5 ;1F81: A5 LDI 0AH ;1F82: F8 0A PHI R8 ;1F84: B8 LDI 0BH ;1F85: F8 0B PHI R7 ;1F87: B7 LDI 08H ;1F88: F8 08 PHI R1 ;1F8A: B1 LDI 0BCH ;1F8B: F8 BC PLO R1 ;1F8D: A1 RET ;1F8E: 70 DB 0E0H ;1F8F: E0 GHI R2 ;1F90: 92 PHI RB ;1F91: BB GLO RE ;1F92: 8E PLO RB ;1F93: AB LDA RB ;1F94: 4B BNZ R1F98 ;1F95: 3A 98 STR RB ;1F97: 5B R1F98 GLO RB ;1F98: 8B INC RB ;1F99: 1B STR RB ;1F9A: 5B DEC RB ;1F9B: 2B DEC RE ;1F9C: 2E INP 2 ;1F9D: 6A ANI 03H ;1F9E: FA 03 BZ R1FB4 ;1FA0: 32 B4 R1FA2 INP 6 ;1FA2: 6E SHL ;1FA3: FE BDF R1FA2 ;1FA4: 33 A2 LDI 05H ;1FA6: F8 05 STR RE ;1FA8: 5E OUT 6 ;1FA9: 66 DEC RE ;1FAA: 2E R1FAB INP 6 ;1FAB: 6E SHL ;1FAC: FE BDF R1FAB ;1FAD: 33 AB LDI 01H ;1FAF: F8 01 STR RE ;1FB1: 5E OUT 6 ;1FB2: 66 DEC RE ;1FB3: 2E R1FB4 INP 1 ;1FB4: 69 ANI 08H ;1FB5: FA 08 BZ R1FC3 ;1FB7: 32 C3 LDI 1EH ;1FB9: F8 1E PHI RD ;1FBB: BD LDI 0EFH ;1FBC: F8 EF PLO RD ;1FBE: AD INC RE ;1FBF: 1E GHI RF ;1FC0: 9F STR RB ;1FC1: 5B SEP RF ;1FC2: DF R1FC3 INC R6 ;1FC3: 16 LDA R6 ;1FC4: 46 XRI 5AH ;1FC5: FB 5A STR RE ;1FC7: 5E LDA R6 ;1FC8: 46 XRI 5BH ;1FC9: FB 5B OR ;1FCB: F1 INC RE ;1FCC: 1E BZ R1FF4 ;1FCD: 32 F4 GHI RF ;1FCF: 9F STR RB ;1FD0: 5B DEC RB ;1FD1: 2B STR RB ;1FD2: 5B LDI 1EH ;1FD3: F8 1E PHI RD ;1FD5: BD LDI 2BH ;1FD6: F8 2B PLO RD ;1FD8: AD LDI 0BH ;1FD9: F8 0B STR R5 ;1FDB: 55 LDI 12H ;1FDC: F8 12 PLO R5 ;1FDE: A5 LDI 1DH ;1FDF: F8 1D STR R5 ;1FE1: 55 LDI 04H ;1FE2: F8 04 STR R6 ;1FE4: 56 INC R6 ;1FE5: 16 LDI 0ACH ;1FE6: F8 AC STR R6 ;1FE8: 56 LDI 0D1H ;1FE9: F8 D1 PLO R6 ;1FEB: A6 LDI 06H ;1FEC: F8 06 STR R6 ;1FEE: 56 INC R6 ;1FEF: 16 LDI 93H ;1FF0: F8 93 STR R6 ;1FF2: 56 SEP RF ;1FF3: DF R1FF4 LDN RA ;1FF4: 0A PHI R8 ;1FF5: B8 GHI RF ;1FF6: 9F PLO RA ;1FF7: AA LDA RA ;1FF8: 4A PHI RD ;1FF9: BD LDA RA ;1FFA: 4A PLO RD ;1FFB: AD LDN RA ;1FFC: 0A PHI R7 ;1FFD: B7 SEP RF ;1FFE: DF DB 00H ;1FFF: 00 END