DISA49
FILE INFORMATION
FILENAME(S): DISA49
FILE TYPE(S): SEQ
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
46dc662315cc32a876671636b080e95531e7ec442584adad373eaa7a01f26c09
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA49 | SEQ | DuncanTwain | 2 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 39 39 34 34 | *=39944| 00000010: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 | 00000020: 20 20 20 3B 43 4F 4E 56 45 52 53 49 45 0D 20 20 | ;CONVERSIE. | 00000030: 20 20 20 20 53 54 59 20 20 32 35 31 20 20 20 20 | STY 251 | 00000040: 3B 44 45 43 2E 2D 3E 42 49 4E 41 49 52 2E 0D 20 |;DEC.->BINAIR.. | 00000050: 20 20 20 20 20 53 54 59 20 20 32 35 32 20 20 20 | STY 252 | 00000060: 20 3B 49 4E 3A 41 44 52 45 53 20 4D 53 49 47 2E | ;IN:ADRES MSIG.| 00000070: 0D 44 58 30 30 31 20 4C 44 41 20 28 32 35 33 29 |.DX001 LDA (253)| 00000080: 2C 59 20 3B 3D 28 32 35 34 2C 32 35 33 29 2E 0D |,Y ;=(254,253)..| 00000090: 20 20 20 20 20 20 53 45 43 20 20 20 20 20 20 20 | SEC | 000000A0: 20 20 3B 55 49 54 3A 28 32 35 32 2C 32 35 31 29 | ;UIT:(252,251)| 000000B0: 2E 0D 20 20 20 20 20 20 53 42 43 20 23 30 34 38 |.. SBC #048| 000000C0: 20 20 20 20 3B 44 45 43 49 4D 41 41 4C 3F 0D 20 | ;DECIMAAL?. | 000000D0: 20 20 20 20 20 42 4D 49 20 20 44 58 30 30 32 0D | BMI DX002.| 000000E0: 20 20 20 20 20 20 43 4D 50 20 23 30 31 30 0D 20 | CMP #010. | 000000F0: 20 20 20 20 20 42 43 53 20 20 44 58 30 30 32 0D | BCS DX002.| 00000100: 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 20 | STA 002 | 00000110: 20 20 3B 4A 41 3A 49 4E 20 28 30 30 32 29 2E 0D | ;JA:IN (002)..| 00000120: 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 | TYA | 00000130: 20 20 3B 52 45 44 20 28 59 29 2E 0D 20 20 20 20 | ;RED (Y).. | 00000140: 20 20 50 48 41 0D 20 20 20 20 20 20 43 4C 43 0D | PHA. CLC.| 00000150: 20 20 20 20 20 20 52 4F 4C 20 20 32 35 31 20 20 | ROL 251 | 00000160: 20 20 3B 32 2A 52 45 53 55 4C 54 41 41 54 20 49 | ;2*RESULTAAT I| 00000170: 4E 0D 20 20 20 20 20 20 4C 44 59 20 20 32 35 31 |N. LDY 251| 00000180: 20 20 20 20 3B 28 58 2C 59 29 20 45 56 45 4E 2E | ;(X,Y) EVEN.| 00000190: 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 35 32 0D |. ROL 252.| 000001A0: 20 20 20 20 20 20 4C 44 58 20 20 32 35 32 0D 20 | LDX 252. | 000001B0: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C | CLC. L| 000001C0: 44 41 20 20 32 35 31 20 20 20 20 3B 28 32 35 32 |DA 251 ;(252| 000001D0: 2C 41 29 20 54 57 45 45 0D 20 20 20 20 20 20 2E |,A) TWEE. .| 000001E0: 42 59 54 45 20 24 32 41 20 20 20 3B 4E 41 41 52 |BYTE $2A ;NAAR| 000001F0: 20 4C 49 4E 4B 53 2E 0D 20 20 20 20 20 20 52 4F | LINKS.. RO| 00000200: 4C 20 20 32 35 32 0D 20 20 20 20 20 20 2E 42 59 |L 252. .BY| 00000210: 54 45 20 24 32 41 0D 20 20 20 20 20 20 52 4F 4C |TE $2A. ROL| 00000220: 20 20 32 35 32 0D 20 20 20 20 20 20 43 4C 43 0D | 252. CLC.| 00000230: 20 20 20 20 20 20 41 44 43 20 20 30 30 32 20 20 | ADC 002 | 00000240: 20 20 3B 43 49 4A 46 45 52 20 45 52 42 49 4A 2E | ;CIJFER ERBIJ.| 00000250: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D |. STA 251.| 00000260: 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 0D 20 | LDA 252. | 00000270: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. | 00000280: 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 | STA 252. | 00000290: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B | CLC ;| 000002A0: 28 58 2C 59 29 20 45 52 42 49 4A 2E 0D 20 20 20 |(X,Y) ERBIJ.. | 000002B0: 20 20 20 54 59 41 0D 20 20 20 20 20 20 41 44 43 | TYA. ADC| 000002C0: 20 20 32 35 31 0D 20 20 20 20 20 20 53 54 41 20 | 251. STA | 000002D0: 20 32 35 31 0D 20 20 20 20 20 20 54 58 41 0D 20 | 251. TXA. | 000002E0: 20 20 20 20 20 41 44 43 20 20 32 35 32 0D 20 20 | ADC 252. | 000002F0: 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 | STA 252. | 00000300: 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B | PLA ;| 00000310: 48 45 52 53 54 45 4C 20 28 59 29 2E 0D 20 20 20 |HERSTEL (Y).. | 00000320: 20 20 20 54 41 59 0D 44 58 30 30 32 20 49 4E 59 | TAY.DX002 INY| 00000330: 0D 20 20 20 20 20 20 43 50 59 20 23 30 30 35 20 |. CPY #005 | 00000340: 20 20 20 3B 30 2E 2E 2E 34 2E 0D 20 20 20 20 20 | ;0...4.. | 00000350: 20 42 43 43 20 20 44 58 30 30 31 0D 20 20 20 20 | BCC DX001. | 00000360: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 00000370: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000380: 4E 4F 50 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |NOP. LDY #0| 00000390: 30 30 20 20 20 20 3B 43 4F 4E 56 45 52 53 49 45 |00 ;CONVERSIE| 000003A0: 0D 20 20 20 20 20 20 53 54 59 20 20 32 35 31 20 |. STY 251 | 000003B0: 20 20 20 3B 48 45 58 41 44 45 43 2E 2D 3E 42 49 | ;HEXADEC.->BI| 000003C0: 4E 2E 0D 20 20 20 20 20 20 53 54 59 20 20 32 35 |N.. STY 25| 000003D0: 32 20 20 20 20 3B 49 4E 3A 41 44 52 45 53 20 4D |2 ;IN:ADRES M| 000003E0: 53 49 47 2E 0D 44 58 30 30 33 20 4C 44 41 20 28 |SIG..DX003 LDA (| 000003F0: 32 35 33 29 2C 59 20 3B 3D 28 32 35 34 2C 32 35 |253),Y ;=(254,25| 00000400: 33 29 2E 0D 20 20 20 20 20 20 53 45 43 20 20 20 |3).. SEC | 00000410: 20 20 20 20 20 20 3B 55 49 54 3A 28 32 35 32 2C | ;UIT:(252,| 00000420: 32 35 31 29 2E 0D 20 20 20 20 20 20 53 42 43 20 |251).. SBC | 00000430: 23 30 34 38 20 20 20 20 3B 48 45 58 41 44 45 43 |#048 ;HEXADEC| 00000440: 2E 3F 0D 20 20 20 20 20 20 42 4D 49 20 20 44 58 |.?. BMI DX| 00000450: 30 30 35 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |005. CMP #0| 00000460: 31 30 0D 20 20 20 20 20 20 42 43 43 20 20 44 58 |10. BCC DX| 00000470: 30 30 34 0D 20 20 20 20 20 20 53 42 43 20 23 30 |004. SBC #0| 00000480: 30 37 0D 20 20 20 20 20 20 43 4D 50 20 23 30 31 |07. CMP #01| 00000490: 30 0D 20 20 20 20 20 20 42 43 43 20 20 44 58 30 |0. BCC DX0| 000004A0: 30 35 0D 20 20 20 20 20 20 43 4D 50 20 23 30 31 |05. CMP #01| 000004B0: 36 0D 20 20 20 20 20 20 42 43 53 20 20 44 58 30 |6. BCS DX0| 000004C0: 30 35 0D 44 58 30 30 34 20 54 41 58 20 20 20 20 |05.DX004 TAX | 000004D0: 20 20 20 20 20 3B 4A 41 3A 28 32 35 32 2C 32 35 | ;JA:(252,25| 000004E0: 31 29 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |1). LDA 25| 000004F0: 31 20 20 20 20 3B 34 20 4E 41 41 52 20 4C 49 4E |1 ;4 NAAR LIN| 00000500: 4B 53 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |KS.. .BYTE | 00000510: 24 32 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 |$2A. ROL 2| 00000520: 35 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |52. .BYTE $| 00000530: 32 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 35 |2A. ROL 25| 00000540: 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |2. .BYTE $2| 00000550: 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 35 32 |A. ROL 252| 00000560: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 |. .BYTE $2A| 00000570: 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 35 32 0D |. ROL 252.| 00000580: 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 | STA 251. | 00000590: 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 4F | TXA. O| 000005A0: 52 41 20 20 32 35 31 0D 20 20 20 20 20 20 53 54 |RA 251. ST| 000005B0: 41 20 20 32 35 31 0D 44 58 30 30 35 20 49 4E 59 |A 251.DX005 INY| 000005C0: 0D 20 20 20 20 20 20 43 50 59 20 23 30 30 34 20 |. CPY #004 | 000005D0: 20 20 20 3B 30 2E 2E 2E 34 2E 0D 20 20 20 20 20 | ;0...4.. | 000005E0: 20 42 43 43 20 20 44 58 30 30 33 0D 20 20 20 20 | BCC DX003. | 000005F0: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 00000600: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000610: 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 34 |NOP. *=4| 00000620: 30 30 37 31 0D 20 20 20 20 20 20 4C 44 59 20 23 |0071. LDY #| 00000630: 30 30 30 20 20 20 20 3B 41 43 43 45 50 54 20 53 |000 ;ACCEPT S| 00000640: 54 52 49 4E 47 2E 0D 41 54 30 30 31 20 4A 53 52 |TRING..AT001 JSR| 00000650: 20 20 41 54 30 30 39 20 20 3B 54 4F 45 54 53 20 | AT009 ;TOETS | 00000660: 49 4E 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 20 |IN.. INY | 00000670: 20 20 20 20 20 20 3B 4E 41 20 4C 45 4E 47 54 45 | ;NA LENGTE| 00000680: 20 49 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 | IN.. LDA | 00000690: 30 30 32 20 20 20 20 3B 54 45 4B 45 4E 2E 0D 20 |002 ;TEKEN.. | 000006A0: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 000006B0: 20 3B 49 4E 20 53 54 52 49 4E 47 2E 0D 20 20 20 | ;IN STRING.. | 000006C0: 20 20 20 43 4D 50 20 20 32 35 32 20 20 20 20 3B | CMP 252 ;| 000006D0: 49 53 20 41 46 53 4C 55 49 54 3F 0D 20 20 20 20 |IS AFSLUIT?. | 000006E0: 20 20 42 45 51 20 20 41 54 30 30 32 20 20 3B 4A | BEQ AT002 ;J| 000006F0: 41 3A 20 2D 2D 2D 3E 5B 41 54 30 30 32 5D 0D 20 |A: --->[AT002]. | 00000700: 20 20 20 20 20 43 50 59 20 20 32 35 31 20 20 20 | CPY 251 | 00000710: 20 3B 4E 45 45 3A 4D 41 58 2E 4C 45 4E 47 54 45 | ;NEE:MAX.LENGTE| 00000720: 3F 0D 20 20 20 20 20 20 42 43 43 20 20 41 54 30 |?. BCC AT0| 00000730: 30 31 20 20 3B 4E 45 45 3A 56 4F 4C 47 45 4E 44 |01 ;NEE:VOLGEND| 00000740: 20 54 4B 2E 0D 41 54 30 30 32 20 54 59 41 20 20 | TK..AT002 TYA | 00000750: 20 20 20 20 20 20 20 3B 5A 45 54 20 4C 45 4E 47 | ;ZET LENG| 00000760: 54 45 20 49 4E 2E 0D 20 20 20 20 20 20 4C 44 59 |TE IN.. LDY| 00000770: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA | 00000780: 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 52 54 |(253),Y. RT| 00000790: 53 0D 41 54 30 30 33 20 54 59 41 20 20 20 20 20 |S.AT003 TYA | 000007A0: 20 20 20 20 3B 54 4F 45 54 53 3D 3E 28 58 29 2E | ;TOETS=>(X).| 000007B0: 0D 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 |. PHA | 000007C0: 20 20 20 3B 52 45 44 20 28 59 29 2E 0D 41 54 30 | ;RED (Y)..AT0| 000007D0: 30 34 20 4C 44 41 20 20 31 39 37 20 20 20 20 3B |04 LDA 197 ;| 000007E0: 54 4F 45 54 53 20 49 4E 3F 0D 20 20 20 20 20 20 |TOETS IN?. | 000007F0: 43 4D 50 20 23 30 36 34 20 20 20 20 3B 4E 45 45 |CMP #064 ;NEE| 00000800: 3A 2D 2D 2D 3E 5B 41 54 30 30 34 5D 0D 20 20 20 |:--->[AT004]. | 00000810: 20 20 20 42 45 51 20 20 41 54 30 30 34 0D 41 54 | BEQ AT004.AT| 00000820: 30 30 35 20 4A 53 52 20 20 36 35 35 30 38 20 20 |005 JSR 65508 | 00000830: 3B 4A 41 3A 54 45 4B 45 4E 20 55 49 54 0D 20 20 |;JA:TEKEN UIT. | 00000840: 20 20 20 20 43 4D 50 20 23 30 30 30 20 20 20 20 | CMP #000 | 00000850: 3B 42 55 46 46 45 52 2E 20 4E 49 45 54 53 3A 0D |;BUFFER. NIETS:.| 00000860: 20 20 20 20 20 20 42 45 51 20 20 41 54 30 30 35 | BEQ AT005| 00000870: 20 20 3B 4E 4F 47 20 45 45 4E 53 2E 0D 20 20 20 | ;NOG EENS.. | 00000880: 20 20 20 54 41 58 20 20 20 20 20 20 20 20 20 3B | TAX ;| 00000890: 54 45 4B 45 4E 20 49 4E 20 58 2E 0D 41 54 30 30 |TEKEN IN X..AT00| 000008A0: 36 20 4C 44 41 20 20 31 39 37 20 20 20 20 3B 54 |6 LDA 197 ;T| 000008B0: 4F 45 54 53 20 4C 4F 53 3F 0D 20 20 20 20 20 20 |OETS LOS?. | 000008C0: 43 4D 50 20 23 30 36 34 20 20 20 20 3B 4A 41 3A |CMP #064 ;JA:| 000008D0: 0D 20 20 20 20 20 20 42 4E 45 20 20 41 54 30 30 |. BNE AT00| 000008E0: 36 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 |6. PLA | 000008F0: 20 20 20 20 3B 48 45 52 53 54 45 4C 20 28 59 29 | ;HERSTEL (Y)| 00000900: 2E 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 |.. TAY. | 00000910: 20 20 52 54 53 0D 20 20 20 20 20 20 4C 44 59 20 | RTS. LDY | 00000920: 20 32 35 31 20 20 20 20 3B 54 52 41 4E 53 50 4F | 251 ;TRANSPO| 00000930: 52 54 2E 0D 41 54 30 30 37 20 4C 44 41 20 28 31 |RT..AT007 LDA (1| 00000940: 30 37 29 2C 59 20 3B 41 48 3D 28 31 30 38 2C 31 |07),Y ;AH=(108,1| 00000950: 30 37 29 2E 0D 20 20 20 20 20 20 53 54 41 20 28 |07).. STA (| 00000960: 32 35 33 29 2C 59 20 3B 41 42 3D 28 32 35 34 2C |253),Y ;AB=(254,| 00000970: 32 35 33 29 2E 0D 20 20 20 20 20 20 44 45 59 20 |253).. DEY | 00000980: 20 20 20 20 20 20 20 20 3B 28 32 35 31 29 3D 4E | ;(251)=N| 00000990: 54 20 2D 20 31 2E 0D 20 20 20 20 20 20 42 50 4C |T - 1.. BPL| 000009A0: 20 20 41 54 30 30 37 0D 20 20 20 20 20 20 52 54 | AT007. RT| 000009B0: 53 0D 20 20 20 20 20 20 4C 44 59 20 20 32 35 31 |S. LDY 251| 000009C0: 20 20 20 20 3B 56 55 4C 2E 0D 20 20 20 20 20 20 | ;VUL.. | 000009D0: 4C 44 41 20 20 32 35 32 20 20 20 20 3B 49 4E 48 |LDA 252 ;INH| 000009E0: 4F 55 44 3D 28 32 35 32 29 2E 0D 41 54 30 30 38 |OUD=(252)..AT008| 000009F0: 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B 41 56 | STA (253),Y ;AV| 00000A00: 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 |=(254,253).. | 00000A10: 20 20 44 45 59 20 20 20 20 20 20 20 20 20 3B 28 | DEY ;(| 00000A20: 32 35 31 29 3D 4E 56 20 2D 20 31 2E 0D 20 20 20 |251)=NV - 1.. | 00000A30: 20 20 20 42 50 4C 20 20 41 54 30 30 38 0D 20 20 | BPL AT008. | 00000A40: 20 20 20 20 52 54 53 0D 41 54 30 30 39 20 4A 53 | RTS.AT009 JS| 00000A50: 52 20 20 41 54 30 30 33 20 20 3B 41 43 43 45 50 |R AT003 ;ACCEP| 00000A60: 54 20 54 4F 45 54 53 0D 20 20 20 20 20 20 54 58 |T TOETS. TX| 00000A70: 41 20 20 20 20 20 20 20 20 20 3B 4D 45 54 20 43 |A ;MET C| 00000A80: 48 45 43 4B 2E 0D 20 20 20 20 20 20 43 4D 50 20 |HECK.. CMP | 00000A90: 20 32 35 32 20 20 20 20 3B 45 49 4E 44 54 45 4B | 252 ;EINDTEK| 00000AA0: 45 4E 3F 0D 20 20 20 20 20 20 42 45 51 20 20 41 |EN?. BEQ A| 00000AB0: 54 30 31 30 20 20 3B 4A 41 3A 20 54 45 52 55 47 |T010 ;JA: TERUG| 00000AC0: 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 34 38 |.. CMP #048| 00000AD0: 20 20 20 20 3B 30 2E 2E 2E 2E 2E 39 3F 0D 20 20 | ;0.....9?. | 00000AE0: 20 20 20 20 42 43 43 20 20 41 54 30 30 39 20 20 | BCC AT009 | 00000AF0: 3B 4E 45 45 3A 53 4B 49 50 2E 0D 20 20 20 20 20 |;NEE:SKIP.. | 00000B00: 20 43 4D 50 20 23 30 35 38 20 20 20 20 3B 3A 2E | CMP #058 ;:.| 00000B10: 2E 2E 2E 2E 40 3F 0D 20 20 20 20 20 20 42 43 43 |....@?. BCC| 00000B20: 20 20 41 54 30 31 30 20 20 3B 4E 45 45 3A 53 4B | AT010 ;NEE:SK| 00000B30: 49 50 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |IP.. CMP #0| 00000B40: 36 35 20 20 20 20 3B 41 2E 2E 2E 2E 2E 5A 3F 0D |65 ;A.....Z?.| 00000B50: 20 20 20 20 20 20 42 43 43 20 20 41 54 30 30 39 | BCC AT009| 00000B60: 20 20 3B 4E 45 45 3A 53 4B 49 50 2E 0D 20 20 20 | ;NEE:SKIP.. | 00000B70: 20 20 20 43 4D 50 20 23 30 39 31 20 20 20 20 3B | CMP #091 ;| 00000B80: 4A 41 3A 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 |JA:NAAR H.P.. | 00000B90: 20 20 20 42 43 53 20 20 41 54 30 30 39 0D 41 54 | BCS AT009.AT| 00000BA0: 30 31 30 20 4A 53 52 20 20 36 35 34 39 30 20 20 |010 JSR 65490 | 00000BB0: 3B 28 41 29 20 45 43 48 4F 2E 0D 20 20 20 20 20 |;(A) ECHO.. | 00000BC0: 20 53 54 41 20 20 30 30 32 20 20 20 20 3B 28 41 | STA 002 ;(A| 00000BD0: 29 3D 3E 28 32 29 2E 0D 20 20 20 20 20 20 52 54 |)=>(2).. RT| 00000BE0: 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |S. NOP. | 00000BF0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A | NOP. *| 00000C00: 3D 34 30 31 37 36 0D 20 20 20 20 20 20 4C 44 41 |=40176. LDA| 00000C10: 20 20 30 30 31 20 20 20 3B 4C 4F 52 41 4D 20 49 | 001 ;LORAM I| 00000C20: 4E 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 32 35 |N.. AND #25| 00000C30: 34 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 31 |4. STA 001| 00000C40: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00000C50: 20 4C 44 41 20 20 30 30 31 20 20 20 3B 48 49 52 | LDA 001 ;HIR| 00000C60: 41 4D 20 49 4E 2E 0D 20 20 20 20 20 20 41 4E 44 |AM IN.. AND| 00000C70: 20 23 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 | #253. STA | 00000C80: 20 30 30 31 0D 20 20 20 20 20 20 52 54 53 0D 20 | 001. RTS. | 00000C90: 20 20 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 | LDA 001 | 00000CA0: 3B 4C 4F 52 41 4D 20 55 49 54 2E 0D 20 20 20 20 |;LORAM UIT.. | 00000CB0: 20 20 4F 52 41 20 23 30 30 31 0D 20 20 20 20 20 | ORA #001. | 00000CC0: 20 53 54 41 20 20 30 30 31 0D 20 20 20 20 20 20 | STA 001. | 00000CD0: 52 54 53 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |RTS. LDA 0| 00000CE0: 30 31 20 20 20 3B 48 49 52 41 4D 20 55 49 54 2E |01 ;HIRAM UIT.| 00000CF0: 0D 20 20 20 20 20 20 4F 52 41 20 23 30 30 32 0D |. ORA #002.| 00000D00: 20 20 20 20 20 20 53 54 41 20 20 30 30 31 0D 20 | STA 001. | 00000D10: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4C | RTS. L| 00000D20: 44 41 20 20 35 36 33 33 34 20 3B 56 45 52 42 49 |DA 56334 ;VERBI| 00000D30: 45 44 45 4E 0D 20 20 20 20 20 20 41 4E 44 20 23 |EDEN. AND #| 00000D40: 32 35 34 20 20 20 3B 54 49 4D 45 52 49 4E 54 45 |254 ;TIMERINTE| 00000D50: 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 53 54 |RRUPTS.. ST| 00000D60: 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 52 |A 56334. R| 00000D70: 54 53 0D 20 20 20 20 20 20 4C 44 41 20 20 35 36 |TS. LDA 56| 00000D80: 33 33 34 20 3B 54 4F 45 53 54 41 41 4E 0D 20 20 |334 ;TOESTAAN. | 00000D90: 20 20 20 20 4F 52 41 20 23 30 30 31 20 20 20 3B | ORA #001 ;| 00000DA0: 54 49 4D 45 52 49 4E 54 45 52 52 55 50 54 53 2E |TIMERINTERRUPTS.| 00000DB0: 0D 20 20 20 20 20 20 53 54 41 20 20 35 36 33 33 |. STA 5633| 00000DC0: 34 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |4. RTS. | 00000DD0: 20 20 2E 45 4E 44 0D | .END. |
*=39944. LDY #000 ;CONV
ERSIE. STY 251 ;DEC.->BINAIR..
STY 252 ;IN:ADRES MSIG..DX001 L
DA (253),Y ;=(254,253).. SEC
;UIT:(252,251).. SBC #048 ;DEC
IMAAL?. BMI DX002. CMP #010.
BCS DX002. STA 002 ;JA:IN
(002).. TYA ;RED (Y)..
PHA. CLC. ROL 251 ;2*RES
ULTAAT IN. LDY 251 ;(X,Y) EVEN.
. ROL 252. LDX 252. CLC
. LDA 251 ;(252,A) TWEE. .
BYTE $2A ;NAAR LINKS.. ROL 252.
.BYTE $2A. ROL 252. CLC.
ADC 002 ;CIJFER ERBIJ.. S
TA 251. LDA 252. ADC #000.
STA 252. CLC ;(X,Y) ER
BIJ.. TYA. ADC 251. STA
251. TXA. ADC 252. STA
252. PLA ;HERSTEL (Y)..
TAY.DX002 INY. CPY #005 ;0...
4.. BCC DX001. RTS. NOP.
NOP. NOP. LDY #000 ;C
ONVERSIE. STY 251 ;HEXADEC.->BI
N.. STY 252 ;IN:ADRES MSIG..DX0
03 LDA (253),Y ;=(254,253).. SEC
;UIT:(252,251).. SBC #048
;HEXADEC.?. BMI DX005. CMP #0
10. BCC DX004. SBC #007.
CMP #010. BCC DX005. CMP #01
6. BCS DX005.DX004 TAX ;JA
:(252,251). LDA 251 ;4 NAAR LIN
KS.. .BYTE $2A. ROL 252.
.BYTE $2A. ROL 252. .BYTE $2
A. ROL 252. .BYTE $2A. R
OL 252. STA 251. TXA. O
RA 251. STA 251.DX005 INY. C
PY #004 ;0...4.. BCC DX003.
RTS. NOP. NOP. NOP.
*=40071. LDY #000 ;ACCEPT S
TRING..AT001 JSR AT009 ;TOETS IN..
INY ;NA LENGTE IN.. LDA
002 ;TEKEN.. STA (253),Y ;IN STR
ING.. CMP 252 ;IS AFSLUIT?.
BEQ AT002 ;JA: --->[AT002]. CPY
251 ;NEE:MAX.LENGTE?. BCC AT0
01 ;NEE:VOLGEND TK..AT002 TYA ;
ZET LENGTE IN.. LDY #000. STA
(253),Y. RTS.AT003 TYA ;TOE
TS=>(X).. PHA ;RED (Y)..AT0
04 LDA 197 ;TOETS IN?. CMP #064
;NEE:--->[AT004]. BEQ AT004.AT
005 JSR 65508 ;JA:TEKEN UIT. CMP
#000 ;BUFFER. NIETS:. BEQ AT005
;NOG EENS.. TAX ;TEKEN IN
X..AT006 LDA 197 ;TOETS LOS?.
CMP #064 ;JA:. BNE AT006.
PLA ;HERSTEL (Y).. TAY.
RTS. LDY 251 ;TRANSPORT..AT00
7 LDA (107),Y ;AH=(108,107).. STA (
253),Y ;AB=(254,253).. DEY
;(251)=NT - 1.. BPL AT007. RT
S. LDY 251 ;VUL.. LDA 252
;INHOUD=(252)..AT008 STA (253),Y ;AV
=(254,253).. DEY ;(251)=NV
- 1.. BPL AT008. RTS.AT009 JS
R AT003 ;ACCEPT TOETS. TXA
;MET CHECK.. CMP 252 ;EINDTEK
EN?. BEQ AT010 ;JA: TERUG..
CMP #048 ;0.....9?. BCC AT009
;NEE:SKIP.. CMP #058 ;:.....@?.
BCC AT010 ;NEE:SKIP.. CMP #0
65 ;A.....Z?. BCC AT009 ;NEE:S
KIP.. CMP #091 ;JA:NAAR H.P..
BCS AT009.AT010 JSR 65490 ;(A) ECH
O.. STA 002 ;(A)=>(2).. RT
S. NOP. NOP. *=40176.
LDA 001 ;LORAM IN.. AND #25
4. STA 001. RTS. LDA 00
1 ;HIRAM IN.. AND #253. STA
001. RTS. LDA 001 ;LORAM U
IT.. ORA #001. STA 001.
RTS. LDA 001 ;HIRAM UIT.. O
RA #002. STA 001. RTS. L
DA 56334 ;VERBIEDEN. AND #254 ;T
IMERINTERRUPTS.. STA 56334. R
TS. LDA 56334 ;TOESTAAN. ORA
#001 ;TIMERINTERRUPTS.. STA 5633
4. RTS. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL