DISA42
FILE INFORMATION
FILENAME(S): DISA42
FILE TYPE(S): SEQ
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
86bbcf849c54b43ff88884afa94e65c25d38a4eeeffd314bea654da02a594cdf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA42 | SEQ | DuncanTwain | 2 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 39 37 30 30 | *=39700| 00000010: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 |. LDA 0071| 00000020: 30 2C 58 20 3B 56 55 4C 20 4F 50 45 52 41 4E 44 |0,X ;VUL OPERAND| 00000030: 20 31 3A 0D 20 20 20 20 20 20 53 54 41 20 20 31 | 1:. STA 1| 00000040: 30 39 20 20 20 20 20 3B 20 20 28 31 31 30 2C 31 |09 ; (110,1| 00000050: 30 39 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |09).. LDA | 00000060: 30 30 37 31 31 2C 58 20 3B 28 37 31 31 2B 58 2C |00711,X ;(711+X,| 00000070: 37 31 30 2B 58 29 2E 0D 20 20 20 20 20 20 53 54 |710+X).. ST| 00000080: 41 20 20 31 31 30 0D 20 20 20 20 20 20 52 54 53 |A 110. RTS| 00000090: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 |. LDA 0071| 000000A0: 30 2C 58 20 3B 56 55 4C 20 4F 50 45 52 41 4E 44 |0,X ;VUL OPERAND| 000000B0: 20 32 3A 0D 20 20 20 20 20 20 53 54 41 20 20 32 | 2:. STA 2| 000000C0: 35 31 20 20 20 20 20 3B 20 20 28 32 35 32 2C 32 |51 ; (252,2| 000000D0: 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |51).. LDA | 000000E0: 30 30 37 31 31 2C 58 20 3B 28 37 31 31 2B 58 2C |00711,X ;(711+X,| 000000F0: 37 31 30 2B 58 29 2E 0D 20 20 20 20 20 20 53 54 |710+X).. ST| 00000100: 41 20 20 32 35 32 0D 20 20 20 20 20 20 52 54 53 |A 252. RTS| 00000110: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 33 20 |. LDA 253 | 00000120: 20 20 3B 20 20 28 32 35 34 2C 32 35 33 29 0D 20 | ; (254,253). | 00000130: 20 20 20 20 20 53 54 41 20 20 32 34 37 2C 58 20 | STA 247,X | 00000140: 3B 3D 3E 28 32 34 38 2B 58 2C 32 34 37 2B 58 29 |;=>(248+X,247+X)| 00000150: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 |.. LDA 254| 00000160: 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 38 2C |. STA 248,| 00000170: 58 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |X. RTS. | 00000180: 20 20 4C 44 41 20 20 32 34 37 2C 58 20 3B 20 20 | LDA 247,X ; | 00000190: 28 32 34 38 2B 58 2C 32 34 37 2B 58 29 0D 20 20 |(248+X,247+X). | 000001A0: 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 3B | STA 253 ;| 000001B0: 3D 3E 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 |=>(254,253).. | 000001C0: 20 20 20 4C 44 41 20 20 32 34 38 2C 58 0D 20 20 | LDA 248,X. | 000001D0: 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 | STA 254. | 000001E0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 000001F0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000200: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000210: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 00000220: 20 20 2A 3D 33 39 37 34 34 0D 20 20 20 20 20 20 | *=39744. | 00000230: 53 54 59 20 20 30 30 32 20 20 20 20 20 20 3B 44 |STY 002 ;D| 00000240: 45 43 4F 4E 56 45 52 53 49 45 2E 0D 20 20 20 20 |ECONVERSIE.. | 00000250: 20 20 4C 44 41 20 20 32 35 31 20 20 20 20 20 20 | LDA 251 | 00000260: 3B 42 49 4E 41 49 52 20 4E 41 41 52 0D 20 20 20 |;BINAIR NAAR. | 00000270: 20 20 20 53 54 41 20 20 30 33 38 20 20 20 20 20 | STA 038 | 00000280: 20 3B 44 45 43 49 4D 41 41 4C 2E 0D 20 20 20 20 | ;DECIMAAL.. | 00000290: 20 20 4C 44 41 20 20 32 35 32 20 20 20 20 20 20 | LDA 252 | 000002A0: 3B 49 4E 3A 28 32 35 32 2C 32 35 31 29 2E 0D 20 |;IN:(252,251).. | 000002B0: 20 20 20 20 20 53 54 41 20 20 30 33 39 20 20 20 | STA 039 | 000002C0: 20 20 20 3B 55 49 54 3A 41 46 20 41 44 52 45 53 | ;UIT:AF ADRES| 000002D0: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 |. LDA #000 | 000002E0: 20 20 20 20 20 3B 41 55 3D 28 32 35 34 2C 32 35 | ;AU=(254,25| 000002F0: 33 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 |3).. STA 0| 00000300: 34 30 20 20 20 20 20 20 3B 41 55 2B 30 3A 31 30 |40 ;AU+0:10| 00000310: 30 30 30 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |000.. LDY #| 00000320: 30 30 34 20 20 20 20 20 20 3B 2E 2E 2E 41 55 2B |004 ;...AU+| 00000330: 34 3A 31 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |4:1.. LDA #| 00000340: 30 34 38 20 20 20 20 20 20 3B 41 53 43 49 49 2D |048 ;ASCII-| 00000350: 43 4F 44 45 2E 0D 44 43 30 30 31 20 53 54 41 20 |CODE..DC001 STA | 00000360: 28 32 35 33 29 2C 59 20 20 20 3B 56 55 4C 20 4D |(253),Y ;VUL M| 00000370: 45 54 0D 20 20 20 20 20 20 44 45 59 20 20 20 20 |ET. DEY | 00000380: 20 20 20 20 20 20 20 3B 35 20 4E 55 4C 4C 45 4E | ;5 NULLEN| 00000390: 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 44 43 30 |.. BPL DC0| 000003A0: 30 31 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |01. LDY #00| 000003B0: 30 0D 20 20 20 20 20 20 42 45 51 20 20 44 43 30 |0. BEQ DC0| 000003C0: 30 33 0D 44 43 30 30 32 20 53 45 43 20 20 20 20 |03.DC002 SEC | 000003D0: 20 20 20 20 20 20 20 3B 54 52 45 4B 20 31 30 30 | ;TREK 100| 000003E0: 30 30 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 |00. LDA 03| 000003F0: 38 20 20 20 20 20 20 3B 41 46 20 56 41 4E 0D 20 |8 ;AF VAN. | 00000400: 20 20 20 20 20 53 42 43 20 23 30 31 36 20 20 20 | SBC #016 | 00000410: 20 20 20 3B 28 34 30 2C 33 39 2C 33 38 29 2E 0D | ;(40,39,38)..| 00000420: 20 20 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 | STA 038. | 00000430: 20 20 20 20 20 4C 44 41 20 20 30 33 39 0D 20 20 | LDA 039. | 00000440: 20 20 20 20 53 42 43 20 23 30 33 39 0D 20 20 20 | SBC #039. | 00000450: 20 20 20 53 54 41 20 20 30 33 39 0D 20 20 20 20 | STA 039. | 00000460: 20 20 4C 44 41 20 20 30 34 30 0D 20 20 20 20 20 | LDA 040. | 00000470: 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 20 20 | SBC #000. | 00000480: 53 54 41 20 20 30 34 30 0D 20 20 20 20 20 20 43 |STA 040. C| 00000490: 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 54 45 |LC ;TE| 000004A0: 4C 20 31 20 4F 50 0D 20 20 20 20 20 20 4C 44 41 |L 1 OP. LDA| 000004B0: 20 28 32 35 33 29 2C 59 20 20 20 3B 42 49 4A 20 | (253),Y ;BIJ | 000004C0: 28 41 55 2B 4D 29 2E 0D 20 20 20 20 20 20 41 44 |(AU+M).. AD| 000004D0: 43 20 23 30 30 31 0D 20 20 20 20 20 20 53 54 41 |C #001. STA| 000004E0: 20 28 32 35 33 29 2C 59 0D 44 43 30 30 33 20 4C | (253),Y.DC003 L| 000004F0: 44 41 20 20 30 34 30 20 20 20 20 20 20 3B 56 45 |DA 040 ;VE| 00000500: 52 47 45 4C 49 4A 4B 45 4E 2E 0D 20 20 20 20 20 |RGELIJKEN.. | 00000510: 20 43 4D 50 20 23 30 30 30 20 20 20 20 20 20 3B | CMP #000 ;| 00000520: 28 34 30 2C 33 39 2C 33 38 29 2E 0D 20 20 20 20 |(40,39,38).. | 00000530: 20 20 42 43 43 20 20 44 43 30 30 36 20 20 20 20 | BCC DC006 | 00000540: 3B 4D 45 54 20 31 30 30 30 30 2E 0D 20 20 20 20 |;MET 10000.. | 00000550: 20 20 42 4E 45 20 20 44 43 30 30 32 20 20 20 20 | BNE DC002 | 00000560: 3B 3E 31 30 30 30 30 2E 0D 20 20 20 20 20 20 4C |;>10000.. L| 00000570: 44 41 20 20 30 33 39 0D 20 20 20 20 20 20 43 4D |DA 039. CM| 00000580: 50 20 23 30 33 39 0D 20 20 20 20 20 20 42 43 43 |P #039. BCC| 00000590: 20 20 44 43 30 30 36 0D 20 20 20 20 20 20 42 4E | DC006. BN| 000005A0: 45 20 20 44 43 30 30 32 0D 20 20 20 20 20 20 4C |E DC002. L| 000005B0: 44 41 20 20 30 33 38 0D 20 20 20 20 20 20 43 4D |DA 038. CM| 000005C0: 50 20 23 30 31 36 0D 20 20 20 20 20 20 42 43 53 |P #016. BCS| 000005D0: 20 20 44 43 30 30 32 0D 44 43 30 30 36 20 4C 44 | DC002.DC006 LD| 000005E0: 41 20 20 30 34 30 0D 20 20 20 20 20 20 42 4E 45 |A 040. BNE| 000005F0: 20 20 44 43 30 30 37 0D 20 20 20 20 20 20 4C 44 | DC007. LD| 00000600: 41 20 20 30 33 39 0D 20 20 20 20 20 20 42 4E 45 |A 039. BNE| 00000610: 20 20 44 43 30 30 37 0D 20 20 20 20 20 20 4C 44 | DC007. LD| 00000620: 41 20 20 30 33 38 0D 20 20 20 20 20 20 42 45 51 |A 038. BEQ| 00000630: 20 20 44 43 30 30 38 20 20 20 20 3B 52 45 53 54 | DC008 ;REST| 00000640: 20 4E 55 4C 2E 0D 44 43 30 30 37 20 43 4C 43 0D | NUL..DC007 CLC.| 00000650: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 36 2C | .BYTE $26,| 00000660: 30 33 38 20 3B 4D 41 41 4C 20 31 30 2E 0D 20 20 |038 ;MAAL 10.. | 00000670: 20 20 20 20 2E 42 59 54 45 20 24 32 36 2C 30 33 | .BYTE $26,03| 00000680: 39 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |9. .BYTE $2| 00000690: 36 2C 30 34 30 0D 20 20 20 20 20 20 4C 44 41 20 |6,040. LDA | 000006A0: 20 30 33 39 0D 20 20 20 20 20 20 53 54 41 20 20 | 039. STA | 000006B0: 30 34 31 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |041. LDA 0| 000006C0: 34 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 34 |40. STA 04| 000006D0: 32 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 |2. LDA 038| 000006E0: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 000006F0: 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 | .BYTE $2A. | 00000700: 20 2E 42 59 54 45 20 24 32 36 2C 30 34 31 0D 20 | .BYTE $26,041. | 00000710: 20 20 20 20 20 2E 42 59 54 45 20 24 32 36 2C 30 | .BYTE $26,0| 00000720: 34 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |42. .BYTE $| 00000730: 32 41 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |2A. .BYTE $| 00000740: 32 36 2C 30 34 31 0D 20 20 20 20 20 20 2E 42 59 |26,041. .BY| 00000750: 54 45 20 24 32 36 2C 30 34 32 0D 20 20 20 20 20 |TE $26,042. | 00000760: 20 43 4C 43 0D 20 20 20 20 20 20 41 44 43 20 20 | CLC. ADC | 00000770: 30 33 38 0D 20 20 20 20 20 20 53 54 41 20 20 30 |038. STA 0| 00000780: 33 38 0D 20 20 20 20 20 20 4C 44 41 20 20 30 34 |38. LDA 04| 00000790: 31 0D 20 20 20 20 20 20 41 44 43 20 20 30 33 39 |1. ADC 039| 000007A0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 39 0D |. STA 039.| 000007B0: 20 20 20 20 20 20 4C 44 41 20 20 30 34 32 0D 20 | LDA 042. | 000007C0: 20 20 20 20 20 41 44 43 20 20 30 34 30 0D 20 20 | ADC 040. | 000007D0: 20 20 20 20 53 54 41 20 20 30 34 30 0D 20 20 20 | STA 040. | 000007E0: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 43 4C 43 | INY. CLC| 000007F0: 0D 20 20 20 20 20 20 42 43 43 20 20 44 43 30 30 |. BCC DC00| 00000800: 33 0D 44 43 30 30 38 20 4C 44 59 20 20 30 30 32 |3.DC008 LDY 002| 00000810: 20 20 20 20 20 20 3B 55 49 54 2E 0D 20 20 20 20 | ;UIT.. | 00000820: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 00000830: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000840: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000850: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000860: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00000870: 20 20 20 20 20 2A 3D 33 39 38 38 38 0D 20 20 20 | *=39888. | 00000880: 20 20 20 53 54 58 20 20 30 33 38 20 20 20 20 20 | STX 038 | 00000890: 20 3B 44 45 43 4F 4E 56 45 52 53 49 45 0D 20 20 | ;DECONVERSIE. | 000008A0: 20 20 20 20 53 54 59 20 20 30 33 39 20 20 20 20 | STY 039 | 000008B0: 20 20 3B 42 49 4E 41 49 52 20 4E 41 41 52 0D 20 | ;BINAIR NAAR. | 000008C0: 20 20 20 20 20 4C 44 58 20 23 30 30 31 20 20 20 | LDX #001 | 000008D0: 20 20 20 3B 48 45 58 41 44 45 43 49 4D 41 41 4C | ;HEXADECIMAAL| 000008E0: 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 |.. LDY #000| 000008F0: 20 20 20 20 20 20 3B 49 4E 3A 20 42 49 4E 41 49 | ;IN: BINAI| 00000900: 52 0D 44 43 30 30 39 20 4C 44 41 20 20 32 35 31 |R.DC009 LDA 251| 00000910: 2C 58 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 |,X ;(252,251)| 00000920: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 |.. STA 002| 00000930: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 2E 42 | ;. .B| 00000940: 59 54 45 20 24 34 41 20 20 20 20 20 3B 34 20 42 |YTE $4A ;4 B| 00000950: 49 54 53 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |ITS. .BYTE | 00000960: 24 34 41 20 20 20 20 20 3B 4E 41 41 52 20 52 45 |$4A ;NAAR RE| 00000970: 43 48 54 53 2E 0D 20 20 20 20 20 20 2E 42 59 54 |CHTS.. .BYT| 00000980: 45 20 24 34 41 0D 20 20 20 20 20 20 2E 42 59 54 |E $4A. .BYT| 00000990: 45 20 24 34 41 0D 20 20 20 20 20 20 4F 52 41 20 |E $4A. ORA | 000009A0: 23 30 34 38 0D 20 20 20 20 20 20 53 54 41 20 28 |#048. STA (| 000009B0: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 |253),Y. INY| 000009C0: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 32 0D |. LDA 002.| 000009D0: 20 20 20 20 20 20 41 4E 44 20 23 30 31 35 0D 20 | AND #015. | 000009E0: 20 20 20 20 20 4F 52 41 20 23 30 34 38 0D 20 20 | ORA #048. | 000009F0: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00000A00: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00000A10: 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 44 |DEX. BPL D| 00000A20: 43 30 30 39 0D 20 20 20 20 20 20 44 45 59 0D 44 |C009. DEY.D| 00000A30: 43 30 31 30 20 4C 44 41 20 28 32 35 33 29 2C 59 |C010 LDA (253),Y| 00000A40: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 35 38 20 |. CMP #058 | 00000A50: 20 20 20 20 20 3B 48 45 58 41 44 45 43 49 4D 41 | ;HEXADECIMA| 00000A60: 41 4C 0D 20 20 20 20 20 20 42 43 43 20 20 44 43 |AL. BCC DC| 00000A70: 30 31 31 20 20 20 20 3B 54 45 4B 45 4E 2E 0D 20 |011 ;TEKEN.. | 00000A80: 20 20 20 20 20 41 44 43 20 23 30 30 36 0D 20 20 | ADC #006. | 00000A90: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00000AA0: 44 43 30 31 31 20 44 45 59 0D 20 20 20 20 20 20 |DC011 DEY. | 00000AB0: 42 50 4C 20 20 44 43 30 31 30 0D 20 20 20 20 20 |BPL DC010. | 00000AC0: 20 4C 44 58 20 20 30 33 38 0D 20 20 20 20 20 20 | LDX 038. | 00000AD0: 4C 44 59 20 20 30 33 39 0D 20 20 20 20 20 20 52 |LDY 039. R| 00000AE0: 54 53 20 20 20 20 20 20 20 20 20 20 20 3B 55 49 |TS ;UI| 00000AF0: 54 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |T.. NOP. | 00000B00: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00000B10: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000B20: 20 2E 45 4E 44 0D | .END. |
*=39700. LDA 00710,X ;VUL
OPERAND 1:. STA 109 ; (110,1
09).. LDA 00711,X ;(711+X,710+X)..
STA 110. RTS. LDA 0071
0,X ;VUL OPERAND 2:. STA 251 ;
(252,251).. LDA 00711,X ;(711+X,
710+X).. STA 252. RTS. L
DA 253 ; (254,253). STA 247,X
;=>(248+X,247+X).. LDA 254. S
TA 248,X. RTS. LDA 247,X ;
(248+X,247+X). STA 253 ;=>(254,2
53).. LDA 248,X. STA 254.
RTS. NOP. NOP. NOP.
NOP. NOP. *=39744.
STY 002 ;DECONVERSIE.. LDA 2
51 ;BINAIR NAAR. STA 038
;DECIMAAL.. LDA 252 ;IN:(252
,251).. STA 039 ;UIT:AF ADRES
. LDA #000 ;AU=(254,253)..
STA 040 ;AU+0:10000.. LDY #
004 ;...AU+4:1.. LDA #048
;ASCII-CODE..DC001 STA (253),Y ;VUL M
ET. DEY ;5 NULLEN..
BPL DC001. LDY #000. BEQ DC0
03.DC002 SEC ;TREK 10000.
LDA 038 ;AF VAN. SBC #016
;(40,39,38).. STA 038. LDA
039. SBC #039. STA 039.
LDA 040. SBC #000. STA 040
. CLC ;TEL 1 OP. LDA
(253),Y ;BIJ (AU+M).. ADC #001.
STA (253),Y.DC003 LDA 040 ;VE
RGELIJKEN.. CMP #000 ;(40,39,3
8).. BCC DC006 ;MET 10000..
BNE DC002 ;>10000.. LDA 039.
CMP #039. BCC DC006. BN
E DC002. LDA 038. CMP #016.
BCS DC002.DC006 LDA 040. BNE
DC007. LDA 039. BNE DC007.
LDA 038. BEQ DC008 ;REST
NUL..DC007 CLC. .BYTE $26,038 ;MAA
L 10.. .BYTE $26,039. .BYTE $2
6,040. LDA 039. STA 041.
LDA 040. STA 042. LDA 038
. CLC. .BYTE $2A. .BYTE $
26,041. .BYTE $26,042. .BYTE $
2A. .BYTE $26,041. .BYTE $26,0
42. CLC. ADC 038. STA 0
38. LDA 041. ADC 039. S
TA 039. LDA 042. ADC 040.
STA 040. INY. CLC. B
CC DC003.DC008 LDY 002 ;UIT..
RTS. NOP. NOP. NOP.
NOP. NOP. NOP. NOP.
*=39888. STX 038 ;DECONV
ERSIE. STY 039 ;BINAIR NAAR.
LDX #001 ;HEXADECIMAAL..
LDY #000 ;IN: BINAIR.DC009 LDA 251
,X ;(252,251).. STA 002 ;.
.BYTE $4A ;4 BITS. .BYTE
$4A ;NAAR RECHTS.. .BYTE $4A.
.BYTE $4A. ORA #048. STA (
253),Y. INY. LDA 002. AN
D #015. ORA #048. STA (253),Y.
INY. DEX. BPL DC009.
DEY.DC010 LDA (253),Y. CMP #058
;HEXADECIMAAL. BCC DC011 ;
TEKEN.. ADC #006. STA (253),Y.
DC011 DEY. BPL DC010. LDX 03
8. LDY 039. RTS ;UI
T.. NOP. NOP. NOP. N
OP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL