SOM
FILE INFORMATION
FILENAME(S): SOM
FILE TYPE(S): DEL
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
f2bde4f4f21120a4a65d923dccf7632cc77a8ea6e7f9b4f8c4f3728a7448adc5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | SOM | DEL | DuncanTwain | 19 | 8 | 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 20 20 20 20 20 20 20 20 20 2A | .END. *| 00000B30: 3D 33 39 39 34 34 0D 20 20 20 20 20 20 4C 44 59 |=39944. LDY| 00000B40: 20 23 30 30 30 20 20 20 20 3B 43 4F 4E 56 45 52 | #000 ;CONVER| 00000B50: 53 49 45 0D 20 20 20 20 20 20 53 54 59 20 20 32 |SIE. STY 2| 00000B60: 35 31 20 20 20 20 3B 44 45 43 2E 2D 3E 42 49 4E |51 ;DEC.->BIN| 00000B70: 41 49 52 2E 0D 20 20 20 20 20 20 53 54 59 20 20 |AIR.. STY | 00000B80: 32 35 32 20 20 20 20 3B 49 4E 3A 41 44 52 45 53 |252 ;IN:ADRES| 00000B90: 20 4D 53 49 47 2E 0D 44 58 30 30 31 20 4C 44 41 | MSIG..DX001 LDA| 00000BA0: 20 28 32 35 33 29 2C 59 20 3B 3D 28 32 35 34 2C | (253),Y ;=(254,| 00000BB0: 32 35 33 29 2E 0D 20 20 20 20 20 20 53 45 43 20 |253).. SEC | 00000BC0: 20 20 20 20 20 20 20 20 3B 55 49 54 3A 28 32 35 | ;UIT:(25| 00000BD0: 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 53 42 |2,251).. SB| 00000BE0: 43 20 23 30 34 38 20 20 20 20 3B 44 45 43 49 4D |C #048 ;DECIM| 00000BF0: 41 41 4C 3F 0D 20 20 20 20 20 20 42 4D 49 20 20 |AAL?. BMI | 00000C00: 44 58 30 30 32 0D 20 20 20 20 20 20 43 4D 50 20 |DX002. CMP | 00000C10: 23 30 31 30 0D 20 20 20 20 20 20 42 43 53 20 20 |#010. BCS | 00000C20: 44 58 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 |DX002. STA | 00000C30: 20 30 30 32 20 20 20 20 3B 4A 41 3A 49 4E 20 28 | 002 ;JA:IN (| 00000C40: 30 30 32 29 2E 0D 20 20 20 20 20 20 54 59 41 20 |002).. TYA | 00000C50: 20 20 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 | ;RED (Y)| 00000C60: 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |.. PHA. | 00000C70: 20 20 43 4C 43 0D 20 20 20 20 20 20 52 4F 4C 20 | CLC. ROL | 00000C80: 20 32 35 31 20 20 20 20 3B 32 2A 52 45 53 55 4C | 251 ;2*RESUL| 00000C90: 54 41 41 54 20 49 4E 0D 20 20 20 20 20 20 4C 44 |TAAT IN. LD| 00000CA0: 59 20 20 32 35 31 20 20 20 20 3B 28 58 2C 59 29 |Y 251 ;(X,Y)| 00000CB0: 20 45 56 45 4E 2E 0D 20 20 20 20 20 20 52 4F 4C | EVEN.. ROL| 00000CC0: 20 20 32 35 32 0D 20 20 20 20 20 20 4C 44 58 20 | 252. LDX | 00000CD0: 20 32 35 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 | 252. CLC. | 00000CE0: 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 20 | LDA 251 | 00000CF0: 20 3B 28 32 35 32 2C 41 29 20 54 57 45 45 0D 20 | ;(252,A) TWEE. | 00000D00: 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 20 20 | .BYTE $2A | 00000D10: 20 3B 4E 41 41 52 20 4C 49 4E 4B 53 2E 0D 20 20 | ;NAAR LINKS.. | 00000D20: 20 20 20 20 52 4F 4C 20 20 32 35 32 0D 20 20 20 | ROL 252. | 00000D30: 20 20 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 | .BYTE $2A. | 00000D40: 20 20 20 52 4F 4C 20 20 32 35 32 0D 20 20 20 20 | ROL 252. | 00000D50: 20 20 43 4C 43 0D 20 20 20 20 20 20 41 44 43 20 | CLC. ADC | 00000D60: 20 30 30 32 20 20 20 20 3B 43 49 4A 46 45 52 20 | 002 ;CIJFER | 00000D70: 45 52 42 49 4A 2E 0D 20 20 20 20 20 20 53 54 41 |ERBIJ.. STA| 00000D80: 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 | 251. LDA | 00000D90: 20 32 35 32 0D 20 20 20 20 20 20 41 44 43 20 23 | 252. ADC #| 00000DA0: 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 |000. STA 2| 00000DB0: 35 32 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |52. CLC | 00000DC0: 20 20 20 20 20 3B 28 58 2C 59 29 20 45 52 42 49 | ;(X,Y) ERBI| 00000DD0: 4A 2E 0D 20 20 20 20 20 20 54 59 41 0D 20 20 20 |J.. TYA. | 00000DE0: 20 20 20 41 44 43 20 20 32 35 31 0D 20 20 20 20 | ADC 251. | 00000DF0: 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 | STA 251. | 00000E00: 20 54 58 41 0D 20 20 20 20 20 20 41 44 43 20 20 | TXA. ADC | 00000E10: 32 35 32 0D 20 20 20 20 20 20 53 54 41 20 20 32 |252. STA 2| 00000E20: 35 32 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 |52. PLA | 00000E30: 20 20 20 20 20 3B 48 45 52 53 54 45 4C 20 28 59 | ;HERSTEL (Y| 00000E40: 29 2E 0D 20 20 20 20 20 20 54 41 59 0D 44 58 30 |).. TAY.DX0| 00000E50: 30 32 20 49 4E 59 0D 20 20 20 20 20 20 43 50 59 |02 INY. CPY| 00000E60: 20 23 30 30 35 20 20 20 20 3B 30 2E 2E 2E 34 2E | #005 ;0...4.| 00000E70: 0D 20 20 20 20 20 20 42 43 43 20 20 44 58 30 30 |. BCC DX00| 00000E80: 31 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |1. RTS. | 00000E90: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00000EA0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000EB0: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 43 4F 4E |LDY #000 ;CON| 00000EC0: 56 45 52 53 49 45 0D 20 20 20 20 20 20 53 54 59 |VERSIE. STY| 00000ED0: 20 20 32 35 31 20 20 20 20 3B 48 45 58 41 44 45 | 251 ;HEXADE| 00000EE0: 43 2E 2D 3E 42 49 4E 2E 0D 20 20 20 20 20 20 53 |C.->BIN.. S| 00000EF0: 54 59 20 20 32 35 32 20 20 20 20 3B 49 4E 3A 41 |TY 252 ;IN:A| 00000F00: 44 52 45 53 20 4D 53 49 47 2E 0D 44 58 30 30 33 |DRES MSIG..DX003| 00000F10: 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 3D 28 | LDA (253),Y ;=(| 00000F20: 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 |254,253).. | 00000F30: 53 45 43 20 20 20 20 20 20 20 20 20 3B 55 49 54 |SEC ;UIT| 00000F40: 3A 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 |:(252,251).. | 00000F50: 20 20 53 42 43 20 23 30 34 38 20 20 20 20 3B 48 | SBC #048 ;H| 00000F60: 45 58 41 44 45 43 2E 3F 0D 20 20 20 20 20 20 42 |EXADEC.?. B| 00000F70: 4D 49 20 20 44 58 30 30 35 0D 20 20 20 20 20 20 |MI DX005. | 00000F80: 43 4D 50 20 23 30 31 30 0D 20 20 20 20 20 20 42 |CMP #010. B| 00000F90: 43 43 20 20 44 58 30 30 34 0D 20 20 20 20 20 20 |CC DX004. | 00000FA0: 53 42 43 20 23 30 30 37 0D 20 20 20 20 20 20 43 |SBC #007. C| 00000FB0: 4D 50 20 23 30 31 30 0D 20 20 20 20 20 20 42 43 |MP #010. BC| 00000FC0: 43 20 20 44 58 30 30 35 0D 20 20 20 20 20 20 43 |C DX005. C| 00000FD0: 4D 50 20 23 30 31 36 0D 20 20 20 20 20 20 42 43 |MP #016. BC| 00000FE0: 53 20 20 44 58 30 30 35 0D 44 58 30 30 34 20 54 |S DX005.DX004 T| 00000FF0: 41 58 20 20 20 20 20 20 20 20 20 3B 4A 41 3A 28 |AX ;JA:(| 00001000: 32 35 32 2C 32 35 31 29 0D 20 20 20 20 20 20 4C |252,251). L| 00001010: 44 41 20 20 32 35 31 20 20 20 20 3B 34 20 4E 41 |DA 251 ;4 NA| 00001020: 41 52 20 4C 49 4E 4B 53 2E 0D 20 20 20 20 20 20 |AR LINKS.. | 00001030: 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 |.BYTE $2A. | 00001040: 52 4F 4C 20 20 32 35 32 0D 20 20 20 20 20 20 2E |ROL 252. .| 00001050: 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 52 |BYTE $2A. R| 00001060: 4F 4C 20 20 32 35 32 0D 20 20 20 20 20 20 2E 42 |OL 252. .B| 00001070: 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 52 4F |YTE $2A. RO| 00001080: 4C 20 20 32 35 32 0D 20 20 20 20 20 20 2E 42 59 |L 252. .BY| 00001090: 54 45 20 24 32 41 0D 20 20 20 20 20 20 52 4F 4C |TE $2A. ROL| 000010A0: 20 20 32 35 32 0D 20 20 20 20 20 20 53 54 41 20 | 252. STA | 000010B0: 20 32 35 31 0D 20 20 20 20 20 20 54 58 41 0D 20 | 251. TXA. | 000010C0: 20 20 20 20 20 4F 52 41 20 20 32 35 31 0D 20 20 | ORA 251. | 000010D0: 20 20 20 20 53 54 41 20 20 32 35 31 0D 44 58 30 | STA 251.DX0| 000010E0: 30 35 20 49 4E 59 0D 20 20 20 20 20 20 43 50 59 |05 INY. CPY| 000010F0: 20 23 30 30 34 20 20 20 20 3B 30 2E 2E 2E 34 2E | #004 ;0...4.| 00001100: 0D 20 20 20 20 20 20 42 43 43 20 20 44 58 30 30 |. BCC DX00| 00001110: 33 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |3. RTS. | 00001120: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00001130: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00001140: 20 20 20 2A 3D 34 30 30 37 31 0D 20 20 20 20 20 | *=40071. | 00001150: 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 41 43 | LDY #000 ;AC| 00001160: 43 45 50 54 20 53 54 52 49 4E 47 2E 0D 41 54 30 |CEPT STRING..AT0| 00001170: 30 31 20 4A 53 52 20 20 41 54 30 30 39 20 20 3B |01 JSR AT009 ;| 00001180: 54 4F 45 54 53 20 49 4E 2E 0D 20 20 20 20 20 20 |TOETS IN.. | 00001190: 49 4E 59 20 20 20 20 20 20 20 20 20 3B 4E 41 20 |INY ;NA | 000011A0: 4C 45 4E 47 54 45 20 49 4E 2E 0D 20 20 20 20 20 |LENGTE IN.. | 000011B0: 20 4C 44 41 20 20 30 30 32 20 20 20 20 3B 54 45 | LDA 002 ;TE| 000011C0: 4B 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 28 |KEN.. STA (| 000011D0: 32 35 33 29 2C 59 20 3B 49 4E 20 53 54 52 49 4E |253),Y ;IN STRIN| 000011E0: 47 2E 0D 20 20 20 20 20 20 43 4D 50 20 20 32 35 |G.. CMP 25| 000011F0: 32 20 20 20 20 3B 49 53 20 41 46 53 4C 55 49 54 |2 ;IS AFSLUIT| 00001200: 3F 0D 20 20 20 20 20 20 42 45 51 20 20 41 54 30 |?. BEQ AT0| 00001210: 30 32 20 20 3B 4A 41 3A 20 2D 2D 2D 3E 5B 41 54 |02 ;JA: --->[AT| 00001220: 30 30 32 5D 0D 20 20 20 20 20 20 43 50 59 20 20 |002]. CPY | 00001230: 32 35 31 20 20 20 20 3B 4E 45 45 3A 4D 41 58 2E |251 ;NEE:MAX.| 00001240: 4C 45 4E 47 54 45 3F 0D 20 20 20 20 20 20 42 43 |LENGTE?. BC| 00001250: 43 20 20 41 54 30 30 31 20 20 3B 4E 45 45 3A 56 |C AT001 ;NEE:V| 00001260: 4F 4C 47 45 4E 44 20 54 4B 2E 0D 41 54 30 30 32 |OLGEND TK..AT002| 00001270: 20 54 59 41 20 20 20 20 20 20 20 20 20 3B 5A 45 | TYA ;ZE| 00001280: 54 20 4C 45 4E 47 54 45 20 49 4E 2E 0D 20 20 20 |T LENGTE IN.. | 00001290: 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 | LDY #000. | 000012A0: 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 | STA (253),Y. | 000012B0: 20 20 20 20 52 54 53 0D 41 54 30 30 33 20 54 59 | RTS.AT003 TY| 000012C0: 41 20 20 20 20 20 20 20 20 20 3B 54 4F 45 54 53 |A ;TOETS| 000012D0: 3D 3E 28 58 29 2E 0D 20 20 20 20 20 20 50 48 41 |=>(X).. PHA| 000012E0: 20 20 20 20 20 20 20 20 20 3B 52 45 44 20 28 59 | ;RED (Y| 000012F0: 29 2E 0D 41 54 30 30 34 20 4C 44 41 20 20 31 39 |)..AT004 LDA 19| 00001300: 37 20 20 20 20 3B 54 4F 45 54 53 20 49 4E 3F 0D |7 ;TOETS IN?.| 00001310: 20 20 20 20 20 20 43 4D 50 20 23 30 36 34 20 20 | CMP #064 | 00001320: 20 20 3B 4E 45 45 3A 2D 2D 2D 3E 5B 41 54 30 30 | ;NEE:--->[AT00| 00001330: 34 5D 0D 20 20 20 20 20 20 42 45 51 20 20 41 54 |4]. BEQ AT| 00001340: 30 30 34 0D 41 54 30 30 35 20 4A 53 52 20 20 36 |004.AT005 JSR 6| 00001350: 35 35 30 38 20 20 3B 4A 41 3A 54 45 4B 45 4E 20 |5508 ;JA:TEKEN | 00001360: 55 49 54 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |UIT. CMP #0| 00001370: 30 30 20 20 20 20 3B 42 55 46 46 45 52 2E 20 4E |00 ;BUFFER. N| 00001380: 49 45 54 53 3A 0D 20 20 20 20 20 20 42 45 51 20 |IETS:. BEQ | 00001390: 20 41 54 30 30 35 20 20 3B 4E 4F 47 20 45 45 4E | AT005 ;NOG EEN| 000013A0: 53 2E 0D 20 20 20 20 20 20 54 41 58 20 20 20 20 |S.. TAX | 000013B0: 20 20 20 20 20 3B 54 45 4B 45 4E 20 49 4E 20 58 | ;TEKEN IN X| 000013C0: 2E 0D 41 54 30 30 36 20 4C 44 41 20 20 31 39 37 |..AT006 LDA 197| 000013D0: 20 20 20 20 3B 54 4F 45 54 53 20 4C 4F 53 3F 0D | ;TOETS LOS?.| 000013E0: 20 20 20 20 20 20 43 4D 50 20 23 30 36 34 20 20 | CMP #064 | 000013F0: 20 20 3B 4A 41 3A 0D 20 20 20 20 20 20 42 4E 45 | ;JA:. BNE| 00001400: 20 20 41 54 30 30 36 0D 20 20 20 20 20 20 50 4C | AT006. PL| 00001410: 41 20 20 20 20 20 20 20 20 20 3B 48 45 52 53 54 |A ;HERST| 00001420: 45 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 54 41 |EL (Y).. TA| 00001430: 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |Y. RTS. | 00001440: 20 20 4C 44 59 20 20 32 35 31 20 20 20 20 3B 54 | LDY 251 ;T| 00001450: 52 41 4E 53 50 4F 52 54 2E 0D 41 54 30 30 37 20 |RANSPORT..AT007 | 00001460: 4C 44 41 20 28 31 30 37 29 2C 59 20 3B 41 48 3D |LDA (107),Y ;AH=| 00001470: 28 31 30 38 2C 31 30 37 29 2E 0D 20 20 20 20 20 |(108,107).. | 00001480: 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B 41 42 | STA (253),Y ;AB| 00001490: 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 |=(254,253).. | 000014A0: 20 20 44 45 59 20 20 20 20 20 20 20 20 20 3B 28 | DEY ;(| 000014B0: 32 35 31 29 3D 4E 54 20 2D 20 31 2E 0D 20 20 20 |251)=NT - 1.. | 000014C0: 20 20 20 42 50 4C 20 20 41 54 30 30 37 0D 20 20 | BPL AT007. | 000014D0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4C 44 | RTS. LD| 000014E0: 59 20 20 32 35 31 20 20 20 20 3B 56 55 4C 2E 0D |Y 251 ;VUL..| 000014F0: 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 20 20 | LDA 252 | 00001500: 20 20 3B 49 4E 48 4F 55 44 3D 28 32 35 32 29 2E | ;INHOUD=(252).| 00001510: 0D 41 54 30 30 38 20 53 54 41 20 28 32 35 33 29 |.AT008 STA (253)| 00001520: 2C 59 20 3B 41 56 3D 28 32 35 34 2C 32 35 33 29 |,Y ;AV=(254,253)| 00001530: 2E 0D 20 20 20 20 20 20 44 45 59 20 20 20 20 20 |.. DEY | 00001540: 20 20 20 20 3B 28 32 35 31 29 3D 4E 56 20 2D 20 | ;(251)=NV - | 00001550: 31 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 41 54 |1.. BPL AT| 00001560: 30 30 38 0D 20 20 20 20 20 20 52 54 53 0D 41 54 |008. RTS.AT| 00001570: 30 30 39 20 4A 53 52 20 20 41 54 30 30 33 20 20 |009 JSR AT003 | 00001580: 3B 41 43 43 45 50 54 20 54 4F 45 54 53 0D 20 20 |;ACCEPT TOETS. | 00001590: 20 20 20 20 54 58 41 20 20 20 20 20 20 20 20 20 | TXA | 000015A0: 3B 4D 45 54 20 43 48 45 43 4B 2E 0D 20 20 20 20 |;MET CHECK.. | 000015B0: 20 20 43 4D 50 20 20 32 35 32 20 20 20 20 3B 45 | CMP 252 ;E| 000015C0: 49 4E 44 54 45 4B 45 4E 3F 0D 20 20 20 20 20 20 |INDTEKEN?. | 000015D0: 42 45 51 20 20 41 54 30 31 30 20 20 3B 4A 41 3A |BEQ AT010 ;JA:| 000015E0: 20 54 45 52 55 47 2E 0D 20 20 20 20 20 20 43 4D | TERUG.. CM| 000015F0: 50 20 23 30 34 38 20 20 20 20 3B 30 2E 2E 2E 2E |P #048 ;0....| 00001600: 2E 39 3F 0D 20 20 20 20 20 20 42 43 43 20 20 41 |.9?. BCC A| 00001610: 54 30 30 39 20 20 3B 4E 45 45 3A 53 4B 49 50 2E |T009 ;NEE:SKIP.| 00001620: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 35 38 20 |. CMP #058 | 00001630: 20 20 20 3B 3A 2E 2E 2E 2E 2E 40 3F 0D 20 20 20 | ;:.....@?. | 00001640: 20 20 20 42 43 43 20 20 41 54 30 31 30 20 20 3B | BCC AT010 ;| 00001650: 4E 45 45 3A 53 4B 49 50 2E 0D 20 20 20 20 20 20 |NEE:SKIP.. | 00001660: 43 4D 50 20 23 30 36 35 20 20 20 20 3B 41 2E 2E |CMP #065 ;A..| 00001670: 2E 2E 2E 5A 3F 0D 20 20 20 20 20 20 42 43 43 20 |...Z?. BCC | 00001680: 20 41 54 30 30 39 20 20 3B 4E 45 45 3A 53 4B 49 | AT009 ;NEE:SKI| 00001690: 50 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 39 |P.. CMP #09| 000016A0: 31 20 20 20 20 3B 4A 41 3A 4E 41 41 52 20 48 2E |1 ;JA:NAAR H.| 000016B0: 50 2E 0D 20 20 20 20 20 20 42 43 53 20 20 41 54 |P.. BCS AT| 000016C0: 30 30 39 0D 41 54 30 31 30 20 4A 53 52 20 20 36 |009.AT010 JSR 6| 000016D0: 35 34 39 30 20 20 3B 28 41 29 20 45 43 48 4F 2E |5490 ;(A) ECHO.| 000016E0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 |. STA 002 | 000016F0: 20 20 20 3B 28 41 29 3D 3E 28 32 29 2E 0D 20 20 | ;(A)=>(2).. | 00001700: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00001710: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00001720: 20 20 20 20 20 2A 3D 34 30 31 37 36 0D 20 20 20 | *=40176. | 00001730: 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 3B 4C | LDA 001 ;L| 00001740: 4F 52 41 4D 20 49 4E 2E 0D 20 20 20 20 20 20 41 |ORAM IN.. A| 00001750: 4E 44 20 23 32 35 34 0D 20 20 20 20 20 20 53 54 |ND #254. ST| 00001760: 41 20 20 30 30 31 0D 20 20 20 20 20 20 52 54 53 |A 001. RTS| 00001770: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 31 20 |. LDA 001 | 00001780: 20 20 3B 48 49 52 41 4D 20 49 4E 2E 0D 20 20 20 | ;HIRAM IN.. | 00001790: 20 20 20 41 4E 44 20 23 32 35 33 0D 20 20 20 20 | AND #253. | 000017A0: 20 20 53 54 41 20 20 30 30 31 0D 20 20 20 20 20 | STA 001. | 000017B0: 20 52 54 53 0D 20 20 20 20 20 20 4C 44 41 20 20 | RTS. LDA | 000017C0: 30 30 31 20 20 20 3B 4C 4F 52 41 4D 20 55 49 54 |001 ;LORAM UIT| 000017D0: 2E 0D 20 20 20 20 20 20 4F 52 41 20 23 30 30 31 |.. ORA #001| 000017E0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 31 0D |. STA 001.| 000017F0: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001800: 4C 44 41 20 20 30 30 31 20 20 20 3B 48 49 52 41 |LDA 001 ;HIRA| 00001810: 4D 20 55 49 54 2E 0D 20 20 20 20 20 20 4F 52 41 |M UIT.. ORA| 00001820: 20 23 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 | #002. STA | 00001830: 20 30 30 31 0D 20 20 20 20 20 20 52 54 53 0D 20 | 001. RTS. | 00001840: 20 20 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 | LDA 56334 | 00001850: 3B 56 45 52 42 49 45 44 45 4E 0D 20 20 20 20 20 |;VERBIEDEN. | 00001860: 20 41 4E 44 20 23 32 35 34 20 20 20 3B 54 49 4D | AND #254 ;TIM| 00001870: 45 52 49 4E 54 45 52 52 55 50 54 53 2E 0D 20 20 |ERINTERRUPTS.. | 00001880: 20 20 20 20 53 54 41 20 20 35 36 33 33 34 0D 20 | STA 56334. | 00001890: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4C | RTS. L| 000018A0: 44 41 20 20 35 36 33 33 34 20 3B 54 4F 45 53 54 |DA 56334 ;TOEST| 000018B0: 41 41 4E 0D 20 20 20 20 20 20 4F 52 41 20 23 30 |AAN. ORA #0| 000018C0: 30 31 20 20 20 3B 54 49 4D 45 52 49 4E 54 45 52 |01 ;TIMERINTER| 000018D0: 52 55 50 54 53 2E 0D 20 20 20 20 20 20 53 54 41 |RUPTS.. STA| 000018E0: 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 52 54 | 56334. RT| 000018F0: 53 0D 20 20 20 20 20 20 2E 45 4E 44 0D |S. .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. *=39944. LDY
#000 ;CONVERSIE. STY 251 ;D
EC.->BINAIR.. STY 252 ;IN:ADRES
MSIG..DX001 LDA (253),Y ;=(254,253)..
SEC ;UIT:(252,251).. SB
C #048 ;DECIMAAL?. BMI DX002.
CMP #010. BCS DX002. STA
002 ;JA:IN (002).. TYA
;RED (Y).. PHA. CLC. ROL
251 ;2*RESULTAAT 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.. STA 251. LDA 252.
ADC #000. STA 252. CLC
;(X,Y) ERBIJ.. TYA. ADC
251. STA 251. TXA. ADC
252. STA 252. PLA ;HE
RSTEL (Y).. TAY.DX002 INY. CPY
#005 ;0...4.. BCC DX001.
RTS. NOP. NOP. NOP.
LDY #000 ;CONVERSIE. STY 251
;HEXADEC.->BIN.. STY 252 ;IN:A
DRES MSIG..DX003 LDA (253),Y ;=(254,253)
.. SEC ;UIT:(252,251)..
SBC #048 ;HEXADEC.?. BMI DX00
5. CMP #010. BCC DX004.
SBC #007. CMP #010. BCC DX005
. CMP #016. BCS DX005.DX004 T
AX ;JA:(252,251). LDA 251
;4 NAAR LINKS.. .BYTE $2A.
ROL 252. .BYTE $2A. ROL 252.
.BYTE $2A. ROL 252. .BY
TE $2A. ROL 252. STA 251.
TXA. ORA 251. STA 251.DX0
05 INY. CPY #004 ;0...4.. B
CC DX003. RTS. NOP. NOP.
NOP. *=40071. LDY #00
0 ;ACCEPT STRING..AT001 JSR AT009 ;
TOETS IN.. INY ;NA LENGTE I
N.. LDA 002 ;TEKEN.. STA (
253),Y ;IN STRING.. CMP 252 ;IS
AFSLUIT?. BEQ AT002 ;JA: --->[AT
002]. CPY 251 ;NEE:MAX.LENGTE?.
BCC AT001 ;NEE:VOLGEND TK..AT002
TYA ;ZET LENGTE IN.. LDY #
000. STA (253),Y. RTS.AT003 TY
A ;TOETS=>(X).. PHA
;RED (Y)..AT004 LDA 197 ;TOETS IN?.
CMP #064 ;NEE:--->[AT004].
BEQ AT004.AT005 JSR 65508 ;JA:TEKEN
UIT. CMP #000 ;BUFFER. NIETS:.
BEQ AT005 ;NOG EENS.. TAX
;TEKEN IN X..AT006 LDA 197 ;TOE
TS LOS?. CMP #064 ;JA:. BNE
AT006. PLA ;HERSTEL (Y)..
TAY. RTS. LDY 251 ;T
RANSPORT..AT007 LDA (107),Y ;AH=(108,107
).. STA (253),Y ;AB=(254,253)..
DEY ;(251)=NT - 1.. BPL
AT007. RTS. LDY 251 ;VUL..
LDA 252 ;INHOUD=(252)..AT008 S
TA (253),Y ;AV=(254,253).. DEY
;(251)=NV - 1.. BPL AT008.
RTS.AT009 JSR AT003 ;ACCEPT TOETS.
TXA ;MET CHECK.. CMP 2
52 ;EINDTEKEN?. BEQ AT010 ;JA:
TERUG.. CMP #048 ;0.....9?.
BCC AT009 ;NEE:SKIP.. CMP #058
;:.....@?. BCC AT010 ;NEE:SKIP
.. CMP #065 ;A.....Z?. BCC
AT009 ;NEE:SKIP.. CMP #091 ;JA
:NAAR H.P.. BCS AT009.AT010 JSR 6
5490 ;(A) ECHO.. STA 002 ;(A)=
>(2).. RTS. NOP. NOP.
*=40176. LDA 001 ;LORAM IN.
. AND #254. STA 001. RTS
. LDA 001 ;HIRAM IN.. AND #
253. STA 001. RTS. LDA
001 ;LORAM UIT.. ORA #001. S
TA 001. RTS. LDA 001 ;HIRA
M UIT.. ORA #002. STA 001.
RTS. LDA 56334 ;VERBIEDEN.
AND #254 ;TIMERINTERRUPTS.. STA
56334. RTS. LDA 56334 ;TOEST
AAN. ORA #001 ;TIMERINTERRUPTS..
STA 56334. RTS. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL