DISN49
FILE INFORMATION
FILENAME(S): DISN49
FILE TYPE(S): SEQ
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
3d1ca6e1fb053e31d5aa9fa3c0e6138199eb796640694d0cef93b6585a891aa3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES 2 | DISN49 | SEQ | DuncanTwain | 33 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 36 31 35 32 | *=36152| 00000010: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000020: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 | ;. | 00000030: 20 20 20 20 20 20 20 20 20 3B 44 49 53 53 45 4D | ;DISSEM| 00000040: 42 4C 45 52 0D 20 20 20 20 20 20 20 20 20 20 20 |BLER. | 00000050: 20 20 20 20 20 20 20 20 3B 53 55 42 52 4F 55 54 | ;SUBROUT| 00000060: 49 4E 45 53 0D 20 20 20 20 20 20 20 20 20 20 20 |INES. | 00000070: 20 20 20 20 20 20 20 20 3B 20 44 45 45 4C 20 56 | ; DEEL V| 00000080: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000090: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 | ;. | 000000A0: 20 20 20 20 20 20 20 20 20 20 3B 4F 50 45 52 41 | ;OPERA| 000000B0: 4E 44 56 55 4C 2D 2C 0D 20 20 20 20 20 20 20 20 |NDVUL-,. | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 3B 44 45 43 4F | ;DECO| 000000D0: 4E 56 45 52 53 49 45 2D 2C 0D 20 20 20 20 20 20 |NVERSIE-,. | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 43 4F | ;CO| 000000F0: 4E 56 45 52 53 49 45 2D 20 45 4E 0D 20 20 20 20 |NVERSIE- EN. | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000110: 49 4E 54 4F 45 54 53 2D 0D 20 20 20 20 20 20 20 |INTOETS-. | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 3B 52 4F 55 | ;ROU| 00000130: 54 49 4E 45 53 2E 0D 20 20 20 20 20 20 20 20 20 |TINES.. | 00000140: 20 20 20 20 20 20 20 20 20 20 3B 0D 56 4C 31 41 | ;.VL1A| 00000150: 41 20 4C 44 41 20 20 30 30 37 31 30 2C 58 20 3B |A LDA 00710,X ;| 00000160: 56 55 4C 20 4F 50 45 52 41 4E 44 20 31 3A 0D 20 |VUL OPERAND 1:. | 00000170: 20 20 20 20 20 53 54 41 20 20 31 30 39 20 20 20 | STA 109 | 00000180: 20 20 3B 28 31 31 30 2C 31 30 39 29 20 55 49 54 | ;(110,109) UIT| 00000190: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 |. LDA 0071| 000001A0: 31 2C 58 20 3B 28 37 31 31 2B 58 2C 37 31 30 2B |1,X ;(711+X,710+| 000001B0: 58 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |X).. STA 1| 000001C0: 31 30 0D 20 20 20 20 20 20 52 54 53 0D 56 4C 31 |10. RTS.VL1| 000001D0: 42 49 20 4C 44 41 20 20 30 30 37 31 30 2C 58 20 |BI LDA 00710,X | 000001E0: 3B 56 55 4C 20 4F 50 45 52 41 4E 44 20 32 3A 0D |;VUL OPERAND 2:.| 000001F0: 20 20 20 20 20 20 53 54 41 20 20 32 35 31 20 20 | STA 251 | 00000200: 20 20 20 3B 28 32 35 32 2C 32 35 31 29 20 55 49 | ;(252,251) UI| 00000210: 54 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |T. LDA 007| 00000220: 31 31 2C 58 20 3B 28 37 31 31 2B 58 2C 37 31 30 |11,X ;(711+X,710| 00000230: 2B 58 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |+X).. STA | 00000240: 32 35 32 0D 20 20 20 20 20 20 52 54 53 0D 41 44 |252. RTS.AD| 00000250: 56 4C 20 20 4C 44 41 20 20 32 35 33 20 20 20 3B |VL LDA 253 ;| 00000260: 20 20 28 32 35 34 2C 32 35 33 29 0D 20 20 20 20 | (254,253). | 00000270: 20 20 53 54 41 20 20 32 34 37 2C 58 20 3B 3D 3E | STA 247,X ;=>| 00000280: 28 32 34 38 2B 58 2C 32 34 37 2B 58 29 2E 0D 20 |(248+X,247+X).. | 00000290: 20 20 20 20 20 4C 44 41 20 20 32 35 34 0D 20 20 | LDA 254. | 000002A0: 20 20 20 20 53 54 41 20 20 32 34 38 2C 58 0D 20 | STA 248,X. | 000002B0: 20 20 20 20 20 52 54 53 0D 56 4C 41 44 20 20 4C | RTS.VLAD L| 000002C0: 44 41 20 20 32 34 37 2C 58 20 3B 20 20 28 32 34 |DA 247,X ; (24| 000002D0: 38 2B 58 2C 32 34 37 2B 58 29 0D 20 20 20 20 20 |8+X,247+X). | 000002E0: 20 53 54 41 20 20 32 35 33 20 20 20 3B 3D 3E 28 | STA 253 ;=>(| 000002F0: 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 |254,253).. | 00000300: 4C 44 41 20 20 32 34 38 2C 58 0D 20 20 20 20 20 |LDA 248,X. | 00000310: 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 | STA 254. | 00000320: 52 54 53 0D 42 49 44 43 32 20 53 54 59 20 20 30 |RTS.BIDC2 STY 0| 00000330: 30 32 20 20 20 20 20 20 3B 44 45 43 4F 4E 56 45 |02 ;DECONVE| 00000340: 52 53 49 45 2E 0D 20 20 20 20 20 20 4C 44 41 20 |RSIE.. LDA | 00000350: 20 32 35 31 20 20 20 20 20 20 3B 42 49 4E 41 49 | 251 ;BINAI| 00000360: 52 20 4E 41 41 52 0D 20 20 20 20 20 20 53 54 41 |R NAAR. STA| 00000370: 20 20 30 33 38 20 20 20 20 20 20 3B 44 45 43 49 | 038 ;DECI| 00000380: 4D 41 41 4C 2E 0D 20 20 20 20 20 20 4C 44 41 20 |MAAL.. LDA | 00000390: 20 32 35 32 20 20 20 20 20 20 3B 49 4E 3A 28 32 | 252 ;IN:(2| 000003A0: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 53 |52,251).. S| 000003B0: 54 41 20 20 30 33 39 20 20 20 20 20 20 3B 55 49 |TA 039 ;UI| 000003C0: 54 3A 41 46 20 41 44 52 45 53 0D 20 20 20 20 20 |T:AF ADRES. | 000003D0: 20 4C 44 41 20 23 30 30 30 20 20 20 20 20 20 3B | LDA #000 ;| 000003E0: 41 55 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 |AU=(254,253).. | 000003F0: 20 20 20 20 53 54 41 20 20 30 34 30 20 20 20 20 | STA 040 | 00000400: 20 20 3B 41 55 2B 30 3A 31 30 30 30 30 2E 0D 20 | ;AU+0:10000.. | 00000410: 20 20 20 20 20 4C 44 59 20 23 30 30 34 20 20 20 | LDY #004 | 00000420: 20 20 20 3B 2E 2E 2E 41 55 2B 34 3A 31 2E 0D 20 | ;...AU+4:1.. | 00000430: 20 20 20 20 20 4C 44 41 20 23 30 34 38 20 20 20 | LDA #048 | 00000440: 20 20 20 3B 41 53 43 49 49 2D 43 4F 44 45 2E 0D | ;ASCII-CODE..| 00000450: 42 44 31 20 20 20 53 54 41 20 28 32 35 33 29 2C |BD1 STA (253),| 00000460: 59 20 20 20 3B 56 55 4C 20 4D 45 54 0D 20 20 20 |Y ;VUL MET. | 00000470: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 20 | DEY | 00000480: 20 3B 35 20 4E 55 4C 4C 45 4E 2E 0D 20 20 20 20 | ;5 NULLEN.. | 00000490: 20 20 42 50 4C 20 20 42 44 31 20 20 0D 20 20 20 | BPL BD1 . | 000004A0: 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 | LDY #000. | 000004B0: 20 20 42 45 51 20 20 42 44 33 20 20 0D 42 44 32 | BEQ BD3 .BD2| 000004C0: 20 20 20 53 45 43 20 20 20 20 20 20 20 20 20 20 | SEC | 000004D0: 20 3B 54 52 45 4B 20 31 30 30 30 30 0D 20 20 20 | ;TREK 10000. | 000004E0: 20 20 20 4C 44 41 20 20 30 33 38 20 20 20 20 20 | LDA 038 | 000004F0: 20 3B 41 46 20 56 41 4E 0D 20 20 20 20 20 20 53 | ;AF VAN. S| 00000500: 42 43 20 23 30 31 36 20 20 20 20 20 20 3B 28 34 |BC #016 ;(4| 00000510: 30 2C 33 39 2C 33 38 29 2E 0D 20 20 20 20 20 20 |0,39,38).. | 00000520: 53 54 41 20 20 30 33 38 0D 20 20 20 20 20 20 4C |STA 038. L| 00000530: 44 41 20 20 30 33 39 0D 20 20 20 20 20 20 53 42 |DA 039. SB| 00000540: 43 20 23 30 33 39 0D 20 20 20 20 20 20 53 54 41 |C #039. STA| 00000550: 20 20 30 33 39 0D 20 20 20 20 20 20 4C 44 41 20 | 039. LDA | 00000560: 20 30 34 30 0D 20 20 20 20 20 20 53 42 43 20 23 | 040. SBC #| 00000570: 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 |000. STA 0| 00000580: 34 30 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |40. CLC | 00000590: 20 20 20 20 20 20 20 3B 54 45 4C 20 31 20 4F 50 | ;TEL 1 OP| 000005A0: 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 |. LDA (253)| 000005B0: 2C 59 20 20 20 3B 42 49 4A 20 28 41 55 2B 4D 29 |,Y ;BIJ (AU+M)| 000005C0: 2E 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 31 |.. ADC #001| 000005D0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 000005E0: 2C 59 0D 42 44 33 20 20 20 4C 44 41 20 20 30 34 |,Y.BD3 LDA 04| 000005F0: 30 20 20 20 20 20 20 3B 56 45 52 47 45 4C 49 4A |0 ;VERGELIJ| 00000600: 4B 45 4E 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 |KEN.. CMP #| 00000610: 30 30 30 20 20 20 20 20 20 3B 28 34 30 2C 33 39 |000 ;(40,39| 00000620: 2C 33 38 29 2E 0D 20 20 20 20 20 20 42 43 43 20 |,38).. BCC | 00000630: 20 42 44 34 20 20 20 20 20 20 3B 4D 45 54 20 31 | BD4 ;MET 1| 00000640: 30 30 30 30 2E 0D 20 20 20 20 20 20 42 4E 45 20 |0000.. BNE | 00000650: 20 42 44 32 20 20 20 20 20 20 3B 3E 31 30 30 30 | BD2 ;>1000| 00000660: 30 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 |0.. LDA 03| 00000670: 39 0D 20 20 20 20 20 20 43 4D 50 20 23 30 33 39 |9. CMP #039| 00000680: 0D 20 20 20 20 20 20 42 43 43 20 20 42 44 34 20 |. BCC BD4 | 00000690: 20 0D 20 20 20 20 20 20 42 4E 45 20 20 42 44 32 | . BNE BD2| 000006A0: 20 20 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 | . LDA 03| 000006B0: 38 0D 20 20 20 20 20 20 43 4D 50 20 23 30 31 36 |8. CMP #016| 000006C0: 0D 20 20 20 20 20 20 42 43 53 20 20 42 44 32 20 |. BCS BD2 | 000006D0: 20 0D 42 44 34 20 20 20 4C 44 41 20 20 30 34 30 | .BD4 LDA 040| 000006E0: 0D 20 20 20 20 20 20 42 4E 45 20 20 42 44 35 20 |. BNE BD5 | 000006F0: 20 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 39 | . LDA 039| 00000700: 0D 20 20 20 20 20 20 42 4E 45 20 20 42 44 35 20 |. BNE BD5 | 00000710: 20 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 | . LDA 038| 00000720: 0D 20 20 20 20 20 20 42 45 51 20 20 42 44 36 20 |. BEQ BD6 | 00000730: 20 20 20 20 20 3B 52 45 53 54 20 4E 55 4C 2E 0D | ;REST NUL..| 00000740: 42 44 35 20 20 20 43 4C 43 0D 20 20 20 20 20 20 |BD5 CLC. | 00000750: 2E 42 59 54 45 20 24 32 36 2C 30 33 38 20 3B 4D |.BYTE $26,038 ;M| 00000760: 41 41 4C 20 31 30 2E 0D 20 20 20 20 20 20 2E 42 |AAL 10.. .B| 00000770: 59 54 45 20 24 32 36 2C 30 33 39 0D 20 20 20 20 |YTE $26,039. | 00000780: 20 20 2E 42 59 54 45 20 24 32 36 2C 30 34 30 0D | .BYTE $26,040.| 00000790: 20 20 20 20 20 20 4C 44 41 20 20 30 33 39 0D 20 | LDA 039. | 000007A0: 20 20 20 20 20 53 54 41 20 20 30 34 31 0D 20 20 | STA 041. | 000007B0: 20 20 20 20 4C 44 41 20 20 30 34 30 0D 20 20 20 | LDA 040. | 000007C0: 20 20 20 53 54 41 20 20 30 34 32 0D 20 20 20 20 | STA 042. | 000007D0: 20 20 4C 44 41 20 20 30 33 38 0D 20 20 20 20 20 | LDA 038. | 000007E0: 20 43 4C 43 0D 20 20 20 20 20 20 2E 42 59 54 45 | CLC. .BYTE| 000007F0: 20 24 32 41 0D 20 20 20 20 20 20 2E 42 59 54 45 | $2A. .BYTE| 00000800: 20 24 32 36 2C 30 34 31 0D 20 20 20 20 20 20 2E | $26,041. .| 00000810: 42 59 54 45 20 24 32 36 2C 30 34 32 0D 20 20 20 |BYTE $26,042. | 00000820: 20 20 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 | .BYTE $2A. | 00000830: 20 20 20 2E 42 59 54 45 20 24 32 36 2C 30 34 31 | .BYTE $26,041| 00000840: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 36 |. .BYTE $26| 00000850: 2C 30 34 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 |,042. CLC. | 00000860: 20 20 20 20 20 41 44 43 20 20 30 33 38 0D 20 20 | ADC 038. | 00000870: 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 20 20 | STA 038. | 00000880: 20 20 20 4C 44 41 20 20 30 34 31 0D 20 20 20 20 | LDA 041. | 00000890: 20 20 41 44 43 20 20 30 33 39 0D 20 20 20 20 20 | ADC 039. | 000008A0: 20 53 54 41 20 20 30 33 39 0D 20 20 20 20 20 20 | STA 039. | 000008B0: 4C 44 41 20 20 30 34 32 0D 20 20 20 20 20 20 41 |LDA 042. A| 000008C0: 44 43 20 20 30 34 30 0D 20 20 20 20 20 20 53 54 |DC 040. ST| 000008D0: 41 20 20 30 34 30 0D 20 20 20 20 20 20 49 4E 59 |A 040. INY| 000008E0: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 000008F0: 20 42 43 43 20 20 42 44 33 20 20 0D 42 44 36 20 | BCC BD3 .BD6 | 00000900: 20 20 4C 44 59 20 20 30 30 32 20 20 20 20 20 20 | LDY 002 | 00000910: 3B 55 49 54 2E 0D 20 20 20 20 20 20 52 54 53 0D |;UIT.. RTS.| 00000920: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000930: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000940: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000950: 50 0D 42 49 48 58 32 20 53 54 58 20 20 30 33 38 |P.BIHX2 STX 038| 00000960: 20 20 20 20 20 20 3B 44 45 43 4F 4E 56 45 52 53 | ;DECONVERS| 00000970: 49 45 0D 20 20 20 20 20 20 53 54 59 20 20 30 33 |IE. STY 03| 00000980: 39 20 20 20 20 20 20 3B 42 49 4E 41 49 52 20 4E |9 ;BINAIR N| 00000990: 41 41 52 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |AAR. LDX #0| 000009A0: 30 31 20 20 20 20 20 20 3B 48 45 58 41 44 45 43 |01 ;HEXADEC| 000009B0: 49 4D 41 41 4C 2E 0D 20 20 20 20 20 20 4C 44 59 |IMAAL.. LDY| 000009C0: 20 23 30 30 30 20 20 20 20 20 20 3B 49 4E 3A 20 | #000 ;IN: | 000009D0: 42 49 4E 41 49 52 0D 42 48 31 20 20 20 4C 44 41 |BINAIR.BH1 LDA| 000009E0: 20 20 32 35 31 2C 58 20 20 20 20 3B 28 32 35 32 | 251,X ;(252| 000009F0: 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 53 54 41 |,251).. STA| 00000A00: 20 20 30 30 32 20 20 20 20 20 20 3B 0D 20 20 20 | 002 ;. | 00000A10: 20 20 20 2E 42 59 54 45 20 24 34 41 20 20 20 20 | .BYTE $4A | 00000A20: 20 3B 34 20 42 49 54 53 0D 20 20 20 20 20 20 2E | ;4 BITS. .| 00000A30: 42 59 54 45 20 24 34 41 20 20 20 20 20 3B 4E 41 |BYTE $4A ;NA| 00000A40: 41 52 20 52 45 43 48 54 53 2E 0D 20 20 20 20 20 |AR RECHTS.. | 00000A50: 20 2E 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 | .BYTE $4A. | 00000A60: 20 2E 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 | .BYTE $4A. | 00000A70: 20 4F 52 41 20 23 30 34 38 0D 20 20 20 20 20 20 | ORA #048. | 00000A80: 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |STA (253),Y. | 00000A90: 20 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 | INY. LDA | 00000AA0: 20 30 30 32 0D 20 20 20 20 20 20 41 4E 44 20 23 | 002. AND #| 00000AB0: 30 31 35 0D 20 20 20 20 20 20 4F 52 41 20 23 30 |015. ORA #0| 00000AC0: 34 38 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |48. STA (25| 00000AD0: 33 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 |3),Y. INY. | 00000AE0: 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 42 | DEX. B| 00000AF0: 50 4C 20 20 42 48 31 20 20 0D 20 20 20 20 20 20 |PL BH1 . | 00000B00: 44 45 59 0D 42 48 32 20 20 20 4C 44 41 20 28 32 |DEY.BH2 LDA (2| 00000B10: 35 33 29 2C 59 0D 20 20 20 20 20 20 43 4D 50 20 |53),Y. CMP | 00000B20: 23 30 35 38 20 20 20 20 20 20 3B 48 45 58 41 44 |#058 ;HEXAD| 00000B30: 45 43 49 4D 41 41 4C 0D 20 20 20 20 20 20 42 43 |ECIMAAL. BC| 00000B40: 43 20 20 42 48 33 20 20 20 20 20 20 3B 54 45 4B |C BH3 ;TEK| 00000B50: 45 4E 2E 0D 20 20 20 20 20 20 41 44 43 20 23 30 |EN.. ADC #0| 00000B60: 30 36 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |06. STA (25| 00000B70: 33 29 2C 59 0D 42 48 33 20 20 20 44 45 59 0D 20 |3),Y.BH3 DEY. | 00000B80: 20 20 20 20 20 42 50 4C 20 20 42 48 32 20 20 0D | BPL BH2 .| 00000B90: 20 20 20 20 20 20 4C 44 58 20 20 30 33 38 0D 20 | LDX 038. | 00000BA0: 20 20 20 20 20 4C 44 59 20 20 30 33 39 0D 20 20 | LDY 039. | 00000BB0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 00000BC0: 20 20 3B 55 49 54 2E 0D 20 20 20 20 20 20 4E 4F | ;UIT.. NO| 00000BD0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00000BE0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00000BF0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000C00: 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 |NOP. *=3| 00000C10: 36 33 39 32 0D 44 43 42 49 32 20 4C 44 59 20 23 |6392.DCBI2 LDY #| 00000C20: 30 30 30 20 20 20 20 3B 43 4F 4E 56 45 52 53 49 |000 ;CONVERSI| 00000C30: 45 0D 20 20 20 20 20 20 53 54 59 20 20 32 35 31 |E. STY 251| 00000C40: 20 20 20 20 3B 44 45 43 2E 2D 3E 42 49 4E 41 49 | ;DEC.->BINAI| 00000C50: 52 2E 0D 20 20 20 20 20 20 53 54 59 20 20 32 35 |R.. STY 25| 00000C60: 32 20 20 20 20 3B 49 4E 3A 41 44 52 45 53 20 4D |2 ;IN:ADRES M| 00000C70: 53 49 47 2E 0D 44 42 31 20 20 20 4C 44 41 20 28 |SIG..DB1 LDA (| 00000C80: 32 35 33 29 2C 59 20 3B 3D 28 32 35 34 2C 32 35 |253),Y ;=(254,25| 00000C90: 33 29 2E 0D 20 20 20 20 20 20 53 45 43 20 20 20 |3).. SEC | 00000CA0: 20 20 20 20 20 20 3B 55 49 54 3A 28 32 35 32 2C | ;UIT:(252,| 00000CB0: 32 35 31 29 2E 0D 20 20 20 20 20 20 53 42 43 20 |251).. SBC | 00000CC0: 23 30 34 38 20 20 20 20 3B 44 45 43 49 4D 41 41 |#048 ;DECIMAA| 00000CD0: 4C 3F 0D 20 20 20 20 20 20 42 4D 49 20 20 44 42 |L?. BMI DB| 00000CE0: 32 20 20 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |2 . CMP #0| 00000CF0: 31 30 0D 20 20 20 20 20 20 42 43 53 20 20 44 42 |10. BCS DB| 00000D00: 32 20 20 0D 20 20 20 20 20 20 53 54 41 20 20 30 |2 . STA 0| 00000D10: 30 32 20 20 20 20 3B 4A 41 3A 49 4E 20 28 30 30 |02 ;JA:IN (00| 00000D20: 32 29 2E 0D 20 20 20 20 20 20 54 59 41 20 20 20 |2).. TYA | 00000D30: 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 2E 0D | ;RED (Y)..| 00000D40: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 00000D50: 43 4C 43 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 |CLC. ROL 2| 00000D60: 35 31 20 20 20 20 3B 32 2A 52 45 53 55 4C 54 41 |51 ;2*RESULTA| 00000D70: 41 54 20 49 4E 0D 20 20 20 20 20 20 4C 44 59 20 |AT IN. LDY | 00000D80: 20 32 35 31 20 20 20 20 3B 28 58 2C 59 29 20 45 | 251 ;(X,Y) E| 00000D90: 56 45 4E 2E 0D 20 20 20 20 20 20 52 4F 4C 20 20 |VEN.. ROL | 00000DA0: 32 35 32 0D 20 20 20 20 20 20 4C 44 58 20 20 32 |252. LDX 2| 00000DB0: 35 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |52. CLC. | 00000DC0: 20 20 20 4C 44 41 20 20 32 35 31 20 20 20 20 3B | LDA 251 ;| 00000DD0: 28 32 35 32 2C 41 29 20 54 57 45 45 0D 20 20 20 |(252,A) TWEE. | 00000DE0: 20 20 20 2E 42 59 54 45 20 24 32 41 20 20 20 3B | .BYTE $2A ;| 00000DF0: 4E 41 41 52 20 4C 49 4E 4B 53 2E 0D 20 20 20 20 |NAAR LINKS.. | 00000E00: 20 20 52 4F 4C 20 20 32 35 32 0D 20 20 20 20 20 | ROL 252. | 00000E10: 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 | .BYTE $2A. | 00000E20: 20 52 4F 4C 20 20 32 35 32 0D 20 20 20 20 20 20 | ROL 252. | 00000E30: 43 4C 43 0D 20 20 20 20 20 20 41 44 43 20 20 30 |CLC. ADC 0| 00000E40: 30 32 20 20 20 20 3B 43 49 4A 46 45 52 20 45 52 |02 ;CIJFER ER| 00000E50: 42 49 4A 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |BIJ.. STA | 00000E60: 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |251. LDA 2| 00000E70: 35 32 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 |52. ADC #00| 00000E80: 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |0. STA 252| 00000E90: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000EA0: 20 20 20 3B 28 58 2C 59 29 20 45 52 42 49 4A 2E | ;(X,Y) ERBIJ.| 00000EB0: 0D 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 |. TYA. | 00000EC0: 20 41 44 43 20 20 32 35 31 0D 20 20 20 20 20 20 | ADC 251. | 00000ED0: 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 54 |STA 251. T| 00000EE0: 58 41 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |XA. ADC 25| 00000EF0: 32 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |2. STA 252| 00000F00: 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 |. PLA | 00000F10: 20 20 20 3B 48 45 52 53 54 45 4C 20 28 59 29 2E | ;HERSTEL (Y).| 00000F20: 0D 20 20 20 20 20 20 54 41 59 0D 44 42 32 20 20 |. TAY.DB2 | 00000F30: 20 49 4E 59 0D 20 20 20 20 20 20 43 50 59 20 23 | INY. CPY #| 00000F40: 30 30 35 20 20 20 20 3B 30 2E 2E 2E 34 2E 0D 20 |005 ;0...4.. | 00000F50: 20 20 20 20 20 42 43 43 20 20 44 42 31 0D 20 20 | BCC DB1. | 00000F60: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00000F70: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00000F80: 20 20 4E 4F 50 0D 48 58 42 49 32 20 4C 44 59 20 | NOP.HXBI2 LDY | 00000F90: 23 30 30 30 20 20 20 20 3B 43 4F 4E 56 45 52 53 |#000 ;CONVERS| 00000FA0: 49 45 0D 20 20 20 20 20 20 53 54 59 20 20 32 35 |IE. STY 25| 00000FB0: 31 20 20 20 20 3B 48 45 58 41 44 45 43 2E 2D 3E |1 ;HEXADEC.->| 00000FC0: 42 49 4E 2E 0D 20 20 20 20 20 20 53 54 59 20 20 |BIN.. STY | 00000FD0: 32 35 32 20 20 20 20 3B 49 4E 3A 41 44 52 45 53 |252 ;IN:ADRES| 00000FE0: 20 4D 53 49 47 2E 0D 48 42 31 20 20 20 4C 44 41 | MSIG..HB1 LDA| 00000FF0: 20 28 32 35 33 29 2C 59 20 3B 3D 28 32 35 34 2C | (253),Y ;=(254,| 00001000: 32 35 33 29 2E 0D 20 20 20 20 20 20 53 45 43 20 |253).. SEC | 00001010: 20 20 20 20 20 20 20 20 3B 55 49 54 3A 28 32 35 | ;UIT:(25| 00001020: 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 53 42 |2,251).. SB| 00001030: 43 20 23 30 34 38 20 20 20 20 3B 48 45 58 41 44 |C #048 ;HEXAD| 00001040: 45 43 2E 3F 0D 20 20 20 20 20 20 42 4D 49 20 20 |EC.?. BMI | 00001050: 48 42 33 20 20 0D 20 20 20 20 20 20 43 4D 50 20 |HB3 . CMP | 00001060: 23 30 31 30 0D 20 20 20 20 20 20 42 43 43 20 20 |#010. BCC | 00001070: 48 42 32 20 20 0D 20 20 20 20 20 20 53 42 43 20 |HB2 . SBC | 00001080: 23 30 30 37 0D 20 20 20 20 20 20 43 4D 50 20 23 |#007. CMP #| 00001090: 30 31 30 0D 20 20 20 20 20 20 42 43 43 20 20 48 |010. BCC H| 000010A0: 42 33 20 20 0D 20 20 20 20 20 20 43 4D 50 20 23 |B3 . CMP #| 000010B0: 30 31 36 0D 20 20 20 20 20 20 42 43 53 20 20 48 |016. BCS H| 000010C0: 42 33 20 20 0D 48 42 32 20 20 20 54 41 58 20 20 |B3 .HB2 TAX | 000010D0: 20 20 20 20 20 20 20 3B 4A 41 3A 28 32 35 32 2C | ;JA:(252,| 000010E0: 32 35 31 29 0D 20 20 20 20 20 20 4C 44 41 20 20 |251). LDA | 000010F0: 32 35 31 20 20 20 20 3B 34 20 4E 41 41 52 20 4C |251 ;4 NAAR L| 00001100: 49 4E 4B 53 2E 0D 20 20 20 20 20 20 2E 42 59 54 |INKS.. .BYT| 00001110: 45 20 24 32 41 0D 20 20 20 20 20 20 52 4F 4C 20 |E $2A. ROL | 00001120: 20 32 35 32 0D 20 20 20 20 20 20 2E 42 59 54 45 | 252. .BYTE| 00001130: 20 24 32 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 | $2A. ROL | 00001140: 32 35 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |252. .BYTE | 00001150: 24 32 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 |$2A. ROL 2| 00001160: 35 32 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |52. .BYTE $| 00001170: 32 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 35 |2A. ROL 25| 00001180: 32 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 |2. STA 251| 00001190: 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 |. TXA. | 000011A0: 20 4F 52 41 20 20 32 35 31 0D 20 20 20 20 20 20 | ORA 251. | 000011B0: 53 54 41 20 20 32 35 31 0D 48 42 33 20 20 20 49 |STA 251.HB3 I| 000011C0: 4E 59 0D 20 20 20 20 20 20 43 50 59 20 23 30 30 |NY. CPY #00| 000011D0: 34 20 20 20 20 3B 30 2E 2E 2E 34 2E 0D 20 20 20 |4 ;0...4.. | 000011E0: 20 20 20 42 43 43 20 20 48 42 31 20 20 0D 20 20 | BCC HB1 . | 000011F0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00001200: 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 36 35 |P. *=365| 00001210: 32 30 0D 4B 45 59 41 43 20 4C 44 59 20 23 30 30 |20.KEYAC LDY #00| 00001220: 30 20 20 20 20 3B 41 43 43 45 50 54 20 53 54 52 |0 ;ACCEPT STR| 00001230: 49 4E 47 2E 0D 4B 45 59 41 31 20 4A 53 52 20 20 |ING..KEYA1 JSR | 00001240: 4B 45 59 20 20 20 20 3B 54 4F 45 54 53 20 49 4E |KEY ;TOETS IN| 00001250: 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 |.. INY | 00001260: 20 20 20 20 3B 4E 41 20 4C 45 4E 47 54 45 20 49 | ;NA LENGTE I| 00001270: 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |N.. LDA 00| 00001280: 32 20 20 20 20 3B 54 45 4B 45 4E 2E 0D 20 20 20 |2 ;TEKEN.. | 00001290: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B | STA (253),Y ;| 000012A0: 49 4E 20 53 54 52 49 4E 47 2E 0D 20 20 20 20 20 |IN STRING.. | 000012B0: 20 43 4D 50 20 20 32 35 32 20 20 20 20 3B 49 53 | CMP 252 ;IS| 000012C0: 20 41 46 53 4C 55 49 54 3F 0D 20 20 20 20 20 20 | AFSLUIT?. | 000012D0: 42 45 51 20 20 4B 45 59 41 32 20 20 3B 4A 41 3A |BEQ KEYA2 ;JA:| 000012E0: 20 2D 2D 2D 3E 5B 4B 45 59 41 32 5D 0D 20 20 20 | --->[KEYA2]. | 000012F0: 20 20 20 43 50 59 20 20 32 35 31 20 20 20 20 3B | CPY 251 ;| 00001300: 4E 45 45 3A 4D 41 58 2E 4C 45 4E 47 54 45 3F 0D |NEE:MAX.LENGTE?.| 00001310: 20 20 20 20 20 20 42 43 43 20 20 4B 45 59 41 31 | BCC KEYA1| 00001320: 20 20 3B 4E 45 45 3A 56 4F 4C 47 45 4E 44 20 54 | ;NEE:VOLGEND T| 00001330: 4B 2E 0D 4B 45 59 41 32 20 54 59 41 20 20 20 20 |K..KEYA2 TYA | 00001340: 20 20 20 20 20 3B 5A 45 54 20 4C 45 4E 47 54 45 | ;ZET LENGTE| 00001350: 20 49 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 | IN.. LDY #| 00001360: 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 28 32 |000. STA (2| 00001370: 35 33 29 2C 59 0D 20 20 20 20 20 20 52 54 53 0D |53),Y. RTS.| 00001380: 4B 45 59 49 4E 20 54 59 41 20 20 20 20 20 20 20 |KEYIN TYA | 00001390: 20 20 3B 54 4F 45 54 53 3D 3E 28 58 29 2E 0D 20 | ;TOETS=>(X).. | 000013A0: 20 20 20 20 20 50 48 41 20 20 20 20 20 20 20 20 | PHA | 000013B0: 20 3B 52 45 44 20 28 59 29 2E 0D 4B 45 59 49 31 | ;RED (Y)..KEYI1| 000013C0: 20 4C 44 41 20 20 31 39 37 20 20 20 20 3B 54 4F | LDA 197 ;TO| 000013D0: 45 54 53 20 49 4E 3F 0D 20 20 20 20 20 20 43 4D |ETS IN?. CM| 000013E0: 50 20 23 30 36 34 20 20 20 20 3B 4E 45 45 3A 2D |P #064 ;NEE:-| 000013F0: 2D 2D 3E 5B 4B 45 59 49 31 5D 0D 20 20 20 20 20 |-->[KEYI1]. | 00001400: 20 42 45 51 20 20 4B 45 59 49 31 0D 4B 45 59 49 | BEQ KEYI1.KEYI| 00001410: 32 20 4A 53 52 20 20 36 35 35 30 38 20 20 3B 4A |2 JSR 65508 ;J| 00001420: 41 3A 54 45 4B 45 4E 20 55 49 54 0D 20 20 20 20 |A:TEKEN UIT. | 00001430: 20 20 43 4D 50 20 23 30 30 30 20 20 20 20 3B 42 | CMP #000 ;B| 00001440: 55 46 46 45 52 2E 20 4E 49 45 54 53 3A 0D 20 20 |UFFER. NIETS:. | 00001450: 20 20 20 20 42 45 51 20 20 4B 45 59 49 32 20 20 | BEQ KEYI2 | 00001460: 3B 4E 4F 47 20 45 45 4E 53 2E 0D 20 20 20 20 20 |;NOG EENS.. | 00001470: 20 54 41 58 20 20 20 20 20 20 20 20 20 3B 54 45 | TAX ;TE| 00001480: 4B 45 4E 20 49 4E 20 58 2E 0D 4B 45 59 49 33 20 |KEN IN X..KEYI3 | 00001490: 4C 44 41 20 20 31 39 37 20 20 20 20 3B 54 4F 45 |LDA 197 ;TOE| 000014A0: 54 53 20 4C 4F 53 3F 0D 20 20 20 20 20 20 43 4D |TS LOS?. CM| 000014B0: 50 20 23 30 36 34 20 20 20 20 3B 4A 41 3A 0D 20 |P #064 ;JA:. | 000014C0: 20 20 20 20 20 42 4E 45 20 20 4B 45 59 49 33 0D | BNE KEYI3.| 000014D0: 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 | PLA | 000014E0: 20 20 3B 48 45 52 53 54 45 4C 20 28 59 29 2E 0D | ;HERSTEL (Y)..| 000014F0: 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 | TAY. | 00001500: 52 54 53 0D 54 52 41 53 50 20 4C 44 59 20 20 32 |RTS.TRASP LDY 2| 00001510: 35 31 20 20 20 20 3B 54 52 41 4E 53 50 4F 52 54 |51 ;TRANSPORT| 00001520: 2E 0D 54 52 41 53 31 20 4C 44 41 20 28 31 30 37 |..TRAS1 LDA (107| 00001530: 29 2C 59 20 3B 41 48 3D 28 31 30 38 2C 31 30 37 |),Y ;AH=(108,107| 00001540: 29 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |).. STA (25| 00001550: 33 29 2C 59 20 3B 41 42 3D 28 32 35 34 2C 32 35 |3),Y ;AB=(254,25| 00001560: 33 29 2E 0D 20 20 20 20 20 20 44 45 59 20 20 20 |3).. DEY | 00001570: 20 20 20 20 20 20 3B 28 32 35 31 29 3D 4E 54 20 | ;(251)=NT | 00001580: 2D 20 31 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 |- 1.. BPL | 00001590: 54 52 41 53 31 0D 20 20 20 20 20 20 52 54 53 0D |TRAS1. RTS.| 000015A0: 56 55 4C 4C 4E 20 4C 44 59 20 20 32 35 31 20 20 |VULLN LDY 251 | 000015B0: 20 20 3B 56 55 4C 2E 0D 20 20 20 20 20 20 4C 44 | ;VUL.. LD| 000015C0: 41 20 20 32 35 32 20 20 20 20 3B 49 4E 48 4F 55 |A 252 ;INHOU| 000015D0: 44 3D 28 32 35 32 29 2E 0D 56 55 4C 4C 31 20 53 |D=(252)..VULL1 S| 000015E0: 54 41 20 28 32 35 33 29 2C 59 20 3B 41 56 3D 28 |TA (253),Y ;AV=(| 000015F0: 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 |254,253).. | 00001600: 44 45 59 20 20 20 20 20 20 20 20 20 3B 28 32 35 |DEY ;(25| 00001610: 31 29 3D 4E 56 20 2D 20 31 2E 0D 20 20 20 20 20 |1)=NV - 1.. | 00001620: 20 42 50 4C 20 20 56 55 4C 4C 31 0D 20 20 20 20 | BPL VULL1. | 00001630: 20 20 52 54 53 0D 4B 45 59 20 20 20 4A 53 52 20 | RTS.KEY JSR | 00001640: 20 4B 45 59 49 4E 20 20 3B 41 43 43 45 50 54 20 | KEYIN ;ACCEPT | 00001650: 54 4F 45 54 53 0D 20 20 20 20 20 20 54 58 41 20 |TOETS. TXA | 00001660: 20 20 20 20 20 20 20 20 3B 4D 45 54 20 43 48 45 | ;MET CHE| 00001670: 43 4B 2E 0D 20 20 20 20 20 20 43 4D 50 20 20 32 |CK.. CMP 2| 00001680: 35 32 20 20 20 20 3B 45 49 4E 44 54 45 4B 45 4E |52 ;EINDTEKEN| 00001690: 3F 0D 20 20 20 20 20 20 42 45 51 20 20 4B 45 59 |?. BEQ KEY| 000016A0: 31 20 20 20 3B 4A 41 3A 20 54 45 52 55 47 2E 0D |1 ;JA: TERUG..| 000016B0: 20 20 20 20 20 20 43 4D 50 20 23 30 34 38 20 20 | CMP #048 | 000016C0: 20 20 3B 30 2E 2E 2E 2E 2E 39 3F 0D 20 20 20 20 | ;0.....9?. | 000016D0: 20 20 42 43 43 20 20 4B 45 59 20 20 20 20 3B 4E | BCC KEY ;N| 000016E0: 45 45 3A 53 4B 49 50 2E 0D 20 20 20 20 20 20 43 |EE:SKIP.. C| 000016F0: 4D 50 20 23 30 35 38 20 20 20 20 3B 3A 2E 2E 2E |MP #058 ;:...| 00001700: 2E 2E 40 3F 0D 20 20 20 20 20 20 42 43 43 20 20 |..@?. BCC | 00001710: 4B 45 59 31 20 20 20 3B 4E 45 45 3A 53 4B 49 50 |KEY1 ;NEE:SKIP| 00001720: 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 36 35 |.. CMP #065| 00001730: 20 20 20 20 3B 41 2E 2E 2E 2E 2E 5A 3F 0D 20 20 | ;A.....Z?. | 00001740: 20 20 20 20 42 43 43 20 20 4B 45 59 20 20 20 20 | BCC KEY | 00001750: 3B 4E 45 45 3A 53 4B 49 50 2E 0D 20 20 20 20 20 |;NEE:SKIP.. | 00001760: 20 43 4D 50 20 23 30 39 31 20 20 20 20 3B 4A 41 | CMP #091 ;JA| 00001770: 3A 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |:NAAR H.P.. | 00001780: 20 42 43 53 20 20 4B 45 59 20 20 0D 4B 45 59 31 | BCS KEY .KEY1| 00001790: 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 3B 28 | JSR 65490 ;(| 000017A0: 41 29 20 45 43 48 4F 2E 0D 20 20 20 20 20 20 53 |A) ECHO.. S| 000017B0: 54 41 20 20 30 30 32 20 20 20 20 3B 28 41 29 3D |TA 002 ;(A)=| 000017C0: 3E 28 32 29 2E 0D 20 20 20 20 20 20 52 54 53 0D |>(2).. RTS.| 000017D0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000017E0: 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 |NOP. *=3| 000017F0: 36 36 32 35 0D 4C 4F 52 49 4E 20 4C 44 41 20 20 |6625.LORIN LDA | 00001800: 30 30 31 20 20 20 3B 4C 4F 52 41 4D 20 49 4E 2E |001 ;LORAM IN.| 00001810: 0D 20 20 20 20 20 20 41 4E 44 20 23 32 35 34 0D |. AND #254.| 00001820: 20 20 20 20 20 20 53 54 41 20 20 30 30 31 0D 20 | STA 001. | 00001830: 20 20 20 20 20 52 54 53 0D 48 49 52 49 4E 20 4C | RTS.HIRIN L| 00001840: 44 41 20 20 30 30 31 20 20 20 3B 48 49 52 41 4D |DA 001 ;HIRAM| 00001850: 20 49 4E 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 | IN.. AND #| 00001860: 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 20 30 |253. STA 0| 00001870: 30 31 0D 20 20 20 20 20 20 52 54 53 0D 4C 4F 52 |01. RTS.LOR| 00001880: 55 54 20 4C 44 41 20 20 30 30 31 20 20 20 3B 4C |UT LDA 001 ;L| 00001890: 4F 52 41 4D 20 55 49 54 2E 0D 20 20 20 20 20 20 |ORAM UIT.. | 000018A0: 4F 52 41 20 23 30 30 31 0D 20 20 20 20 20 20 53 |ORA #001. S| 000018B0: 54 41 20 20 30 30 31 0D 20 20 20 20 20 20 52 54 |TA 001. RT| 000018C0: 53 0D 48 49 52 55 54 20 4C 44 41 20 20 30 30 31 |S.HIRUT LDA 001| 000018D0: 20 20 20 3B 48 49 52 41 4D 20 55 49 54 2E 0D 20 | ;HIRAM UIT.. | 000018E0: 20 20 20 20 20 4F 52 41 20 23 30 30 32 0D 20 20 | ORA #002. | 000018F0: 20 20 20 20 53 54 41 20 20 30 30 31 0D 20 20 20 | STA 001. | 00001900: 20 20 20 52 54 53 0D 54 49 4D 55 54 20 4C 44 41 | RTS.TIMUT LDA| 00001910: 20 20 35 36 33 33 34 20 3B 56 45 52 42 49 45 44 | 56334 ;VERBIED| 00001920: 45 4E 0D 20 20 20 20 20 20 41 4E 44 20 23 32 35 |EN. AND #25| 00001930: 34 20 20 20 3B 54 49 4D 45 52 49 4E 54 45 52 52 |4 ;TIMERINTERR| 00001940: 55 50 54 53 2E 0D 20 20 20 20 20 20 53 54 41 20 |UPTS.. STA | 00001950: 20 35 36 33 33 34 0D 20 20 20 20 20 20 52 54 53 | 56334. RTS| 00001960: 0D 54 49 4D 49 4E 20 4C 44 41 20 20 35 36 33 33 |.TIMIN LDA 5633| 00001970: 34 20 3B 54 4F 45 53 54 41 41 4E 0D 20 20 20 20 |4 ;TOESTAAN. | 00001980: 20 20 4F 52 41 20 23 30 30 31 20 20 20 3B 54 49 | ORA #001 ;TI| 00001990: 4D 45 52 49 4E 54 45 52 52 55 50 54 53 2E 0D 20 |MERINTERRUPTS.. | 000019A0: 20 20 20 20 20 53 54 41 20 20 35 36 33 33 34 0D | STA 56334.| 000019B0: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 000019C0: 2E 4C 49 42 20 44 49 4C 4E 30 31 0D 20 20 20 20 |.LIB DILN01. | 000019D0: 20 20 2E 45 4E 44 0D | .END. |
*=36152. ;.
;DISSEMBLER.
;SUBROUTINES.
; DEEL V.. ;.
;OPERANDVUL-,.
;DECONVERSIE-,. ;CO
NVERSIE- EN. ;INTOETS-
. ;ROUTINES..
;.VL1AA LDA 00710,X ;VUL OPER
AND 1:. STA 109 ;(110,109) UIT
. LDA 00711,X ;(711+X,710+X)..
STA 110. RTS.VL1BI LDA 00710,X
;VUL OPERAND 2:. STA 251 ;(252
,251) UIT. LDA 00711,X ;(711+X,710
+X).. STA 252. RTS.ADVL LDA
253 ; (254,253). STA 247,X ;=>
(248+X,247+X).. LDA 254. STA
248,X. RTS.VLAD LDA 247,X ; (24
8+X,247+X). STA 253 ;=>(254,253)
.. LDA 248,X. STA 254.
RTS.BIDC2 STY 002 ;DECONVERSIE..
LDA 251 ;BINAIR NAAR. STA
038 ;DECIMAAL.. LDA 252
;IN:(252,251).. STA 039 ;UI
T:AF ADRES. LDA #000 ;AU=(254,
253).. STA 040 ;AU+0:10000..
LDY #004 ;...AU+4:1.. LDA
#048 ;ASCII-CODE..BD1 STA (253),
Y ;VUL MET. DEY ;5 NULL
EN.. BPL BD1 . LDY #000.
BEQ BD3 .BD2 SEC ;TREK 1
0000. LDA 038 ;AF VAN. S
BC #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.BD3 LDA 04
0 ;VERGELIJKEN.. CMP #000
;(40,39,38).. BCC BD4 ;MET 1
0000.. BNE BD2 ;>10000..
LDA 039. CMP #039. BCC BD4
. BNE BD2 . LDA 038.
CMP #016. BCS BD2 .BD4 LDA 040
. BNE BD5 . LDA 039. B
NE BD5 . LDA 038. BEQ BD6
;REST NUL..BD5 CLC. .BYTE $2
6,038 ;MAAL 10.. .BYTE $26,039.
.BYTE $26,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,042. CLC. ADC 038.
STA 038. LDA 041. ADC 0
39. STA 039. LDA 042. A
DC 040. STA 040. INY. C
LC. BCC BD3 .BD6 LDY 002
;UIT.. RTS. NOP. NOP.
NOP. NOP. NOP.BIHX2 STX 038
;DECONVERSIE. STY 039 ;
BINAIR NAAR. LDX #001 ;HEXADEC
IMAAL.. LDY #000 ;IN: BINAIR.B
H1 LDA 251,X ;(252,251).. STA
002 ;. .BYTE $4A ;4 BITS
. .BYTE $4A ;NAAR RECHTS..
.BYTE $4A. .BYTE $4A. ORA #04
8. STA (253),Y. INY. LDA
002. AND #015. ORA #048.
STA (253),Y. INY. DEX. B
PL BH1 . DEY.BH2 LDA (253),Y.
CMP #058 ;HEXADECIMAAL. BC
C BH3 ;TEKEN.. ADC #006.
STA (253),Y.BH3 DEY. BPL BH2 .
LDX 038. LDY 039. RTS
;UIT.. NOP. NOP.
NOP. NOP. NOP. NOP.
*=36392.DCBI2 LDY #000 ;CONVERSI
E. STY 251 ;DEC.->BINAIR..
STY 252 ;IN:ADRES MSIG..DB1 LDA (
253),Y ;=(254,253).. SEC ;U
IT:(252,251).. SBC #048 ;DECIMAA
L?. BMI DB2 . CMP #010.
BCS DB2 . STA 002 ;JA:IN (00
2).. TYA ;RED (Y).. PH
A. CLC. ROL 251 ;2*RESULTA
AT 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 ;HERSTEL (Y).. T
AY.DB2 INY. CPY #005 ;0...4..
BCC DB1. RTS. NOP.
NOP. NOP.HXBI2 LDY #000 ;CONVERS
IE. STY 251 ;HEXADEC.->BIN..
STY 252 ;IN:ADRES MSIG..HB1 LDA
(253),Y ;=(254,253).. SEC
;UIT:(252,251).. SBC #048 ;HEXAD
EC.?. BMI HB3 . CMP #010.
BCC HB2 . SBC #007. CMP #
010. BCC HB3 . CMP #016.
BCS HB3 .HB2 TAX ;JA:(252,
251). LDA 251 ;4 NAAR LINKS..
.BYTE $2A. ROL 252. .BYTE
$2A. ROL 252. .BYTE $2A.
ROL 252. .BYTE $2A. ROL 25
2. STA 251. TXA. ORA 25
1. STA 251.HB3 INY. CPY #00
4 ;0...4.. BCC HB1 . RTS.
NOP. *=36520.KEYAC LDY #00
0 ;ACCEPT STRING..KEYA1 JSR KEY ;
TOETS IN.. INY ;NA LENGTE I
N.. LDA 002 ;TEKEN.. STA (
253),Y ;IN STRING.. CMP 252 ;IS
AFSLUIT?. BEQ KEYA2 ;JA: --->[KE
YA2]. CPY 251 ;NEE:MAX.LENGTE?.
BCC KEYA1 ;NEE:VOLGEND TK..KEYA2
TYA ;ZET LENGTE IN.. LDY #
000. STA (253),Y. RTS.KEYIN TY
A ;TOETS=>(X).. PHA
;RED (Y)..KEYI1 LDA 197 ;TOETS IN?.
CMP #064 ;NEE:--->[KEYI1].
BEQ KEYI1.KEYI2 JSR 65508 ;JA:TEKEN
UIT. CMP #000 ;BUFFER. NIETS:.
BEQ KEYI2 ;NOG EENS.. TAX
;TEKEN IN X..KEYI3 LDA 197 ;TOE
TS LOS?. CMP #064 ;JA:. BNE
KEYI3. PLA ;HERSTEL (Y)..
TAY. RTS.TRASP LDY 251 ;T
RANSPORT..TRAS1 LDA (107),Y ;AH=(108,107
).. STA (253),Y ;AB=(254,253)..
DEY ;(251)=NT - 1.. BPL
TRAS1. RTS.VULLN LDY 251 ;VUL..
LDA 252 ;INHOUD=(252)..VULL1 S
TA (253),Y ;AV=(254,253).. DEY
;(251)=NV - 1.. BPL VULL1.
RTS.KEY JSR KEYIN ;ACCEPT TOETS.
TXA ;MET CHECK.. CMP 2
52 ;EINDTEKEN?. BEQ KEY1 ;JA:
TERUG.. CMP #048 ;0.....9?.
BCC KEY ;NEE:SKIP.. CMP #058
;:.....@?. BCC KEY1 ;NEE:SKIP
.. CMP #065 ;A.....Z?. BCC
KEY ;NEE:SKIP.. CMP #091 ;JA
:NAAR H.P.. BCS KEY .KEY1 JSR 6
5490 ;(A) ECHO.. STA 002 ;(A)=
>(2).. RTS. NOP. NOP.
*=36625.LORIN LDA 001 ;LORAM IN.
. AND #254. STA 001. RTS
.HIRIN LDA 001 ;HIRAM IN.. AND #
253. STA 001. RTS.LORUT LDA
001 ;LORAM UIT.. ORA #001. S
TA 001. RTS.HIRUT LDA 001 ;HIRA
M UIT.. ORA #002. STA 001.
RTS.TIMUT LDA 56334 ;VERBIEDEN.
AND #254 ;TIMERINTERRUPTS.. STA
56334. RTS.TIMIN LDA 56334 ;TOEST
AAN. ORA #001 ;TIMERINTERRUPTS..
STA 56334. RTS. .LIB DIL
N01. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL