DISA25
FILE INFORMATION
FILENAME(S): DISA25
FILE TYPE(S): SEQ
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
f2c1030bdaaa7c3e23a18514731cc1a8f4c47fba17e98fa9b067c793a747165f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA25 | SEQ | DuncanTwain | 17 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 36 39 36 30 | *=36960| 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 50 52 49 4E 54 45 52 5A | ;PRINTERZ| 00000040: 45 54 54 45 52 53 2E 0D 20 20 20 20 20 20 20 20 |ETTERS.. | 00000050: 20 20 20 20 20 20 20 20 20 20 3B 0D 50 52 45 50 | ;.PREP| 00000060: 52 20 53 54 58 20 20 30 34 30 20 20 20 20 3B 52 |R STX 040 ;R| 00000070: 45 44 20 28 58 29 2E 0D 20 20 20 20 20 20 4A 53 |ED (X).. JS| 00000080: 52 20 20 33 37 37 32 33 20 20 3B 50 4F 45 54 53 |R 37723 ;POETS| 00000090: 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 4A 53 | REGEL.. JS| 000000A0: 52 20 20 33 38 33 37 32 20 20 3B 5A 45 54 20 4C |R 38372 ;ZET L| 000000B0: 45 4E 47 54 45 3D 30 2E 0D 20 20 20 20 20 20 4C |ENGTE=0.. L| 000000C0: 44 58 20 20 30 34 30 20 20 20 20 3B 48 45 52 53 |DX 040 ;HERS| 000000D0: 54 45 4C 20 28 58 29 2E 0D 20 20 20 20 20 20 4A |TEL (X).. J| 000000E0: 53 52 20 20 33 37 37 30 38 20 20 3B 5A 45 54 20 |SR 37708 ;ZET | 000000F0: 49 4E 20 45 4C 45 4D 45 4E 54 2E 0D 20 20 20 20 |IN ELEMENT.. | 00000100: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00000110: 41 41 52 20 48 2E 50 2E 0D 4D 41 52 47 45 20 4C |AAR H.P..MARGE L| 00000120: 44 58 20 23 30 32 37 20 20 20 20 3B 5A 45 54 20 |DX #027 ;ZET | 00000130: 3C 45 53 43 3E 2E 0D 20 20 20 20 20 20 4A 53 52 |<ESC>.. JSR| 00000140: 20 20 50 52 45 50 52 0D 20 20 20 20 20 20 4C 44 | PREPR. LD| 00000150: 58 20 23 30 37 37 20 20 20 20 3B 27 4D 27 20 4E |X #077 ;'M' N| 00000160: 41 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 |A.. JSR 37| 00000170: 37 30 38 0D 20 20 20 20 20 20 4C 44 58 20 20 34 |708. LDX 4| 00000180: 30 39 34 33 20 20 3B 4D 41 52 47 45 47 52 4F 4F |0943 ;MARGEGROO| 00000190: 54 54 45 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |TTE.. JSR | 000001A0: 33 37 37 30 38 20 20 3B 5A 45 54 20 4E 41 2E 0D |37708 ;ZET NA..| 000001B0: 20 20 20 20 20 20 4A 53 52 20 20 52 47 49 4E 20 | JSR RGIN | 000001C0: 20 20 3B 52 45 47 45 4C 20 55 49 54 2E 0D 20 20 | ;REGEL UIT.. | 000001D0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 000001E0: 3B 4E 41 41 52 20 48 2E 50 2E 0D 54 45 52 55 47 |;NAAR H.P..TERUG| 000001F0: 20 4C 44 58 20 23 30 32 37 20 20 20 20 3B 5A 45 | LDX #027 ;ZE| 00000200: 54 20 3C 45 53 43 3E 2E 0D 20 20 20 20 20 20 4A |T <ESC>.. J| 00000210: 53 52 20 20 50 52 45 50 52 20 20 3B 0D 20 20 20 |SR PREPR ;. | 00000220: 20 20 20 4C 44 58 20 23 30 36 34 20 20 20 20 3B | LDX #064 ;| 00000230: 27 40 27 20 4E 41 2E 0D 20 20 20 20 20 20 4A 53 |'@' NA.. JS| 00000240: 52 20 20 33 37 37 30 38 0D 20 20 20 20 20 20 4A |R 37708. J| 00000250: 53 52 20 20 52 47 49 4E 20 20 20 3B 52 45 47 45 |SR RGIN ;REGE| 00000260: 4C 20 55 49 54 2E 0D 20 20 20 20 20 20 52 54 53 |L UIT.. RTS| 00000270: 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 | ;NAAR H| 00000280: 2E 50 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |.P.. LDA #0| 00000290: 30 31 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |01. STA 00| 000002A0: 37 35 30 20 20 3B 44 55 42 42 45 4C 42 59 54 45 |750 ;DUBBELBYTE| 000002B0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 34 |.. JSR 374| 000002C0: 37 32 20 20 3B 48 45 58 41 44 45 43 2E 20 4F 46 |72 ;HEXADEC. OF| 000002D0: 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 |. RTS | 000002E0: 20 20 20 3B 44 45 43 2E 44 45 43 4F 4E 56 2E 0D | ;DEC.DECONV..| 000002F0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 0D 20 | LDX #000. | 00000300: 20 20 20 20 20 4A 53 52 20 20 33 38 33 39 32 20 | JSR 38392 | 00000310: 20 3B 52 55 3D 3E 28 31 31 30 2C 31 30 39 29 2E | ;RU=>(110,109).| 00000320: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00000330: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000340: 20 20 20 20 20 20 20 20 2A 3D 33 37 30 32 34 0D | *=37024.| 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00000370: 20 20 20 20 20 20 3B 53 55 42 50 41 53 53 20 31 | ;SUBPASS 1| 00000380: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000390: 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 58 20 | ;. LDX | 000003A0: 23 30 30 37 20 20 20 20 3B 28 30 34 30 29 3D 4A |#007 ;(040)=J| 000003B0: 56 20 4E 55 4C 2E 0D 20 20 20 20 20 20 4C 44 41 |V NUL.. LDA| 000003C0: 20 23 30 30 30 20 20 20 20 3B 28 30 30 32 29 3D | #000 ;(002)=| 000003D0: 32 2A 55 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |2*U.. STA | 000003E0: 30 34 30 20 20 20 20 3B 5A 45 54 20 55 3D 30 2E |040 ;ZET U=0.| 000003F0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 |. STA 002 | 00000400: 20 20 20 3B 50 4F 45 54 53 20 53 55 42 54 41 42 | ;POETS SUBTAB| 00000410: 45 4C 2E 0D 50 41 30 30 31 20 53 54 41 20 20 30 |EL..PA001 STA 0| 00000420: 30 37 32 30 2C 58 20 20 3B 34 20 50 41 52 45 4E |0720,X ;4 PAREN| 00000430: 0D 20 20 20 20 20 20 44 45 58 20 20 20 20 20 20 |. DEX | 00000440: 20 20 20 20 20 3B 28 37 32 31 2B 32 2A 55 29 0D | ;(721+2*U).| 00000450: 20 20 20 20 20 20 42 50 4C 20 20 50 41 30 30 31 | BPL PA001| 00000460: 20 20 20 20 3B 28 37 32 30 2B 32 2A 55 29 2E 0D | ;(720+2*U)..| 00000470: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 31 | LDA 00711| 00000480: 20 20 3B 59 48 2C 59 4C 3D 3E 28 33 39 2C 33 38 | ;YH,YL=>(39,38| 00000490: 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |).. STA 03| 000004A0: 39 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |9. LDA 007| 000004B0: 31 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |10. STA 03| 000004C0: 38 20 20 20 20 3B 41 41 4E 54 41 4C 20 4E 41 42 |8 ;AANTAL NAB| 000004D0: 59 54 45 53 0D 20 20 20 20 20 20 4C 44 59 20 20 |YTES. LDY | 000004E0: 30 30 37 31 36 20 20 3B 4E 4E 3D 3E 28 59 29 2E |00716 ;NN=>(Y).| 000004F0: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000500: 20 20 20 3B 47 41 20 4E 41 41 52 20 50 41 30 30 | ;GA NAAR PA00| 00000510: 35 2E 0D 20 20 20 20 20 20 42 43 43 20 20 50 41 |5.. BCC PA| 00000520: 30 30 35 0D 50 41 30 30 32 20 53 54 59 20 20 30 |005.PA002 STY 0| 00000530: 34 32 20 20 20 20 3B 52 45 44 20 28 59 29 2E 0D |42 ;RED (Y)..| 00000540: 20 20 20 20 20 20 49 4E 43 20 20 30 33 38 20 20 | INC 038 | 00000550: 20 20 3B 4B 49 4A 4B 20 4E 41 20 4F 50 43 4F 44 | ;KIJK NA OPCOD| 00000560: 45 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 50 41 |E.. BNE PA| 00000570: 30 30 33 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |003. INC 0| 00000580: 33 39 0D 50 41 30 30 33 20 4A 53 52 20 20 33 37 |39.PA003 JSR 37| 00000590: 38 37 36 20 20 3B 4C 41 42 45 4C 20 5A 4F 45 4B |876 ;LABEL ZOEK| 000005A0: 45 4E 2E 0D 20 20 20 20 20 20 43 50 58 20 23 30 |EN.. CPX #0| 000005B0: 30 31 20 20 20 20 3B 47 45 56 4F 4E 44 45 4E 3A |01 ;GEVONDEN:| 000005C0: 0D 20 20 20 20 20 20 42 45 51 20 20 50 41 30 30 |. BEQ PA00| 000005D0: 34 20 20 3B 4C 41 42 45 4C 4E 55 4D 4D 45 52 0D |4 ;LABELNUMMER.| 000005E0: 20 20 20 20 20 20 4C 44 58 20 20 30 30 32 20 20 | LDX 002 | 000005F0: 20 20 3B 28 32 35 32 2C 32 35 31 29 20 49 4E 0D | ;(252,251) IN.| 00000600: 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 | LDA 251 | 00000610: 20 20 3B 53 55 42 54 41 42 45 4C 2E 0D 20 20 20 | ;SUBTABEL.. | 00000620: 20 20 20 53 54 41 20 20 30 30 37 32 30 2C 58 0D | STA 00720,X.| 00000630: 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 0D 20 | LDA 252. | 00000640: 20 20 20 20 20 53 54 41 20 20 30 30 37 32 31 2C | STA 00721,| 00000650: 58 0D 20 20 20 20 20 20 49 4E 43 20 20 30 34 30 |X. INC 040| 00000660: 20 20 20 20 3B 4A 56 20 4F 50 3A 4C 41 42 45 4C | ;JV OP:LABEL| 00000670: 20 49 4E 0D 50 41 30 30 34 20 49 4E 43 20 20 30 | IN.PA004 INC 0| 00000680: 30 32 20 20 20 20 3B 4F 50 45 52 41 4E 44 56 45 |02 ;OPERANDVE| 00000690: 4C 44 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |LD.. INC 0| 000006A0: 30 32 20 20 20 20 3B 32 2A 28 55 2B 31 29 2E 0D |02 ;2*(U+1)..| 000006B0: 20 20 20 20 20 20 4C 44 59 20 20 30 34 32 0D 50 | LDY 042.P| 000006C0: 41 30 30 35 20 44 45 59 20 20 20 20 20 20 20 20 |A005 DEY | 000006D0: 20 3B 28 59 29 20 41 46 54 45 4C 4C 45 4E 2E 0D | ;(Y) AFTELLEN..| 000006E0: 20 20 20 20 20 20 42 50 4C 20 20 50 41 30 30 32 | BPL PA002| 000006F0: 20 20 3B 4B 4C 41 41 52 3F 0D 20 20 20 20 20 20 | ;KLAAR?. | 00000700: 52 54 53 20 20 20 20 20 20 20 20 20 3B 4A 41 3A |RTS ;JA:| 00000710: 20 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 | NAAR H.P.. | 00000720: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000730: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00000740: 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 |OP. *=37| 00000750: 30 39 36 0D 20 20 20 20 20 20 20 20 20 20 20 20 |096. | 00000760: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 | ;. | 00000770: 20 20 20 20 20 20 20 20 20 20 3B 53 55 42 50 41 | ;SUBPA| 00000780: 53 53 20 32 2E 0D 20 20 20 20 20 20 20 20 20 20 |SS 2.. | 00000790: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 000007A0: 4C 44 41 20 23 30 30 30 20 20 20 20 3B 28 31 30 |LDA #000 ;(10| 000007B0: 30 29 3D 32 2A 55 2E 0D 20 20 20 20 20 20 53 54 |0)=2*U.. ST| 000007C0: 41 20 20 31 30 30 20 20 20 20 3B 5A 45 54 20 55 |A 100 ;ZET U| 000007D0: 3D 30 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |=0.. LDA 0| 000007E0: 30 37 31 31 20 20 3B 59 48 2C 59 4C 3D 3E 28 39 |0711 ;YH,YL=>(9| 000007F0: 39 2C 39 38 29 2E 0D 20 20 20 20 20 20 53 54 41 |9,98).. STA| 00000800: 20 20 30 39 39 0D 20 20 20 20 20 20 4C 44 41 20 | 099. LDA | 00000810: 20 30 30 37 31 30 0D 20 20 20 20 20 20 53 54 41 | 00710. STA| 00000820: 20 20 30 39 38 0D 20 20 20 20 20 20 4C 44 41 20 | 098. LDA | 00000830: 20 30 30 37 31 36 0D 20 20 20 20 20 20 53 54 41 | 00716. STA| 00000840: 20 20 31 30 31 20 20 20 20 20 3B 4E 4E 3D 3E 28 | 101 ;NN=>(| 00000850: 31 30 31 29 2E 0D 20 20 20 20 20 20 43 4C 43 20 |101).. CLC | 00000860: 20 20 20 20 20 20 20 20 20 3B 47 41 20 4E 41 41 | ;GA NAA| 00000870: 52 20 50 42 30 30 35 2E 0D 20 20 20 20 20 20 42 |R PB005.. B| 00000880: 43 43 20 20 50 42 30 30 35 0D 50 42 30 30 32 20 |CC PB005.PB002 | 00000890: 4A 53 52 20 20 33 37 37 32 33 20 20 20 3B 50 4F |JSR 37723 ;PO| 000008A0: 45 54 53 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 |ETS REGEL.. | 000008B0: 20 4C 44 59 20 23 30 30 31 20 20 20 20 20 3B 41 | LDY #001 ;A| 000008C0: 44 52 45 53 20 4E 41 0D 20 20 20 20 20 20 4A 53 |DRES NA. JS| 000008D0: 52 20 20 33 38 35 33 32 20 20 20 3B 4C 45 4E 47 |R 38532 ;LENG| 000008E0: 54 45 42 59 54 45 2E 0D 20 20 20 20 20 20 4C 44 |TEBYTE.. LD| 000008F0: 58 20 20 31 30 30 20 20 20 20 20 3B 32 2A 55 2E |X 100 ;2*U.| 00000900: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 32 |. LDA 0072| 00000910: 30 2C 58 20 3B 53 55 42 54 41 42 45 4C 49 54 45 |0,X ;SUBTABELITE| 00000920: 4D 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 |M. STA 251| 00000930: 20 20 20 20 20 3B 4E 55 4D 4D 45 52 20 55 2E 0D | ;NUMMER U..| 00000940: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 32 31 | LDA 00721| 00000950: 2C 58 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |,X. STA 25| 00000960: 32 0D 20 20 20 20 20 20 42 4E 45 20 20 50 42 30 |2. BNE PB0| 00000970: 30 34 20 20 20 3B 4E 55 4C 3A 2D 2D 3E 5B 50 42 |04 ;NUL:-->[PB| 00000980: 30 31 34 5D 0D 20 20 20 20 20 20 4C 44 41 20 20 |014]. LDA | 00000990: 32 35 31 0D 20 20 20 20 20 20 42 45 51 20 20 50 |251. BEQ P| 000009A0: 42 30 31 34 20 20 20 3B 4E 49 45 54 20 4E 55 4C |B014 ;NIET NUL| 000009B0: 3A 4C 41 42 45 4C 0D 50 42 30 30 34 20 4A 53 52 |:LABEL.PB004 JSR| 000009C0: 20 20 33 37 35 31 30 20 20 20 3B 45 52 56 41 4E | 37510 ;ERVAN| 000009D0: 20 4D 41 4B 45 4E 2E 0D 50 42 30 31 34 20 49 4E | MAKEN..PB014 IN| 000009E0: 43 20 20 31 30 30 20 20 20 20 20 3B 32 2A 28 55 |C 100 ;2*(U| 000009F0: 2B 31 29 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 |+1).. INC | 00000A00: 31 30 30 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |100. LDY #0| 00000A10: 30 36 20 20 20 20 20 3B 28 32 35 34 2C 32 35 33 |06 ;(254,253| 00000A20: 29 2B 36 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |)+6. JSR 3| 00000A30: 38 35 33 32 20 20 20 3B 3D 3E 28 32 35 34 2C 32 |8532 ;=>(254,2| 00000A40: 35 33 29 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 |53).. INC | 00000A50: 30 39 38 20 20 20 20 20 3B 28 39 39 2C 39 38 29 |098 ;(99,98)| 00000A60: 2B 31 0D 20 20 20 20 20 20 42 4E 45 20 20 50 42 |+1. BNE PB| 00000A70: 30 32 34 20 20 20 3B 3D 3E 28 39 39 2C 39 38 29 |024 ;=>(99,98)| 00000A80: 3A 0D 20 20 20 20 20 20 49 4E 43 20 20 30 39 39 |:. INC 099| 00000A90: 20 20 20 20 20 3B 41 44 52 45 53 20 56 4F 4F 52 | ;ADRES VOOR| 00000AA0: 0D 50 42 30 32 34 20 4C 44 59 20 23 30 30 30 20 |.PB024 LDY #000 | 00000AB0: 20 20 20 20 3B 42 59 54 45 57 41 41 52 44 45 2E | ;BYTEWAARDE.| 00000AC0: 0D 20 20 20 20 20 20 4C 44 41 20 28 30 39 38 29 |. LDA (098)| 00000AD0: 2C 59 20 20 3B 5A 45 54 20 49 4E 0D 20 20 20 20 |,Y ;ZET IN. | 00000AE0: 20 20 53 54 41 20 20 32 35 31 20 20 20 20 20 3B | STA 251 ;| 00000AF0: 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 |(252,251).. | 00000B00: 20 4A 53 52 20 20 33 37 31 38 34 20 20 20 3B 52 | JSR 37184 ;R| 00000B10: 45 47 45 4C 20 27 2E 42 59 54 45 27 2E 0D 20 20 |EGEL '.BYTE'.. | 00000B20: 20 20 20 20 4C 44 41 20 20 31 34 34 20 20 20 20 | LDA 144 | 00000B30: 20 3B 54 4F 45 53 54 41 4E 44 2E 0D 20 20 20 20 | ;TOESTAND.. | 00000B40: 20 20 42 4E 45 20 20 50 42 30 30 36 20 20 20 3B | BNE PB006 ;| 00000B50: 41 42 4E 4F 52 4D 41 41 4C 3A 48 2E 50 2E 0D 50 |ABNORMAAL:H.P..P| 00000B60: 42 30 30 35 20 44 45 43 20 20 31 30 31 20 20 20 |B005 DEC 101 | 00000B70: 20 20 3B 54 45 4C 20 28 31 30 31 29 20 41 46 2E | ;TEL (101) AF.| 00000B80: 0D 20 20 20 20 20 20 42 50 4C 20 20 50 42 30 30 |. BPL PB00| 00000B90: 32 20 20 20 3B 4B 4C 41 41 52 3A 0D 50 42 30 30 |2 ;KLAAR:.PB00| 00000BA0: 36 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B |6 RTS ;| 00000BB0: 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 |NAAR H.P.. | 00000BC0: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000BD0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000BE0: 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 31 |P. *=371| 00000BF0: 38 34 0D 42 59 49 4E 20 20 4A 53 52 20 20 33 37 |84.BYIN JSR 37| 00000C00: 32 32 38 20 20 3B 5A 45 54 20 27 2E 42 59 54 45 |228 ;ZET '.BYTE| 00000C10: 27 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |'.. LDY #00| 00000C20: 36 20 20 20 20 3B 28 32 35 34 2C 32 35 33 29 2B |6 ;(254,253)+| 00000C30: 36 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 35 |6. JSR 385| 00000C40: 33 32 20 20 3B 3D 3E 28 32 35 34 2C 32 35 33 29 |32 ;=>(254,253)| 00000C50: 2E 0D 20 20 20 20 20 20 53 54 59 20 20 30 30 37 |.. STY 007| 00000C60: 35 30 20 20 3B 45 4E 4B 45 4C 42 59 54 45 2E 0D |50 ;ENKELBYTE..| 00000C70: 20 20 20 20 20 20 4A 53 52 20 20 33 37 34 37 32 | JSR 37472| 00000C80: 20 20 3B 44 45 43 4F 4E 56 45 52 53 49 45 2E 0D | ;DECONVERSIE..| 00000C90: 52 47 49 4E 20 20 4C 44 58 20 23 30 31 30 20 20 |RGIN LDX #010 | 00000CA0: 20 20 3B 5A 45 54 20 41 44 52 45 53 0D 20 20 20 | ;ZET ADRES. | 00000CB0: 20 20 20 4A 53 52 20 20 33 38 33 38 31 20 20 3B | JSR 38381 ;| 00000CC0: 42 55 3D 3E 28 32 35 34 2C 32 35 33 29 2E 0D 20 |BU=>(254,253).. | 00000CD0: 20 20 20 20 20 4A 53 52 20 20 33 37 34 34 39 20 | JSR 37449 | 00000CE0: 20 3B 52 45 47 45 4C 4C 45 4E 47 54 45 2E 0D 20 | ;REGELLENGTE.. | 00000CF0: 20 20 20 20 20 4C 44 58 20 23 30 31 33 20 20 20 | LDX #013 | 00000D00: 20 3B 5A 45 54 20 3C 43 52 3E 20 4E 41 0D 20 20 | ;ZET <CR> NA. | 00000D10: 20 20 20 20 4A 53 52 20 20 33 37 37 30 38 20 20 | JSR 37708 | 00000D20: 3B 4D 45 54 20 45 58 54 52 41 2D 58 2E 0D 20 20 |;MET EXTRA-X.. | 00000D30: 20 20 20 20 4A 53 52 20 20 33 37 36 37 34 20 20 | JSR 37674 | 00000D40: 3B 52 45 47 45 4C 4F 55 54 50 55 54 2E 0D 20 20 |;REGELOUTPUT.. | 00000D50: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 00000D60: 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |;NAAR H.P.. | 00000D70: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000D80: 20 20 20 20 20 20 20 20 2A 3D 33 37 32 31 36 0D | *=37216.| 00000D90: 20 20 20 20 20 20 4C 44 58 20 23 30 32 34 20 20 | LDX #024 | 00000DA0: 20 20 3B 4F 50 45 4E 20 52 45 47 45 4C 0D 20 20 | ;OPEN REGEL. | 00000DB0: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 20 | JSR 38712 | 00000DC0: 3B 56 4F 4F 52 41 46 2E 0D 20 20 20 20 20 20 4C |;VOORAF.. L| 00000DD0: 44 58 20 23 30 30 36 20 20 20 20 3B 27 46 4F 55 |DX #006 ;'FOU| 00000DE0: 54 21 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |T!. JSR 38| 00000DF0: 37 31 32 20 20 3B 20 4E 4F 47 20 45 45 4E 53 2E |712 ; NOG EENS.| 00000E00: 27 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 |'. RTS | 00000E10: 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 | ;NAAR H.P.. | 00000E20: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00000E30: 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 |OP. *=37| 00000E40: 32 32 38 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |228. LDY #0| 00000E50: 30 30 20 20 20 20 3B 5A 45 54 20 2E 42 59 54 45 |00 ;ZET .BYTE| 00000E60: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 36 |.. LDA #046| 00000E70: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00000E80: 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |,Y. INY. | 00000E90: 20 20 20 4C 44 41 20 23 30 36 36 0D 20 20 20 20 | LDA #066. | 00000EA0: 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 | STA (253),Y. | 00000EB0: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 | INY. LD| 00000EC0: 41 20 23 30 38 39 0D 20 20 20 20 20 20 53 54 41 |A #089. STA| 00000ED0: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 49 | (253),Y. I| 00000EE0: 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 23 30 38 |NY. LDA #08| 00000EF0: 34 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |4. STA (253| 00000F00: 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 |),Y. INY. | 00000F10: 20 20 20 20 4C 44 41 20 23 30 36 39 0D 20 20 20 | LDA #069. | 00000F20: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 00000F30: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 00000F40: 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 |OP. *=37| 00000F50: 32 35 36 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |256. LDY #0| 00000F60: 30 30 20 20 20 20 3B 5A 45 54 20 2E 45 4E 44 2E |00 ;ZET .END.| 00000F70: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 36 0D |. LDA #046.| 00000F80: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 00000F90: 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 |Y. INY. | 00000FA0: 20 20 4C 44 41 20 23 30 36 39 0D 20 20 20 20 20 | LDA #069. | 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 37 38 0D 20 20 20 20 20 20 53 54 41 20 | #078. 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 36 38 |Y. LDA #068| 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 52 54 53 0D 20 20 20 |,Y. RTS. | 00001020: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00001030: 0D 20 20 20 20 20 20 2E 45 4E 44 0D |. .END. |
*=36960. ;.
;PRINTERZETTERS..
;.PREPR STX 040 ;RED (X)..
JSR 37723 ;POETS REGEL.. JS
R 38372 ;ZET LENGTE=0.. LDX 040
;HERSTEL (X).. JSR 37708 ;ZET
IN ELEMENT.. RTS ;NAAR H.P.
.MARGE LDX #027 ;ZET <ESC>.. JSR
PREPR. LDX #077 ;'M' NA..
JSR 37708. LDX 40943 ;MARGEGROO
TTE.. JSR 37708 ;ZET NA.. JS
R RGIN ;REGEL UIT.. RTS
;NAAR H.P..TERUG LDX #027 ;ZET <ESC>.
. JSR PREPR ;. LDX #064 ;
'@' NA.. JSR 37708. JSR RGIN
;REGEL UIT.. RTS ;NAAR H
.P.. LDA #001. STA 00750 ;DU
BBELBYTE.. JSR 37472 ;HEXADEC. OF
. RTS ;DEC.DECONV.. LD
X #000. JSR 38392 ;RU=>(110,109).
. RTS. NOP. NOP.
*=37024. ;.
;SUBPASS 1.. ;.
LDX #007 ;(040)=JV NUL.. LDA
#000 ;(002)=2*U.. STA 040 ;
ZET U=0.. STA 002 ;POETS SUBTAB
EL..PA001 STA 00720,X ;4 PAREN. D
EX ;(721+2*U). BPL PA001
;(720+2*U).. LDA 00711 ;YH,YL
=>(39,38).. STA 039. LDA 007
10. STA 038 ;AANTAL NABYTES.
LDY 00716 ;NN=>(Y).. CLC
;GA NAAR PA005.. BCC PA005.PA00
2 STY 042 ;RED (Y).. INC 038
;KIJK NA OPCODE.. BNE PA003.
INC 039.PA003 JSR 37876 ;LABEL ZOEK
EN.. CPX #001 ;GEVONDEN:. B
EQ PA004 ;LABELNUMMER. LDX 002
;(252,251) IN. LDA 251 ;SUBTA
BEL.. STA 00720,X. LDA 252.
STA 00721,X. INC 040 ;JV
OP:LABEL IN.PA004 INC 002 ;OPERANDVE
LD.. INC 002 ;2*(U+1).. LD
Y 042.PA005 DEY ;(Y) AFTELLEN..
BPL PA002 ;KLAAR?. RTS
;JA: NAAR H.P.. NOP. NOP.
NOP. NOP. *=37096.
;. ;SUBPA
SS 2.. ;. LDA #000
;(100)=2*U.. STA 100 ;ZET U
=0.. LDA 00711 ;YH,YL=>(99,98)..
STA 099. LDA 00710. STA
098. LDA 00716. STA 101
;NN=>(101).. CLC ;GA NAA
R PB005.. BCC PB005.PB002 JSR 377
23 ;POETS REGEL.. LDY #001 ;A
DRES NA. JSR 38532 ;LENGTEBYTE..
LDX 100 ;2*U.. LDA 0072
0,X ;SUBTABELITEM. STA 251 ;NU
MMER U.. LDA 00721,X. STA 25
2. BNE PB004 ;NUL:-->[PB014].
LDA 251. BEQ PB014 ;NIET NUL
:LABEL.PB004 JSR 37510 ;ERVAN MAKEN..
PB014 INC 100 ;2*(U+1).. INC
100. LDY #006 ;(254,253)+6.
JSR 38532 ;=>(254,253).. INC
098 ;(99,98)+1. BNE PB024 ;=
>(99,98):. INC 099 ;ADRES VOOR
.PB024 LDY #000 ;BYTEWAARDE.. L
DA (098),Y ;ZET IN. STA 251 ;
(252,251).. JSR 37184 ;REGEL '.B
YTE'.. LDA 144 ;TOESTAND..
BNE PB006 ;ABNORMAAL:H.P..PB005 DEC
101 ;TEL (101) AF.. BPL PB00
2 ;KLAAR:.PB006 RTS ;NAAR H.P
.. NOP. NOP. NOP. NO
P. *=37184.BYIN JSR 37228 ;ZE
T '.BYTE'.. LDY #006 ;(254,253)+
6. JSR 38532 ;=>(254,253)..
STY 00750 ;ENKELBYTE.. JSR 37472
;DECONVERSIE..RGIN LDX #010 ;ZET A
DRES. JSR 38381 ;BU=>(254,253)..
JSR 37449 ;REGELLENGTE.. LDX
#013 ;ZET <CR> NA. JSR 37708
;MET EXTRA-X.. JSR 37674 ;REGELOU
TPUT.. RTS ;NAAR H.P..
NOP. NOP. *=37216. LD
X #024 ;OPEN REGEL. JSR 38712
;VOORAF.. LDX #006 ;'FOUT!.
JSR 38712 ; NOG EENS.'. RTS
;NAAR H.P.. NOP. NOP.
*=37228. LDY #000 ;ZET .BYTE
.. LDA #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. NOP. *=37
256. LDY #000 ;ZET .END.. L
DA #046. STA (253),Y. INY.
LDA #069. STA (253),Y. INY.
LDA #078. STA (253),Y. IN
Y. LDA #068. STA (253),Y.
RTS. NOP. NOP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL