; -------------------------------------- ; zasm: assemble "mps-2000_monitor_v1_comet.asm" ; date: 2021-08-27 11:08:50 ; -------------------------------------- ; ;/MPS-2000 MONITOR V 1.0 COMET/ ;/COPYRIGHT MOGENS PELLE OG GROSBOELL-POULSEN/ ;DATO:11-1-81 ; F000: .ORG 0f000h F000: base = $ 0038: rst7 = 38H ; ;I/O-ENHEDER ; 00C0: tti = 0C0H 00C0: tto = 0C0H 00C1: tts = 0C1H ; 00D0: mcrtd0 = 0D0H 00D1: mcrtd1 = 0D1H 00D2: crti = 0D2H 00D2: crto = 0D2H 00D3: crts = 0D3H ; ; ; 0000: false = 0 00FF: true = 0FFH 000D: cr = 0DH 000A: lf = 0AH 001B: esc = 1BH 0007: bell = 7 00FF: rub = 0FFH 0000: fil = 0 0007: max = 7 00CE: initty = 0CEH 0027: inittz = 027H 00DF: ioff = 0DFH 00EC: obpnt = 0ECH 00ED: ibpnt = 0EDH 0020: flram = 20H 00F1: lpsp = 0F1H 00F0: lpdp = 0F0H 0010: empty = 10H 0020: busy = 20H 0000: strobe = 0 00F2: lpdc = 0F2H 00F3: lpsc = 0F3H 00F1: srdp = lpsp 0011: dc1 = 11H ; ; ; 00FC: cmsk = 11111100b 00F3: rmsk = 11110011b 00CF: pmsk = 11001111b 003F: lmsk = 00111111b ; ; 0000: ctty = 0 0001: ccrt = 1 0002: batch = 2 0003: cuser = 3 ; ; 0000: rtty = 0 0004: rbuf = 4 0008: rcas = 8 000C: ruser = 0ch ; ; ; 0000: ptty = 0 0010: pbuf = 10h 0020: pcas = 20h 0030: puser = 30h ; ; ; 0000: ltty = 0 0040: lcrt = 40h 0080: line = 80h 00C0: luser = 0c0h ; ; ; 00F1: ciloc = 0f1h 00F4: coloc = 0f4h 00F7: ruloc = 0f7h 00FA: puloc = 0fah 00FD: luloc = 0fdh 00EE: csloc = 0eeh ; ; F000: C37EF0 [10] jp begin F003: C34AF8 [20] jp ci F006: C372F8 [30] jp ri F009: C33FF6 [40] jp co F00C: C3B3F6 [50] jp po F00F: C383F6 [60] jp lo F012: C339F7 [70] jp csts F015: C328F2 [80] jp iochk F018: C31DF2 [90] jp ioset F01B: C3E7F7 [100] jp memck F01E: C3E9F8 [10] trap jp restart F021: C369F7 [20] jp expr F024: C3E6FE [30] jp clrscr F027: C3FEFE [40] jp screen ; ;Navn: F02A: 0D0A0000 msg .byte cr,lf,0,0,0 F02E: 00 F02F: 4D50532D .byte "MPS-2000 MONITOR V 1.S" F033: 32303030 F037: 204D4F4E F03B: 49544F52 F03F: 20562031 F043: 2E53 F045: 0D .byte cr F046: 434F5059 .byte "COPYRIGHT (C) 1980 DANSK SYSTEMPROGRAMMEL & " F04A: 52494748 F04E: 54202843 F052: 29203139 F056: 38302044 F05A: 414E534B F05E: 20535953 F062: 54454D50 F066: 524F4752 F06A: 414D4D45 F06E: 4C202620 F072: 4D455441 .byte "METANIC APS" F076: 4E494320 F07A: 415053 F07D: 0D .byte cr 0054: msgl = $-msg ; ;Initialisering. og start ; F07E: F3 [ 4] begin di F07F: 1140FF [14] ld de,0ff40h F082: 15 [ 4] dlaya dec d F083: C282F0 [14|14] jp nz,dlaya F086: 1D [18] dec e F087: C282F0 [28|28] jp nz,dlaya F08A: 21B1F1 [38] ld hl,stabel F08D: 060C [45] ld b,12 F08F: 0E00 [52] ld c,0 F091: 79 [ 4] crti30 ld a,c F092: D3D0 [15] out (mcrtd0),a F094: 0C [19] inc c F095: 7E [26] ld a,(hl) F096: D3D1 [37] out (mcrtd1),a F098: 23 [43] inc hl F099: 10F6 [51|56] djnz crti30 F09B: 3ECE [58] ld a,initty F09D: D3C1 [69] out (tts),a F09F: 3E01 [76] ld a,1 F0A1: D3E8 [87] out (0e8h),a F0A3: D3E9 [98] out (0e9h),a F0A5: 3E47 [105] ld a,47h F0A7: D3EA [116] out (0eah),a F0A9: 3E34 [123] ld a,34h F0AB: D3EA [134] out (0eah),a F0AD: 3E27 [141] ld a,inittz F0AF: D3C1 [152] out (tts),a F0B1: 3E0F [159] ld a,0fh F0B3: D3F2 [170] out (lpdc),a F0B5: 3ECF [177] ld a,0cfh F0B7: D3F3 [188] out (lpsc),a F0B9: 3EF0 [195] ld a,0f0h F0BB: D3F3 [206] out (lpsc),a F0BD: 3E0F [213] ld a,0fh F0BF: D3F1 [224] out (srdp),a F0C1: 3E03 [231] ld a,3 F0C3: D3F2 [242] out (lpdc),a F0C5: 3E11 [249] ld a,dc1 F0C7: D3F0 [260] out (lpdp),a F0C9: DBF1 [271] in a,(lpsp) F0CB: CBC7 [279] set strobe,a F0CD: D3F1 [290] out (lpsp),a F0CF: 31D3F0 [300] ld sp,ahead - 4 F0D2: C3F5F7 [310] jp memsiz + 1 F0D5: D7F0 .word ahead F0D7: F9 [ 6] ahead ld sp,hl F0D8: EB [10] ex de,hl F0D9: 012300 [20] ld bc,endx - exit F0DC: 21F8F9 [30] ld hl,exit F0DF: EDB0 [46|21] ldir F0E1: EB [50] ex de,hl F0E2: 0191FF [60] ld bc,-6fh F0E5: 09 [71] add hl,bc F0E6: E5 [82] push hl F0E7: 01E5F8 [92] ld bc,retur F0EA: 71 [99] ld (hl),c F0EB: 23 [105] inc hl F0EC: 70 [112] ld (hl),b F0ED: 210000 [122] ld hl,0 F0F0: 060A [129] ld b,10 F0F2: E5 [11] stkit push hl F0F3: 10FD [19|24] djnz stkit F0F5: 0EA9 [26] ld c,line | pcas | rcas | ccrt F0F7: CD1DF2 [43] call ioset F0FA: 210000 [53] ld hl,0 F0FD: CD9EFF [70] call abg F100: CDE6FE [87] call clrscr F103: 3EE0 [94] ld a,erf F105: 060D [101] ld b,obpnt - erf + 1 F107: 0E00 [108] ld c,0 F109: CD1FF2 [17] ini call wmem F10C: 3C [21] inc a F10D: 10FA [29|34] djnz ini F10F: 3EC3 [36] ld a,0c3h ;jmp ud i 66h F111: 326600 [49] ld (66h),a F114: 21E9F8 [59] ld hl,restart F117: 326700 [72] ld (67h),a F11A: 01C306 [82] ld bc,6c3h F11D: 3EEB [89] ld a,csloc-3 F11F: C603 [ 7] ini1 add a,3 F121: CD1FF2 [24] call wmem F124: 10F9 [32|37] djnz ini1 F126: CDBDF1 [49] call inibuf F129: 0654 [ 7] hello ld b,msgl F12B: CDF5F5 [24] call tom F12E: 112EF1 [10] start ld de,start F131: D5 [21] push de F132: CD31F7 [38] call crlf F135: 0E3A [45] ld c,':' F137: CD3FF6 [62] call co F13A: CD62F9 [17] star0 call ti F13D: E67F [24] and 7fh F13F: 28F9 [31|36] jr z,star0 F141: D630 [38] sub '0' F143: F8 [43|49] ret m F144: FE2B [50] cp 'Z'-'0'+1 F146: D0 [55|61] ret nc F147: 87 [59] add a,a F148: 0600 [66] ld b,0 F14A: 4F [70] ld c,a F14B: 2159F1 [80] ld hl,tbl F14E: 09 [91] add hl,bc F14F: 5E [98] ld e,(hl) F150: 23 [104] inc hl F151: 56 [111] ld d,(hl) F152: EB [115] ex de,hl F153: CD3DF6 [132] call blk F156: 0E02 [139] ld c,2 F158: E9 [143] jp (hl) ; ;Kommandotabel F159: 33F2 tbl .word csvek F15B: 3AF2 .word civek F15D: 41F2 .word covek F15F: 48F2 .word ruvek F161: 4FF2 .word puvek F163: 56F2 .word luvek F165: 77FD .word seks F167: 4CFA .word strsg F169: D5FA .word inp8 F16B: 0EFB .word dmp8 F16D: 0AF6 .word error F16F: ABFD .word baand F171: BDF1 .word inibuf F173: C9F1 .word sunit F175: C3F1 .word inobuf F177: 0AF6 .word error F179: 0AF6 .word error F17B: D5F1 .word assign F17D: 7FFB .word back F17F: 86F2 .word comp F181: CAF2 .word disp F183: E1F2 .word eof F185: FDF2 .word fill F187: 14F3 .word goto F189: A5F7 .word hexn F18B: 83F9 .word iport F18D: 62F3 .word test F18F: CAF9 .word kin F191: A3F8 .word load F193: 80F3 .word move F195: 0CF7 .word null F197: 9AF9 .word oport F199: 67F2 .word puta F19B: B4F9 .word qout F19D: 94F3 .word read1 F19F: 61F4 .word subs F1A1: 8FF4 .word type F1A3: EEF6 .word unld F1A5: A2F9 .word verify F1A7: F7F4 .word write1 F1A9: 56F5 .word xam F1AB: AFF4 .word where F1AD: 30F6 .word size F1AF: FFFF .block 2 ; ; F1B1: 63 stabel .byte 63h F1B2: 40 .byte 40h F1B3: 4D .byte 4dh F1B4: 0A .byte 0ah F1B5: 19 .byte 19h F1B6: 00 .byte 00h F1B7: 10 .byte 10h F1B8: 13 .byte 13h F1B9: 00 .byte 00h F1BA: 0B .byte 0bh F1BB: 60 .byte 60h F1BC: 08 .byte 08h ; ; F1BD: 3EED [ 7] inibuf ld a,ibpnt F1BF: 0EFF [14] ld c,0ffh F1C1: 185C [26] jr wmem ; F1C3: 3EEC [ 7] inobuf ld a,obpnt F1C5: 0E00 [14] ld c,0 F1C7: 1856 [26] jr wmem ; F1C9: CD67F7 [17] sunit call expr1 F1CC: C1 [27] pop bc F1CD: 79 [31] ld a,c F1CE: E601 [38] and 1 F1D0: 4F [42] ld c,a F1D1: 3EE8 [49] ld a,unit F1D3: 184A [61] jr wmem ; F1D5: CD62F9 [17] assign call ti F1D8: 21E4F9 [27] ld hl,ltbl F1DB: 010004 [37] ld bc,400h F1DE: 110500 [47] ld de,5 F1E1: BE [ 7] ass0 cp (hl) F1E2: 2806 [14|19] jr z,ass1 F1E4: 19 [25] add hl,de F1E5: 0C [29] inc c F1E6: 20F9 [36|41] jr nz,ass0 F1E8: 1815 [48] jr asserr F1EA: 59 [ 4] ass1 ld e,c F1EB: CD62F9 [17] ass2 call ti F1EE: FE3D [24] cp '=' F1F0: 20F9 [31|36] jr nz,ass2 F1F2: CD62F9 [48] call ti F1F5: 010004 [58] ld bc,400h F1F8: 23 [ 6] ass3 inc hl F1F9: BE [13] cp (hl) F1FA: 2806 [20|25] jr z,ass4 F1FC: 0C [24] inc c F1FD: 10F9 [32|37] djnz ass3 F1FF: C30AF6 [10] asserr jp error F202: 3E03 [ 7] ass4 ld a,3 F204: 1C [11] inc e F205: 1D [ 4] ass5 dec e F206: 2808 [11|16] jr z,ass6 F208: CB21 [19] sla c F20A: CB21 [27] sla c F20C: 17 [31] rla F20D: 17 [35] rla F20E: 18F5 [47] jr ass5 F210: 2F [ 4] ass6 cpl F211: 57 [ 8] ld d,a F212: CD3BF8 [17] ass7 call pchk F215: 30FB [24|29] jr nc,ass7 F217: CD28F2 [41] call iochk F21A: A2 [45] and d F21B: B1 [49] or c F21C: 4F [53] ld c,a ; ; F21D: 3EDF [ 7] ioset ld a,ioff F21F: E5 [11] wmem push hl F220: 210000 [21] ld hl,0 F223: 39 [32] add hl,sp F224: 6F [36] ld l,a F225: 71 [43] ld (hl),c F226: E1 [53] pop hl F227: C9 [63] ret ; ; F228: 3EDF [ 7] iochk ld a,ioff F22A: E5 [11] rmem push hl F22B: 210000 [21] ld hl,0 F22E: 39 [32] add hl,sp F22F: 6F [36] ld l,a F230: 7E [43] ld a,(hl) F231: E1 [53] pop hl F232: C9 [63] ret ; F233: CD62F2 [17] csvek call vekin F236: 3EEF [24] ld a,csloc + 1 F238: 1821 [36] jr vekud F23A: CD62F2 [17] civek call vekin F23D: 3EF2 [24] ld a,ciloc + 1 F23F: 181A [36] jr vekud F241: CD62F2 [17] covek call vekin F244: 3EF5 [24] ld a,coloc + 1 F246: 1813 [36] jr vekud F248: CD62F2 [17] ruvek call vekin F24B: 3EF8 [24] ld a,ruloc + 1 F24D: 180C [36] jr vekud F24F: CD62F2 [17] puvek call vekin F252: 3EFB [24] ld a,puloc + 1 F254: 1805 [36] jr vekud F256: CD62F2 [17] luvek call vekin F259: 3EFE [24] ld a,luloc + 1 F25B: CD1FF2 [17] vekud call wmem F25E: 3C [21] inc a F25F: 48 [25] ld c,b F260: 18BD [37] jr wmem F262: CD67F7 [17] vekin call expr1 F265: C1 [27] pop bc F266: C9 [37] ret ; F267: CD67F7 [17] puta call expr1 F26A: CD31F7 [34] call crlf F26D: E1 [44] pop hl F26E: CD5CF9 [17] puta1 call ki F271: FE1B [24] cp esc F273: CA37F6 [34|34] jp z,lfadr F276: FE2D [41] cp '-' F278: 2808 [48|53] jr z,puta3 F27A: 77 [55] ld (hl),a F27B: 4F [59] ld c,a F27C: 23 [65] inc hl F27D: CD3FF6 [17] puta2 call co F280: 18EC [29] jr puta1 F282: 2B [ 6] puta3 dec hl F283: 4E [13] ld c,(hl) F284: 18F7 [25] jr puta2 ; ; F286: 3E80 [ 7] comp ld a,80h F288: 08 [11] ex af,af' F289: CD2CF7 [28] call exlf F28C: CD32FC [45] call casrak F28F: CD29F6 [17] comnn call riff F292: FE00 [24] cp 0 F294: 28F9 [31|36] jr z,comnn F296: CD29F6 [17] comff call riff F299: FEFF [24] cp 0ffh F29B: 28F9 [31|36] jr z,comff F29D: 1803 [43] jr comd1 F29F: CD29F6 [17] comd call riff F2A2: BE [ 7] comd1 cp (hl) F2A3: C4B8F2 [17|24] call nz,cerr F2A6: 3EE2 [24] ld a,erro2 F2A8: CD2AF2 [41] call rmem F2AB: E604 [48] and 4 F2AD: C20AF6 [58|58] jp nz,error F2B0: CD9BF7 [75] call hilo F2B3: 30EA [82|87] jr nc,comd F2B5: C397F3 [92] jp read2 ; ; F2B8: 47 [ 4] cerr ld b,a F2B9: CD3AF6 [21] call hlsp F2BC: 7E [28] ld a,(hl) F2BD: CDC5F7 [45] call lbyte F2C0: CD3DF6 [62] call blk F2C3: 78 [66] ld a,b F2C4: CDC5F7 [83] call lbyte F2C7: C331F7 [93] jp crlf ; ; F2CA: CD2CF7 [17] disp call exlf F2CD: CD37F6 [17] disd0 call lfadr F2D0: CD3DF6 [17] disd1 call blk F2D3: 7E [24] ld a,(hl) F2D4: CDC5F7 [41] call lbyte F2D7: CD95F7 [58] call hilox F2DA: 7D [62] ld a,l F2DB: E60F [69] and 0fh F2DD: 20F1 [76|81] jr nz,disd1 F2DF: 18EC [88] jr disd0 ; ; F2E1: CD67F7 [17] eof call expr1 F2E4: CDACF6 [17] eof1 call peol F2E7: 0E3A [24] ld c,':' F2E9: CDB3F6 [41] call po F2EC: AF [45] xor a F2ED: CD1FF8 [62] call pbyte F2F0: E1 [72] pop hl F2F1: CD1AF8 [89] call padr F2F4: 210000 [99] ld hl,0 F2F7: CD1AF8 [116] call padr F2FA: C30CF7 [126] jp null ; ; F2FD: CD5CF7 [17] fill call expr3 F300: 71 [ 7] fif ld (hl),c F301: 79 [11] ld a,c F302: BE [18] cp (hl) F303: 2806 [25|30] jr z,fihp F305: CD37F6 [17] ader call lfadr F308: C30AF6 [27] jp error F30B: CD9BF7 [17] fihp call hilo F30E: 30F0 [24|29] jr nc,fif F310: D1 [34] pop de F311: C32EF1 [44] jp start ; ; F314: CD3BF8 [17] goto call pchk F317: 3840 [24|29] jr c,gotg3 F319: 2810 [31|36] jr z,gotg0 F31B: CD8EF7 [48] call exf F31E: D1 [58] pop de F31F: 213400 [68] ld hl,ploc F322: 39 [79] add hl,sp F323: 72 [86] ld (hl),d F324: 2B [92] dec hl F325: 73 [99] ld (hl),e F326: 78 [103] ld a,b F327: FE0D [110] cp cr F329: 282E [117|122] jr z,gotg3 F32B: 1602 [ 7] gotg0 ld d,2 F32D: 213500 [17] ld hl,tloc F330: 39 [28] add hl,sp F331: E5 [11] gotg1 push hl F332: CD67F7 [28] call expr1 F335: 58 [32] ld e,b F336: C1 [42] pop bc F337: E1 [52] pop hl F338: 78 [56] ld a,b F339: B1 [60] or c F33A: 280A [67|72] jr z,gotg2 F33C: 71 [74] ld (hl),c F33D: 23 [80] inc hl F33E: 70 [87] ld (hl),b F33F: 23 [93] inc hl F340: 0A [100] ld a,(bc) F341: 77 [107] ld (hl),a F342: 23 [113] inc hl F343: 3EFF [120] ld a,0ffh F345: 02 [127] ld (bc),a F346: 7B [ 4] gotg2 ld a,e F347: FE0D [11] cp cr F349: 2803 [18|23] jr z,gotg2a F34B: 15 [22] dec d F34C: 20E3 [29|34] jr nz,gotg1 F34E: 3EC3 [ 7] gotg2a ld a,0c3h F350: 323800 [20] ld (rst7),a F353: 211EF0 [30] ld hl,trap F356: 223900 [46] ld (rst7+1),hl F359: CD31F7 [17] gotg3 call crlf F35C: D1 [27] pop de F35D: 211600 [37] ld hl,22 F360: 39 [48] add hl,sp F361: E9 [52] jp (hl) ; ; F362: CD2CF7 [17] test call exlf F365: 7E [ 7] test1 ld a,(hl) F366: 47 [11] ld b,a F367: 2F [15] cpl F368: 77 [22] ld (hl),a F369: AE [29] xor (hl) F36A: 280E [36|41] jr z,test2 F36C: D5 [47] push de F36D: 50 [51] ld d,b F36E: 5F [55] ld e,a F36F: CD3AF6 [72] call hlsp F372: CD89F9 [89] call bits F375: CD31F7 [106] call crlf F378: 42 [110] ld b,d F379: D1 [120] pop de F37A: 70 [ 7] test2 ld (hl),b F37B: CD95F7 [24] call hilox F37E: 18E5 [36] jr test1 ; ; F380: CD5CF7 [17] move call expr3 F383: 7E [ 7] movm ld a,(hl) F384: 02 [14] ld (bc),a F385: 0A [21] ld a,(bc) F386: BE [28] cp (hl) F387: 2805 [35|40] jr z,movm1 F389: C5 [46] push bc F38A: E1 [56] pop hl F38B: C305F3 [66] jp ader F38E: 03 [ 6] movm1 inc bc F38F: CD95F7 [23] call hilox F392: 18EF [35] jr movm ; ; F394: CDA2F3 [17] read1 call read F397: CD28F2 [17] read2 call iochk F39A: E60C [24] and ~rmsk F39C: FE08 [31] cp rcas F39E: CABAFC [41|41] jp z,rdfin F3A1: C9 [51] ret F3A2: 3E81 [ 7] read ld a,81h F3A4: 08 [11] ex af,af' F3A5: CD67F7 [28] call expr1 F3A8: 78 [32] ld a,b F3A9: D60D [39] sub cr F3AB: 47 [43] ld b,a F3AC: 4F [47] ld c,a F3AD: D1 [57] pop de F3AE: 2804 [64|69] jr z,rer0 F3B0: CD67F7 [81] call expr1 F3B3: C1 [91] pop bc F3B4: EB [ 4] rer0 ex de,hl F3B5: D9 [ 8] exx F3B6: CD31F7 [25] call crlf F3B9: CD32FC [42] call casrak F3BC: CD9DF8 [17] lod0 call rix F3BF: D63A [24] sub ':' F3C1: 47 [28] ld b,a F3C2: E6FE [35] and 0feh F3C4: 20F6 [42|47] jr nz,lod0 F3C6: 57 [46] ld d,a F3C7: CD42F4 [63] call sbyte F3CA: 5F [67] ld e,a F3CB: CD42F4 [84] call sbyte F3CE: F5 [95] push af F3CF: CD42F4 [112] call sbyte F3D2: D9 [116] exx F3D3: D1 [126] pop de F3D4: 5F [130] ld e,a F3D5: C5 [141] push bc F3D6: D5 [152] push de F3D7: E5 [163] push hl F3D8: 19 [174] add hl,de F3D9: E3 [193] ex (sp),hl F3DA: DDE1 [207] pop ix F3DC: D9 [211] exx F3DD: E1 [221] pop hl F3DE: CD42F4 [238] call sbyte F3E1: 3D [242] dec a F3E2: 78 [246] ld a,b F3E3: C1 [256] pop bc F3E4: 2003 [263|268] jr nz,rea F3E6: 09 [274] add hl,bc F3E7: DD09 [289] add ix,bc F3E9: 1C [ 4] rea inc e F3EA: 1D [ 8] dec e F3EB: 2819 [15|20] jr z,done F3ED: 3D [19] dec a F3EE: 2822 [26|31] jr z,lodr F3F0: CD42F4 [17] rel1 call sbyte F3F3: CD55F4 [34] call store F3F6: 20F8 [41|46] jr nz,rel1 F3F8: CD42F4 [17] lod4 call sbyte F3FB: 28BF [24|29] jr z,lod0 F3FD: DDE5 [15] err3 push ix F3FF: E1 [25] pop hl F400: CDC0F7 [42] call ladr F403: C30AF6 [10] err2 jp error F406: 7C [ 4] done ld a,h F407: B5 [ 8] or l F408: C8 [13|19] ret z F409: EB [17] ex de,hl F40A: 213600 [27] ld hl,ploc + 2 F40D: 39 [38] add hl,sp F40E: 72 [45] ld (hl),d F40F: 2B [51] dec hl F410: 73 [58] ld (hl),e F411: C9 [68] ret F412: 2E01 [ 7] lodr ld l,1 F414: CD32F4 [17] lodl1 call lodcb F417: 3807 [24|29] jr c,lodl3 F419: CD55F4 [17] lodl5 call store F41C: 20F6 [24|29] jr nz,lodl1 F41E: 18D8 [36] jr lod4 F420: 4F [ 4] lodl3 ld c,a F421: CD32F4 [21] call lodcb F424: 47 [25] ld b,a F425: D9 [29] exx F426: C5 [40] push bc F427: D9 [44] exx F428: E3 [63] ex (sp),hl F429: 09 [74] add hl,bc F42A: 7D [78] ld a,l F42B: CD55F4 [95] call store F42E: 7C [99] ld a,h F42F: E1 [109] pop hl F430: 18E7 [121] jr lodl5 F432: 2D [ 4] lodcb dec l F433: 2007 [11|16] jr nz,lodlc1 F435: CD42F4 [28] call sbyte F438: 1D [32] dec e F439: 67 [36] ld h,a F43A: 2E08 [43] ld l,8 F43C: CD42F4 [17] lodlc1 call sbyte F43F: CB24 [25] sla h F441: C9 [35] ret F442: C5 [11] sbyte push bc F443: CD07F8 [28] call ribble F446: 07 [32] rlca F447: 07 [36] rlca F448: 07 [40] rlca F449: 07 [44] rlca F44A: 4F [48] ld c,a F44B: CD07F8 [65] call ribble F44E: B1 [69] or c F44F: 4F [73] ld c,a F450: 82 [77] add a,d F451: 57 [81] ld d,a F452: 79 [85] ld a,c F453: C1 [95] pop bc F454: C9 [105] ret F455: DD7700 [19] store ld (ix+0),a F458: DDBE00 [38] cp (ix) F45B: 20A0 [45|50] jr nz,err3 F45D: DD23 [55] inc ix F45F: 1D [59] dec e F460: C9 [69] ret ; ; F461: CD67F7 [17] subs call expr1 F464: E1 [27] pop hl F465: 7E [ 7] subs0 ld a,(hl) F466: CDC5F7 [24] call lbyte F469: CD36F8 [41] call copck F46C: D8 [46|52] ret c F46D: 2814 [53|58] jr z,subs1 F46F: FE5F [60] cp '_' F471: 2819 [67|72] jr z,subs2 F473: E5 [78] push hl F474: CD8EF7 [95] call exf F477: D1 [105] pop de F478: E1 [115] pop hl F479: 73 [122] ld (hl),e F47A: 7B [126] ld a,e F47B: BE [133] cp (hl) F47C: CA05F3 [143|143] jp z,ader F47F: 78 [147] ld a,b F480: FE0D [154] cp cr F482: C8 [159|165] ret z F483: 23 [ 6] subs1 inc hl F484: 7D [ 4] subs3 ld a,l F485: E607 [11] and 7 F487: CC37F6 [21|28] call z,lfadr F48A: 18D9 [33] jr subs0 F48C: 2B [ 6] subs2 dec hl F48D: 18F5 [18] jr subs3 ; ; F48F: CD2CF7 [17] type call exlf F492: CD37F6 [17] typt0 call lfadr F495: 0630 [24] ld b,48 F497: 7E [ 7] typt1 ld a,(hl) F498: E67F [14] and 7fh F49A: FE20 [21] cp ' ' F49C: 3002 [28|33] jr nc,typt3 F49E: 3E2E [ 7] typt2 ld a,'.' F4A0: FE7F [ 7] typt3 cp 7fh F4A2: 30FA [14|19] jr nc,typt2 F4A4: 4F [18] ld c,a F4A5: CD3FF6 [35] call co F4A8: CD95F7 [52] call hilox F4AB: 10EA [60|65] djnz typt1 F4AD: 18E3 [72] jr typt0 ; ; F4AF: 1600 [ 7] where ld d,0 F4B1: CD67F7 [17] whew0 call expr1 F4B4: E1 [27] pop hl F4B5: 65 [31] ld h,l F4B6: E5 [42] push hl F4B7: 33 [48] inc sp F4B8: 14 [52] inc d F4B9: 78 [56] ld a,b F4BA: D60D [63] sub cr F4BC: 20F3 [70|75] jr nz,whew0 F4BE: 47 [74] ld b,a F4BF: 4F [78] ld c,a F4C0: 67 [82] ld h,a F4C1: 6A [86] ld l,d F4C2: 2D [90] dec l F4C3: 39 [101] add hl,sp F4C4: E5 [112] push hl F4C5: C5 [123] push bc F4C6: C5 [11] findc push bc F4C7: CD31F7 [28] call crlf F4CA: C1 [38] pop bc F4CB: E1 [10] find1 pop hl F4CC: DDE1 [24] pop ix F4CE: 5A [28] ld e,d F4CF: DD7E00 [47] ld a,(ix + 0) F4D2: EDB1 [63|21] cpir F4D4: E2F2F4 [73|73] jp po,done2 F4D7: DDE5 [88] push ix F4D9: E5 [99] push hl F4DA: 1D [ 4] found dec e F4DB: 280B [11|16] jr z,tell F4DD: DD7EFF [30] ld a,(ix - 1) F4E0: BE [37] cp (hl) F4E1: 20E8 [44|49] jr nz,find1 F4E3: 23 [50] inc hl F4E4: DD2B [60] dec ix F4E6: 18F2 [72] jr found F4E8: E1 [10] tell pop hl F4E9: E5 [21] push hl F4EA: 2B [27] dec hl F4EB: C5 [38] push bc F4EC: CDC0F7 [55] call ladr F4EF: C1 [65] pop bc F4F0: 18D4 [77] jr findc F4F2: 33 [ 6] done2 inc sp F4F3: 1D [10] dec e F4F4: 20FC [17|22] jr nz,done2 F4F6: C9 [27] ret ; ; F4F7: CD0DF5 [17] write1 call write F4FA: CD28F2 [34] call iochk F4FD: E630 [41] and ~pmsk F4FF: FE20 [48] cp pcas F501: 2803 [55|60] jr z,wrihop F503: FE10 [62] cp pbuf F505: C0 [67|73] ret nz F506: 213AF1 [10] wrihop ld hl,star0 F509: E5 [21] push hl F50A: C3E4F2 [31] jp eof1 F50D: 3E81 [ 7] write ld a,81h F50F: 08 [11] ex af,af' F510: CD2CF7 [28] call exlf F513: CD19F7 [45] call wait F516: CD9DFB [62] call caswak F519: CDDEF7 [79] call lead F51C: CDACF6 [17] wriw0 call peol F51F: 013A00 [27] ld bc,':' F522: CDB3F6 [44] call po F525: D5 [55] push de F526: E5 [66] push hl F527: 04 [ 4] wriw1 inc b F528: CD9BF7 [21] call hilo F52B: 3824 [28|33] jr c,wriw4 F52D: 3E18 [35] ld a,24 F52F: 90 [39] sub b F530: 20F5 [46|51] jr nz,wriw1 F532: E1 [56] pop hl F533: CD39F5 [73] call wriw2 F536: D1 [83] pop de F537: 18E3 [95] jr wriw0 F539: 57 [ 4] wriw2 ld d,a F53A: 78 [ 8] ld a,b F53B: CD1FF8 [25] call pbyte F53E: CD1AF8 [42] call padr F541: AF [46] xor a F542: CD1FF8 [63] call pbyte F545: 7E [ 7] wriw3 ld a,(hl) F546: CD1FF8 [24] call pbyte F549: 23 [30] inc hl F54A: 10F9 [38|43] djnz wriw3 F54C: AF [42] xor a F54D: 92 [46] sub d F54E: C31FF8 [56] jp pbyte F551: E1 [10] wriw4 pop hl F552: D1 [20] pop de F553: AF [24] xor a F554: 18E3 [36] jr wriw2 ; ; F556: CD62F9 [17] xam call ti F559: 211BFA [27] ld hl,actbl F55C: FE0D [34] cp cr F55E: 285A [41|46] jr z,xamx6 F560: FE27 [48] cp 27h ;' F562: 200A [55|60] jr nz,xamx0 F564: 2133FA [65] ld hl,prmtb F567: CD62F9 [82] call ti F56A: FE0D [89] cp cr F56C: 284C [96|101] jr z,xamx6 F56E: BE [ 7] xamx0 cp (hl) F56F: 2809 [14|19] jr z,xamx1 F571: CB7E [26] bit 7,(hl) F573: C20AF6 [36|36] jp nz,error F576: 23 [42] inc hl F577: 23 [48] inc hl F578: 18F4 [60] jr xamx0 F57A: CD3DF6 [17] xamx1 call blk F57D: 23 [ 6] xamx2 inc hl F57E: 7E [13] ld a,(hl) F57F: 47 [17] ld b,a F580: E63F [24] and 3fh F582: EB [28] ex de,hl F583: 6F [32] ld l,a F584: 2600 [39] ld h,0 F586: 39 [50] add hl,sp F587: EB [54] ex de,hl F588: 23 [60] inc hl F589: 1A [67] ld a,(de) F58A: CDC5F7 [84] call lbyte F58D: CB78 [92] bit 7,b F58F: 2805 [99|104] jr z,xamx3 F591: 1B [105] dec de F592: 1A [112] ld a,(de) F593: CDC5F7 [129] call lbyte F596: CD36F8 [17] xamx3 call copck F599: D8 [22|28] ret c F59A: 2819 [29|34] jr z,xamx5 F59C: E5 [40] push hl F59D: C5 [51] push bc F59E: CD8EF7 [68] call exf F5A1: E1 [78] pop hl F5A2: F1 [88] pop af F5A3: C5 [99] push bc F5A4: F5 [110] push af F5A5: 7D [114] ld a,l F5A6: 12 [121] ld (de),a F5A7: C1 [131] pop bc F5A8: CB78 [139] bit 7,b F5AA: 2803 [146|151] jr z,xamx4 F5AC: 13 [152] inc de F5AD: 7C [156] ld a,h F5AE: 12 [163] ld (de),a F5AF: C1 [10] xamx4 pop bc F5B0: E1 [20] pop hl F5B1: 78 [24] ld a,b F5B2: FE0D [31] cp cr F5B4: C8 [36|42] ret z F5B5: CB7E [12] xamx5 bit 7,(hl) F5B7: C0 [17|23] ret nz F5B8: 18C3 [29] jr xamx2 F5BA: CD31F7 [17] xamx6 call crlf F5BD: 7E [ 7] xamx7 ld a,(hl) F5BE: 23 [13] inc hl F5BF: B7 [17] or a F5C0: F8 [22|28] ret m F5C1: 4F [26] ld c,a F5C2: CD3FF6 [43] call co F5C5: 0E3D [50] ld c,'=' F5C7: CD3FF6 [67] call co F5CA: 7E [74] ld a,(hl) F5CB: 47 [78] ld b,a F5CC: E63F [85] and 3fh F5CE: 23 [91] inc hl F5CF: EB [95] ex de,hl F5D0: 6F [99] ld l,a F5D1: 2600 [106] ld h,0 F5D3: 39 [117] add hl,sp F5D4: EB [121] ex de,hl F5D5: CB70 [129] bit 6,b F5D7: 2012 [136|141] jr nz,xamx9 F5D9: 1A [143] ld a,(de) F5DA: CDC5F7 [160] call lbyte F5DD: CB78 [168] bit 7,b F5DF: 2805 [175|180] jr z,xamx10 F5E1: 1B [181] dec de F5E2: 1A [188] ld a,(de) F5E3: CDC5F7 [17] xamx8 call lbyte F5E6: CD3DF6 [17] xamx10 call blk F5E9: 18D2 [29] jr xamx7 F5EB: E5 [11] xamx9 push hl F5EC: 1A [18] ld a,(de) F5ED: 67 [22] ld h,a F5EE: 1B [28] dec de F5EF: 1A [35] ld a,(de) F5F0: 6F [39] ld l,a F5F1: 7E [46] ld a,(hl) F5F2: E1 [56] pop hl F5F3: 18EE [68] jr xamx8 ; ; F5F5: 212AF0 [10] tom ld hl,msg F5F8: 4E [ 7] tom1 ld c,(hl) F5F9: 23 [13] inc hl F5FA: CD3FF6 [30] call co F5FD: 10F9 [38|43] djnz tom1 F5FF: CD39F7 [17] abort call csts F602: B7 [21] or a F603: C8 [26|32] ret z ; F604: CD5CF9 [17] cchk call ki F607: FE1B [24] cp esc F609: C0 [29|35] ret nz ; ; F60A: CDF4F7 [17] error call memsiz F60D: 11EAFF [27] ld de,-22 F610: 19 [38] add hl,de F611: F9 [44] ld sp,hl F612: 212EF1 [54] ld hl,start F615: E5 [65] push hl F616: 0E3F [72] ld c,'?' F618: CD3FF6 [89] call co F61B: 3EE7 [96] ld a,iorun F61D: CD2AF2 [113] call rmem F620: B7 [117] or a F621: C8 [122|128] ret z F622: 3E80 [129] ld a,rset F624: D3E0 [140] out (wr0),a F626: C3FAFC [150] jp inte2 ; ; F629: CD72F8 [17] riff call ri F62C: 38DC [24|29] jr c,error F62E: BA [28] cp d F62F: C9 [38] ret ; ; F630: CDF4F7 [17] size call memsiz F633: 014300 [27] ld bc,endx - exit +flram F636: 09 [38] add hl,bc ; F637: CD31F7 [17] lfadr call crlf ; F63A: CDC0F7 [17] hlsp call ladr ; F63D: 0E20 [ 7] blk ld c,' ' ; F63F: CD28F2 [17] co call iochk F642: E603 [24] and ~cmsk F644: 200A [31|36] jr nz,co0 ; F646: DBC1 [11] ttyout in a,(tts) F648: E601 [18] and 1 F64A: 28FA [25|30] jr z,ttyout F64C: 79 [29] ld a,c F64D: D3C0 [40] out (tto),a F64F: C9 [50] ret ; F650: 3D [ 4] co0 dec a F651: 2024 [11|16] jr nz,co1 ; F653: 3E0A [ 7] crtout ld a,lf F655: B9 [11] cp c F656: C8 [16|22] ret z F657: AF [20] xor a F658: B9 [24] cp c F659: C8 [29|35] ret z F65A: D9 [33] exx F65B: C5 [44] push bc F65C: D5 [55] push de F65D: E5 [66] push hl F65E: D9 [70] exx F65F: C5 [81] push bc F660: D5 [92] push de F661: E5 [103] push hl F662: 110100 [113] ld de,1 F665: CDE0FF [130] call aaaa F668: 25 [134] dec h F669: 71 [141] ld (hl),c F66A: CDFEFE [158] call screen F66D: E1 [168] pop hl F66E: D1 [178] pop de F66F: C1 [188] pop bc F670: D9 [192] exx F671: E1 [202] pop hl F672: D1 [212] pop de F673: C1 [222] pop bc F674: D9 [226] exx F675: 79 [230] ld a,c F676: C9 [240] ret ; F677: 3D [ 4] co1 dec a F678: 2809 [11|16] jr z,lo F67A: E5 [22] push hl F67B: 210000 [32] ld hl,0 F67E: 39 [43] add hl,sp F67F: 2EF4 [50] ld l,coloc F681: E3 [69] ex (sp),hl F682: C9 [79] ret ; ;LISTER-DEVICES ; F683: CD28F2 [17] lo call iochk F686: E6C0 [24] and ~lmsk F688: 28BC [31|36] jr z,ttyout F68A: FE40 [38] cp lcrt F68C: 2011 [45|50] jr nz,loli F68E: CD53F6 [62] call crtout F691: FE0A [69] cp lf F693: C0 [74|80] ret nz F694: CD5DF8 [91] call crtin F697: FE1B [98] cp esc F699: CA0AF6 [108|108] jp z,error F69C: 08 [112] ex af,af' F69D: 79 [116] ld a,c F69E: C9 [126] ret F69F: FE80 [ 7] loli cp line F6A1: 2834 [14|19] jr z,lnloc F6A3: E5 [25] push hl F6A4: 210000 [35] ld hl,0 F6A7: 39 [46] add hl,sp F6A8: 2EFD [53] ld l,luloc F6AA: E3 [72] ex (sp),hl F6AB: C9 [82] ret ; F6AC: 0E0D [ 7] peol ld c,cr F6AE: CDB3F6 [24] call po F6B1: 0E0A [31] ld c,lf ; F6B3: CD28F2 [17] po call iochk F6B6: E630 [24] and ~pmsk F6B8: 288C [31|36] jr z,ttyout F6BA: FE20 [38] cp pcas F6BC: 200B [45|50] jr nz,po1 ; F6BE: CD48FD [17] po0 call inte F6C1: 3E80 [24] ld a,wrr F6C3: D3E1 [35] out (wr1),a F6C5: 79 [39] ld a,c F6C6: D3E2 [50] out (wr2),a F6C8: C9 [60] ret ; F6C9: FE10 [ 7] po1 cp pbuf F6CB: CA6BFE [17|17] jp z,obuf F6CE: E5 [28] push hl F6CF: 210000 [38] ld hl,0 F6D2: 39 [49] add hl,sp F6D3: 2EFA [56] ld l,puloc F6D5: E3 [75] ex (sp),hl F6D6: C9 [85] ret ; F6D7: DBF1 [11] lnloc in a,(lpsp) F6D9: E630 [18] and empty + busy F6DB: FE30 [25] cp empty + busy F6DD: 20F8 [32|37] jr nz,lnloc F6DF: 79 [36] ld a,c F6E0: D3F0 [47] out (lpdp),a F6E2: DBF1 [58] in a,(lpsp) F6E4: CB87 [66] res strobe,a F6E6: D3F1 [77] out (lpsp),a F6E8: CBC7 [85] set strobe,a F6EA: D3F1 [96] out (lpsp),a F6EC: 79 [100] ld a,c F6ED: C9 [110] ret ; F6EE: 3E80 [ 7] unld ld a,80h F6F0: 08 [11] ex af,af' F6F1: CD2CF7 [28] call exlf F6F4: CD19F7 [45] call wait F6F7: CD9DFB [17] unlddi call caswak F6FA: CDDEF7 [34] call lead F6FD: CDD4F7 [51] call mark F700: 4E [ 7] unlu ld c,(hl) F701: CDB3F6 [24] call po F704: CD9BF7 [41] call hilo F707: 30F7 [48|53] jr nc,unlu F709: CDD4F7 [65] call mark ; F70C: CDD9F7 [17] null call trail ; F70F: CD28F2 [17] wait1 call iochk F712: E630 [24] and ~pmsk F714: FE20 [31] cp pcas F716: CAE3FB [41|41] jp z,wrfin F719: CD28F2 [17] wait call iochk F71C: E633 [24] and ~cmsk | ~pmsk F71E: C0 [29|35] ret nz F71F: C33AF1 [39] jp star0 ; ; F722: E60F [ 7] conv and 0fh F724: C690 [14] add a,90h F726: 27 [18] daa F727: CE40 [25] adc a,40h F729: 27 [29] daa F72A: 4F [33] ld c,a F72B: C9 [43] ret ; ; F72C: CD69F7 [17] exlf call expr F72F: D1 [27] pop de F730: E1 [37] pop hl ; F731: E5 [11] crlf push hl F732: 0605 [18] ld b,5 F734: CDF5F5 [35] call tom F737: E1 [45] pop hl F738: C9 [55] ret ; ; F739: CD28F2 [17] csts call iochk F73C: E603 [24] and ~cmsk F73E: 2005 [31|36] jr nz,cs0 F740: DBC1 [42] in a,(tts) F742: 2F [46] cpl F743: 1805 [58] jr cs1 F745: 3D [ 4] cs0 dec a F746: 2009 [11|16] jr nz,cs3 F748: DBD3 [22] in a,(crts) F74A: E602 [ 7] cs1 and 2 F74C: 3E00 [14] ld a,false F74E: C0 [ 5|11] cs2 ret nz F74F: 2F [ 9] cpl F750: C9 [19] ret F751: 3D [ 4] cs3 dec a F752: C8 [ 9|15] ret z F753: E5 [20] push hl F754: 210000 [30] ld hl,0 F757: 39 [41] add hl,sp F758: 2EEE [48] ld l,csloc F75A: E3 [67] ex (sp),hl F75B: C9 [77] ret ; ; F75C: 0C [ 4] expr3 inc c F75D: CD69F7 [21] call expr F760: CD31F7 [38] call crlf F763: C1 [48] pop bc F764: D1 [58] pop de F765: E1 [68] pop hl F766: C9 [78] ret ; ; F767: 0E01 [ 7] expr1 ld c,1 F769: 210000 [10] expr ld hl,0 F76C: CD62F9 [17] ex0 call ti F76F: 47 [ 4] ex1 ld b,a F770: CD0AF8 [21] call nibble F773: 3808 [28|33] jr c,expex2 F775: 29 [39] add hl,hl F776: 29 [50] add hl,hl F777: 29 [61] add hl,hl F778: 29 [72] add hl,hl F779: B5 [76] or l F77A: 6F [80] ld l,a F77B: 18EF [92] jr ex0 F77D: E3 [19] expex2 ex (sp),hl F77E: E5 [30] push hl F77F: 78 [34] ld a,b F780: CD3EF8 [51] call qchk F783: 3002 [58|63] jr nc,expex3 F785: 0D [62] dec c F786: C8 [67|73] ret z F787: CA0AF6 [10|10] expex3 jp z,error F78A: 0D [14] dec c F78B: 20DC [21|26] jr nz,expr F78D: C9 [31] ret F78E: 0E01 [ 7] exf ld c,1 F790: 210000 [17] ld hl,0 F793: 18DA [29] jr ex1 ; ; F795: CD9BF7 [17] hilox call hilo F798: D0 [22|28] ret nc F799: D1 [32] pop de F79A: C9 [42] ret ; F79B: 23 [ 6] hilo inc hl F79C: 7C [10] ld a,h F79D: B5 [14] or l F79E: 37 [18] scf F79F: C8 [23|29] ret z F7A0: 7B [27] ld a,e F7A1: 95 [31] sub l F7A2: 7A [35] ld a,d F7A3: 9C [39] sbc a,h F7A4: C9 [49] ret ; ; F7A5: CD2CF7 [17] hexn call exlf F7A8: E5 [28] push hl F7A9: 19 [39] add hl,de F7AA: CD3AF6 [56] call hlsp F7AD: E1 [66] pop hl F7AE: B7 [70] or a F7AF: ED52 [85] sbc hl,de F7B1: CDC0F7 [102] call ladr F7B4: 19 [113] add hl,de F7B5: CD31F7 [130] call crlf F7B8: 44 [134] ld b,h F7B9: CD5EFB [151] call overz F7BC: 45 [155] ld b,l F7BD: C35EFB [165] jp overz ; F7C0: 7C [ 4] ladr ld a,h F7C1: CDC5F7 [21] call lbyte F7C4: 7D [25] ld a,l F7C5: F5 [11] lbyte push af F7C6: 0F [15] rrca F7C7: 0F [19] rrca F7C8: 0F [23] rrca F7C9: 0F [27] rrca F7CA: CDCEF7 [44] call lby2 F7CD: F1 [54] pop af F7CE: CD22F7 [17] lby2 call conv F7D1: C33FF6 [27] jp co ; ; F7D4: 01FF08 [10] mark ld bc,08ffh F7D7: 1808 [22] jr le0 ; F7D9: 0100FF [10] trail ld bc,0ff00h F7DC: 1803 [22] jr le0 ; F7DE: 010048 [10] lead ld bc,4800h F7E1: CDB3F6 [17] le0 call po F7E4: 10FB [25|30] djnz le0 F7E6: C9 [35] ret ; ; F7E7: E5 [11] memck push hl F7E8: CDF4F7 [28] call memsiz F7EB: 7D [32] ld a,l F7EC: D64C [39] sub 4ch F7EE: 3001 [46|51] jr nc,memb F7F0: 25 [50] dec h F7F1: 44 [ 4] memb ld b,h F7F2: E1 [14] pop hl F7F3: C9 [24] ret ; F7F4: C5 [11] memsiz push bc F7F5: 21FFEC [21] ld hl,0ecffh F7F8: 25 [ 4] memsm0 dec h F7F9: 7E [11] ld a,(hl) F7FA: 2F [15] cpl F7FB: 77 [22] ld (hl),a F7FC: BE [29] cp (hl) F7FD: 2F [33] cpl F7FE: 77 [40] ld (hl),a F7FF: 20F7 [47|52] jr nz,memsm0 F801: 01BDFF [57] ld bc,exit - endx - flram F804: 09 [68] add hl,bc F805: C1 [78] pop bc F806: C9 [88] ret ; ; F807: CD9DF8 [17] ribble call rix F80A: D630 [ 7] nibble sub '0' F80C: D8 [12|18] ret c F80D: FE17 [19] cp 'G' - '0' F80F: 3F [23] ccf F810: D8 [28|34] ret c F811: FE0A [35] cp 10 F813: 3F [39] ccf F814: D0 [44|50] ret nc F815: D607 [51] sub 'A' - '9' - 1 F817: FE0A [58] cp 0ah F819: C9 [68] ret ; ; F81A: 7C [ 4] padr ld a,h F81B: CD1FF8 [21] call pbyte F81E: 7D [25] ld a,l ; F81F: F5 [11] pbyte push af F820: 0F [15] rrca F821: 0F [19] rrca F822: 0F [23] rrca F823: 0F [27] rrca F824: CD22F7 [44] call conv F827: CDB3F6 [61] call po F82A: F1 [71] pop af F82B: F5 [82] push af F82C: CD22F7 [99] call conv F82F: CDB3F6 [116] call po F832: F1 [126] pop af F833: 82 [130] add a,d F834: 57 [134] ld d,a F835: C9 [144] ret ; ; F836: 0E2D [ 7] copck ld c,'-' F838: CD3FF6 [24] call co ; F83B: CD62F9 [17] pchk call ti ; F83E: FE20 [ 7] qchk cp ' ' F840: C8 [12|18] ret z F841: FE2C [19] cp ',' F843: C8 [24|30] ret z F844: FE0D [31] cp cr F846: 37 [35] scf F847: C8 [40|46] ret z F848: 3F [44] ccf F849: C9 [54] ret ; ; F84A: CD28F2 [17] ci call iochk F84D: E603 [24] and ~cmsk F84F: 2009 [31|36] jr nz,ci1 F851: DBC1 [11] ttyin in a,(tts) F853: E602 [18] and 2 F855: 28FA [25|30] jr z,ttyin F857: DBC0 [36] in a,(tti) F859: C9 [46] ret ; F85A: 3D [ 4] ci1 dec a F85B: 2009 [11|16] jr nz,ci2 ; F85D: DBD3 [11] crtin in a,(crts) F85F: E602 [18] and 2 F861: 20FA [25|30] jr nz,crtin F863: DBD2 [36] in a,(crti) F865: C9 [46] ret ; F866: 3D [ 4] ci2 dec a F867: 2809 [11|16] jr z,ri F869: E5 [22] push hl F86A: 210000 [32] ld hl,0 F86D: 39 [43] add hl,sp F86E: 2EF1 [50] ld l,ciloc F870: E3 [69] ex (sp),hl F871: C9 [79] ret ; ; F872: CD28F2 [17] ri call iochk F875: E60C [24] and ~rmsk F877: 2005 [31|36] jr nz,ricas1 ; F879: CD51F8 [17] ritt call ttyin F87C: B7 [21] or a F87D: C9 [31] ret ; F87E: FE08 [ 7] ricas1 cp rcas F880: 200D [14|19] jr nz,ribuf ; F882: CD48FD [17] ricas call inte F885: CD60FD [34] call rdint1 F888: C26AFD [44|44] jp nz,abend F88B: DBE2 [55] in a,(rr2) F88D: B7 [59] or a F88E: C9 [69] ret ; F88F: FE04 [ 7] ribuf cp rbuf F891: CA9AFE [17|17] jp z,ibuf F894: E5 [28] push hl F895: 210000 [38] ld hl,0 F898: 39 [49] add hl,sp F899: 2EF7 [56] ld l,ruloc F89B: E3 [75] ex (sp),hl F89C: C9 [85] ret ; F89D: CD29F6 [17] rix call riff F8A0: E67F [24] and 7fh F8A2: C9 [34] ret ; ; F8A3: 3E80 [ 7] load ld a,80h F8A5: 08 [11] ex af,af' F8A6: CD67F7 [28] call expr1 F8A9: E1 [38] pop hl F8AA: CD31F7 [17] loaddi call crlf F8AD: CD32FC [34] call casrak F8B0: 16FF [41] ld d,0ffh F8B2: 0604 [ 7] ddil0 ld b,4 F8B4: CD29F6 [17] ddil1 call riff F8B7: 20F9 [24|29] jr nz,ddil0 F8B9: 10F9 [32|37] djnz ddil1 F8BB: CD29F6 [17] ddil2 call riff F8BE: 28FB [24|29] jr z,ddil2 F8C0: 77 [31] ld (hl),a F8C1: 23 [ 6] ddil3 inc hl F8C2: CD29F6 [23] call riff F8C5: 2803 [30|35] jr z,ddiel F8C7: 77 [37] ld (hl),a F8C8: 18F7 [49] jr ddil3 F8CA: 1E01 [ 7] ddiel ld e,1 F8CC: CD29F6 [17] ddiel0 call riff F8CF: 200C [24|29] jr nz,ddiel1 F8D1: 1C [28] inc e F8D2: 3E07 [35] ld a,max F8D4: BB [39] cp e F8D5: 20F5 [46|51] jr nz,ddiel0 F8D7: CD97F3 [63] call read2 F8DA: C337F6 [73] jp lfadr F8DD: 72 [ 7] ddiel1 ld (hl),d F8DE: 23 [13] inc hl F8DF: 1D [17] dec e F8E0: 20FB [24|29] jr nz,ddiel1 F8E2: 77 [31] ld (hl),a F8E3: 18DC [43] jr ddil3 ; F8E5: 3B [ 6] retur dec sp F8E6: 3B [12] dec sp F8E7: 3B [18] dec sp F8E8: 3B [24] dec sp ; F8E9: F3 [ 4] restart di F8EA: E5 [15] push hl F8EB: D5 [26] push de F8EC: C5 [37] push bc F8ED: F5 [48] push af F8EE: CDF4F7 [65] call memsiz F8F1: EB [69] ex de,hl F8F2: 210A00 [79] ld hl,10 F8F5: 39 [90] add hl,sp F8F6: 0604 [97] ld b,4 F8F8: EB [101] ex de,hl F8F9: 2B [ 6] restr0 dec hl F8FA: 72 [13] ld (hl),d F8FB: 2B [19] dec hl F8FC: 73 [26] ld (hl),e F8FD: D1 [36] pop de F8FE: 10F9 [44|49] djnz restr0 F900: C1 [54] pop bc F901: 0B [60] dec bc F902: F9 [66] ld sp,hl F903: 212500 [76] ld hl,tlocx F906: 39 [87] add hl,sp F907: 7E [94] ld a,(hl) F908: 91 [98] sub c F909: 23 [104] inc hl F90A: 2004 [111|116] jr nz,restr1 F90C: 7E [118] ld a,(hl) F90D: 90 [122] sub b F90E: 280C [129|134] jr z,restr3 F910: 23 [ 6] restr1 inc hl F911: 23 [12] inc hl F912: 7E [19] ld a,(hl) F913: 91 [23] sub c F914: 2005 [30|35] jr nz,restr2 F916: 23 [36] inc hl F917: 7E [43] ld a,(hl) F918: 90 [47] sub b F919: 2801 [54|59] jr z,restr3 F91B: 03 [ 6] restr2 inc bc F91C: 212000 [10] restr3 ld hl,llocx F91F: 39 [21] add hl,sp F920: 73 [28] ld (hl),e F921: 23 [34] inc hl F922: 72 [41] ld (hl),d F923: 23 [47] inc hl F924: 23 [53] inc hl F925: 71 [60] ld (hl),c F926: 23 [66] inc hl F927: 70 [73] ld (hl),b F928: C5 [84] push bc F929: 0E40 [91] ld c,'@' F92B: CD3FF6 [108] call co F92E: E1 [118] pop hl F92F: CDC0F7 [135] call ladr F932: 212500 [145] ld hl,tlocx F935: 39 [156] add hl,sp F936: 010002 [166] ld bc,200h F939: 5E [ 7] restr4 ld e,(hl) F93A: 71 [14] ld (hl),c F93B: 23 [20] inc hl F93C: 56 [27] ld d,(hl) F93D: 71 [34] ld (hl),c F93E: 23 [40] inc hl F93F: 7B [44] ld a,e F940: B2 [48] or d F941: 2802 [55|60] jr z,restr5 F943: 7E [62] ld a,(hl) F944: 12 [69] ld (de),a F945: 23 [ 6] restr5 inc hl F946: 10F1 [14|19] djnz restr4 F948: 08 [18] ex af,af' F949: D9 [22] exx F94A: E5 [33] push hl F94B: D5 [44] push de F94C: C5 [55] push bc F94D: F5 [66] push af F94E: DDE5 [81] push ix F950: FDE5 [96] push iy F952: ED57 [105] ld a,i F954: 47 [109] ld b,a F955: ED5F [118] ld a,r F957: 4F [122] ld c,a F958: C5 [133] push bc F959: C32EF1 [143] jp start ; ; F95C: CD4AF8 [17] ki call ci F95F: E67F [24] and 7fh F961: C9 [34] ret ; F962: CD5CF9 [17] ti call ki F965: 3C [21] inc a F966: F8 [26|32] ret m F967: 3D [30] dec a F968: C8 [35|41] ret z F969: FE4E [42] cp 'N' F96B: C8 [47|53] ret z F96C: FE6E [54] cp 6eh F96E: 2810 [61|66] jr z,tit F970: FE0D [68] cp cr F972: C8 [73|79] ret z F973: C5 [84] push bc F974: 4F [88] ld c,a F975: CD3FF6 [105] call co F978: 79 [109] ld a,c F979: C1 [119] pop bc F97A: FE40 [126] cp 'A' - 1 F97C: D8 [131|137] ret c F97D: FE7B [138] cp 7ah + 1 F97F: D0 [143|149] ret nc F980: E65F [ 7] tit and 5fh F982: C9 [17] ret ; ; F983: CD67F7 [17] iport call expr1 F986: C1 [27] pop bc F987: ED58 [39] in e,(c) F989: 0608 [ 7] bits ld b,8 F98B: CD3DF6 [17] ipq2 call blk F98E: CB23 [25] sla e F990: 3E01 [32] ld a,'0' > 1 F992: 8F [36] adc a,a F993: 4F [40] ld c,a F994: CD3FF6 [57] call co F997: 10F2 [65|70] djnz ipq2 F999: C9 [75] ret F99A: CD69F7 [17] oport call expr F99D: D1 [27] pop de F99E: C1 [37] pop bc F99F: ED59 [49] out (c),e F9A1: C9 [59] ret ; ; F9A2: CD5CF7 [17] verify call expr3 F9A5: 0A [ 7] verio ld a,(bc) F9A6: BE [14] cp (hl) F9A7: 2805 [21|26] jr z,verib F9A9: C5 [32] push bc F9AA: CDB8F2 [49] call cerr F9AD: C1 [59] pop bc F9AE: 03 [ 6] verib inc bc F9AF: CD95F7 [23] call hilox F9B2: 18F1 [35] jr verio ; F9B4: 3E80 [ 7] qout ld a,80h F9B6: 08 [11] ex af,af' F9B7: CD2CF7 [28] call exlf F9BA: CD28F2 [45] call iochk F9BD: F5 [56] push af F9BE: E6CF [63] and pmsk F9C0: F620 [70] or pcas F9C2: CDE0F9 [87] call resaf + 1 F9C5: CDF7F6 [104] call unlddi F9C8: 1815 [116] jr resaf ; F9CA: 3E80 [ 7] kin ld a,80h F9CC: 08 [11] ex af,af' F9CD: CD67F7 [28] call expr1 F9D0: E1 [38] pop hl F9D1: CD28F2 [55] call iochk F9D4: F5 [66] push af F9D5: E6F3 [73] and rmsk F9D7: F608 [80] or rcas F9D9: CDE0F9 [97] call resaf + 1 F9DC: CDAAF8 [114] call loaddi F9DF: F1 [10] resaf pop af F9E0: 4F [14] ld c,a F9E1: C31DF2 [24] jp ioset ; ;I/O-TABEL ; F9E4: 43 ltbl .byte 'C' F9E5: 54 .byte 'T' F9E6: 43 .byte 'C' F9E7: 42 .byte 'B' F9E8: 55 .byte 'U' ; F9E9: 52 .byte 'R' F9EA: 54 .byte 'T' F9EB: 42 .byte 'B' F9EC: 43 .byte 'C' F9ED: 55 .byte 'U' ; F9EE: 50 .byte 'P' F9EF: 54 .byte 'T' F9F0: 42 .byte 'B' F9F1: 43 .byte 'C' F9F2: 55 .byte 'U' ; F9F3: 4C .byte 'L' F9F4: 54 .byte 'T' F9F5: 43 .byte 'C' F9F6: 4C .byte 'L' F9F7: 55 .byte 'U' ; ; F9F8: C1 [10] exit pop bc F9F9: 79 [14] ld a,c F9FA: ED4F [23] ld r,a F9FC: 78 [27] ld a,b F9FD: ED47 [36] ld i,a F9FF: FDE1 [50] pop iy FA01: DDE1 [64] pop ix FA03: F1 [74] pop af FA04: C1 [84] pop bc FA05: D1 [94] pop de FA06: E1 [104] pop hl FA07: 08 [108] ex af,af' FA08: D9 [112] exx FA09: D1 [122] pop de FA0A: C1 [132] pop bc FA0B: F1 [142] pop af FA0C: E1 [152] pop hl FA0D: F9 [158] ld sp,hl FA0E: 00 [162] nop FA0F: 210000 [172] ld hl,0 FA12: C30000 [182] jp 0 FA15: 00000000 .word 0,0,0 FA19: 0000 ; FA1B: endx = $ 0015: aloc = 15h 0013: bloc = 13h 0012: cloc = 12h 0011: dloc = 11h 0010: eloc = 10h 0014: floc = 14h 0031: hloc = 31h 0030: lloc = 30h 0034: ploc = 34h 0017: sloc = 17h 0035: tloc = 35h 0025: tlocx = 25h 0020: llocx = 20h 0009: aploc = 09h 000B: bploc = 0bh 000A: cploc = 0ah 000D: dploc = 0dh 000C: eploc = 0ch 0008: fploc = 8 000F: hploc = 0fh 000E: lploc = 0eh 0007: xloc = 7 0005: yloc = 5 0002: rloc = 2 0003: iloc = 3 ; FA1B: 4115 actbl .byte 'A', aloc FA1D: 4213 .byte 'B', bloc FA1F: 4312 .byte 'C', cloc FA21: 4411 .byte 'D', dloc FA23: 4510 .byte 'E', eloc FA25: 4614 .byte 'F', floc FA27: 4831 .byte 'H', hloc FA29: 4C30 .byte 'L', lloc FA2B: 4DF1 .byte 'M', hloc | 0c0h FA2D: 50B4 .byte 'P', ploc | 080h FA2F: 5397 .byte 'S', sloc | 080h FA31: 4903 .byte 'I', iloc ; FA33: 4109 prmtb .byte 'A',aploc FA35: 420B .byte 'B',bploc FA37: 430A .byte 'C',cploc FA39: 440D .byte 'D',dploc FA3B: 450C .byte 'E',eploc FA3D: 4608 .byte 'F',fploc FA3F: 480F .byte 'H',hploc FA41: 4C0E .byte 'L',lploc FA43: 4DCF .byte 'M',hploc | 0c0h FA45: 5887 .byte 'X',xloc | 80h FA47: 5985 .byte 'Y',yloc | 80h FA49: 5202 .byte 'R',rloc FA4B: 80 .byte 80h ; ; ;ANDEN DEL AF MONITOR-SOURCE ;V 1.0 COMET ;KONSTANTER TIL OP.SYS. ; 00E0: rr0 = 0e0h 0001: rrq = 1 0002: wrq = 2 0004: grq = 4 0008: rdf = 8 0010: c3s = 10h 0020: c2s = 20h ; 00E1: rr1 = 0e1h 0001: uas = 1 0002: c1s = 2 0004: rws = 4 0008: scip = 8 0010: swp = 10h 0020: mkf = 20h 0040: mk = 40h 0080: s3 = 80h ; 00E2: rr2 = 0e2h 00E3: rr3 = 0e3h 0001: nar = 1 0002: nbr = 2 0004: cor = 4 0008: doe = 8 0010: cre = 10h 0020: rec = 20h 0040: gpf = 40h 0080: wd = 80h 0001: gnt = 1 00E0: wr0 = 0e0h 0002: wmd = 2 0008: wcr = 8 0010: wme = 10h 0020: srs = 20h 0080: rset = 80h 00E1: wr1 = 0e1h 0002: grd = 2 0004: gre = 4 0008: rrd = 8 0010: rre = 10h 0040: rrr = 40h 0080: wrr = 80h 00E2: wr2 = 0e2h 00E3: wr3 = 0e3h 0008: rw = 8 0010: rri = 10h 0020: c1 = 20h 0080: c2 = 80h 0040: c3 = 40h 00E5: wr5 = 0e5h 0008: rmd = 8 0010: rme = 10h 00E6: wr6 = 0e6h 0001: ua = 1 ; ;OFFSET-VAERDIER ; 00E0: erf = 0e0h 00E1: err1 = 0e1h 00E2: erro2 = 0e2h 00E3: poerr = 0e3h 00E4: rderr = 0e4h 00E5: prerr = 0e5h 00E6: rcerr = 0e6h 00E7: iorun = 0e7h 00E8: unit = 0e8h 00E9: eot = 0e9h 00EA: blokke = 0eah 00EB: blknr = 0ebh ; 0007: nzflg = 7 ; FA4C: 0E04 [ 7] strsg ld c,4 FA4E: CD69F7 [24] call expr FA51: C1 [34] pop bc FA52: 0C [38] inc c FA53: E1 [48] pop hl FA54: 45 [52] ld b,l FA55: 05 [56] dec b FA56: C5 [67] push bc FA57: FDE1 [81] pop iy FA59: E1 [91] pop hl FA5A: D1 [101] pop de FA5B: A7 [105] and a FA5C: ED52 [120] sbc hl,de FA5E: E5 [131] push hl FA5F: DDE1 [145] pop ix FA61: CD31F7 [162] call crlf FA64: CD28F2 [17] stlp3 call iochk FA67: F5 [28] push af FA68: 0E01 [35] ld c,1 FA6A: CD1DF2 [52] call ioset FA6D: D5 [63] push de FA6E: 21C0FF [73] ld hl,-64 FA71: CDB6FF [90] call carret FA74: D1 [100] pop de FA75: 0E0D [107] ld c,cr FA77: CD53F6 [124] call crtout FA7A: 62 [128] ld h,d FA7B: 6B [132] ld l,e FA7C: CD3AF6 [149] call hlsp FA7F: F1 [159] pop af FA80: 4F [163] ld c,a FA81: CD1DF2 [180] call ioset FA84: 23 [186] inc hl FA85: DDE5 [201] push ix FA87: C1 [211] pop bc FA88: 1A [ 7] stlp2 ld a,(de) FA89: EDB1 [23|21] cpir FA8B: E2C7FA [33|33] jp po,stfin1 FA8E: C5 [44] push bc FA8F: 2B [50] dec hl FA90: E5 [61] push hl FA91: D5 [72] push de FA92: FDE5 [87] push iy FA94: C1 [97] pop bc FA95: 13 [ 6] stlp1 inc de FA96: 23 [12] inc hl FA97: 1A [19] ld a,(de) FA98: BE [26] cp (hl) FA99: 2803 [33|38] jr z,sthp1 FA9B: 0D [37] dec c FA9C: 2823 [44|49] jr z,stnmat FA9E: 10F5 [ 8|13] sthp1 djnz stlp1 FAA0: C5 [19] push bc FAA1: 0E0D [26] ld c,cr FAA3: CD3FF6 [43] call co FAA6: E1 [53] pop hl FAA7: E3 [72] ex (sp),hl FAA8: CD3AF6 [89] call hlsp FAAB: 54 [93] ld d,h FAAC: 5D [97] ld e,l FAAD: C1 [107] pop bc FAAE: FDE5 [122] push iy FAB0: E1 [132] pop hl FAB1: 7D [136] ld a,l FAB2: 91 [140] sub c FAB3: 24 [144] inc h FAB4: 6F [148] ld l,a FAB5: CD3AF6 [165] call hlsp FAB8: E1 [175] pop hl FAB9: CDC0F7 [192] call ladr FABC: CD31F7 [209] call crlf FABF: 1802 [221] jr sthp2 FAC1: D1 [10] stnmat pop de FAC2: E1 [20] pop hl FAC3: 23 [ 6] sthp2 inc hl FAC4: C1 [16] pop bc FAC5: 18C1 [28] jr stlp2 FAC7: 13 [ 6] stfin1 inc de FAC8: DD2B [16] dec ix FACA: CDFFF5 [33] call abort FACD: DDE5 [48] push ix FACF: E1 [58] pop hl FAD0: 7D [62] ld a,l FAD1: B4 [66] or h FAD2: 2090 [73|78] jr nz,stlp3 FAD4: C9 [83] ret ; FAD5: CD2CF7 [17] inp8 call exlf FAD8: CD3CFB [34] call trans FADB: 47 [38] ld b,a FADC: EB [42] ex de,hl FADD: CD3CFB [59] call trans FAE0: 60 [63] ld h,b FAE1: 6F [67] ld l,a FAE2: 1822 [79] jr imp84 FAE4: 46 [ 7] imp80 ld b,(hl) FAE5: CD5EFB [24] call overz FAE8: CD36F8 [41] call copck FAEB: D8 [46|52] ret c FAEC: 2812 [53|58] jr z,imp81 FAEE: FE5F [60] cp '_' FAF0: 2819 [67|72] jr z,imp82 FAF2: E5 [78] push hl FAF3: CD8EF7 [95] call exf FAF6: E1 [105] pop hl FAF7: CD3CFB [122] call trans FAFA: E1 [132] pop hl FAFB: 77 [139] ld (hl),a FAFC: 78 [143] ld a,b FAFD: FE0D [150] cp cr FAFF: C8 [155|161] ret z FB00: 23 [ 6] imp81 inc hl FB01: 7D [ 4] imp83 ld a,l FB02: E607 [11] and 7 FB04: 20DE [18|23] jr nz,imp80 FB06: CD4DFB [17] imp84 call moverz FB09: 18D9 [29] jr imp80 FB0B: 2B [ 6] imp82 dec hl FB0C: 18F3 [18] jr imp83 ; FB0E: 0E04 [ 7] dmp8 ld c,4 FB10: CD69F7 [24] call expr FB13: E1 [34] pop hl FB14: CD3CFB [51] call trans FB17: 5F [55] ld e,a FB18: E1 [65] pop hl FB19: CD3CFB [82] call trans FB1C: 57 [86] ld d,a FB1D: E1 [96] pop hl FB1E: CD3CFB [113] call trans FB21: 47 [117] ld b,a FB22: E1 [127] pop hl FB23: CD3CFB [144] call trans FB26: 67 [148] ld h,a FB27: 68 [152] ld l,b FB28: CD4DFB [17] impd80 call moverz FB2B: 46 [ 7] impd81 ld b,(hl) FB2C: CD5EFB [24] call overz FB2F: CDFFF5 [41] call abort FB32: CD95F7 [58] call hilox FB35: 7D [62] ld a,l FB36: E607 [69] and 7 FB38: 20F1 [76|81] jr nz,impd81 FB3A: 18EC [88] jr impd80 ; FB3C: 7C [ 4] trans ld a,h FB3D: E603 [11] and 3 FB3F: 0F [15] rrca FB40: 0F [19] rrca FB41: 67 [23] ld h,a FB42: 7D [27] ld a,l FB43: E670 [34] and 70h FB45: 0F [38] rrca FB46: B4 [42] or h FB47: 67 [46] ld h,a FB48: 7D [50] ld a,l FB49: E607 [57] and 7 FB4B: B4 [61] or h FB4C: C9 [71] ret ; FB4D: CD37F6 [17] moverz call lfadr FB50: CD3DF6 [34] call blk FB53: 44 [38] ld b,h FB54: CD5EFB [55] call overz FB57: 45 [59] ld b,l FB58: CD5EFB [76] call overz FB5B: C33DF6 [86] jp blk ; FB5E: 78 [ 4] overz ld a,b FB5F: E6C0 [11] and 0c0h FB61: CD73FB [28] call ovsk6 FB64: 78 [32] ld a,b FB65: E638 [39] and 38h FB67: CD76FB [56] call ovsk3 FB6A: 78 [60] ld a,b FB6B: E607 [67] and 7 FB6D: CD79FB [84] call ovsk0 FB70: C33DF6 [94] jp blk ; FB73: 0F [ 4] ovsk6 rrca FB74: 0F [ 8] rrca FB75: 0F [12] rrca FB76: 0F [ 4] ovsk3 rrca FB77: 0F [ 8] rrca FB78: 0F [12] rrca FB79: C630 [ 7] ovsk0 add a,30h FB7B: 4F [11] ld c,a FB7C: C33FF6 [21] jp co ; ;SPOL TAPE TILBAGE ; FB7F: 3EE8 [ 7] back ld a,unit FB81: CD2AF2 [24] call rmem FB84: D3E6 [35] out (wr6),a FB86: DBE1 [46] in a,(rr1) FB88: E608 [53] and scip FB8A: CA0AF6 [63|63] jp z,error FB8D: 3E08 [70] ld a,rw FB8F: D3E3 [81] out (wr3),a FB91: 0E00 [88] ld c,0 FB93: 3EE9 [95] ld a,eot FB95: CD1FF2 [112] call wmem FB98: 3EEB [119] ld a,blknr FB9A: C31FF2 [129] jp wmem ; ; ;AKTIVER TAPE TIL SKRIVNING ; FB9D: CD28F2 [17] caswak call iochk FBA0: E630 [24] and ~pmsk FBA2: FE20 [31] cp pcas FBA4: 2806 [38|43] jr z,fnskr FBA6: FE10 [45] cp pbuf FBA8: CAC3F1 [55|55] jp z,inobuf FBAB: C9 [65] ret FBAC: CD62F9 [17] fnskr call ti FBAF: 47 [21] ld b,a FBB0: CDBEFB [38] call bufwak FBB3: 48 [42] ld c,b FBB4: CDBEF6 [59] call po0 FBB7: 08 [63] ex af,af' FBB8: 4F [67] ld c,a FBB9: CDBEF6 [84] call po0 FBBC: 08 [88] ex af,af' FBBD: C9 [98] ret FBBE: D5 [11] bufwak push de FBBF: 1E01 [18] ld e,1 FBC1: CDA2FC [35] call tpck FBC4: 3EA0 [ 7] skr8 ld a,c1+c2 FBC6: D3E3 [18] out (wr3),a FBC8: 3EEB [25] ld a,blknr FBCA: CD2AF2 [42] call rmem FBCD: FE02 [49] cp 2 FBCF: 3E32 [56] ld a,50 FBD1: C3D6FB [66] jp skr1 FBD4: 3EC8 [73] ld a,200 FBD6: CD5BFE [17] skr1 call delay FBD9: 3EAA [24] ld a,0aah FBDB: D3E2 [35] out (wr2),a FBDD: 3E10 [42] ld a,wme FBDF: D3E0 [53] out (wr0),a FBE1: D1 [63] pop de FBE2: C9 [73] ret ; ; ;STANDS SKRIVNING ; FBE3: CD48FD [17] wrfin call inte FBE6: 3E80 [24] ld a,wrr FBE8: D3E1 [35] out (wr1),a FBEA: 3E08 [42] ld a,wcr FBEC: D3E0 [53] out (wr0),a FBEE: CD48FD [70] call inte FBF1: 3E80 [77] ld a,wrr FBF3: D3E1 [88] out (wr1),a FBF5: CD48FD [105] call inte FBF8: 3E80 [112] ld a,wrr FBFA: D3E1 [123] out (wr1),a FBFC: 3EAA [130] ld a,0aah FBFE: D3E2 [141] out (wr2),a FC00: AF [145] xor a FC01: D3E0 [156] out (wr0),a FC03: CD48FD [173] call inte FC06: 3E80 [180] ld a,wrr FC08: D3E1 [191] out (wr1),a FC0A: 3E02 [198] ld a,wmd FC0C: D3E0 [209] out (wr0),a FC0E: 3E08 [216] ld a,8 FC10: CD5BFE [233] call delay FC13: CD01FD [250] call eotck FC16: 3E20 [257] ld a,c1 FC18: D3E3 [268] out (wr3),a FC1A: 3E28 [275] ld a,40 FC1C: CD5BFE [292] call delay FC1F: CD01FD [309] call eotck FC22: DBE3 [320] in a,(rr3) FC24: E604 [327] and cor FC26: 4F [331] ld c,a FC27: 3EE2 [338] ld a,erro2 FC29: CD99FC [355] call mskr FC2C: AF [ 4] skr6 xor a FC2D: D3E3 [15] out (wr3),a FC2F: C3F5FC [25] jp gap2 ; ; ;AKTIVER TAPE TIL LAESNING ; FC32: CD28F2 [17] casrak call iochk FC35: E60C [24] and ~rmsk FC37: FE08 [31] cp rcas FC39: 2806 [38|43] jr z,filnvn FC3B: FE04 [45] cp rbuf FC3D: CABDF1 [55|55] jp z,inibuf FC40: C9 [65] ret FC41: CD5DFC [17] filnvn call bufrak FC44: DBE2 [28] in a,(rr2) FC46: 4F [32] ld c,a FC47: CD3FF6 [49] call co FC4A: CD82F8 [66] call ricas FC4D: 4F [70] ld c,a FC4E: 08 [74] ex af,af' FC4F: B9 [78] cp c FC50: C8 [83|89] ret z FC51: 0E3F [90] ld c,'?' FC53: CD3FF6 [107] call co FC56: 010AF6 [117] ld bc,error FC59: C5 [128] push bc FC5A: C39BFD [138] jp rdbrk FC5D: D5 [11] bufrak push de FC5E: 1E00 [18] ld e,0 FC60: CDA2FC [35] call tpck FC63: 3E14 [ 7] les1 ld a,gre + rre FC65: D3E1 [18] out (wr1),a FC67: 3E80 [25] ld a,c2 FC69: D3E3 [36] out (wr3),a FC6B: 3E18 [43] ld a,24 FC6D: CD5BFE [60] call delay FC70: AF [64] xor a FC71: D3E3 [75] out (wr3),a FC73: 3E80 [82] ld a,c2 FC75: D3E3 [93] out (wr3),a FC77: 3E10 [100] ld a,rme FC79: D3E5 [111] out (wr5),a FC7B: D1 [121] pop de FC7C: CD82F8 [138] call ricas FC7F: D6AA [145] sub 0aah FC81: 4F [149] ld c,a FC82: 3EE5 [156] ld a,prerr FC84: CD99FC [173] call mskr FC87: CD48FD [17] lesok call inte FC8A: CD60FD [34] call rdint1 FC8D: C26AFD [44|44] jp nz,abend FC90: DBE3 [55] in a,(rr3) FC92: E620 [62] and rec FC94: EE20 [69] xor rec FC96: 4F [73] ld c,a FC97: 3EE6 [80] ld a,rcerr FC99: CD1FF2 [17] mskr call wmem FC9C: C8 [22|28] ret z FC9D: 3EE0 [ 7] erfskr ld a,erf FC9F: C31FF2 [17] jp wmem ; FCA2: 0EFF [ 7] tpck ld c,true FCA4: CDFCFC [24] call inte21 FCA7: CD0BFD [41] call ready FCAA: 2007 [48|53] jr nz,tpnot FCAC: 3EE9 [55] ld a,eot FCAE: CD2AF2 [72] call rmem FCB1: B7 [76] or a FCB2: C8 [81|87] ret z FCB3: CDFAFC [17] tpnot call inte2 FCB6: 0C [21] inc c FCB7: C371FD [31] jp abnd2 ; ;STANDS LASNING FRA TAPE ; FCBA: CD48FD [17] rdfin call inte FCBD: CD60FD [34] call rdint1 FCC0: 28F8 [41|46] jr z,rdfin FCC2: 3E02 [ 7] rdfin1 ld a,grd FCC4: D3E1 [18] out (wr1),a FCC6: 3E08 [25] ld a,rmd FCC8: D3E5 [36] out (wr5),a FCCA: CD01FD [53] call eotck FCCD: AF [57] xor a FCCE: D3E3 [68] out (wr3),a FCD0: 3E18 [75] ld a,24 FCD2: CD5BFE [92] call delay FCD5: CD01FD [109] call eotck FCD8: DBE3 [120] in a,(rr3) FCDA: E61F [127] and cre + doe + cor + nbr + nar FCDC: 4F [131] ld c,a FCDD: 3EE2 [138] ld a,erro2 FCDF: CD1FF2 [155] call wmem FCE2: 79 [159] ld a,c FCE3: E61C [166] and cre + doe + cor FCE5: 2804 [173|178] jr z,gap1 FCE7: 4F [177] ld c,a FCE8: CD9DFC [194] call erfskr FCEB: DBE2 [11] gap1 in a,(rr2) FCED: D6AA [18] sub 0aah FCEF: 4F [22] ld c,a FCF0: 3EE3 [29] ld a,poerr FCF2: CD99FC [46] call mskr FCF5: 3EFF [ 7] gap2 ld a,-1 FCF7: CD2DFE [24] call spol11 FCFA: 0E00 [ 7] inte2 ld c,false FCFC: 3EE7 [ 7] inte21 ld a,iorun FCFE: C31FF2 [17] jp wmem ; ; FD01: DBE1 [11] eotck in a,(rr1) FD03: E620 [18] and mkf FD05: C8 [23|29] ret z FD06: 4F [27] ld c,a FD07: 3EE9 [ 7] speot ld a,eot FD09: 1863 [19] jr abnd1 ; ; FD0B: D5 [11] ready push de FD0C: CD37FD [28] call clear FD0F: 3E80 [35] ld a,rset FD11: D3E0 [46] out (wr0),a FD13: 3EE8 [53] ld a,unit FD15: CD2AF2 [70] call rmem FD18: D3E6 [81] out (wr6),a FD1A: DBE1 [92] in a,(rr1) FD1C: E604 [99] and rws FD1E: 2054 [106|111] jr nz,abnd3 FD20: D1 [116] pop de FD21: 7B [120] ld a,e FD22: B7 [124] or a FD23: DBE1 [135] in a,(rr1) FD25: 2006 [142|147] jr nz,ready1 FD27: E608 [149] and scip FD29: EE08 [156] xor scip FD2B: 1804 [168] jr ready2 FD2D: E618 [ 7] ready1 and scip + swp FD2F: EE18 [14] xor scip + swp FD31: 4F [ 4] ready2 ld c,a FD32: 3EE1 [11] ld a,err1 FD34: C399FC [21] jp mskr ; ; FD37: EB [ 4] clear ex de,hl FD38: 210000 [14] ld hl,0 FD3B: 39 [25] add hl,sp FD3C: EB [29] ex de,hl FD3D: 1EE0 [36] ld e,erf FD3F: 0E07 [43] ld c,nzflg FD41: AF [47] xor a FD42: 12 [ 7] clear1 ld (de),a FD43: 13 [13] inc de FD44: 0D [17] dec c FD45: 20FB [24|29] jr nz,clear1 FD47: C9 [34] ret ; ; FD48: F5 [11] inte push af FD49: E5 [22] push hl FD4A: 210000 [32] ld hl,0 FD4D: CD01FD [17] inte1 call eotck FD50: DBE0 [28] in a,(rr0) FD52: E607 [35] and rrq + wrq + grq FD54: 2007 [42|47] jr nz,hpi FD56: 2B [48] dec hl FD57: 7D [52] ld a,l FD58: B4 [56] or h FD59: 20F2 [63|68] jr nz,inte1 FD5B: 1817 [75] jr abnd3 FD5D: E1 [10] hpi pop hl FD5E: F1 [20] pop af FD5F: C9 [30] ret ; FD60: DBE0 [11] rdint1 in a,(rr0) FD62: E604 [18] and grq FD64: C0 [23|29] ret nz FD65: 3E40 [30] ld a,rrr FD67: D3E1 [41] out (wr1),a FD69: C9 [51] ret ; FD6A: 0E01 [ 7] abend ld c,1 FD6C: 3EE4 [14] ld a,rderr FD6E: CD1FF2 [17] abnd1 call wmem FD71: CD9DFC [17] abnd2 call erfskr FD74: C30AF6 [10] abnd3 jp error ; ; FD77: CD62F9 [17] seks call ti FD7A: 57 [21] ld d,a FD7B: CD31F7 [38] call crlf FD7E: CD5DFC [17] seksks call bufrak FD81: DBE2 [28] in a,(rr2) FD83: 4F [32] ld c,a FD84: CD3FF6 [49] call co FD87: BA [53] cp d FD88: 2808 [60|65] jr z,sekfu FD8A: CDBAFC [77] call rdfin FD8D: CDFFF5 [94] call abort FD90: 18EC [106] jr seksks FD92: CD82F8 [17] sekfu call ricas FD95: D650 [24] sub 50h FD97: 4F [28] ld c,a FD98: CD3FF6 [45] call co FD9B: AF [ 4] rdbrk xor a FD9C: CD5BFE [21] call delay FD9F: CDC2FC [38] call rdfin1 FDA2: 3EEB [45] ld a,blknr FDA4: CD2AF2 [62] call rmem FDA7: 3D [66] dec a FDA8: 47 [70] ld b,a FDA9: 1805 [82] jr spol ; ; ;SPOLEFUNKTION, FIND BLOK ; ; FDAB: CD67F7 [17] baand call expr1 FDAE: E1 [27] pop hl FDAF: 45 [31] ld b,l ; ; ;SELVE SPOLERUTINEN ; FDB0: 3EEB [ 7] spol ld a,blknr FDB2: CD2AF2 [24] call rmem FDB5: 90 [28] sub b FDB6: 4F [32] ld c,a FDB7: 3EEA [39] ld a,blokke FDB9: CD1FF2 [56] call wmem FDBC: 1E00 [63] ld e,0 FDBE: CDA2FC [80] call tpck FDC1: 3EEA [87] ld a,blokke FDC3: CD2AF2 [104] call rmem FDC6: B7 [108] or a FDC7: C8 [113|119] ret z FDC8: 3E80 [120] ld a,c2 FDCA: FACFFD [130|130] jp m,spol2 FDCD: 3E40 [137] ld a,c3 FDCF: D3E3 [11] spol2 out (wr3),a FDD1: 57 [15] ld d,a FDD2: 3E10 [22] ld a,rme FDD4: D3E5 [33] out (wr5),a FDD6: 3EEA [40] ld a,blokke FDD8: CD2AF2 [57] call rmem FDDB: B7 [61] or a FDDC: F2E1FD [71|71] jp p,spol0 FDDF: ED44 [79] neg FDE1: 47 [ 4] spol0 ld b,a FDE2: 3E06 [11] ld a,6 FDE4: CD5BFE [28] call delay FDE7: AF [ 4] spol5 xor a FDE8: D3E3 [15] out (wr3),a FDEA: 7A [19] ld a,d FDEB: D3E3 [30] out (wr3),a FDED: 3E20 [37] ld a,srs FDEF: D3E0 [48] out (wr0),a FDF1: DBE1 [11] spol3 in a,(rr1) FDF3: E620 [18] and mkf FDF5: 2046 [25|30] jr nz,spol9 FDF7: DBE3 [36] in a,(rr3) FDF9: E620 [43] and rec FDFB: 28F4 [50|55] jr z,spol3 FDFD: DBE3 [11] spol4 in a,(rr3) FDFF: E640 [18] and gpf FE01: 28FA [25|30] jr z,spol4 FE03: DBE1 [36] in a,(rr1) FE05: E620 [43] and mkf FE07: 2034 [50|55] jr nz,spol9 FE09: 05 [54] dec b FE0A: 20DB [61|66] jr nz,spol5 FE0C: 7A [65] ld a,d FE0D: FE40 [72] cp c3 FE0F: 3E1E [79] ld a,30 FE11: CC5BFE [89|96] call z,delay FE14: DBE1 [100] in a,(rr1) FE16: E620 [107] and mkf FE18: 2023 [114|119] jr nz,spol9 FE1A: AF [118] xor a FE1B: D3E3 [129] out (wr3),a FE1D: 3E18 [136] ld a,24 FE1F: CD5BFE [153] call delay FE22: DBE1 [164] in a,(rr1) FE24: E620 [171] and mkf FE26: 2015 [178|183] jr nz,spol9 FE28: 3EEA [185] ld a,blokke FE2A: CD2AF2 [202] call rmem FE2D: 47 [ 4] spol11 ld b,a FE2E: 3EEB [11] ld a,blknr FE30: CD2AF2 [28] call rmem FE33: 90 [32] sub b FE34: 4F [36] ld c,a FE35: 3EEB [43] ld a,blknr FE37: CD1FF2 [60] call wmem FE3A: C3FAFC [70] jp inte2 FE3D: AF [ 4] spol9 xor a FE3E: D3E3 [15] out (wr3),a FE40: 3E18 [22] ld a,24 FE42: CD5BFE [39] call delay FE45: 7A [43] ld a,d FE46: FE40 [50] cp c3 FE48: 3EEA [57] ld a,blokke FE4A: CD2AF2 [74] call rmem FE4D: 2809 [81|86] jr z,spol10 FE4F: 80 [85] add a,b FE50: CD2DFE [102] call spol11 FE53: 0E01 [109] ld c,1 FE55: C307FD [119] jp speot FE58: 90 [ 4] spol10 sub b FE59: 18D2 [16] jr spol11 ; ; FE5B: D5 [11] delay push de FE5C: 1E1E [ 7] delay1 ld e,30 FE5E: 1616 [ 7] delay2 ld d,22 FE60: 15 [ 4] delay3 dec d FE61: 20FD [11|16] jr nz,delay3 FE63: 1D [15] dec e FE64: 20F8 [22|27] jr nz,delay2 FE66: 3D [26] dec a FE67: 20F3 [33|38] jr nz,delay1 FE69: D1 [43] pop de FE6A: C9 [53] ret ; ; ;BUFFER-RUTINER ; FE6B: E5 [11] obuf push hl FE6C: 210000 [21] ld hl,0 FE6F: 39 [32] add hl,sp FE70: 2EEC [39] ld l,obpnt FE72: 34 [50] inc (hl) FE73: 6E [57] ld l,(hl) FE74: 2D [61] dec l FE75: 25 [65] dec h FE76: 25 [69] dec h FE77: 25 [73] dec h FE78: 71 [80] ld (hl),c FE79: 2C [84] inc l FE7A: CC80FE [94|101] call z,obob FE7D: E1 [104] pop hl FE7E: 79 [108] ld a,c FE7F: C9 [118] ret FE80: C5 [11] obob push bc FE81: CDBEFB [28] call bufwak FE84: 3E80 [35] ld a,wrr FE86: 01E200 [45] ld bc,wr2 FE89: CD48FD [17] oblpx call inte FE8C: D3E1 [28] out (wr1),a FE8E: EDA3 [44] outi FE90: 20F7 [51|56] jr nz,oblpx FE92: CDE3FB [68] call wrfin FE95: CDCDFE [85] call blkskr FE98: C1 [95] pop bc FE99: C9 [105] ret ; FE9A: E5 [11] ibuf push hl FE9B: 210000 [21] ld hl,0 FE9E: 39 [32] add hl,sp FE9F: 2EED [39] ld l,ibpnt FEA1: 34 [50] inc (hl) FEA2: 6E [57] ld l,(hl) FEA3: 25 [61] dec h FEA4: 25 [65] dec h FEA5: 2D [69] dec l FEA6: 2C [73] inc l FEA7: CCAEFE [83|90] call z,ibuibi FEAA: 7E [90] ld a,(hl) FEAB: E1 [100] pop hl FEAC: B7 [104] or a FEAD: C9 [114] ret FEAE: C5 [11] ibuibi push bc FEAF: CD5DFC [28] call bufrak FEB2: 01E200 [38] ld bc,rr2 FEB5: 1809 [50] jr ibuin1 FEB7: CD48FD [17] ibuinl call inte FEBA: CD60FD [34] call rdint1 FEBD: C26AFD [44|44] jp nz,abend FEC0: EDA2 [16] ibuin1 ini FEC2: 20F3 [23|28] jr nz,ibuinl FEC4: CDBAFC [40] call rdfin FEC7: CDCDFE [57] call blkskr FECA: C1 [67] pop bc FECB: 25 [71] dec h FECC: C9 [81] ret ; FECD: E5 [11] blkskr push hl FECE: D5 [22] push de FECF: 21C0FF [32] ld hl,-64 FED2: CDB6FF [49] call carret FED5: D1 [59] pop de FED6: CD31F7 [76] call crlf FED9: 3EEB [83] ld a,blknr FEDB: CD2AF2 [100] call rmem FEDE: 3D [104] dec a FEDF: CDC5F7 [121] call lbyte FEE2: E1 [131] pop hl FEE3: C33DF6 [141] jp blk ; FEE6: AF [ 4] clrscr xor a FEE7: CDE0FF [21] call aaaa FEEA: 77 [28] ld (hl),a FEEB: 2100EC [38] ld hl,0ec00h FEEE: 1101EC [48] ld de,0ec01h FEF1: 01FF03 [58] ld bc,3ffh FEF4: 3620 [68] ld (hl),' ' FEF6: EDB0 [84|21] ldir FEF8: 210000 [94] ld hl,0 FEFB: C3BFFF [104] jp abc FEFE: 7A [ 4] screen ld a,d FEFF: B3 [ 8] or e FF00: C8 [13|19] ret z FF01: 7E [20] ld a,(hl) FF02: 23 [26] inc hl FF03: 1B [32] dec de FF04: D9 [36] exx FF05: FE09 [43] cp 9 FF07: 2014 [50|55] jr nz,aca FF09: D5 [61] push de FF0A: CDE7FF [78] call bbbb FF0D: CDFAFF [95] call eeee FF10: EB [99] ex de,hl FF11: D1 [109] pop de FF12: 7D [113] ld a,l FF13: E6F8 [120] and 0f8h FF15: 6F [124] ld l,a FF16: 110800 [134] ld de,8 FF19: 19 [145] add hl,de FF1A: AF [149] xor a FF1B: 183E [161] jr ada FF1D: FE0D [ 7] aca cp 0dh FF1F: 2023 [14|19] jr nz,aea FF21: D5 [25] push de FF22: CDE7FF [42] call bbbb FF25: CDFAFF [59] call eeee FF28: EB [63] ex de,hl FF29: D1 [73] pop de FF2A: 7D [77] ld a,l FF2B: E63F [84] and 3fh FF2D: 2009 [91|96] jr nz,afa FF2F: E5 [102] push hl FF30: CDE0FF [119] call aaaa FF33: 7E [126] ld a,(hl) FF34: E1 [136] pop hl FF35: B7 [140] or a FF36: 2808 [147|152] jr z,aga FF38: 7D [ 4] afa ld a,l FF39: E6C0 [11] and 0c0h FF3B: 6F [15] ld l,a FF3C: 114000 [25] ld de,40h FF3F: 19 [36] add hl,de FF40: 3E01 [ 7] aga ld a,1 FF42: 1817 [19] jr ada FF44: D5 [11] aea push de FF45: CDE7FF [28] call bbbb FF48: CDFAFF [45] call eeee FF4B: EB [49] ex de,hl FF4C: D1 [59] pop de FF4D: CD98FF [76] call abd FF50: AF [80] xor a FF51: D5 [91] push de FF52: CDE7FF [108] call bbbb FF55: CDFAFF [125] call eeee FF58: EB [129] ex de,hl FF59: D1 [139] pop de FF5A: 23 [145] inc hl FF5B: E5 [11] ada push hl FF5C: CDE0FF [28] call aaaa FF5F: 77 [35] ld (hl),a FF60: E1 [45] pop hl FF61: 7C [49] ld a,h FF62: EE04 [56] xor 4 FF64: B5 [60] or l FF65: 201A [67|72] jr nz,aha FF67: 210000 [77] ld hl,0 FF6A: CD88FF [94] call abe FF6D: 0640 [101] ld b,40h FF6F: 3E20 [108] ld a,20h FF71: 77 [ 7] abf ld (hl),a FF72: 23 [13] inc hl FF73: 10FC [21|26] djnz abf FF75: 214000 [31] ld hl,40h FF78: CD88FF [48] call abe FF7B: CD9EFF [65] call abg FF7E: 21C003 [75] ld hl,03c0h FF81: CDBFFF [17] aha call abc FF84: D9 [21] exx FF85: C3FEFE [31] jp screen FF88: E5 [11] abe push hl FF89: CDEEFF [28] call cccc FF8C: CDFAFF [45] call eeee FF8F: E1 [55] pop hl FF90: 19 [66] add hl,de FF91: 7C [70] ld a,h FF92: E603 [77] and 3 FF94: C6EC [84] add a,0ech FF96: 67 [88] ld h,a FF97: C9 [98] ret FF98: 47 [ 4] abd ld b,a FF99: CD88FF [21] call abe FF9C: 70 [28] ld (hl),b FF9D: C9 [38] ret FF9E: D5 [11] abg push de FF9F: EB [15] ex de,hl FFA0: CDEEFF [32] call cccc FFA3: CDF5FF [49] call dddd FFA6: D1 [59] pop de FFA7: 3E0C [66] ld a,0ch FFA9: D3D0 [77] out (mcrtd0),a FFAB: 7C [81] ld a,h FFAC: D3D1 [92] out (mcrtd1),a FFAE: 3E0D [99] ld a,0dh FFB0: D3D0 [110] out (mcrtd0),a FFB2: 7D [114] ld a,l FFB3: D3D1 [125] out (mcrtd1),a FFB5: C9 [135] ret FFB6: E5 [11] carret push hl FFB7: CDE7FF [28] call bbbb FFBA: CDFAFF [45] call eeee FFBD: E1 [55] pop hl FFBE: 19 [66] add hl,de FFBF: D5 [11] abc push de FFC0: EB [15] ex de,hl FFC1: CDE7FF [32] call bbbb FFC4: CDF5FF [49] call dddd FFC7: D1 [59] pop de FFC8: E5 [70] push hl FFC9: CDEEFF [87] call cccc FFCC: CDFAFF [104] call eeee FFCF: E1 [114] pop hl FFD0: 19 [125] add hl,de FFD1: 3E0E [132] ld a,0eh FFD3: D3D0 [143] out (mcrtd0),a FFD5: 7C [147] ld a,h FFD6: D3D1 [158] out (mcrtd1),a FFD8: 3E0F [165] ld a,0fh FFDA: D3D0 [176] out (mcrtd0),a FFDC: 7D [180] ld a,l FFDD: D3D1 [191] out (mcrtd1),a FFDF: C9 [201] ret ; FFE0: 2100FF [10] aaaa ld hl,0ff00h FFE3: 39 [21] add hl,sp FFE4: 2EFB [28] ld l,0fbh FFE6: C9 [38] ret FFE7: 2100FF [10] bbbb ld hl,0ff00h FFEA: 39 [21] add hl,sp FFEB: 2EFE [28] ld l,0feh FFED: C9 [38] ret FFEE: 2100FF [10] cccc ld hl,0ff00h FFF1: 39 [21] add hl,sp FFF2: 2EFC [28] ld l,0fch FFF4: C9 [38] ret FFF5: 73 [ 7] dddd ld (hl),e FFF6: 23 [13] inc hl FFF7: 72 [20] ld (hl),d FFF8: EB [24] ex de,hl FFF9: C9 [34] ret FFFA: 5E [ 7] eeee ld e,(hl) FFFB: 23 [13] inc hl FFFC: 56 [20] ld d,(hl) FFFD: C9 [30] ret ; ; .END ; +++ segments +++ #CODE = $F000 = 61440, size = $0FFE = 4094 ; +++ global symbols +++ _end = $FFFE = 65534 mps-2000 monitor v 1.0 comet.asm:9 (unused) _size = $0FFE = 4094 mps-2000 monitor v 1.0 comet.asm:9 (unused) aaaa = $FFE0 = 65504 mps-2000 monitor v 1.0 comet.asm:2618 abc = $FFBF = 65471 mps-2000 monitor v 1.0 comet.asm:2598 abd = $FF98 = 65432 mps-2000 monitor v 1.0 comet.asm:2575 abe = $FF88 = 65416 mps-2000 monitor v 1.0 comet.asm:2565 abend = $FD6A = 64874 mps-2000 monitor v 1.0 comet.asm:2258 abf = $FF71 = 65393 mps-2000 monitor v 1.0 comet.asm:2555 abg = $FF9E = 65438 mps-2000 monitor v 1.0 comet.asm:2579 abnd1 = $FD6E = 64878 mps-2000 monitor v 1.0 comet.asm:2260 abnd2 = $FD71 = 64881 mps-2000 monitor v 1.0 comet.asm:2261 abnd3 = $FD74 = 64884 mps-2000 monitor v 1.0 comet.asm:2262 abort = $F5FF = 62975 mps-2000 monitor v 1.0 comet.asm:944 aca = $FF1D = 65309 mps-2000 monitor v 1.0 comet.asm:2507 actbl = $FA1B = 64027 mps-2000 monitor v 1.0 comet.asm:1693 ada = $FF5B = 65371 mps-2000 monitor v 1.0 comet.asm:2543 ader = $F305 = 62213 mps-2000 monitor v 1.0 comet.asm:476 aea = $FF44 = 65348 mps-2000 monitor v 1.0 comet.asm:2530 afa = $FF38 = 65336 mps-2000 monitor v 1.0 comet.asm:2523 aga = $FF40 = 65344 mps-2000 monitor v 1.0 comet.asm:2528 aha = $FF81 = 65409 mps-2000 monitor v 1.0 comet.asm:2562 ahead = $F0D7 = 61655 mps-2000 monitor v 1.0 comet.asm:168 aloc = $0015 = 21 mps-2000 monitor v 1.0 comet.asm:1667 aploc = $0009 = 9 mps-2000 monitor v 1.0 comet.asm:1680 ass0 = $F1E1 = 61921 mps-2000 monitor v 1.0 comet.asm:314 ass1 = $F1EA = 61930 mps-2000 monitor v 1.0 comet.asm:320 ass2 = $F1EB = 61931 mps-2000 monitor v 1.0 comet.asm:321 ass3 = $F1F8 = 61944 mps-2000 monitor v 1.0 comet.asm:326 ass4 = $F202 = 61954 mps-2000 monitor v 1.0 comet.asm:332 ass5 = $F205 = 61957 mps-2000 monitor v 1.0 comet.asm:334 ass6 = $F210 = 61968 mps-2000 monitor v 1.0 comet.asm:341 ass7 = $F212 = 61970 mps-2000 monitor v 1.0 comet.asm:343 asserr = $F1FF = 61951 mps-2000 monitor v 1.0 comet.asm:331 assign = $F1D5 = 61909 mps-2000 monitor v 1.0 comet.asm:310 baand = $FDAB = 64939 mps-2000 monitor v 1.0 comet.asm:2294 back = $FB7F = 64383 mps-2000 monitor v 1.0 comet.asm:1988 base = $F000 = 61440 mps-2000 monitor v 1.0 comet.asm:12 (unused) batch = $0002 = 2 mps-2000 monitor v 1.0 comet.asm:64 (unused) bbbb = $FFE7 = 65511 mps-2000 monitor v 1.0 comet.asm:2622 begin = $F07E = 61566 mps-2000 monitor v 1.0 comet.asm:123 bell = $0007 = 7 mps-2000 monitor v 1.0 comet.asm:34 (unused) bits = $F989 = 63881 mps-2000 monitor v 1.0 comet.asm:1564 blk = $F63D = 63037 mps-2000 monitor v 1.0 comet.asm:984 blknr = $00EB = 235 mps-2000 monitor v 1.0 comet.asm:1793 blkskr = $FECD = 65229 mps-2000 monitor v 1.0 comet.asm:2463 bloc = $0013 = 19 mps-2000 monitor v 1.0 comet.asm:1668 blokke = $00EA = 234 mps-2000 monitor v 1.0 comet.asm:1792 bploc = $000B = 11 mps-2000 monitor v 1.0 comet.asm:1681 bufrak = $FC5D = 64605 mps-2000 monitor v 1.0 comet.asm:2105 bufwak = $FBBE = 64446 mps-2000 monitor v 1.0 comet.asm:2022 busy = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:47 c1 = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:1771 c1s = $0002 = 2 mps-2000 monitor v 1.0 comet.asm:1735 (unused) c2 = $0080 = 128 mps-2000 monitor v 1.0 comet.asm:1772 c2s = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:1731 (unused) c3 = $0040 = 64 mps-2000 monitor v 1.0 comet.asm:1773 c3s = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1730 (unused) carret = $FFB6 = 65462 mps-2000 monitor v 1.0 comet.asm:2593 casrak = $FC32 = 64562 mps-2000 monitor v 1.0 comet.asm:2084 caswak = $FB9D = 64413 mps-2000 monitor v 1.0 comet.asm:2005 cccc = $FFEE = 65518 mps-2000 monitor v 1.0 comet.asm:2626 cchk = $F604 = 62980 mps-2000 monitor v 1.0 comet.asm:948 (unused) ccrt = $0001 = 1 mps-2000 monitor v 1.0 comet.asm:63 cerr = $F2B8 = 62136 mps-2000 monitor v 1.0 comet.asm:436 ci = $F84A = 63562 mps-2000 monitor v 1.0 comet.asm:1347 ci1 = $F85A = 63578 mps-2000 monitor v 1.0 comet.asm:1356 ci2 = $F866 = 63590 mps-2000 monitor v 1.0 comet.asm:1365 ciloc = $00F1 = 241 mps-2000 monitor v 1.0 comet.asm:89 civek = $F23A = 62010 mps-2000 monitor v 1.0 comet.asm:373 clear = $FD37 = 64823 mps-2000 monitor v 1.0 comet.asm:2221 clear1 = $FD42 = 64834 mps-2000 monitor v 1.0 comet.asm:2228 cloc = $0012 = 18 mps-2000 monitor v 1.0 comet.asm:1669 clrscr = $FEE6 = 65254 mps-2000 monitor v 1.0 comet.asm:2476 cmsk = $00FC = 252 mps-2000 monitor v 1.0 comet.asm:56 co = $F63F = 63039 mps-2000 monitor v 1.0 comet.asm:986 co0 = $F650 = 63056 mps-2000 monitor v 1.0 comet.asm:998 co1 = $F677 = 63095 mps-2000 monitor v 1.0 comet.asm:1031 coloc = $00F4 = 244 mps-2000 monitor v 1.0 comet.asm:90 comd = $F29F = 62111 mps-2000 monitor v 1.0 comet.asm:424 comd1 = $F2A2 = 62114 mps-2000 monitor v 1.0 comet.asm:425 comff = $F296 = 62102 mps-2000 monitor v 1.0 comet.asm:420 comnn = $F28F = 62095 mps-2000 monitor v 1.0 comet.asm:417 comp = $F286 = 62086 mps-2000 monitor v 1.0 comet.asm:413 conv = $F722 = 63266 mps-2000 monitor v 1.0 comet.asm:1130 copck = $F836 = 63542 mps-2000 monitor v 1.0 comet.asm:1331 cor = $0004 = 4 mps-2000 monitor v 1.0 comet.asm:1747 covek = $F241 = 62017 mps-2000 monitor v 1.0 comet.asm:376 cploc = $000A = 10 mps-2000 monitor v 1.0 comet.asm:1682 cr = $000D = 13 mps-2000 monitor v 1.0 comet.asm:31 cre = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1749 crlf = $F731 = 63281 mps-2000 monitor v 1.0 comet.asm:1143 crti = $00D2 = 210 mps-2000 monitor v 1.0 comet.asm:23 crti30 = $F091 = 61585 mps-2000 monitor v 1.0 comet.asm:132 crtin = $F85D = 63581 mps-2000 monitor v 1.0 comet.asm:1359 crto = $00D2 = 210 mps-2000 monitor v 1.0 comet.asm:24 (unused) crtout = $F653 = 63059 mps-2000 monitor v 1.0 comet.asm:1001 crts = $00D3 = 211 mps-2000 monitor v 1.0 comet.asm:25 cs0 = $F745 = 63301 mps-2000 monitor v 1.0 comet.asm:1156 cs1 = $F74A = 63306 mps-2000 monitor v 1.0 comet.asm:1159 cs2 = $F74E = 63310 mps-2000 monitor v 1.0 comet.asm:1161 (unused) cs3 = $F751 = 63313 mps-2000 monitor v 1.0 comet.asm:1164 csloc = $00EE = 238 mps-2000 monitor v 1.0 comet.asm:94 csts = $F739 = 63289 mps-2000 monitor v 1.0 comet.asm:1150 csvek = $F233 = 62003 mps-2000 monitor v 1.0 comet.asm:370 ctty = $0000 = 0 mps-2000 monitor v 1.0 comet.asm:62 (unused) cuser = $0003 = 3 mps-2000 monitor v 1.0 comet.asm:65 (unused) dc1 = $0011 = 17 mps-2000 monitor v 1.0 comet.asm:52 dddd = $FFF5 = 65525 mps-2000 monitor v 1.0 comet.asm:2630 ddiel = $F8CA = 63690 mps-2000 monitor v 1.0 comet.asm:1426 ddiel0 = $F8CC = 63692 mps-2000 monitor v 1.0 comet.asm:1427 ddiel1 = $F8DD = 63709 mps-2000 monitor v 1.0 comet.asm:1435 ddil0 = $F8B2 = 63666 mps-2000 monitor v 1.0 comet.asm:1414 ddil1 = $F8B4 = 63668 mps-2000 monitor v 1.0 comet.asm:1415 ddil2 = $F8BB = 63675 mps-2000 monitor v 1.0 comet.asm:1418 ddil3 = $F8C1 = 63681 mps-2000 monitor v 1.0 comet.asm:1421 delay = $FE5B = 65115 mps-2000 monitor v 1.0 comet.asm:2389 delay1 = $FE5C = 65116 mps-2000 monitor v 1.0 comet.asm:2390 delay2 = $FE5E = 65118 mps-2000 monitor v 1.0 comet.asm:2391 delay3 = $FE60 = 65120 mps-2000 monitor v 1.0 comet.asm:2392 disd0 = $F2CD = 62157 mps-2000 monitor v 1.0 comet.asm:447 disd1 = $F2D0 = 62160 mps-2000 monitor v 1.0 comet.asm:448 disp = $F2CA = 62154 mps-2000 monitor v 1.0 comet.asm:446 dlaya = $F082 = 61570 mps-2000 monitor v 1.0 comet.asm:125 dloc = $0011 = 17 mps-2000 monitor v 1.0 comet.asm:1670 dmp8 = $FB0E = 64270 mps-2000 monitor v 1.0 comet.asm:1917 doe = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1748 done = $F406 = 62470 mps-2000 monitor v 1.0 comet.asm:631 done2 = $F4F2 = 62706 mps-2000 monitor v 1.0 comet.asm:782 dploc = $000D = 13 mps-2000 monitor v 1.0 comet.asm:1683 eeee = $FFFA = 65530 mps-2000 monitor v 1.0 comet.asm:2635 eloc = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1671 empty = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:46 endx = $FA1B = 64027 mps-2000 monitor v 1.0 comet.asm:1666 eof = $F2E1 = 62177 mps-2000 monitor v 1.0 comet.asm:458 eof1 = $F2E4 = 62180 mps-2000 monitor v 1.0 comet.asm:459 eot = $00E9 = 233 mps-2000 monitor v 1.0 comet.asm:1791 eotck = $FD01 = 64769 mps-2000 monitor v 1.0 comet.asm:2188 eploc = $000C = 12 mps-2000 monitor v 1.0 comet.asm:1684 erf = $00E0 = 224 mps-2000 monitor v 1.0 comet.asm:1782 erfskr = $FC9D = 64669 mps-2000 monitor v 1.0 comet.asm:2136 err1 = $00E1 = 225 mps-2000 monitor v 1.0 comet.asm:1783 err2 = $F403 = 62467 mps-2000 monitor v 1.0 comet.asm:630 (unused) err3 = $F3FD = 62461 mps-2000 monitor v 1.0 comet.asm:627 erro2 = $00E2 = 226 mps-2000 monitor v 1.0 comet.asm:1784 error = $F60A = 62986 mps-2000 monitor v 1.0 comet.asm:953 esc = $001B = 27 mps-2000 monitor v 1.0 comet.asm:33 ex0 = $F76C = 63340 mps-2000 monitor v 1.0 comet.asm:1185 ex1 = $F76F = 63343 mps-2000 monitor v 1.0 comet.asm:1186 exf = $F78E = 63374 mps-2000 monitor v 1.0 comet.asm:1207 exit = $F9F8 = 63992 mps-2000 monitor v 1.0 comet.asm:1643 exlf = $F72C = 63276 mps-2000 monitor v 1.0 comet.asm:1139 expex2 = $F77D = 63357 mps-2000 monitor v 1.0 comet.asm:1196 expex3 = $F787 = 63367 mps-2000 monitor v 1.0 comet.asm:1203 expr = $F769 = 63337 mps-2000 monitor v 1.0 comet.asm:1184 expr1 = $F767 = 63335 mps-2000 monitor v 1.0 comet.asm:1183 expr3 = $F75C = 63324 mps-2000 monitor v 1.0 comet.asm:1174 false = $0000 = 0 mps-2000 monitor v 1.0 comet.asm:29 fif = $F300 = 62208 mps-2000 monitor v 1.0 comet.asm:472 fihp = $F30B = 62219 mps-2000 monitor v 1.0 comet.asm:478 fil = $0000 = 0 mps-2000 monitor v 1.0 comet.asm:36 (unused) fill = $F2FD = 62205 mps-2000 monitor v 1.0 comet.asm:471 filnvn = $FC41 = 64577 mps-2000 monitor v 1.0 comet.asm:2091 find1 = $F4CB = 62667 mps-2000 monitor v 1.0 comet.asm:759 findc = $F4C6 = 62662 mps-2000 monitor v 1.0 comet.asm:756 floc = $0014 = 20 mps-2000 monitor v 1.0 comet.asm:1672 flram = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:43 fnskr = $FBAC = 64428 mps-2000 monitor v 1.0 comet.asm:2012 found = $F4DA = 62682 mps-2000 monitor v 1.0 comet.asm:767 fploc = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1685 gap1 = $FCEB = 64747 mps-2000 monitor v 1.0 comet.asm:2176 gap2 = $FCF5 = 64757 mps-2000 monitor v 1.0 comet.asm:2181 gnt = $0001 = 1 mps-2000 monitor v 1.0 comet.asm:1753 (unused) gotg0 = $F32B = 62251 mps-2000 monitor v 1.0 comet.asm:497 gotg1 = $F331 = 62257 mps-2000 monitor v 1.0 comet.asm:500 gotg2 = $F346 = 62278 mps-2000 monitor v 1.0 comet.asm:517 gotg2a = $F34E = 62286 mps-2000 monitor v 1.0 comet.asm:522 gotg3 = $F359 = 62297 mps-2000 monitor v 1.0 comet.asm:526 goto = $F314 = 62228 mps-2000 monitor v 1.0 comet.asm:484 gpf = $0040 = 64 mps-2000 monitor v 1.0 comet.asm:1751 grd = $0002 = 2 mps-2000 monitor v 1.0 comet.asm:1761 gre = $0004 = 4 mps-2000 monitor v 1.0 comet.asm:1762 grq = $0004 = 4 mps-2000 monitor v 1.0 comet.asm:1728 hello = $F129 = 61737 mps-2000 monitor v 1.0 comet.asm:206 (unused) hexn = $F7A5 = 63397 mps-2000 monitor v 1.0 comet.asm:1229 hilo = $F79B = 63387 mps-2000 monitor v 1.0 comet.asm:1217 hilox = $F795 = 63381 mps-2000 monitor v 1.0 comet.asm:1212 hloc = $0031 = 49 mps-2000 monitor v 1.0 comet.asm:1673 hlsp = $F63A = 63034 mps-2000 monitor v 1.0 comet.asm:982 hpi = $FD5D = 64861 mps-2000 monitor v 1.0 comet.asm:2247 hploc = $000F = 15 mps-2000 monitor v 1.0 comet.asm:1686 ibpnt = $00ED = 237 mps-2000 monitor v 1.0 comet.asm:42 ibuf = $FE9A = 65178 mps-2000 monitor v 1.0 comet.asm:2433 ibuibi = $FEAE = 65198 mps-2000 monitor v 1.0 comet.asm:2448 ibuin1 = $FEC0 = 65216 mps-2000 monitor v 1.0 comet.asm:2455 ibuinl = $FEB7 = 65207 mps-2000 monitor v 1.0 comet.asm:2452 iloc = $0003 = 3 mps-2000 monitor v 1.0 comet.asm:1691 imp80 = $FAE4 = 64228 mps-2000 monitor v 1.0 comet.asm:1892 imp81 = $FB00 = 64256 mps-2000 monitor v 1.0 comet.asm:1908 imp82 = $FB0B = 64267 mps-2000 monitor v 1.0 comet.asm:1914 imp83 = $FB01 = 64257 mps-2000 monitor v 1.0 comet.asm:1909 imp84 = $FB06 = 64262 mps-2000 monitor v 1.0 comet.asm:1912 impd80 = $FB28 = 64296 mps-2000 monitor v 1.0 comet.asm:1932 impd81 = $FB2B = 64299 mps-2000 monitor v 1.0 comet.asm:1933 ini = $F109 = 61705 mps-2000 monitor v 1.0 comet.asm:193 ini1 = $F11F = 61727 mps-2000 monitor v 1.0 comet.asm:202 inibuf = $F1BD = 61885 mps-2000 monitor v 1.0 comet.asm:294 initty = $00CE = 206 mps-2000 monitor v 1.0 comet.asm:38 inittz = $0027 = 39 mps-2000 monitor v 1.0 comet.asm:39 inobuf = $F1C3 = 61891 mps-2000 monitor v 1.0 comet.asm:298 inp8 = $FAD5 = 64213 mps-2000 monitor v 1.0 comet.asm:1884 inte = $FD48 = 64840 mps-2000 monitor v 1.0 comet.asm:2235 inte1 = $FD4D = 64845 mps-2000 monitor v 1.0 comet.asm:2238 inte2 = $FCFA = 64762 mps-2000 monitor v 1.0 comet.asm:2183 inte21 = $FCFC = 64764 mps-2000 monitor v 1.0 comet.asm:2184 iochk = $F228 = 61992 mps-2000 monitor v 1.0 comet.asm:361 ioff = $00DF = 223 mps-2000 monitor v 1.0 comet.asm:40 iorun = $00E7 = 231 mps-2000 monitor v 1.0 comet.asm:1789 ioset = $F21D = 61981 mps-2000 monitor v 1.0 comet.asm:351 iport = $F983 = 63875 mps-2000 monitor v 1.0 comet.asm:1561 ipq2 = $F98B = 63883 mps-2000 monitor v 1.0 comet.asm:1565 ki = $F95C = 63836 mps-2000 monitor v 1.0 comet.asm:1533 kin = $F9CA = 63946 mps-2000 monitor v 1.0 comet.asm:1602 ladr = $F7C0 = 63424 mps-2000 monitor v 1.0 comet.asm:1244 lby2 = $F7CE = 63438 mps-2000 monitor v 1.0 comet.asm:1254 lbyte = $F7C5 = 63429 mps-2000 monitor v 1.0 comet.asm:1247 lcrt = $0040 = 64 mps-2000 monitor v 1.0 comet.asm:83 le0 = $F7E1 = 63457 mps-2000 monitor v 1.0 comet.asm:1265 lead = $F7DE = 63454 mps-2000 monitor v 1.0 comet.asm:1264 les1 = $FC63 = 64611 mps-2000 monitor v 1.0 comet.asm:2108 (unused) lesok = $FC87 = 64647 mps-2000 monitor v 1.0 comet.asm:2126 (unused) lf = $000A = 10 mps-2000 monitor v 1.0 comet.asm:32 lfadr = $F637 = 63031 mps-2000 monitor v 1.0 comet.asm:980 line = $0080 = 128 mps-2000 monitor v 1.0 comet.asm:84 lloc = $0030 = 48 mps-2000 monitor v 1.0 comet.asm:1674 llocx = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:1679 lmsk = $003F = 63 mps-2000 monitor v 1.0 comet.asm:59 lnloc = $F6D7 = 63191 mps-2000 monitor v 1.0 comet.asm:1091 lo = $F683 = 63107 mps-2000 monitor v 1.0 comet.asm:1042 load = $F8A3 = 63651 mps-2000 monitor v 1.0 comet.asm:1407 loaddi = $F8AA = 63658 mps-2000 monitor v 1.0 comet.asm:1411 lod0 = $F3BC = 62396 mps-2000 monitor v 1.0 comet.asm:588 lod4 = $F3F8 = 62456 mps-2000 monitor v 1.0 comet.asm:625 lodcb = $F432 = 62514 mps-2000 monitor v 1.0 comet.asm:660 lodl1 = $F414 = 62484 mps-2000 monitor v 1.0 comet.asm:642 lodl3 = $F420 = 62496 mps-2000 monitor v 1.0 comet.asm:647 lodl5 = $F419 = 62489 mps-2000 monitor v 1.0 comet.asm:644 lodlc1 = $F43C = 62524 mps-2000 monitor v 1.0 comet.asm:666 lodr = $F412 = 62482 mps-2000 monitor v 1.0 comet.asm:641 loli = $F69F = 63135 mps-2000 monitor v 1.0 comet.asm:1056 lpdc = $00F2 = 242 mps-2000 monitor v 1.0 comet.asm:49 lpdp = $00F0 = 240 mps-2000 monitor v 1.0 comet.asm:45 lploc = $000E = 14 mps-2000 monitor v 1.0 comet.asm:1687 lpsc = $00F3 = 243 mps-2000 monitor v 1.0 comet.asm:50 lpsp = $00F1 = 241 mps-2000 monitor v 1.0 comet.asm:44 ltbl = $F9E4 = 63972 mps-2000 monitor v 1.0 comet.asm:1618 ltty = $0000 = 0 mps-2000 monitor v 1.0 comet.asm:82 (unused) luloc = $00FD = 253 mps-2000 monitor v 1.0 comet.asm:93 luser = $00C0 = 192 mps-2000 monitor v 1.0 comet.asm:85 (unused) luvek = $F256 = 62038 mps-2000 monitor v 1.0 comet.asm:385 mark = $F7D4 = 63444 mps-2000 monitor v 1.0 comet.asm:1258 max = $0007 = 7 mps-2000 monitor v 1.0 comet.asm:37 mcrtd0 = $00D0 = 208 mps-2000 monitor v 1.0 comet.asm:21 mcrtd1 = $00D1 = 209 mps-2000 monitor v 1.0 comet.asm:22 memb = $F7F1 = 63473 mps-2000 monitor v 1.0 comet.asm:1276 memck = $F7E7 = 63463 mps-2000 monitor v 1.0 comet.asm:1270 memsiz = $F7F4 = 63476 mps-2000 monitor v 1.0 comet.asm:1280 memsm0 = $F7F8 = 63480 mps-2000 monitor v 1.0 comet.asm:1282 mk = $0040 = 64 mps-2000 monitor v 1.0 comet.asm:1740 (unused) mkf = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:1739 move = $F380 = 62336 mps-2000 monitor v 1.0 comet.asm:553 moverz = $FB4D = 64333 mps-2000 monitor v 1.0 comet.asm:1957 movm = $F383 = 62339 mps-2000 monitor v 1.0 comet.asm:554 movm1 = $F38E = 62350 mps-2000 monitor v 1.0 comet.asm:562 msg = $F02A = 61482 mps-2000 monitor v 1.0 comet.asm:113 msgl = $0054 = 84 mps-2000 monitor v 1.0 comet.asm:119 mskr = $FC99 = 64665 mps-2000 monitor v 1.0 comet.asm:2134 nar = $0001 = 1 mps-2000 monitor v 1.0 comet.asm:1745 nbr = $0002 = 2 mps-2000 monitor v 1.0 comet.asm:1746 nibble = $F80A = 63498 mps-2000 monitor v 1.0 comet.asm:1297 null = $F70C = 63244 mps-2000 monitor v 1.0 comet.asm:1118 nzflg = $0007 = 7 mps-2000 monitor v 1.0 comet.asm:1795 oblpx = $FE89 = 65161 mps-2000 monitor v 1.0 comet.asm:2424 obob = $FE80 = 65152 mps-2000 monitor v 1.0 comet.asm:2420 obpnt = $00EC = 236 mps-2000 monitor v 1.0 comet.asm:41 obuf = $FE6B = 65131 mps-2000 monitor v 1.0 comet.asm:2404 oport = $F99A = 63898 mps-2000 monitor v 1.0 comet.asm:1573 overz = $FB5E = 64350 mps-2000 monitor v 1.0 comet.asm:1965 ovsk0 = $FB79 = 64377 mps-2000 monitor v 1.0 comet.asm:1982 ovsk3 = $FB76 = 64374 mps-2000 monitor v 1.0 comet.asm:1979 ovsk6 = $FB73 = 64371 mps-2000 monitor v 1.0 comet.asm:1976 padr = $F81A = 63514 mps-2000 monitor v 1.0 comet.asm:1310 pbuf = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:76 pbyte = $F81F = 63519 mps-2000 monitor v 1.0 comet.asm:1314 pcas = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:77 pchk = $F83B = 63547 mps-2000 monitor v 1.0 comet.asm:1334 peol = $F6AC = 63148 mps-2000 monitor v 1.0 comet.asm:1065 ploc = $0034 = 52 mps-2000 monitor v 1.0 comet.asm:1675 pmsk = $00CF = 207 mps-2000 monitor v 1.0 comet.asm:58 po = $F6B3 = 63155 mps-2000 monitor v 1.0 comet.asm:1069 po0 = $F6BE = 63166 mps-2000 monitor v 1.0 comet.asm:1075 po1 = $F6C9 = 63177 mps-2000 monitor v 1.0 comet.asm:1082 poerr = $00E3 = 227 mps-2000 monitor v 1.0 comet.asm:1785 prerr = $00E5 = 229 mps-2000 monitor v 1.0 comet.asm:1787 prmtb = $FA33 = 64051 mps-2000 monitor v 1.0 comet.asm:1706 ptty = $0000 = 0 mps-2000 monitor v 1.0 comet.asm:75 (unused) puloc = $00FA = 250 mps-2000 monitor v 1.0 comet.asm:92 puser = $0030 = 48 mps-2000 monitor v 1.0 comet.asm:78 (unused) puta = $F267 = 62055 mps-2000 monitor v 1.0 comet.asm:395 puta1 = $F26E = 62062 mps-2000 monitor v 1.0 comet.asm:398 puta2 = $F27D = 62077 mps-2000 monitor v 1.0 comet.asm:406 puta3 = $F282 = 62082 mps-2000 monitor v 1.0 comet.asm:408 puvek = $F24F = 62031 mps-2000 monitor v 1.0 comet.asm:382 qchk = $F83E = 63550 mps-2000 monitor v 1.0 comet.asm:1336 qout = $F9B4 = 63924 mps-2000 monitor v 1.0 comet.asm:1591 rbuf = $0004 = 4 mps-2000 monitor v 1.0 comet.asm:69 rcas = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:70 rcerr = $00E6 = 230 mps-2000 monitor v 1.0 comet.asm:1788 rdbrk = $FD9B = 64923 mps-2000 monitor v 1.0 comet.asm:2281 rderr = $00E4 = 228 mps-2000 monitor v 1.0 comet.asm:1786 rdf = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1729 (unused) rdfin = $FCBA = 64698 mps-2000 monitor v 1.0 comet.asm:2153 rdfin1 = $FCC2 = 64706 mps-2000 monitor v 1.0 comet.asm:2156 rdint1 = $FD60 = 64864 mps-2000 monitor v 1.0 comet.asm:2251 rea = $F3E9 = 62441 mps-2000 monitor v 1.0 comet.asm:617 read = $F3A2 = 62370 mps-2000 monitor v 1.0 comet.asm:573 read1 = $F394 = 62356 mps-2000 monitor v 1.0 comet.asm:567 read2 = $F397 = 62359 mps-2000 monitor v 1.0 comet.asm:568 ready = $FD0B = 64779 mps-2000 monitor v 1.0 comet.asm:2196 ready1 = $FD2D = 64813 mps-2000 monitor v 1.0 comet.asm:2214 ready2 = $FD31 = 64817 mps-2000 monitor v 1.0 comet.asm:2216 rec = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:1750 rel1 = $F3F0 = 62448 mps-2000 monitor v 1.0 comet.asm:622 rer0 = $F3B4 = 62388 mps-2000 monitor v 1.0 comet.asm:584 resaf = $F9DF = 63967 mps-2000 monitor v 1.0 comet.asm:1612 restart = $F8E9 = 63721 mps-2000 monitor v 1.0 comet.asm:1447 restr0 = $F8F9 = 63737 mps-2000 monitor v 1.0 comet.asm:1458 restr1 = $F910 = 63760 mps-2000 monitor v 1.0 comet.asm:1476 restr2 = $F91B = 63771 mps-2000 monitor v 1.0 comet.asm:1485 restr3 = $F91C = 63772 mps-2000 monitor v 1.0 comet.asm:1486 restr4 = $F939 = 63801 mps-2000 monitor v 1.0 comet.asm:1504 restr5 = $F945 = 63813 mps-2000 monitor v 1.0 comet.asm:1515 retur = $F8E5 = 63717 mps-2000 monitor v 1.0 comet.asm:1442 ri = $F872 = 63602 mps-2000 monitor v 1.0 comet.asm:1375 ribble = $F807 = 63495 mps-2000 monitor v 1.0 comet.asm:1296 ribuf = $F88F = 63631 mps-2000 monitor v 1.0 comet.asm:1393 ricas = $F882 = 63618 mps-2000 monitor v 1.0 comet.asm:1386 ricas1 = $F87E = 63614 mps-2000 monitor v 1.0 comet.asm:1383 riff = $F629 = 63017 mps-2000 monitor v 1.0 comet.asm:970 ritt = $F879 = 63609 mps-2000 monitor v 1.0 comet.asm:1379 (unused) rix = $F89D = 63645 mps-2000 monitor v 1.0 comet.asm:1402 rloc = $0002 = 2 mps-2000 monitor v 1.0 comet.asm:1690 rmd = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1775 rme = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1776 rmem = $F22A = 61994 mps-2000 monitor v 1.0 comet.asm:362 rmsk = $00F3 = 243 mps-2000 monitor v 1.0 comet.asm:57 rr0 = $00E0 = 224 mps-2000 monitor v 1.0 comet.asm:1725 rr1 = $00E1 = 225 mps-2000 monitor v 1.0 comet.asm:1733 rr2 = $00E2 = 226 mps-2000 monitor v 1.0 comet.asm:1743 rr3 = $00E3 = 227 mps-2000 monitor v 1.0 comet.asm:1744 rrd = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1763 (unused) rre = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1764 rri = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1770 (unused) rrq = $0001 = 1 mps-2000 monitor v 1.0 comet.asm:1726 rrr = $0040 = 64 mps-2000 monitor v 1.0 comet.asm:1765 rset = $0080 = 128 mps-2000 monitor v 1.0 comet.asm:1759 rst7 = $0038 = 56 mps-2000 monitor v 1.0 comet.asm:13 rtty = $0000 = 0 mps-2000 monitor v 1.0 comet.asm:68 (unused) rub = $00FF = 255 mps-2000 monitor v 1.0 comet.asm:35 (unused) ruloc = $00F7 = 247 mps-2000 monitor v 1.0 comet.asm:91 ruser = $000C = 12 mps-2000 monitor v 1.0 comet.asm:71 (unused) ruvek = $F248 = 62024 mps-2000 monitor v 1.0 comet.asm:379 rw = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1769 rws = $0004 = 4 mps-2000 monitor v 1.0 comet.asm:1736 s3 = $0080 = 128 mps-2000 monitor v 1.0 comet.asm:1741 (unused) sbyte = $F442 = 62530 mps-2000 monitor v 1.0 comet.asm:669 scip = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1737 screen = $FEFE = 65278 mps-2000 monitor v 1.0 comet.asm:2486 sekfu = $FD92 = 64914 mps-2000 monitor v 1.0 comet.asm:2277 seks = $FD77 = 64887 mps-2000 monitor v 1.0 comet.asm:2265 seksks = $FD7E = 64894 mps-2000 monitor v 1.0 comet.asm:2268 size = $F630 = 63024 mps-2000 monitor v 1.0 comet.asm:976 skr1 = $FBD6 = 64470 mps-2000 monitor v 1.0 comet.asm:2033 skr6 = $FC2C = 64556 mps-2000 monitor v 1.0 comet.asm:2077 (unused) skr8 = $FBC4 = 64452 mps-2000 monitor v 1.0 comet.asm:2025 (unused) sloc = $0017 = 23 mps-2000 monitor v 1.0 comet.asm:1676 speot = $FD07 = 64775 mps-2000 monitor v 1.0 comet.asm:2192 spol = $FDB0 = 64944 mps-2000 monitor v 1.0 comet.asm:2301 spol0 = $FDE1 = 64993 mps-2000 monitor v 1.0 comet.asm:2325 spol10 = $FE58 = 65112 mps-2000 monitor v 1.0 comet.asm:2385 spol11 = $FE2D = 65069 mps-2000 monitor v 1.0 comet.asm:2364 spol2 = $FDCF = 64975 mps-2000 monitor v 1.0 comet.asm:2316 spol3 = $FDF1 = 65009 mps-2000 monitor v 1.0 comet.asm:2334 spol4 = $FDFD = 65021 mps-2000 monitor v 1.0 comet.asm:2340 spol5 = $FDE7 = 64999 mps-2000 monitor v 1.0 comet.asm:2328 spol9 = $FE3D = 65085 mps-2000 monitor v 1.0 comet.asm:2372 srdp = $00F1 = 241 mps-2000 monitor v 1.0 comet.asm:51 srs = $0020 = 32 mps-2000 monitor v 1.0 comet.asm:1758 stabel = $F1B1 = 61873 mps-2000 monitor v 1.0 comet.asm:280 star0 = $F13A = 61754 mps-2000 monitor v 1.0 comet.asm:213 start = $F12E = 61742 mps-2000 monitor v 1.0 comet.asm:208 stfin1 = $FAC7 = 64199 mps-2000 monitor v 1.0 comet.asm:1874 sthp1 = $FA9E = 64158 mps-2000 monitor v 1.0 comet.asm:1848 sthp2 = $FAC3 = 64195 mps-2000 monitor v 1.0 comet.asm:1871 stkit = $F0F2 = 61682 mps-2000 monitor v 1.0 comet.asm:183 stlp1 = $FA95 = 64149 mps-2000 monitor v 1.0 comet.asm:1841 stlp2 = $FA88 = 64136 mps-2000 monitor v 1.0 comet.asm:1832 stlp3 = $FA64 = 64100 mps-2000 monitor v 1.0 comet.asm:1813 stnmat = $FAC1 = 64193 mps-2000 monitor v 1.0 comet.asm:1869 store = $F455 = 62549 mps-2000 monitor v 1.0 comet.asm:684 strobe = $0000 = 0 mps-2000 monitor v 1.0 comet.asm:48 strsg = $FA4C = 64076 mps-2000 monitor v 1.0 comet.asm:1797 subs = $F461 = 62561 mps-2000 monitor v 1.0 comet.asm:692 subs0 = $F465 = 62565 mps-2000 monitor v 1.0 comet.asm:694 subs1 = $F483 = 62595 mps-2000 monitor v 1.0 comet.asm:712 subs2 = $F48C = 62604 mps-2000 monitor v 1.0 comet.asm:717 subs3 = $F484 = 62596 mps-2000 monitor v 1.0 comet.asm:713 sunit = $F1C9 = 61897 mps-2000 monitor v 1.0 comet.asm:302 swp = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1738 tbl = $F159 = 61785 mps-2000 monitor v 1.0 comet.asm:234 tell = $F4E8 = 62696 mps-2000 monitor v 1.0 comet.asm:775 test = $F362 = 62306 mps-2000 monitor v 1.0 comet.asm:533 test1 = $F365 = 62309 mps-2000 monitor v 1.0 comet.asm:534 test2 = $F37A = 62330 mps-2000 monitor v 1.0 comet.asm:548 ti = $F962 = 63842 mps-2000 monitor v 1.0 comet.asm:1537 tit = $F980 = 63872 mps-2000 monitor v 1.0 comet.asm:1557 tloc = $0035 = 53 mps-2000 monitor v 1.0 comet.asm:1677 tlocx = $0025 = 37 mps-2000 monitor v 1.0 comet.asm:1678 tom = $F5F5 = 62965 mps-2000 monitor v 1.0 comet.asm:939 tom1 = $F5F8 = 62968 mps-2000 monitor v 1.0 comet.asm:940 tpck = $FCA2 = 64674 mps-2000 monitor v 1.0 comet.asm:2139 tpnot = $FCB3 = 64691 mps-2000 monitor v 1.0 comet.asm:2147 trail = $F7D9 = 63449 mps-2000 monitor v 1.0 comet.asm:1261 trans = $FB3C = 64316 mps-2000 monitor v 1.0 comet.asm:1942 trap = $F01E = 61470 mps-2000 monitor v 1.0 comet.asm:107 true = $00FF = 255 mps-2000 monitor v 1.0 comet.asm:30 tti = $00C0 = 192 mps-2000 monitor v 1.0 comet.asm:17 tto = $00C0 = 192 mps-2000 monitor v 1.0 comet.asm:18 tts = $00C1 = 193 mps-2000 monitor v 1.0 comet.asm:19 ttyin = $F851 = 63569 mps-2000 monitor v 1.0 comet.asm:1350 ttyout = $F646 = 63046 mps-2000 monitor v 1.0 comet.asm:990 type = $F48F = 62607 mps-2000 monitor v 1.0 comet.asm:721 typt0 = $F492 = 62610 mps-2000 monitor v 1.0 comet.asm:722 typt1 = $F497 = 62615 mps-2000 monitor v 1.0 comet.asm:724 typt2 = $F49E = 62622 mps-2000 monitor v 1.0 comet.asm:728 typt3 = $F4A0 = 62624 mps-2000 monitor v 1.0 comet.asm:729 ua = $0001 = 1 mps-2000 monitor v 1.0 comet.asm:1778 (unused) uas = $0001 = 1 mps-2000 monitor v 1.0 comet.asm:1734 (unused) unit = $00E8 = 232 mps-2000 monitor v 1.0 comet.asm:1790 unld = $F6EE = 63214 mps-2000 monitor v 1.0 comet.asm:1105 unlddi = $F6F7 = 63223 mps-2000 monitor v 1.0 comet.asm:1109 unlu = $F700 = 63232 mps-2000 monitor v 1.0 comet.asm:1112 vekin = $F262 = 62050 mps-2000 monitor v 1.0 comet.asm:391 vekud = $F25B = 62043 mps-2000 monitor v 1.0 comet.asm:387 verib = $F9AE = 63918 mps-2000 monitor v 1.0 comet.asm:1587 verify = $F9A2 = 63906 mps-2000 monitor v 1.0 comet.asm:1580 verio = $F9A5 = 63909 mps-2000 monitor v 1.0 comet.asm:1581 wait = $F719 = 63257 mps-2000 monitor v 1.0 comet.asm:1124 wait1 = $F70F = 63247 mps-2000 monitor v 1.0 comet.asm:1120 (unused) wcr = $0008 = 8 mps-2000 monitor v 1.0 comet.asm:1756 wd = $0080 = 128 mps-2000 monitor v 1.0 comet.asm:1752 (unused) where = $F4AF = 62639 mps-2000 monitor v 1.0 comet.asm:738 whew0 = $F4B1 = 62641 mps-2000 monitor v 1.0 comet.asm:739 wmd = $0002 = 2 mps-2000 monitor v 1.0 comet.asm:1755 wme = $0010 = 16 mps-2000 monitor v 1.0 comet.asm:1757 wmem = $F21F = 61983 mps-2000 monitor v 1.0 comet.asm:352 wr0 = $00E0 = 224 mps-2000 monitor v 1.0 comet.asm:1754 wr1 = $00E1 = 225 mps-2000 monitor v 1.0 comet.asm:1760 wr2 = $00E2 = 226 mps-2000 monitor v 1.0 comet.asm:1767 wr3 = $00E3 = 227 mps-2000 monitor v 1.0 comet.asm:1768 wr5 = $00E5 = 229 mps-2000 monitor v 1.0 comet.asm:1774 wr6 = $00E6 = 230 mps-2000 monitor v 1.0 comet.asm:1777 wrfin = $FBE3 = 64483 mps-2000 monitor v 1.0 comet.asm:2044 wrihop = $F506 = 62726 mps-2000 monitor v 1.0 comet.asm:795 write = $F50D = 62733 mps-2000 monitor v 1.0 comet.asm:798 write1 = $F4F7 = 62711 mps-2000 monitor v 1.0 comet.asm:788 wriw0 = $F51C = 62748 mps-2000 monitor v 1.0 comet.asm:804 wriw1 = $F527 = 62759 mps-2000 monitor v 1.0 comet.asm:809 wriw2 = $F539 = 62777 mps-2000 monitor v 1.0 comet.asm:819 wriw3 = $F545 = 62789 mps-2000 monitor v 1.0 comet.asm:825 wriw4 = $F551 = 62801 mps-2000 monitor v 1.0 comet.asm:832 wrq = $0002 = 2 mps-2000 monitor v 1.0 comet.asm:1727 wrr = $0080 = 128 mps-2000 monitor v 1.0 comet.asm:1766 xam = $F556 = 62806 mps-2000 monitor v 1.0 comet.asm:838 xamx0 = $F56E = 62830 mps-2000 monitor v 1.0 comet.asm:848 xamx1 = $F57A = 62842 mps-2000 monitor v 1.0 comet.asm:855 xamx10 = $F5E6 = 62950 mps-2000 monitor v 1.0 comet.asm:926 xamx2 = $F57D = 62845 mps-2000 monitor v 1.0 comet.asm:856 xamx3 = $F596 = 62870 mps-2000 monitor v 1.0 comet.asm:873 xamx4 = $F5AF = 62895 mps-2000 monitor v 1.0 comet.asm:891 xamx5 = $F5B5 = 62901 mps-2000 monitor v 1.0 comet.asm:896 xamx6 = $F5BA = 62906 mps-2000 monitor v 1.0 comet.asm:899 xamx7 = $F5BD = 62909 mps-2000 monitor v 1.0 comet.asm:900 xamx8 = $F5E3 = 62947 mps-2000 monitor v 1.0 comet.asm:925 xamx9 = $F5EB = 62955 mps-2000 monitor v 1.0 comet.asm:928 xloc = $0007 = 7 mps-2000 monitor v 1.0 comet.asm:1688 yloc = $0005 = 5 mps-2000 monitor v 1.0 comet.asm:1689 total time: 0.0439 sec. no errors