DISN25
FILE INFORMATION
FILENAME(S): DISN25
FILE TYPE(S): SEQ
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
588d93f27d833c70b5c0244aed5354a01558dd09d144ce1340f0ca7c2d4bcd32
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES 2 | DISN25 | SEQ | DuncanTwain | 24 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 34 33 30 34 | *=34304| 00000010: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000020: 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00000030: 20 20 20 20 20 20 20 3B 44 49 53 53 45 4D 42 4C | ;DISSEMBL| 00000040: 45 52 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER. | 00000050: 20 20 20 20 20 3B 53 55 42 52 4F 55 54 49 4E 45 | ;SUBROUTINE| 00000060: 53 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S.. | 00000070: 20 20 20 20 20 3B 20 44 45 45 4C 20 49 2E 0D 20 | ; DEEL I.. | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 000000A0: 20 20 20 20 20 3B 50 52 49 4E 54 45 52 5A 45 54 | ;PRINTERZET| 000000B0: 54 45 52 53 2E 0D 20 20 20 20 20 20 20 20 20 20 |TERS.. | 000000C0: 20 20 20 20 20 20 20 20 3B 53 55 42 50 41 53 53 | ;SUBPASS| 000000D0: 20 31 2C 32 2E 0D 20 20 20 20 20 20 20 20 20 20 | 1,2.. | 000000E0: 20 20 20 20 20 20 20 20 3B 44 49 52 45 43 54 49 | ;DIRECTI| 000000F0: 45 56 45 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 |EVEN.. | 00000100: 20 20 20 20 20 20 20 20 3B 0D 50 52 45 50 52 20 | ;.PREPR | 00000110: 53 54 58 20 20 30 34 30 20 20 20 20 3B 52 45 44 |STX 040 ;RED| 00000120: 20 28 58 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 | (X).. JSR | 00000130: 20 50 4F 45 54 52 20 20 3B 50 4F 45 54 53 20 52 | POETR ;POETS R| 00000140: 45 47 45 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 |EGEL.. JSR | 00000150: 20 4C 45 4E 4F 4F 20 20 3B 5A 45 54 20 4C 45 4E | LENOO ;ZET LEN| 00000160: 47 54 45 3D 30 2E 0D 20 20 20 20 20 20 4C 44 58 |GTE=0.. LDX| 00000170: 20 20 30 34 30 20 20 20 20 3B 48 45 52 53 54 45 | 040 ;HERSTE| 00000180: 4C 20 28 58 29 2E 0D 20 20 20 20 20 20 4A 53 52 |L (X).. JSR| 00000190: 20 20 58 54 52 41 58 20 20 3B 5A 45 54 20 49 4E | XTRAX ;ZET IN| 000001A0: 20 45 4C 45 4D 45 4E 54 2E 0D 20 20 20 20 20 20 | ELEMENT.. | 000001B0: 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 |RTS ;NAA| 000001C0: 52 20 48 2E 50 2E 0D 4D 41 52 47 45 20 4C 44 58 |R H.P..MARGE LDX| 000001D0: 20 23 30 32 37 20 20 20 20 3B 5A 45 54 20 3C 45 | #027 ;ZET <E| 000001E0: 53 43 3E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |SC>.. JSR | 000001F0: 50 52 45 50 52 0D 20 20 20 20 20 20 4C 44 58 20 |PREPR. LDX | 00000200: 23 30 37 37 20 20 20 20 3B 27 4D 27 20 4E 41 2E |#077 ;'M' NA.| 00000210: 0D 20 20 20 20 20 20 4A 53 52 20 20 58 54 52 41 |. JSR XTRA| 00000220: 58 0D 20 20 20 20 20 20 4C 44 58 20 20 4D 41 52 |X. LDX MAR| 00000230: 47 45 20 20 3B 4D 41 52 47 45 47 52 4F 4F 54 54 |GE ;MARGEGROOTT| 00000240: 45 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 58 54 |E.. JSR XT| 00000250: 52 41 58 20 20 3B 5A 45 54 20 4E 41 2E 0D 20 20 |RAX ;ZET NA.. | 00000260: 20 20 20 20 4A 53 52 20 20 4F 55 54 50 52 20 20 | JSR OUTPR | 00000270: 3B 52 45 47 45 4C 20 55 49 54 2E 0D 20 20 20 20 |;REGEL UIT.. | 00000280: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00000290: 41 41 52 20 48 2E 50 2E 0D 54 45 52 55 47 20 4C |AAR H.P..TERUG L| 000002A0: 44 58 20 23 30 32 37 20 20 20 20 3B 5A 45 54 20 |DX #027 ;ZET | 000002B0: 3C 45 53 43 3E 2E 0D 20 20 20 20 20 20 4A 53 52 |<ESC>.. JSR| 000002C0: 20 20 50 52 45 50 52 20 20 3B 0D 20 20 20 20 20 | PREPR ;. | 000002D0: 20 4C 44 58 20 23 30 36 34 20 20 20 20 3B 27 40 | LDX #064 ;'@| 000002E0: 27 20 4E 41 2E 0D 20 20 20 20 20 20 4A 53 52 20 |' NA.. JSR | 000002F0: 20 58 54 52 41 58 0D 20 20 20 20 20 20 4A 53 52 | XTRAX. JSR| 00000300: 20 20 4F 55 54 50 52 20 20 3B 52 45 47 45 4C 20 | OUTPR ;REGEL | 00000310: 55 49 54 2E 0D 20 20 20 20 20 20 52 54 53 20 20 |UIT.. RTS | 00000320: 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 | ;NAAR H.P| 00000330: 2E 0D 42 49 58 58 32 20 4C 44 41 20 23 30 30 31 |..BIXX2 LDA #001| 00000340: 0D 20 20 20 20 20 20 53 54 41 20 20 44 42 56 4C |. STA DBVL| 00000350: 47 20 20 3B 44 55 42 42 45 4C 42 59 54 45 2E 0D |G ;DUBBELBYTE..| 00000360: 20 20 20 20 20 20 4A 53 52 20 20 42 49 58 58 20 | JSR BIXX | 00000370: 20 20 3B 48 45 58 41 44 45 43 2E 20 4F 46 0D 20 | ;HEXADEC. OF. | 00000380: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000390: 20 3B 44 45 43 2E 44 45 43 4F 4E 56 2E 0D 56 4C | ;DEC.DECONV..VL| 000003A0: 52 55 20 20 4C 44 58 20 23 30 30 34 0D 20 20 20 |RU LDX #004. | 000003B0: 20 20 20 4A 53 52 20 20 56 4C 32 41 41 20 20 3B | JSR VL2AA ;| 000003C0: 52 55 3D 3E 28 31 31 30 2C 31 30 39 29 2E 0D 20 |RU=>(110,109).. | 000003D0: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 000003E0: 4F 50 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |OP. | 000003F0: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 | ;. | 00000400: 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 | ;. | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 55 | ;SU| 00000420: 42 50 41 53 53 20 31 2E 0D 20 20 20 20 20 20 20 |BPASS 1.. | 00000430: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 53 55 42 | ;.SUB| 00000440: 50 31 20 4C 44 58 20 23 30 30 37 20 20 20 20 3B |P1 LDX #007 ;| 00000450: 28 30 34 30 29 3D 4A 56 20 4E 55 4C 2E 0D 20 20 |(040)=JV NUL.. | 00000460: 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 | LDA #000 | 00000470: 3B 28 30 30 32 29 3D 32 2A 55 2E 0D 20 20 20 20 |;(002)=2*U.. | 00000480: 20 20 53 54 41 20 20 30 34 30 20 20 20 20 3B 5A | STA 040 ;Z| 00000490: 45 54 20 55 3D 30 2E 0D 20 20 20 20 20 20 53 54 |ET U=0.. ST| 000004A0: 41 20 20 30 30 32 20 20 20 20 3B 50 4F 45 54 53 |A 002 ;POETS| 000004B0: 20 53 55 42 54 41 42 45 4C 2E 0D 53 55 42 30 31 | SUBTABEL..SUB01| 000004C0: 20 53 54 41 20 20 4A 4C 2C 58 20 20 20 20 20 3B | STA JL,X ;| 000004D0: 34 20 50 41 52 45 4E 0D 20 20 20 20 20 20 44 45 |4 PAREN. DE| 000004E0: 58 20 20 20 20 20 20 20 20 20 20 20 3B 28 37 32 |X ;(72| 000004F0: 31 2B 32 2A 55 29 0D 20 20 20 20 20 20 42 50 4C |1+2*U). BPL| 00000500: 20 20 53 55 42 30 31 20 20 20 20 3B 28 37 32 30 | SUB01 ;(720| 00000510: 2B 32 2A 55 29 2E 0D 20 20 20 20 20 20 4C 44 41 |+2*U).. LDA| 00000520: 20 20 59 48 20 20 20 20 20 3B 59 48 2C 59 4C 3D | YH ;YH,YL=| 00000530: 3E 28 33 39 2C 33 38 29 2E 0D 20 20 20 20 20 20 |>(39,38).. | 00000540: 53 54 41 20 20 30 33 39 0D 20 20 20 20 20 20 4C |STA 039. L| 00000550: 44 41 20 20 59 4C 20 20 20 0D 20 20 20 20 20 20 |DA YL . | 00000560: 53 54 41 20 20 30 33 38 20 20 20 20 3B 41 41 4E |STA 038 ;AAN| 00000570: 54 41 4C 20 4E 41 42 59 54 45 53 0D 20 20 20 20 |TAL NABYTES. | 00000580: 20 20 4C 44 59 20 20 4E 4E 20 20 20 20 20 3B 4E | LDY NN ;N| 00000590: 4E 3D 3E 28 59 29 2E 0D 20 20 20 20 20 20 43 4C |N=>(Y).. CL| 000005A0: 43 20 20 20 20 20 20 20 20 20 3B 47 41 20 4E 41 |C ;GA NA| 000005B0: 41 52 20 53 55 42 30 35 2E 0D 20 20 20 20 20 20 |AR SUB05.. | 000005C0: 42 43 43 20 20 53 55 42 30 35 0D 53 55 42 30 32 |BCC SUB05.SUB02| 000005D0: 20 53 54 59 20 20 30 34 32 20 20 20 20 3B 52 45 | STY 042 ;RE| 000005E0: 44 20 28 59 29 2E 0D 20 20 20 20 20 20 49 4E 43 |D (Y).. INC| 000005F0: 20 20 30 33 38 20 20 20 20 3B 4B 49 4A 4B 20 4E | 038 ;KIJK N| 00000600: 41 20 4F 50 43 4F 44 45 2E 0D 20 20 20 20 20 20 |A OPCODE.. | 00000610: 42 4E 45 20 20 53 55 42 30 33 0D 20 20 20 20 20 |BNE SUB03. | 00000620: 20 49 4E 43 20 20 30 33 39 0D 53 55 42 30 33 20 | INC 039.SUB03 | 00000630: 4A 53 52 20 20 4C 41 42 5A 4B 20 20 3B 4C 41 42 |JSR LABZK ;LAB| 00000640: 45 4C 20 5A 4F 45 4B 45 4E 2E 0D 20 20 20 20 20 |EL ZOEKEN.. | 00000650: 20 43 50 58 20 23 30 30 31 20 20 20 20 3B 47 45 | CPX #001 ;GE| 00000660: 56 4F 4E 44 45 4E 3A 0D 20 20 20 20 20 20 42 45 |VONDEN:. BE| 00000670: 51 20 20 53 55 42 30 34 20 20 3B 4C 41 42 45 4C |Q SUB04 ;LABEL| 00000680: 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 4C 44 58 |NUMMER. LDX| 00000690: 20 20 30 30 32 20 20 20 20 3B 28 32 35 32 2C 32 | 002 ;(252,2| 000006A0: 35 31 29 20 49 4E 0D 20 20 20 20 20 20 4C 44 41 |51) IN. LDA| 000006B0: 20 20 32 35 31 20 20 20 20 3B 53 55 42 54 41 42 | 251 ;SUBTAB| 000006C0: 45 4C 2E 0D 20 20 20 20 20 20 53 54 41 20 20 4A |EL.. STA J| 000006D0: 4C 2C 58 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |L,X. LDA 2| 000006E0: 35 32 0D 20 20 20 20 20 20 53 54 41 20 20 4A 48 |52. STA JH| 000006F0: 2C 58 0D 20 20 20 20 20 20 49 4E 43 20 20 30 34 |,X. INC 04| 00000700: 30 20 20 20 20 3B 4A 56 20 4F 50 3A 4C 41 42 45 |0 ;JV OP:LABE| 00000710: 4C 20 49 4E 0D 53 55 42 30 34 20 49 4E 43 20 20 |L IN.SUB04 INC | 00000720: 30 30 32 20 20 20 20 3B 4F 50 45 52 41 4E 44 56 |002 ;OPERANDV| 00000730: 45 4C 44 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 |ELD.. INC | 00000740: 30 30 32 20 20 20 20 3B 32 2A 28 55 2B 31 29 2E |002 ;2*(U+1).| 00000750: 0D 20 20 20 20 20 20 4C 44 59 20 20 30 34 32 0D |. LDY 042.| 00000760: 53 55 42 30 35 20 44 45 59 20 20 20 20 20 20 20 |SUB05 DEY | 00000770: 20 20 3B 28 59 29 20 41 46 54 45 4C 4C 45 4E 2E | ;(Y) AFTELLEN.| 00000780: 0D 20 20 20 20 20 20 42 50 4C 20 20 53 55 42 30 |. BPL SUB0| 00000790: 32 20 20 3B 4B 4C 41 41 52 3F 0D 20 20 20 20 20 |2 ;KLAAR?. | 000007A0: 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4A 41 | RTS ;JA| 000007B0: 3A 20 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 |: NAAR H.P.. | 000007C0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 000007D0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 | ;. | 000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000800: 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;. | 00000810: 20 20 20 20 3B 53 55 42 50 41 53 53 20 32 2E 0D | ;SUBPASS 2..| 00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000830: 20 20 3B 0D 53 55 42 50 32 20 4C 44 41 20 23 30 | ;.SUBP2 LDA #0| 00000840: 30 30 20 20 20 20 3B 28 31 30 30 29 3D 32 2A 55 |00 ;(100)=2*U| 00000850: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 30 |.. STA 100| 00000860: 20 20 20 20 3B 5A 45 54 20 55 3D 30 2E 0D 20 20 | ;ZET U=0.. | 00000870: 20 20 20 20 4C 44 41 20 20 59 48 20 20 20 20 20 | LDA YH | 00000880: 3B 59 48 2C 59 4C 3D 3E 28 39 39 2C 39 38 29 2E |;YH,YL=>(99,98).| 00000890: 0D 20 20 20 20 20 20 53 54 41 20 20 30 39 39 0D |. STA 099.| 000008A0: 20 20 20 20 20 20 4C 44 41 20 20 59 4C 20 20 20 | LDA YL | 000008B0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 39 38 0D |. STA 098.| 000008C0: 20 20 20 20 20 20 4C 44 41 20 20 4E 4E 20 20 20 | LDA NN | 000008D0: 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 31 20 |. STA 101 | 000008E0: 20 20 20 20 3B 4E 4E 3D 3E 28 31 30 31 29 2E 0D | ;NN=>(101)..| 000008F0: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 00000900: 20 20 20 3B 47 41 20 4E 41 41 52 20 53 55 42 31 | ;GA NAAR SUB1| 00000910: 35 2E 0D 20 20 20 20 20 20 42 43 43 20 20 53 55 |5.. BCC SU| 00000920: 42 31 35 0D 53 55 42 31 31 20 4A 53 52 20 20 50 |B15.SUB11 JSR P| 00000930: 4F 45 54 52 20 20 20 3B 50 4F 45 54 53 20 52 45 |OETR ;POETS RE| 00000940: 47 45 4C 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |GEL.. LDY #| 00000950: 30 30 31 20 20 20 20 20 3B 41 44 52 45 53 20 4E |001 ;ADRES N| 00000960: 41 0D 20 20 20 20 20 20 4A 53 52 20 20 41 44 50 |A. JSR ADP| 00000970: 41 44 20 20 20 3B 4C 45 4E 47 54 45 42 59 54 45 |AD ;LENGTEBYTE| 00000980: 2E 0D 20 20 20 20 20 20 4C 44 58 20 20 31 30 30 |.. LDX 100| 00000990: 20 20 20 20 20 3B 32 2A 55 2E 0D 20 20 20 20 20 | ;2*U.. | 000009A0: 20 4C 44 41 20 20 4A 4C 2C 58 20 20 20 20 3B 53 | LDA JL,X ;S| 000009B0: 55 42 54 41 42 45 4C 49 54 45 4D 0D 20 20 20 20 |UBTABELITEM. | 000009C0: 20 20 53 54 41 20 20 32 35 31 20 20 20 20 20 3B | STA 251 ;| 000009D0: 4E 55 4D 4D 45 52 20 55 2E 0D 20 20 20 20 20 20 |NUMMER U.. | 000009E0: 4C 44 41 20 20 4A 48 2C 58 0D 20 20 20 20 20 20 |LDA JH,X. | 000009F0: 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 42 |STA 252. B| 00000A00: 4E 45 20 20 53 55 42 31 32 20 20 20 3B 4E 55 4C |NE SUB12 ;NUL| 00000A10: 3A 2D 2D 3E 5B 53 55 42 31 33 5D 0D 20 20 20 20 |:-->[SUB13]. | 00000A20: 20 20 4C 44 41 20 20 32 35 31 0D 20 20 20 20 20 | LDA 251. | 00000A30: 20 42 45 51 20 20 53 55 42 31 33 20 20 20 3B 4E | BEQ SUB13 ;N| 00000A40: 49 45 54 20 4E 55 4C 3A 4C 41 42 45 4C 0D 53 55 |IET NUL:LABEL.SU| 00000A50: 42 31 32 20 4A 53 52 20 20 4C 41 42 45 5A 20 20 |B12 JSR LABEZ | 00000A60: 20 3B 45 52 56 41 4E 20 4D 41 4B 45 4E 2E 0D 53 | ;ERVAN MAKEN..S| 00000A70: 55 42 31 33 20 49 4E 43 20 20 31 30 30 20 20 20 |UB13 INC 100 | 00000A80: 20 20 3B 32 2A 28 55 2B 31 29 2E 0D 20 20 20 20 | ;2*(U+1).. | 00000A90: 20 20 49 4E 43 20 20 31 30 30 0D 20 20 20 20 20 | INC 100. | 00000AA0: 20 4C 44 59 20 23 30 30 36 20 20 20 20 20 3B 28 | LDY #006 ;(| 00000AB0: 32 35 34 2C 32 35 33 29 2B 36 0D 20 20 20 20 20 |254,253)+6. | 00000AC0: 20 4A 53 52 20 20 41 44 50 41 44 20 20 20 3B 3D | JSR ADPAD ;=| 00000AD0: 3E 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 |>(254,253).. | 00000AE0: 20 20 49 4E 43 20 20 30 39 38 20 20 20 20 20 3B | INC 098 ;| 00000AF0: 28 39 39 2C 39 38 29 2B 31 0D 20 20 20 20 20 20 |(99,98)+1. | 00000B00: 42 4E 45 20 20 53 55 42 31 34 20 20 20 3B 3D 3E |BNE SUB14 ;=>| 00000B10: 28 39 39 2C 39 38 29 3A 0D 20 20 20 20 20 20 49 |(99,98):. I| 00000B20: 4E 43 20 20 30 39 39 20 20 20 20 20 3B 41 44 52 |NC 099 ;ADR| 00000B30: 45 53 20 56 4F 4F 52 0D 53 55 42 31 34 20 4C 44 |ES VOOR.SUB14 LD| 00000B40: 59 20 23 30 30 30 20 20 20 20 20 3B 42 59 54 45 |Y #000 ;BYTE| 00000B50: 57 41 41 52 44 45 2E 0D 20 20 20 20 20 20 4C 44 |WAARDE.. LD| 00000B60: 41 20 28 30 39 38 29 2C 59 20 20 3B 5A 45 54 20 |A (098),Y ;ZET | 00000B70: 49 4E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |IN. STA 25| 00000B80: 31 20 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 |1 ;(252,251)| 00000B90: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 42 59 54 |.. JSR BYT| 00000BA0: 45 52 20 20 20 3B 52 45 47 45 4C 20 27 2E 42 59 |ER ;REGEL '.BY| 00000BB0: 54 45 27 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |TE'.. LDA | 00000BC0: 31 34 34 20 20 20 20 20 3B 54 4F 45 53 54 41 4E |144 ;TOESTAN| 00000BD0: 44 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 53 55 |D.. BNE SU| 00000BE0: 42 31 36 20 20 20 3B 41 42 4E 4F 52 4D 41 41 4C |B16 ;ABNORMAAL| 00000BF0: 3A 48 2E 50 2E 0D 53 55 42 31 35 20 44 45 43 20 |:H.P..SUB15 DEC | 00000C00: 20 31 30 31 20 20 20 20 20 3B 54 45 4C 20 28 31 | 101 ;TEL (1| 00000C10: 30 31 29 20 41 46 2E 0D 20 20 20 20 20 20 42 50 |01) AF.. BP| 00000C20: 4C 20 20 53 55 42 31 31 20 20 20 3B 4B 4C 41 41 |L SUB11 ;KLAA| 00000C30: 52 3A 0D 53 55 42 31 36 20 52 54 53 20 20 20 20 |R:.SUB16 RTS | 00000C40: 20 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E | ;NAAR H.P.| 00000C50: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000C60: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000C70: 20 20 20 20 20 4E 4F 50 0D 42 59 54 45 52 20 4A | NOP.BYTER J| 00000C80: 53 52 20 20 42 59 54 5A 20 20 20 3B 5A 45 54 20 |SR BYTZ ;ZET | 00000C90: 27 2E 42 59 54 45 27 2E 0D 20 20 20 20 20 20 4C |'.BYTE'.. L| 00000CA0: 44 59 20 23 30 30 36 20 20 20 20 3B 28 32 35 34 |DY #006 ;(254| 00000CB0: 2C 32 35 33 29 2B 36 0D 20 20 20 20 20 20 4A 53 |,253)+6. JS| 00000CC0: 52 20 20 41 44 50 41 44 20 20 3B 3D 3E 28 32 35 |R ADPAD ;=>(25| 00000CD0: 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 53 54 |4,253).. ST| 00000CE0: 59 20 20 44 42 56 4C 47 20 20 3B 45 4E 4B 45 4C |Y DBVLG ;ENKEL| 00000CF0: 42 59 54 45 2E 0D 20 20 20 20 20 20 4A 53 52 20 |BYTE.. JSR | 00000D00: 20 42 49 58 58 20 20 20 3B 44 45 43 4F 4E 56 45 | BIXX ;DECONVE| 00000D10: 52 53 49 45 2E 0D 4F 55 54 50 52 20 4C 44 58 20 |RSIE..OUTPR LDX | 00000D20: 23 30 31 32 20 20 20 20 3B 5A 45 54 20 41 44 52 |#012 ;ZET ADR| 00000D30: 45 53 0D 20 20 20 20 20 20 4A 53 52 20 20 56 4C |ES. JSR VL| 00000D40: 32 41 44 20 20 3B 42 55 3D 3E 28 32 35 34 2C 32 |2AD ;BU=>(254,2| 00000D50: 35 33 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |53).. JSR | 00000D60: 45 4C 4D 4C 47 20 20 3B 52 45 47 45 4C 4C 45 4E |ELMLG ;REGELLEN| 00000D70: 47 54 45 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |GTE.. LDX #| 00000D80: 30 31 33 20 20 20 20 3B 5A 45 54 20 3C 43 52 3E |013 ;ZET <CR>| 00000D90: 20 4E 41 0D 20 20 20 20 20 20 4A 53 52 20 20 58 | NA. JSR X| 00000DA0: 54 52 41 58 20 20 3B 4D 45 54 20 45 58 54 52 41 |TRAX ;MET EXTRA| 00000DB0: 2D 58 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4F |-X.. JSR O| 00000DC0: 55 54 50 20 20 20 3B 52 45 47 45 4C 4F 55 54 50 |UTP ;REGELOUTP| 00000DD0: 55 54 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 |UT.. RTS | 00000DE0: 20 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E | ;NAAR H.P.| 00000DF0: 0D 20 20 20 20 20 20 4E 4F 50 0D 46 4F 55 54 52 |. NOP.FOUTR| 00000E00: 20 4C 44 58 20 23 30 32 34 20 20 20 20 3B 4F 50 | LDX #024 ;OP| 00000E10: 45 4E 20 52 45 47 45 4C 0D 20 20 20 20 20 20 4A |EN REGEL. J| 00000E20: 53 52 20 20 53 43 4E 54 58 20 20 3B 56 4F 4F 52 |SR SCNTX ;VOOR| 00000E30: 41 46 2E 0D 46 4F 55 54 53 20 4C 44 58 20 23 30 |AF..FOUTS LDX #0| 00000E40: 30 36 20 20 20 20 3B 27 46 4F 55 54 21 0D 20 20 |06 ;'FOUT!. | 00000E50: 20 20 20 20 4A 53 52 20 20 53 43 4E 54 58 20 20 | JSR SCNTX | 00000E60: 3B 20 4E 4F 47 20 45 45 4E 53 2E 27 0D 20 20 20 |; NOG EENS.'. | 00000E70: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00000E80: 4E 41 41 52 20 48 2E 50 2E 0D 42 59 54 5A 20 20 |NAAR H.P..BYTZ | 00000E90: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 5A 45 54 |LDY #000 ;ZET| 00000EA0: 20 2E 42 59 54 45 2E 0D 20 20 20 20 20 20 4C 44 | .BYTE.. LD| 00000EB0: 41 20 23 30 34 36 0D 20 20 20 20 20 20 53 54 41 |A #046. STA| 00000EC0: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 49 | (253),Y. I| 00000ED0: 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 23 30 36 |NY. LDA #06| 00000EE0: 36 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |6. STA (253| 00000EF0: 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 |),Y. INY. | 00000F00: 20 20 20 20 4C 44 41 20 23 30 38 39 0D 20 20 20 | LDA #089. | 00000F10: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 00000F20: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 4C | INY. L| 00000F30: 44 41 20 23 30 38 34 0D 20 20 20 20 20 20 53 54 |DA #084. ST| 00000F40: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00000F50: 49 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |INY. LDA #0| 00000F60: 36 39 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |69. STA (25| 00000F70: 33 29 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 45 |3),Y. RTS.E| 00000F80: 4E 44 5A 20 20 4C 44 59 20 23 30 30 30 20 20 20 |NDZ LDY #000 | 00000F90: 20 3B 5A 45 54 20 2E 45 4E 44 2E 0D 20 20 20 20 | ;ZET .END.. | 00000FA0: 20 20 4C 44 41 20 23 30 34 36 0D 20 20 20 20 20 | LDA #046. | 00000FB0: 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 | STA (253),Y. | 00000FC0: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 41 | INY. LDA| 00000FD0: 20 23 30 36 39 0D 20 20 20 20 20 20 53 54 41 20 | #069. STA | 00000FE0: 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 49 4E |(253),Y. IN| 00000FF0: 59 0D 20 20 20 20 20 20 4C 44 41 20 23 30 37 38 |Y. LDA #078| 00001000: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00001010: 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |,Y. INY. | 00001020: 20 20 20 4C 44 41 20 23 30 36 38 0D 20 20 20 20 | LDA #068. | 00001030: 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 | STA (253),Y. | 00001040: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00001050: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00001060: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00001070: 20 20 20 20 20 20 2E 4C 49 42 20 44 49 4C 4E 30 | .LIB DILN0| 00001080: 31 0D 20 20 20 20 20 20 2E 45 4E 44 0D |1. .END. |
*=34304. ;.
;DISSEMBLER.
;SUBROUTINES.. ; D
EEL I.. ;.
;PRINTERZETTERS..
;SUBPASS 1,2.. ;DIRECTI
EVEN.. ;.PREPR STX 040
;RED (X).. JSR POETR ;POETS R
EGEL.. JSR LENOO ;ZET LENGTE=0..
LDX 040 ;HERSTEL (X).. JSR
XTRAX ;ZET IN ELEMENT.. RTS
;NAAR H.P..MARGE LDX #027 ;ZET <E
SC>.. JSR PREPR. LDX #077
;'M' NA.. JSR XTRAX. LDX MAR
GE ;MARGEGROOTTE.. JSR XTRAX ;ZE
T NA.. JSR OUTPR ;REGEL UIT..
RTS ;NAAR H.P..TERUG LDX #027
;ZET <ESC>.. JSR PREPR ;.
LDX #064 ;'@' NA.. JSR XTRAX.
JSR OUTPR ;REGEL UIT.. RTS
;NAAR H.P..BIXX2 LDA #001. S
TA DBVLG ;DUBBELBYTE.. JSR BIXX
;HEXADEC. OF. RTS ;DEC.DE
CONV..VLRU LDX #004. JSR VL2AA ;
RU=>(110,109).. RTS. NOP.
;. ;.
;SUBPASS 1..
;.SUBP1 LDX #007 ;(040)=JV NUL..
LDA #000 ;(002)=2*U.. STA 0
40 ;ZET U=0.. STA 002 ;POETS
SUBTABEL..SUB01 STA JL,X ;4 PAREN.
DEX ;(721+2*U). BPL
SUB01 ;(720+2*U).. LDA YH
;YH,YL=>(39,38).. STA 039. L
DA YL . STA 038 ;AANTAL NABY
TES. LDY NN ;NN=>(Y).. CL
C ;GA NAAR SUB05.. BCC SUB
05.SUB02 STY 042 ;RED (Y).. INC
038 ;KIJK NA OPCODE.. BNE SUB
03. INC 039.SUB03 JSR LABZK ;LAB
EL ZOEKEN.. CPX #001 ;GEVONDEN:.
BEQ SUB04 ;LABELNUMMER. LDX
002 ;(252,251) IN. LDA 251
;SUBTABEL.. STA JL,X. LDA 2
52. STA JH,X. INC 040 ;JV
OP:LABEL IN.SUB04 INC 002 ;OPERANDV
ELD.. INC 002 ;2*(U+1).. L
DY 042.SUB05 DEY ;(Y) AFTELLEN.
. BPL SUB02 ;KLAAR?. RTS
;JA: NAAR H.P.. NOP. NOP.
NOP. ;.
;. ;SUBPASS 2..
;.SUBP2 LDA #000 ;(
100)=2*U.. STA 100 ;ZET U=0..
LDA YH ;YH,YL=>(99,98).. S
TA 099. LDA YL . STA 098.
LDA NN . STA 101 ;NN=
>(101).. CLC ;GA NAAR SUB1
5.. BCC SUB15.SUB11 JSR POETR ;
POETS REGEL.. LDY #001 ;ADRES N
A. JSR ADPAD ;LENGTEBYTE..
LDX 100 ;2*U.. LDA JL,X ;S
UBTABELITEM. STA 251 ;NUMMER U
.. LDA JH,X. STA 252. B
NE SUB12 ;NUL:-->[SUB13]. LDA 2
51. BEQ SUB13 ;NIET NUL:LABEL.SU
B12 JSR LABEZ ;ERVAN MAKEN..SUB13 INC
100 ;2*(U+1).. INC 100.
LDY #006 ;(254,253)+6. JSR AD
PAD ;=>(254,253).. INC 098 ;
(99,98)+1. BNE SUB14 ;=>(99,98):
. INC 099 ;ADRES VOOR.SUB14 LD
Y #000 ;BYTEWAARDE.. LDA (098),
Y ;ZET IN. STA 251 ;(252,251)
.. JSR BYTER ;REGEL '.BYTE'..
LDA 144 ;TOESTAND.. BNE SU
B16 ;ABNORMAAL:H.P..SUB15 DEC 101
;TEL (101) AF.. BPL SUB11 ;KLAA
R:.SUB16 RTS ;NAAR H.P.. N
OP. NOP. NOP. NOP.BYTER J
SR BYTZ ;ZET '.BYTE'.. LDY #006
;(254,253)+6. JSR ADPAD ;=>(25
4,253).. STY DBVLG ;ENKELBYTE..
JSR BIXX ;DECONVERSIE..OUTPR LDX
#012 ;ZET ADRES. JSR VL2AD ;BU
=>(254,253).. JSR ELMLG ;REGELLEN
GTE.. LDX #013 ;ZET <CR> NA.
JSR XTRAX ;MET EXTRA-X.. JSR O
UTP ;REGELOUTPUT.. RTS ;N
AAR H.P.. NOP.FOUTR LDX #024 ;OP
EN REGEL. JSR SCNTX ;VOORAF..FOUT
S LDX #006 ;'FOUT!. JSR SCNTX
; NOG EENS.'. RTS ;NAAR H.P
..BYTZ LDY #000 ;ZET .BYTE.. LD
A #046. STA (253),Y. INY.
LDA #066. STA (253),Y. INY.
LDA #089. STA (253),Y. INY
. LDA #084. STA (253),Y.
INY. LDA #069. STA (253),Y.
RTS.ENDZ LDY #000 ;ZET .END..
LDA #046. STA (253),Y. INY.
LDA #069. STA (253),Y. IN
Y. LDA #078. STA (253),Y.
INY. LDA #068. STA (253),Y.
RTS. NOP. NOP. NOP.
NOP. .LIB DILN01. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL