D2
FILE INFORMATION
FILENAME(S): D2
FILE TYPE(S): SEQ
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
7068b5093faff50dce418204c15845e9cd4bd3d24099ccdb10b0c5f75aebebfc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | D2 | SEQ | DuncanTwain | 16 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 37 35 38 30 | *=37580| 00000010: 0D 4F 50 30 20 20 20 4C 44 41 20 23 30 30 35 20 |.OP0 LDA #005 | 00000020: 20 20 20 3B 2A 2A 4F 50 45 4E 45 4E 2E 20 2A 2A | ;**OPENEN. **| 00000030: 0D 20 20 20 20 20 20 4C 44 58 20 20 30 30 37 35 |. LDX 0075| 00000040: 31 20 20 3B 42 45 53 54 2E 35 3B 54 4F 45 53 54 |1 ;BEST.5;TOEST| 00000050: 45 4C 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 4F |EL.. BNE O| 00000060: 50 31 20 20 20 20 3B 30 3A 20 53 43 48 45 52 4D |P1 ;0: SCHERM| 00000070: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 33 |.. LDX #003| 00000080: 20 20 20 20 3B 41 50 50 41 52 41 41 54 4E 52 2E | ;APPARAATNR.| 00000090: 0D 20 20 20 20 20 20 42 4E 45 20 20 4F 50 32 20 |. BNE OP2 | 000000A0: 20 20 20 3B 20 20 20 20 20 20 20 2D 2D 3E 5B 4F | ; -->[O| 000000B0: 50 32 5D 0D 4F 50 31 20 20 20 43 50 58 20 23 30 |P2].OP1 CPX #0| 000000C0: 30 33 0D 20 20 20 20 20 20 42 4E 45 20 20 4F 50 |03. BNE OP| 000000D0: 35 20 20 20 20 3B 33 3A 20 50 52 49 4E 54 45 52 |5 ;3: PRINTER| 000000E0: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 34 |.. LDX #004| 000000F0: 20 20 20 20 3B 41 50 50 41 52 41 41 54 4E 52 2E | ;APPARAATNR.| 00000100: 0D 4F 50 32 20 20 20 4C 44 59 20 23 30 30 30 20 |.OP2 LDY #000 | 00000110: 20 20 20 3B 53 45 43 2E 41 44 52 2E 4E 55 4C 2E | ;SEC.ADR.NUL.| 00000120: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 36 |. JSR 6546| 00000130: 36 20 20 3B 2A 20 53 45 54 4C 46 53 20 2A 0D 20 |6 ;* SETLFS *. | 00000140: 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 | LDA #000 | 00000150: 20 3B 47 45 45 4E 20 4E 41 41 4D 2E 0D 20 20 20 | ;GEEN NAAM.. | 00000160: 20 20 20 42 45 51 20 20 4F 50 39 20 20 20 20 3B | BEQ OP9 ;| 00000170: 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 50 39 5D 0D | -->[OP9].| 00000180: 4F 50 35 20 20 20 4C 44 41 20 23 30 30 30 20 20 |OP5 LDA #000 | 00000190: 20 20 3B 4E 41 41 4D 56 4C 41 47 0D 20 20 20 20 | ;NAAMVLAG. | 000001A0: 20 20 53 54 41 20 20 30 30 32 20 20 20 20 3B 4E | STA 002 ;N| 000001B0: 56 3D 30 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |V=0.. LDA | 000001C0: 30 30 37 35 31 0D 20 20 20 20 20 20 43 4D 50 20 |00751. CMP | 000001D0: 23 30 30 31 20 20 20 20 3B 31 3A 20 54 41 50 45 |#001 ;1: TAPE| 000001E0: 2E 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 36 |.. BEQ OP6| 000001F0: 20 20 20 20 3B 32 3A 20 44 49 53 4B 2E 0D 20 20 | ;2: DISK.. | 00000200: 20 20 20 20 4C 44 58 20 23 30 30 38 20 20 20 20 | LDX #008 | 00000210: 3B 44 49 53 4B 3A 41 50 50 2E 38 2E 0D 20 20 20 |;DISK:APP.8.. | 00000220: 20 20 20 4C 44 59 20 23 30 30 33 20 20 20 20 3B | LDY #003 ;| 00000230: 53 45 43 2E 41 44 52 2E 3D 33 2E 0D 20 20 20 20 |SEC.ADR.=3.. | 00000240: 20 20 49 4E 43 20 20 30 30 32 20 20 20 20 3B 5A | INC 002 ;Z| 00000250: 45 54 20 4E 56 3D 31 2E 0D 20 20 20 20 20 20 43 |ET NV=1.. C| 00000260: 4C 43 20 20 20 20 20 20 20 20 20 3B 20 20 20 20 |LC ; | 00000270: 20 20 20 2D 2D 3E 5B 4F 50 37 5D 0D 20 20 20 20 | -->[OP7]. | 00000280: 20 20 42 43 43 20 20 4F 50 37 0D 4F 50 36 20 20 | BCC OP7.OP6 | 00000290: 20 4C 44 58 20 23 30 30 31 20 20 20 20 3B 54 41 | LDX #001 ;TA| 000002A0: 50 45 3A 41 50 50 2E 31 2E 0D 20 20 20 20 20 20 |PE:APP.1.. | 000002B0: 4C 44 59 20 23 30 30 31 20 20 20 20 3B 53 45 43 |LDY #001 ;SEC| 000002C0: 2E 41 44 52 2E 3D 31 2E 0D 4F 50 37 20 20 20 4C |.ADR.=1..OP7 L| 000002D0: 44 41 20 23 30 30 35 20 20 20 20 3B 42 45 53 54 |DA #005 ;BEST| 000002E0: 41 4E 44 53 4E 52 2E 0D 20 20 20 20 20 20 4A 53 |ANDSNR.. JS| 000002F0: 52 20 20 36 35 34 36 36 20 20 3B 2A 20 53 45 54 |R 65466 ;* SET| 00000300: 4C 46 53 20 2A 0D 20 20 20 20 20 20 4C 44 41 20 |LFS *. LDA | 00000310: 20 30 30 32 20 20 20 20 3B 4E 56 3D 30 3A 20 20 | 002 ;NV=0: | 00000320: 2D 2D 3E 5B 4F 50 38 5D 0D 20 20 20 20 20 20 42 |-->[OP8]. B| 00000330: 45 51 20 20 4F 50 38 20 20 20 20 3B 4E 56 3D 31 |EQ OP8 ;NV=1| 00000340: 3A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 34 34 |:. LDX #044| 00000350: 20 20 20 20 3B 4B 4F 4D 4D 41 2E 0D 20 20 20 20 | ;KOMMA.. | 00000360: 20 20 4A 53 52 20 20 33 37 37 32 38 0D 20 20 20 | JSR 37728. | 00000370: 20 20 20 4C 44 58 20 23 30 38 33 20 20 20 20 3B | LDX #083 ;| 00000380: 27 53 27 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |'S'.. JSR | 00000390: 33 37 37 32 38 0D 20 20 20 20 20 20 4C 44 58 20 |37728. LDX | 000003A0: 23 30 34 34 20 20 20 20 3B 4B 4F 4D 4D 41 2E 0D |#044 ;KOMMA..| 000003B0: 20 20 20 20 20 20 4A 53 52 20 20 33 37 37 32 38 | JSR 37728| 000003C0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 37 20 |. LDX #087 | 000003D0: 20 20 20 3B 27 57 27 2E 0D 20 20 20 20 20 20 4A | ;'W'.. J| 000003E0: 53 52 20 20 33 37 37 32 38 0D 4F 50 38 20 20 20 |SR 37728.OP8 | 000003F0: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 4C 45 4E |LDY #000 ;LEN| 00000400: 47 54 45 20 49 4E 0D 20 20 20 20 20 20 4C 44 41 |GTE IN. LDA| 00000410: 20 28 32 35 33 29 2C 59 20 3B 44 45 20 53 54 41 | (253),Y ;DE STA| 00000420: 50 45 4C 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 |PEL.. PHA. | 00000430: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C | CLC. L| 00000440: 44 41 20 20 32 35 33 20 20 20 20 3B 4C 53 20 41 |DA 253 ;LS A| 00000450: 44 52 45 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 |DRES NAAM.. | 00000460: 20 41 44 43 20 23 30 30 31 0D 20 20 20 20 20 20 | ADC #001. | 00000470: 54 41 58 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |TAX. LDA 2| 00000480: 35 34 20 20 20 20 3B 4D 53 20 41 44 52 45 53 20 |54 ;MS ADRES | 00000490: 4E 41 41 4D 2E 0D 20 20 20 20 20 20 41 44 43 20 |NAAM.. ADC | 000004A0: 23 30 30 30 0D 20 20 20 20 20 20 54 41 59 20 20 |#000. TAY | 000004B0: 20 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 55 | ;LENGTE U| 000004C0: 49 54 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 |IT. PLA | 000004D0: 20 20 20 20 20 3B 44 45 20 53 54 41 50 45 4C 2E | ;DE STAPEL.| 000004E0: 0D 4F 50 39 20 20 20 4A 53 52 20 20 36 35 34 36 |.OP9 JSR 6546| 000004F0: 39 20 20 3B 2A 20 53 45 54 4E 41 4D 20 2A 0D 20 |9 ;* SETNAM *. | 00000500: 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 32 20 | JSR 65472 | 00000510: 20 3B 2A 20 4F 50 45 4E 20 20 20 2A 0D 20 20 20 | ;* OPEN *. | 00000520: 20 20 20 4C 44 58 20 23 30 30 35 20 20 20 20 3B | LDX #005 ;| 00000530: 42 45 53 54 41 4E 44 53 4E 52 2E 0D 20 20 20 20 |BESTANDSNR.. | 00000540: 20 20 4A 53 52 20 20 36 35 34 38 31 20 20 3B 2A | JSR 65481 ;*| 00000550: 20 43 48 4B 4F 55 54 20 2A 0D 20 20 20 20 20 20 | CHKOUT *. | 00000560: 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 |RTS ;NAA| 00000570: 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 2E 42 59 |R H.P.. .BY| 00000580: 54 45 20 24 46 46 2C 24 46 46 0D 20 20 20 20 20 |TE $FF,$FF. | 00000590: 20 20 20 20 2A 3D 33 37 36 39 32 0D 4F 52 30 20 | *=37692.OR0 | 000005A0: 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 2A | LDY #000 ;*| 000005B0: 2A 53 43 48 52 49 4A 46 2E 2A 2A 0D 20 20 20 20 |*SCHRIJF.**. | 000005C0: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 52 | LDA (253),Y ;R| 000005D0: 45 47 45 4C 4C 45 4E 47 54 45 0D 20 20 20 20 20 |EGELLENGTE. | 000005E0: 20 53 54 41 20 20 30 30 32 20 20 20 20 3B 54 49 | STA 002 ;TI| 000005F0: 4A 44 45 4C 49 4A 4B 2E 0D 20 20 20 20 20 20 42 |JDELIJK.. B| 00000600: 4E 45 20 20 4F 52 32 20 20 20 20 3B 3E 30 3A 20 |NE OR2 ;>0: | 00000610: 20 20 20 2D 2D 3E 5B 4F 52 32 5D 0D 20 20 20 20 | -->[OR2]. | 00000620: 20 20 42 45 51 20 20 4F 52 39 20 20 20 20 3B 3D | BEQ OR9 ;=| 00000630: 30 3A 20 20 20 20 2D 2D 3E 5B 4F 52 39 5D 0D 4F |0: -->[OR9].O| 00000640: 52 31 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 |R1 INY | 00000650: 20 3B 56 4F 4C 47 45 4E 44 45 20 42 59 54 45 2E | ;VOLGENDE BYTE.| 00000660: 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 |. LDA (253)| 00000670: 2C 59 20 3B 55 49 54 20 45 4C 45 4D 45 4E 54 2E |,Y ;UIT ELEMENT.| 00000680: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 |. JSR 6549| 00000690: 30 20 20 3B 2A 20 43 48 52 4F 55 54 20 2A 0D 4F |0 ;* CHROUT *.O| 000006A0: 52 32 20 20 20 43 50 59 20 20 30 30 32 20 20 20 |R2 CPY 002 | 000006B0: 20 3B 4B 4C 41 41 52 3F 0D 20 20 20 20 20 20 42 | ;KLAAR?. B| 000006C0: 43 43 20 20 4F 52 31 20 20 20 20 3B 4E 45 45 4E |CC OR1 ;NEEN| 000006D0: 3A 20 20 2D 2D 3E 5B 4F 52 31 5D 0D 4F 52 39 20 |: -->[OR1].OR9 | 000006E0: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 000006F0: 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 2E |AAR H.P.. .| 00000700: 42 59 54 45 20 24 46 46 2C 24 46 46 0D 20 20 20 |BYTE $FF,$FF. | 00000710: 20 20 20 20 20 20 2A 3D 33 37 37 31 36 0D 4F 53 | *=37716.OS| 00000720: 30 20 20 20 4C 44 41 20 23 30 30 35 20 20 20 20 |0 LDA #005 | 00000730: 3B 2A 2A 53 4C 55 49 54 45 4E 2E 2A 2A 0D 20 20 |;**SLUITEN.**. | 00000740: 20 20 20 20 4A 53 52 20 20 36 35 34 37 35 20 20 | JSR 65475 | 00000750: 3B 2A 20 43 4C 4F 53 45 20 20 2A 0D 20 20 20 20 |;* CLOSE *. | 00000760: 20 20 4A 53 52 20 20 36 35 35 31 31 20 20 3B 2A | JSR 65511 ;*| 00000770: 20 43 4C 41 4C 4C 20 20 2A 0D 20 20 20 20 20 20 | CLALL *. | 00000780: 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 |RTS ;NAA| 00000790: 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 2E 42 59 |R H.P.. .BY| 000007A0: 54 45 20 24 46 46 2C 24 46 46 0D 20 20 20 20 20 |TE $FF,$FF. | 000007B0: 20 20 20 20 2A 3D 33 37 37 32 38 0D 20 20 20 20 | *=37728. | 000007C0: 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 2A | LDY #000 ;*| 000007D0: 2A 45 58 54 52 41 2D 58 2E 2A 2A 0D 20 20 20 20 |*EXTRA-X.**. | 000007E0: 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 | CLC. LDA | 000007F0: 28 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 20 |(253),Y ;LENGTE | 00000800: 4D 45 54 20 45 45 4E 0D 20 20 20 20 20 20 41 44 |MET EEN. AD| 00000810: 43 20 23 30 30 31 20 20 20 20 3B 4F 50 48 4F 47 |C #001 ;OPHOG| 00000820: 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 |EN.. STA (2| 00000830: 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 20 4D 45 |53),Y ;LENGTE ME| 00000840: 54 20 45 45 4E 0D 20 20 20 20 20 20 54 41 59 20 |T EEN. TAY | 00000850: 20 20 20 20 20 20 20 20 3B 5A 45 54 20 49 4E 20 | ;ZET IN | 00000860: 28 59 29 2E 0D 20 20 20 20 20 20 54 58 41 20 20 |(Y).. TXA | 00000870: 20 20 20 20 20 20 20 3B 45 58 54 52 41 20 54 45 | ;EXTRA TE| 00000880: 4B 45 4E 20 28 58 29 0D 20 20 20 20 20 20 53 54 |KEN (X). ST| 00000890: 41 20 28 32 35 33 29 2C 59 20 3B 41 43 48 54 45 |A (253),Y ;ACHTE| 000008A0: 52 41 41 4E 2E 0D 20 20 20 20 20 20 52 54 53 0D |RAAN.. RTS.| 000008B0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000008C0: 4E 4F 50 20 20 20 20 20 20 20 20 20 3B 4C 41 41 |NOP ;LAA| 000008D0: 54 53 54 45 21 21 21 21 21 21 0D 20 20 20 20 20 |TSTE!!!!!!. | 000008E0: 20 2E 45 4E 44 0D | .END. |
*=37580.OP0 LDA #005 ;**OP
ENEN. **. LDX 00751 ;BEST.5;TOEST
EL.. BNE OP1 ;0: SCHERM..
LDX #003 ;APPARAATNR.. BNE OP2
; -->[OP2].OP1 CPX #003.
BNE OP5 ;3: PRINTER.. LDX #004
;APPARAATNR..OP2 LDY #000 ;SEC.
ADR.NUL.. JSR 65466 ;* SETLFS *.
LDA #000 ;GEEN NAAM.. BEQ
OP9 ; -->[OP9].OP5 LDA #000
;NAAMVLAG. STA 002 ;NV=0..
LDA 00751. CMP #001 ;1: TAPE
.. BEQ OP6 ;2: DISK.. LDX
#008 ;DISK:APP.8.. LDY #003 ;
SEC.ADR.=3.. INC 002 ;ZET NV=1.
. CLC ; -->[OP7].
BCC OP7.OP6 LDX #001 ;TAPE:APP.1
.. LDY #001 ;SEC.ADR.=1..OP7 L
DA #005 ;BESTANDSNR.. JSR 65466
;* SETLFS *. LDA 002 ;NV=0:
-->[OP8]. BEQ OP8 ;NV=1:.
LDX #044 ;KOMMA.. JSR 37728.
LDX #083 ;'S'.. JSR 37728.
LDX #044 ;KOMMA.. JSR 37728
. LDX #087 ;'W'.. JSR 3772
8.OP8 LDY #000 ;LENGTE IN. LDA
(253),Y ;DE STAPEL.. PHA. CLC
. LDA 253 ;LS ADRES NAAM..
ADC #001. TAX. LDA 254 ;M
S ADRES NAAM.. ADC #000. TAY
;LENGTE UIT. PLA ;DE
STAPEL..OP9 JSR 65469 ;* SETNAM *.
JSR 65472 ;* OPEN *. LDX #
005 ;BESTANDSNR.. JSR 65481 ;*
CHKOUT *. RTS ;NAAR H.P..
.BYTE $FF,$FF. *=37692.OR0
LDY #000 ;**SCHRIJF.**. LDA (2
53),Y ;REGELLENGTE. STA 002 ;TI
JDELIJK.. BNE OR2 ;>0: -->[O
R2]. BEQ OR9 ;=0: -->[OR9].O
R1 INY ;VOLGENDE BYTE.. L
DA (253),Y ;UIT ELEMENT.. JSR 6549
0 ;* CHROUT *.OR2 CPY 002 ;KLAAR?
. BCC OR1 ;NEEN: -->[OR1].OR9
RTS ;NAAR H.P.. .BYTE $FF
,$FF. *=37716.OS0 LDA #005
;**SLUITEN.**. JSR 65475 ;* CLOSE
*. JSR 65511 ;* CLALL *.
RTS ;NAAR H.P.. .BYTE $FF,$
FF. *=37728. LDY #000 ;*
*EXTRA-X.**. CLC. LDA (253),Y
;LENGTE MET EEN. ADC #001 ;OPHOG
EN.. STA (253),Y ;LENGTE MET EEN.
TAY ;ZET IN (Y).. TXA
;EXTRA TEKEN (X). STA (253),
Y ;ACHTERAAN.. RTS. NOP.
NOP ;LAATSTE!!!!!!. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL