D4
FILE INFORMATION
FILENAME(S): D4
FILE TYPE(S): SEQ
FILE SIZE: 5.6K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
321baf89969ab70404516ed369b21b0093009725468659685942f78c75230c84
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | D4 | SEQ | DuncanTwain | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 37 33 34 34 | *=37344| 00000010: 0D 4F 4F 30 31 38 20 53 54 59 20 20 30 30 32 20 |.OO018 STY 002 | 00000020: 20 3B 45 45 4E 42 59 54 45 20 42 49 4E 2D 44 45 | ;EENBYTE BIN-DE| 00000030: 43 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |C.. LDA 25| 00000040: 31 20 20 3B 49 4E 3A 28 32 35 31 29 20 42 49 4E |1 ;IN:(251) BIN| 00000050: 41 49 52 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |AIR.. STA | 00000060: 30 33 38 20 20 20 20 3B 55 49 54 3A 41 46 20 41 |038 ;UIT:AF A| 00000070: 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 23 |DRES. LDA #| 00000080: 30 30 30 20 20 20 20 3B 41 55 3D 28 32 35 34 2C |000 ;AU=(254,| 00000090: 32 35 33 29 2E 0D 20 20 20 20 20 20 53 54 41 20 |253).. STA | 000000A0: 20 30 33 39 20 20 20 20 3B 41 55 2B 30 3A 31 30 | 039 ;AU+0:10| 000000B0: 30 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |0.. LDY #00| 000000C0: 32 20 20 20 20 3B 2E 2E 2E 41 55 2B 32 3A 31 2E |2 ;...AU+2:1.| 000000D0: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 38 20 |. LDA #048 | 000000E0: 20 20 20 3B 41 53 43 49 49 2D 43 4F 44 45 2E 0D | ;ASCII-CODE..| 000000F0: 4F 4F 30 30 31 20 53 54 41 20 28 32 35 33 29 2C |OO001 STA (253),| 00000100: 59 20 3B 56 55 4C 20 4D 45 54 20 30 30 30 2E 0D |Y ;VUL MET 000..| 00000110: 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 | DEY. | 00000120: 42 50 4C 20 20 4F 4F 30 30 31 0D 20 20 20 20 20 |BPL OO001. | 00000130: 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 | LDY #000. | 00000140: 42 45 51 20 20 4F 4F 30 30 33 0D 4F 4F 30 30 32 |BEQ OO003.OO002| 00000150: 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 54 52 | SEC ;TR| 00000160: 45 4B 20 31 30 30 20 41 46 0D 20 20 20 20 20 20 |EK 100 AF. | 00000170: 4C 44 41 20 20 30 33 38 20 20 20 20 3B 56 41 4E |LDA 038 ;VAN| 00000180: 20 28 33 39 2C 33 38 29 2E 0D 20 20 20 20 20 20 | (39,38).. | 00000190: 53 42 43 20 23 31 30 30 0D 20 20 20 20 20 20 53 |SBC #100. S| 000001A0: 54 41 20 20 30 33 38 0D 20 20 20 20 20 20 4C 44 |TA 038. LD| 000001B0: 41 20 20 30 33 39 0D 20 20 20 20 20 20 53 42 43 |A 039. SBC| 000001C0: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA | 000001D0: 20 30 33 39 0D 20 20 20 20 20 20 43 4C 43 20 20 | 039. CLC | 000001E0: 20 20 20 20 20 20 20 3B 54 45 4C 20 31 20 4F 50 | ;TEL 1 OP| 000001F0: 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 |. LDA (253)| 00000200: 2C 59 20 3B 42 49 4A 20 28 41 55 2B 4D 29 2E 0D |,Y ;BIJ (AU+M)..| 00000210: 20 20 20 20 20 20 41 44 43 20 23 30 30 31 0D 20 | ADC #001. | 00000220: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 00000230: 0D 4F 4F 30 30 33 20 4C 44 41 20 20 30 33 39 20 |.OO003 LDA 039 | 00000240: 20 20 20 3B 56 45 52 47 45 4C 49 4A 4B 45 4E 2E | ;VERGELIJKEN.| 00000250: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 30 30 20 |. CMP #000 | 00000260: 20 20 20 3B 28 33 39 2C 33 38 29 0D 20 20 20 20 | ;(39,38). | 00000270: 20 20 42 43 43 20 20 4F 4F 30 30 34 20 20 3B 4D | BCC OO004 ;M| 00000280: 45 54 20 31 30 30 2E 0D 20 20 20 20 20 20 42 4E |ET 100.. BN| 00000290: 45 20 20 4F 4F 30 30 32 20 20 3B 3E 31 30 30 2E |E OO002 ;>100.| 000002A0: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 0D |. LDA 038.| 000002B0: 20 20 20 20 20 20 43 4D 50 20 23 31 30 30 0D 20 | CMP #100. | 000002C0: 20 20 20 20 20 42 43 53 20 20 4F 4F 30 30 32 0D | BCS OO002.| 000002D0: 4F 4F 30 30 34 20 4C 44 41 20 20 30 33 39 20 20 |OO004 LDA 039 | 000002E0: 20 20 3B 52 45 53 54 20 4E 55 4C 3F 0D 20 20 20 | ;REST NUL?. | 000002F0: 20 20 20 42 4E 45 20 20 4F 4F 30 30 35 0D 20 20 | BNE OO005. | 00000300: 20 20 20 20 4C 44 41 20 20 30 33 38 0D 20 20 20 | LDA 038. | 00000310: 20 20 20 42 45 51 20 20 4F 4F 30 30 36 20 20 20 | BEQ OO006 | 00000320: 20 3B 4A 41 3A 4E 41 41 52 20 48 2E 50 2E 0D 4F | ;JA:NAAR H.P..O| 00000330: 4F 30 30 35 20 43 4C 43 20 20 20 20 20 20 20 20 |O005 CLC | 00000340: 20 20 20 3B 4E 45 45 4E 3A 0D 20 20 20 20 20 20 | ;NEEN:. | 00000350: 2E 42 59 54 45 20 24 32 36 2C 30 33 38 20 3B 28 |.BYTE $26,038 ;(| 00000360: 33 39 2C 33 38 29 2A 31 30 2E 0D 20 20 20 20 20 |39,38)*10.. | 00000370: 20 2E 42 59 54 45 20 24 32 36 2C 30 33 39 0D 20 | .BYTE $26,039. | 00000380: 20 20 20 20 20 4C 44 41 20 20 30 33 39 0D 20 20 | LDA 039. | 00000390: 20 20 20 20 53 54 41 20 20 30 34 31 0D 20 20 20 | STA 041. | 000003A0: 20 20 20 4C 44 41 20 20 30 33 38 0D 20 20 20 20 | LDA 038. | 000003B0: 20 20 43 4C 43 0D 20 20 20 20 20 20 2E 42 59 54 | CLC. .BYT| 000003C0: 45 20 24 32 41 0D 20 20 20 20 20 20 2E 42 59 54 |E $2A. .BYT| 000003D0: 45 20 24 32 36 2C 30 34 31 0D 20 20 20 20 20 20 |E $26,041. | 000003E0: 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 |.BYTE $2A. | 000003F0: 2E 42 59 54 45 20 24 32 36 2C 30 34 31 0D 20 20 |.BYTE $26,041. | 00000400: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 41 44 | CLC. AD| 00000410: 43 20 20 30 33 38 0D 20 20 20 20 20 20 53 54 41 |C 038. STA| 00000420: 20 20 30 33 38 0D 20 20 20 20 20 20 4C 44 41 20 | 038. LDA | 00000430: 20 30 34 31 0D 20 20 20 20 20 20 41 44 43 20 20 | 041. ADC | 00000440: 30 33 39 0D 20 20 20 20 20 20 53 54 41 20 20 30 |039. STA 0| 00000450: 33 39 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 |39. INY | 00000460: 20 20 20 20 20 3B 56 4F 4C 47 45 4E 44 20 43 49 | ;VOLGEND CI| 00000470: 4A 46 45 52 2E 0D 20 20 20 20 20 20 43 4C 43 0D |JFER.. CLC.| 00000480: 20 20 20 20 20 20 42 43 43 20 20 4F 4F 30 30 33 | BCC OO003| 00000490: 0D 4F 4F 30 30 36 20 4C 44 59 20 20 30 30 32 20 |.OO006 LDY 002 | 000004A0: 20 20 20 3B 48 45 52 53 54 45 4C 20 28 59 29 2E | ;HERSTEL (Y).| 000004B0: 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 |. RTS | 000004C0: 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 | ;NAAR H.P.. | 000004D0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 000004E0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 4F 4F 30 31 |P. NOP.OO01| 000004F0: 37 20 53 54 59 20 20 30 33 39 20 20 3B 45 45 4E |7 STY 039 ;EEN| 00000500: 42 59 54 45 20 42 49 4E 2D 48 45 58 2E 0D 20 20 |BYTE BIN-HEX.. | 00000510: 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 3B 49 | LDY #000 ;I| 00000520: 4E 3A 28 32 35 31 29 20 42 49 4E 41 49 52 2E 0D |N:(251) BINAIR..| 00000530: 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 | LDA 251 | 00000540: 3B 55 49 54 3A 41 46 20 41 44 52 45 53 0D 20 20 |;UIT:AF ADRES. | 00000550: 20 20 20 20 2E 42 59 54 45 20 24 34 41 20 3B 41 | .BYTE $4A ;A| 00000560: 55 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 |U=(254,253).. | 00000570: 20 20 20 2E 42 59 54 45 20 24 34 41 20 3B 53 43 | .BYTE $4A ;SC| 00000580: 48 55 49 46 20 34 20 42 49 54 53 0D 20 20 20 20 |HUIF 4 BITS. | 00000590: 20 20 2E 42 59 54 45 20 24 34 41 20 3B 4E 41 41 | .BYTE $4A ;NAA| 000005A0: 52 20 52 45 43 48 54 53 2E 0D 20 20 20 20 20 20 |R RECHTS.. | 000005B0: 2E 42 59 54 45 20 24 34 41 20 3B 4D 2E 53 2E 44 |.BYTE $4A ;M.S.D| 000005C0: 45 45 4C 2E 0D 20 20 20 20 20 20 4F 52 41 20 23 |EEL.. ORA #| 000005D0: 30 34 38 0D 20 20 20 20 20 20 53 54 41 20 28 32 |048. STA (2| 000005E0: 35 33 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D |53),Y. INY.| 000005F0: 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 | LDA 251 | 00000600: 3B 4C 2E 53 2E 44 45 45 4C 2E 0D 20 20 20 20 20 |;L.S.DEEL.. | 00000610: 20 41 4E 44 20 23 30 31 35 0D 20 20 20 20 20 20 | AND #015. | 00000620: 4F 52 41 20 23 30 34 38 0D 20 20 20 20 20 20 53 |ORA #048. S| 00000630: 54 41 20 28 32 35 33 29 2C 59 0D 4F 4F 30 30 38 |TA (253),Y.OO008| 00000640: 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 48 45 | LDA (253),Y ;HE| 00000650: 58 41 44 45 43 2E 54 45 4B 45 4E 2E 0D 20 20 20 |XADEC.TEKEN.. | 00000660: 20 20 20 43 4D 50 20 23 30 35 38 0D 20 20 20 20 | CMP #058. | 00000670: 20 20 42 43 43 20 20 4F 4F 30 30 39 0D 20 20 20 | BCC OO009. | 00000680: 20 20 20 41 44 43 20 23 30 30 36 0D 20 20 20 20 | ADC #006. | 00000690: 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 4F 4F | STA (253),Y.OO| 000006A0: 30 30 39 20 44 45 59 0D 20 20 20 20 20 20 42 50 |009 DEY. BP| 000006B0: 4C 20 20 4F 4F 30 30 38 0D 20 20 20 20 20 20 4C |L OO008. L| 000006C0: 44 59 20 20 30 33 39 20 20 20 20 3B 48 45 52 53 |DY 039 ;HERS| 000006D0: 54 45 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 52 |TEL (Y).. R| 000006E0: 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 |TS ;NAAR| 000006F0: 20 48 2E 50 2E 0D 44 45 43 49 20 20 4C 44 41 20 | H.P..DECI LDA | 00000700: 20 30 30 37 35 30 20 20 3B 44 45 43 2E 4F 50 20 | 00750 ;DEC.OP | 00000710: 56 4C 41 47 20 44 42 3A 0D 20 20 20 20 20 20 42 |VLAG DB:. B| 00000720: 45 51 20 20 44 45 4E 4B 20 20 20 3B 30 3D 45 4E |EQ DENK ;0=EN| 00000730: 4B 45 4C 42 59 54 45 3B 0D 20 20 20 20 20 20 4A |KELBYTE;. J| 00000740: 53 52 20 20 33 39 37 34 34 20 20 3B 31 3D 44 55 |SR 39744 ;1=DU| 00000750: 42 42 45 4C 42 59 54 45 2E 0D 20 20 20 20 20 20 |BBELBYTE.. | 00000760: 52 54 53 0D 44 45 4E 4B 20 20 4A 53 52 20 20 4F |RTS.DENK JSR O| 00000770: 4F 30 31 38 0D 20 20 20 20 20 20 52 54 53 0D 48 |O018. RTS.H| 00000780: 45 58 41 20 20 4C 44 41 20 20 30 30 37 35 30 20 |EXA LDA 00750 | 00000790: 20 3B 48 45 58 2E 4F 50 20 56 4C 41 47 20 44 42 | ;HEX.OP VLAG DB| 000007A0: 3A 0D 20 20 20 20 20 20 42 45 51 20 20 48 45 4E |:. BEQ HEN| 000007B0: 4B 20 20 20 3B 30 3D 45 4E 4B 45 4C 42 59 54 45 |K ;0=ENKELBYTE| 000007C0: 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 38 |;. JSR 398| 000007D0: 38 38 20 20 3B 31 3D 44 55 42 42 45 4C 42 59 54 |88 ;1=DUBBELBYT| 000007E0: 45 2E 0D 20 20 20 20 20 20 52 54 53 0D 48 45 4E |E.. RTS.HEN| 000007F0: 4B 20 20 4A 53 52 20 20 4F 4F 30 31 37 0D 20 20 |K JSR OO017. | 00000800: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4C 44 | RTS. LD| 00000810: 59 20 23 30 30 30 20 20 20 20 3B 4C 45 4E 47 54 |Y #000 ;LENGT| 00000820: 45 20 56 41 4E 0D 20 20 20 20 20 20 4C 44 41 20 |E VAN. LDA | 00000830: 28 32 35 33 29 2C 59 20 3B 45 4C 45 4D 45 4E 54 |(253),Y ;ELEMENT| 00000840: 20 42 45 50 41 4C 45 4E 0D 20 20 20 20 20 20 42 | BEPALEN. B| 00000850: 4E 45 20 20 4F 4F 30 31 30 20 20 3B 4D 45 54 20 |NE OO010 ;MET | 00000860: 54 45 52 55 47 54 45 4C 4C 45 4E 0D 20 20 20 20 |TERUGTELLEN. | 00000870: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 56 | RTS ;V| 00000880: 41 4E 20 4E 41 53 50 41 54 49 45 53 2E 0D 4F 4F |AN NASPATIES..OO| 00000890: 30 31 30 20 54 41 59 20 20 20 20 20 20 20 20 20 |010 TAY | 000008A0: 3B 28 32 35 34 2C 32 35 33 29 20 57 49 4A 53 54 |;(254,253) WIJST| 000008B0: 0D 4F 4F 30 31 31 20 4C 44 41 20 28 32 35 33 29 |.OO011 LDA (253)| 000008C0: 2C 59 20 3B 4C 45 4E 47 54 45 42 59 54 45 20 41 |,Y ;LENGTEBYTE A| 000008D0: 41 4E 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |AN.. CMP #0| 000008E0: 33 32 0D 20 20 20 20 20 20 42 4E 45 20 20 4F 4F |32. BNE OO| 000008F0: 30 31 32 0D 20 20 20 20 20 20 44 45 59 0D 20 20 |012. DEY. | 00000900: 20 20 20 20 42 4E 45 20 20 4F 4F 30 31 31 0D 4F | BNE OO011.O| 00000910: 4F 30 31 32 20 54 59 41 0D 20 20 20 20 20 20 4C |O012 TYA. L| 00000920: 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 |DY #000. ST| 00000930: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00000940: 52 54 53 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |RTS. LDA 0| 00000950: 30 37 35 36 20 20 3B 44 45 43 4F 4E 56 45 52 53 |0756 ;DECONVERS| 00000960: 49 45 20 4F 50 0D 20 20 20 20 20 20 42 45 51 20 |IE OP. BEQ | 00000970: 20 4F 4F 30 31 33 20 20 3B 44 42 2D 20 45 4E 20 | OO013 ;DB- EN | 00000980: 44 43 2D 56 4C 41 47 2E 0D 20 20 20 20 20 20 4A |DC-VLAG.. J| 00000990: 53 52 20 20 44 45 43 49 0D 20 20 20 20 20 20 52 |SR DECI. R| 000009A0: 54 53 0D 4F 4F 30 31 33 20 4C 44 59 20 23 30 30 |TS.OO013 LDY #00| 000009B0: 30 0D 20 20 20 20 20 20 4C 44 41 20 23 30 33 36 |0. LDA #036| 000009C0: 20 20 20 20 3B 27 24 27 20 56 4F 4F 52 4F 50 2E | ;'$' VOOROP.| 000009D0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 000009E0: 2C 59 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |,Y. LDA 25| 000009F0: 34 20 20 20 20 3B 52 45 44 20 41 44 52 45 53 2E |4 ;RED ADRES.| 00000A00: 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 |. PHA. | 00000A10: 20 4C 44 41 20 20 32 35 33 0D 20 20 20 20 20 20 | LDA 253. | 00000A20: 50 48 41 0D 20 20 20 20 20 20 49 4E 43 20 20 32 |PHA. INC 2| 00000A30: 35 33 0D 20 20 20 20 20 20 42 4E 45 20 20 4F 4F |53. BNE OO| 00000A40: 30 31 34 0D 20 20 20 20 20 20 49 4E 43 20 20 32 |014. INC 2| 00000A50: 35 34 0D 4F 4F 30 31 34 20 4A 53 52 20 20 48 45 |54.OO014 JSR HE| 00000A60: 58 41 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 |XA. PLA | 00000A70: 20 20 20 20 20 3B 48 45 52 53 54 45 4C 20 41 44 | ;HERSTEL AD| 00000A80: 52 45 53 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |RES.. STA | 00000A90: 32 35 33 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 |253. PLA. | 00000AA0: 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 | STA 254. | 00000AB0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 00000AC0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 34 |. JSR 3974| 00000AD0: 34 20 20 20 3B 4C 41 42 45 4C 20 5A 45 54 54 45 |4 ;LABEL ZETTE| 00000AE0: 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |N.. LDY #00| 00000AF0: 31 20 20 20 20 20 3B 56 4F 4F 52 4C 45 54 54 45 |1 ;VOORLETTE| 00000B00: 52 53 0D 4F 4F 30 34 30 20 4C 44 41 20 20 30 30 |RS.OO040 LDA 00| 00000B10: 37 36 36 2C 59 20 3B 55 49 54 20 28 37 36 36 2C |766,Y ;UIT (766,| 00000B20: 37 36 37 29 2E 0D 20 20 20 20 20 20 53 54 41 20 |767).. STA | 00000B30: 28 32 35 33 29 2C 59 20 20 3B 49 4E 3A 20 28 32 |(253),Y ;IN: (2| 00000B40: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 44 |52,251).. D| 00000B50: 45 59 20 20 20 20 20 20 20 20 20 20 3B 55 49 54 |EY ;UIT| 00000B60: 3A 28 32 35 34 2C 32 35 33 29 0D 20 20 20 20 20 |:(254,253). | 00000B70: 20 42 50 4C 20 20 4F 4F 30 34 30 20 20 20 3B 42 | BPL OO040 ;B| 00000B80: 45 47 49 4E 41 44 52 45 53 2E 0D 20 20 20 20 20 |EGINADRES.. | 00000B90: 20 52 54 53 0D 20 20 20 20 20 20 4A 53 52 20 20 | RTS. JSR | 00000BA0: 33 39 37 34 34 20 20 20 3B 54 57 45 45 20 56 4F |39744 ;TWEE VO| 00000BB0: 4F 52 4E 55 4C 2D 0D 20 20 20 20 20 20 4C 44 59 |ORNUL-. LDY| 00000BC0: 20 23 30 30 31 20 20 20 20 20 3B 4C 45 4E 20 56 | #001 ;LEN V| 00000BD0: 45 52 56 41 4E 47 45 4E 0D 20 20 20 20 20 20 4C |ERVANGEN. L| 00000BE0: 44 41 20 23 30 33 32 20 20 20 20 20 3B 44 4F 4F |DA #032 ;DOO| 00000BF0: 52 20 53 50 41 54 49 45 53 2E 0D 4F 4F 30 34 31 |R SPATIES..OO041| 00000C00: 20 53 54 41 20 28 32 35 33 29 2C 59 20 20 3B 49 | STA (253),Y ;I| 00000C10: 4E 3A 20 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 |N: (252,251).. | 00000C20: 20 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 | DEY | 00000C30: 20 3B 55 49 54 3A 28 32 35 34 2C 32 35 33 29 0D | ;UIT:(254,253).| 00000C40: 20 20 20 20 20 20 42 50 4C 20 20 4F 4F 30 34 31 | BPL OO041| 00000C50: 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D | ;BEGINADRES..| 00000C60: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00000C70: 4E 4F 50 0D 20 20 20 20 20 20 4C 44 41 20 20 31 |NOP. LDA 1| 00000C80: 34 34 20 20 20 20 3B 53 54 41 54 55 53 20 4F 50 |44 ;STATUS OP| 00000C90: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 20 |. STA 251 | 00000CA0: 20 20 20 3B 53 43 48 45 52 4D 2E 0D 20 20 20 20 | ;SCHERM.. | 00000CB0: 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 | LDA #000. | 00000CC0: 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 | STA 252. | 00000CD0: 4A 53 52 20 20 33 38 37 39 32 20 20 3B 56 55 4C |JSR 38792 ;VUL| 00000CE0: 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 4A 53 | XXXXX.. JS| 00000CF0: 52 20 20 33 38 38 31 37 20 20 3B 54 45 58 54 20 |R 38817 ;TEXT | 00000D00: 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 20 20 |VOORBLOK.. | 00000D10: 4C 44 58 20 23 30 30 30 20 20 20 20 3B 27 54 4F |LDX #000 ;'TO| 00000D20: 45 53 54 41 4E 44 20 58 58 58 2E 27 0D 20 20 20 |ESTAND XXX.'. | 00000D30: 20 20 20 4A 53 52 20 20 33 38 37 31 32 0D 20 20 | JSR 38712. | 00000D40: 20 20 20 20 4C 44 58 20 23 30 32 34 20 20 20 20 | LDX #024 | 00000D50: 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 |;OPEN REGEL.. | 00000D60: 20 20 20 4A 53 52 20 20 33 38 37 31 32 0D 20 20 | JSR 38712. | 00000D70: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 00000D80: 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |;NAAR H.P.. | 00000D90: 20 4E 4F 50 0D 4F 50 30 20 20 20 4C 44 41 20 23 | NOP.OP0 LDA #| 00000DA0: 30 30 35 20 20 20 20 3B 2A 2A 4F 50 45 4E 45 4E |005 ;**OPENEN| 00000DB0: 2E 20 2A 2A 0D 20 20 20 20 20 20 4C 44 58 20 20 |. **. LDX | 00000DC0: 30 30 37 35 31 20 20 3B 42 45 53 54 2E 35 3B 54 |00751 ;BEST.5;T| 00000DD0: 4F 45 53 54 45 4C 2E 0D 20 20 20 20 20 20 42 4E |OESTEL.. BN| 00000DE0: 45 20 20 4F 50 31 20 20 20 20 3B 30 3A 20 53 43 |E OP1 ;0: SC| 00000DF0: 48 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 58 20 |HERM.. LDX | 00000E00: 23 30 30 33 20 20 20 20 3B 41 50 50 41 52 41 41 |#003 ;APPARAA| 00000E10: 54 4E 52 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 |TNR.. BNE | 00000E20: 4F 50 32 20 20 20 20 3B 20 20 20 20 20 20 20 2D |OP2 ; -| 00000E30: 2D 3E 5B 4F 50 32 5D 0D 4F 50 31 20 20 20 43 50 |->[OP2].OP1 CP| 00000E40: 58 20 23 30 30 33 0D 20 20 20 20 20 20 42 4E 45 |X #003. BNE| 00000E50: 20 20 4F 50 35 20 20 20 20 3B 33 3A 20 50 52 49 | OP5 ;3: PRI| 00000E60: 4E 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 58 20 |NTER.. LDX | 00000E70: 23 30 30 34 20 20 20 20 3B 41 50 50 41 52 41 41 |#004 ;APPARAA| 00000E80: 54 4E 52 2E 0D 4F 50 32 20 20 20 4C 44 59 20 23 |TNR..OP2 LDY #| 00000E90: 30 30 30 20 20 20 20 3B 53 45 43 2E 41 44 52 2E |000 ;SEC.ADR.| 00000EA0: 4E 55 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |NUL.. JSR | 00000EB0: 36 35 34 36 36 20 20 3B 2A 20 53 45 54 4C 46 53 |65466 ;* SETLFS| 00000EC0: 20 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 | *. LDA #00| 00000ED0: 30 20 20 20 20 3B 47 45 45 4E 20 4E 41 41 4D 2E |0 ;GEEN NAAM.| 00000EE0: 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 39 20 |. BEQ OP9 | 00000EF0: 20 20 20 3B 20 20 20 20 20 20 20 2D 2D 3E 5B 4F | ; -->[O| 00000F00: 50 39 5D 0D 4F 50 35 20 20 20 4C 44 41 20 23 30 |P9].OP5 LDA #0| 00000F10: 30 30 20 20 20 20 3B 4E 41 41 4D 56 4C 41 47 0D |00 ;NAAMVLAG.| 00000F20: 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 20 | STA 002 | 00000F30: 20 20 3B 4E 56 3D 30 2E 0D 20 20 20 20 20 20 4C | ;NV=0.. L| 00000F40: 44 41 20 20 30 30 37 35 31 0D 20 20 20 20 20 20 |DA 00751. | 00000F50: 43 4D 50 20 23 30 30 31 20 20 20 20 3B 31 3A 20 |CMP #001 ;1: | 00000F60: 54 41 50 45 2E 0D 20 20 20 20 20 20 42 45 51 20 |TAPE.. BEQ | 00000F70: 20 4F 50 36 20 20 20 20 3B 32 3A 20 44 49 53 4B | OP6 ;2: DISK| 00000F80: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 38 |.. LDX #008| 00000F90: 20 20 20 20 3B 44 49 53 4B 3A 41 50 50 2E 38 2E | ;DISK:APP.8.| 00000FA0: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 33 20 |. LDY #003 | 00000FB0: 20 20 20 3B 53 45 43 2E 41 44 52 2E 3D 33 2E 0D | ;SEC.ADR.=3..| 00000FC0: 20 20 20 20 20 20 49 4E 43 20 20 30 30 32 20 20 | INC 002 | 00000FD0: 20 20 3B 5A 45 54 20 4E 56 3D 31 2E 0D 20 20 20 | ;ZET NV=1.. | 00000FE0: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B | CLC ;| 00000FF0: 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 50 37 5D 0D | -->[OP7].| 00001000: 20 20 20 20 20 20 42 43 43 20 20 4F 50 37 0D 4F | BCC OP7.O| 00001010: 50 36 20 20 20 4C 44 58 20 23 30 30 31 20 20 20 |P6 LDX #001 | 00001020: 20 3B 54 41 50 45 3A 41 50 50 2E 31 2E 0D 20 20 | ;TAPE:APP.1.. | 00001030: 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 20 | LDY #001 | 00001040: 3B 53 45 43 2E 41 44 52 2E 3D 31 2E 0D 4F 50 37 |;SEC.ADR.=1..OP7| 00001050: 20 20 20 4C 44 41 20 23 30 30 35 20 20 20 20 3B | LDA #005 ;| 00001060: 42 45 53 54 41 4E 44 53 4E 52 2E 0D 20 20 20 20 |BESTANDSNR.. | 00001070: 20 20 4A 53 52 20 20 36 35 34 36 36 20 20 3B 2A | JSR 65466 ;*| 00001080: 20 53 45 54 4C 46 53 20 2A 0D 20 20 20 20 20 20 | SETLFS *. | 00001090: 4C 44 41 20 20 30 30 32 20 20 20 20 3B 4E 56 3D |LDA 002 ;NV=| 000010A0: 30 3A 20 20 2D 2D 3E 5B 4F 50 38 5D 0D 20 20 20 |0: -->[OP8]. | 000010B0: 20 20 20 42 45 51 20 20 4F 50 38 20 20 20 20 3B | BEQ OP8 ;| 000010C0: 4E 56 3D 31 3A 0D 20 20 20 20 20 20 4C 44 58 20 |NV=1:. LDX | 000010D0: 23 30 34 34 20 20 20 20 3B 4B 4F 4D 4D 41 2E 0D |#044 ;KOMMA..| 000010E0: 20 20 20 20 20 20 4A 53 52 20 20 33 37 37 32 38 | JSR 37728| 000010F0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 33 20 |. LDX #083 | 00001100: 20 20 20 3B 27 53 27 2E 0D 20 20 20 20 20 20 4A | ;'S'.. J| 00001110: 53 52 20 20 33 37 37 32 38 0D 20 20 20 20 20 20 |SR 37728. | 00001120: 4C 44 58 20 23 30 34 34 20 20 20 20 3B 4B 4F 4D |LDX #044 ;KOM| 00001130: 4D 41 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |MA.. JSR 3| 00001140: 37 37 32 38 0D 20 20 20 20 20 20 4C 44 58 20 23 |7728. LDX #| 00001150: 30 38 37 20 20 20 20 3B 27 57 27 2E 0D 20 20 20 |087 ;'W'.. | 00001160: 20 20 20 4A 53 52 20 20 33 37 37 32 38 0D 4F 50 | JSR 37728.OP| 00001170: 38 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 |8 LDY #000 | 00001180: 3B 4C 45 4E 47 54 45 20 49 4E 0D 20 20 20 20 20 |;LENGTE IN. | 00001190: 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 44 45 | LDA (253),Y ;DE| 000011A0: 20 53 54 41 50 45 4C 2E 0D 20 20 20 20 20 20 50 | STAPEL.. P| 000011B0: 48 41 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |HA. CLC. | 000011C0: 20 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 3B | LDA 253 ;| 000011D0: 4C 53 20 41 44 52 45 53 20 4E 41 41 4D 2E 0D 20 |LS ADRES NAAM.. | 000011E0: 20 20 20 20 20 41 44 43 20 23 30 30 31 0D 20 20 | ADC #001. | 000011F0: 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 | TAX. LD| 00001200: 41 20 20 32 35 34 20 20 20 20 3B 4D 53 20 41 44 |A 254 ;MS AD| 00001210: 52 45 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 |RES NAAM.. | 00001220: 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 54 |ADC #000. T| 00001230: 41 59 20 20 20 20 20 20 20 20 20 3B 4C 45 4E 47 |AY ;LENG| 00001240: 54 45 20 55 49 54 0D 20 20 20 20 20 20 50 4C 41 |TE UIT. PLA| 00001250: 20 20 20 20 20 20 20 20 20 3B 44 45 20 53 54 41 | ;DE STA| 00001260: 50 45 4C 2E 0D 4F 50 39 20 20 20 4A 53 52 20 20 |PEL..OP9 JSR | 00001270: 36 35 34 36 39 20 20 3B 2A 20 53 45 54 4E 41 4D |65469 ;* SETNAM| 00001280: 20 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 | *. JSR 65| 00001290: 34 37 32 20 20 3B 2A 20 4F 50 45 4E 20 20 20 2A |472 ;* OPEN *| 000012A0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 35 20 |. LDX #005 | 000012B0: 20 20 20 3B 42 45 53 54 41 4E 44 53 4E 52 2E 0D | ;BESTANDSNR..| 000012C0: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 38 31 | JSR 65481| 000012D0: 20 20 3B 2A 20 43 48 4B 4F 55 54 20 2A 0D 20 20 | ;* CHKOUT *. | 000012E0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 000012F0: 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |;NAAR H.P.. | 00001300: 20 2E 42 59 54 45 20 24 46 46 2C 24 46 46 0D 4F | .BYTE $FF,$FF.O| 00001310: 52 30 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 |R0 LDY #000 | 00001320: 20 3B 2A 2A 53 43 48 52 49 4A 46 2E 2A 2A 0D 20 | ;**SCHRIJF.**. | 00001330: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 00001340: 20 3B 52 45 47 45 4C 4C 45 4E 47 54 45 0D 20 20 | ;REGELLENGTE. | 00001350: 20 20 20 20 53 54 41 20 20 30 30 32 20 20 20 20 | STA 002 | 00001360: 3B 54 49 4A 44 45 4C 49 4A 4B 2E 0D 20 20 20 20 |;TIJDELIJK.. | 00001370: 20 20 42 4E 45 20 20 4F 52 32 20 20 20 20 3B 3E | BNE OR2 ;>| 00001380: 30 3A 20 20 20 20 2D 2D 3E 5B 4F 52 32 5D 0D 20 |0: -->[OR2]. | 00001390: 20 20 20 20 20 42 45 51 20 20 4F 52 39 20 20 20 | BEQ OR9 | 000013A0: 20 3B 3D 30 3A 20 20 20 20 2D 2D 3E 5B 4F 52 39 | ;=0: -->[OR9| 000013B0: 5D 0D 4F 52 31 20 20 20 49 4E 59 20 20 20 20 20 |].OR1 INY | 000013C0: 20 20 20 20 3B 56 4F 4C 47 45 4E 44 45 20 42 59 | ;VOLGENDE BY| 000013D0: 54 45 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 |TE.. LDA (2| 000013E0: 35 33 29 2C 59 20 3B 55 49 54 20 45 4C 45 4D 45 |53),Y ;UIT ELEME| 000013F0: 4E 54 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |NT.. JSR 6| 00001400: 35 34 39 30 20 20 3B 2A 20 43 48 52 4F 55 54 20 |5490 ;* CHROUT | 00001410: 2A 0D 4F 52 32 20 20 20 43 50 59 20 20 30 30 32 |*.OR2 CPY 002| 00001420: 20 20 20 20 3B 4B 4C 41 41 52 3F 0D 20 20 20 20 | ;KLAAR?. | 00001430: 20 20 42 43 43 20 20 4F 52 31 20 20 20 20 3B 4E | BCC OR1 ;N| 00001440: 45 45 4E 3A 20 20 2D 2D 3E 5B 4F 52 31 5D 0D 4F |EEN: -->[OR1].O| 00001450: 52 39 20 20 20 52 54 53 20 20 20 20 20 20 20 20 |R9 RTS | 00001460: 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 | ;NAAR H.P.. | 00001470: 20 20 2E 42 59 54 45 20 24 46 46 2C 24 46 46 0D | .BYTE $FF,$FF.| 00001480: 4F 53 30 20 20 20 4C 44 41 20 23 30 30 35 20 20 |OS0 LDA #005 | 00001490: 20 20 3B 2A 2A 53 4C 55 49 54 45 4E 2E 2A 2A 0D | ;**SLUITEN.**.| 000014A0: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 35 | JSR 65475| 000014B0: 20 20 3B 2A 20 43 4C 4F 53 45 20 20 2A 0D 20 20 | ;* CLOSE *. | 000014C0: 20 20 20 20 4A 53 52 20 20 36 35 35 31 31 20 20 | JSR 65511 | 000014D0: 3B 2A 20 43 4C 41 4C 4C 20 20 2A 0D 20 20 20 20 |;* CLALL *. | 000014E0: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 000014F0: 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 2E |AAR H.P.. .| 00001500: 42 59 54 45 20 24 46 46 2C 24 46 46 0D 20 20 20 |BYTE $FF,$FF. | 00001510: 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B | LDY #000 ;| 00001520: 2A 2A 45 58 54 52 41 2D 58 2E 2A 2A 0D 20 20 20 |**EXTRA-X.**. | 00001530: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 | CLC. LDA| 00001540: 20 28 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 | (253),Y ;LENGTE| 00001550: 20 4D 45 54 20 45 45 4E 0D 20 20 20 20 20 20 41 | MET EEN. A| 00001560: 44 43 20 23 30 30 31 20 20 20 20 3B 4F 50 48 4F |DC #001 ;OPHO| 00001570: 47 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 28 |GEN.. STA (| 00001580: 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 20 4D |253),Y ;LENGTE M| 00001590: 45 54 20 45 45 4E 0D 20 20 20 20 20 20 54 41 59 |ET EEN. TAY| 000015A0: 20 20 20 20 20 20 20 20 20 3B 5A 45 54 20 49 4E | ;ZET IN| 000015B0: 20 28 59 29 2E 0D 20 20 20 20 20 20 54 58 41 20 | (Y).. TXA | 000015C0: 20 20 20 20 20 20 20 20 3B 45 58 54 52 41 20 54 | ;EXTRA T| 000015D0: 45 4B 45 4E 20 28 58 29 0D 20 20 20 20 20 20 53 |EKEN (X). S| 000015E0: 54 41 20 28 32 35 33 29 2C 59 20 3B 41 43 48 54 |TA (253),Y ;ACHT| 000015F0: 45 52 41 41 4E 2E 0D 20 20 20 20 20 20 52 54 53 |ERAAN.. RTS| 00001600: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00001610: 20 4E 4F 50 20 20 20 20 20 20 20 20 20 3B 4C 41 | NOP ;LA| 00001620: 41 54 53 54 45 21 21 21 21 21 21 0D 20 20 20 20 |ATSTE!!!!!!. | 00001630: 20 20 2E 45 4E 44 0D | .END. |
*=37344.OO018 STY 002 ;EENBYT
E BIN-DEC.. LDA 251 ;IN:(251) BIN
AIR.. STA 038 ;UIT:AF ADRES.
LDA #000 ;AU=(254,253).. STA
039 ;AU+0:100.. LDY #002 ;..
.AU+2:1.. LDA #048 ;ASCII-CODE..
OO001 STA (253),Y ;VUL MET 000.. DE
Y. BPL OO001. LDY #000.
BEQ OO003.OO002 SEC ;TREK 100 A
F. LDA 038 ;VAN (39,38)..
SBC #100. STA 038. LDA 039.
SBC #000. STA 039. CLC
;TEL 1 OP. LDA (253),Y ;BIJ
(AU+M).. ADC #001. STA (253),Y
.OO003 LDA 039 ;VERGELIJKEN.. C
MP #000 ;(39,38). BCC OO004 ;M
ET 100.. BNE OO002 ;>100.. L
DA 038. CMP #100. BCS OO002.
OO004 LDA 039 ;REST NUL?. BNE
OO005. LDA 038. BEQ OO006
;JA:NAAR H.P..OO005 CLC ;NEEN
:. .BYTE $26,038 ;(39,38)*10..
.BYTE $26,039. LDA 039. STA
041. LDA 038. CLC. .BYT
E $2A. .BYTE $26,041. .BYTE $2
A. .BYTE $26,041. CLC. AD
C 038. STA 038. LDA 041.
ADC 039. STA 039. INY
;VOLGEND CIJFER.. CLC. BC
C OO003.OO006 LDY 002 ;HERSTEL (Y).
. RTS ;NAAR H.P.. NOP.
NOP. NOP.OO017 STY 039 ;EEN
BYTE BIN-HEX.. LDY #000 ;IN:(251)
BINAIR.. LDA 251 ;UIT:AF ADRES.
.BYTE $4A ;AU=(254,253).. .BYTE
$4A ;SCHUIF 4 BITS. .BYTE $4A ;NAA
R RECHTS.. .BYTE $4A ;M.S.DEEL..
ORA #048. STA (253),Y. INY.
LDA 251 ;L.S.DEEL.. AND #01
5. ORA #048. STA (253),Y.OO008
LDA (253),Y ;HEXADEC.TEKEN.. CMP #
058. BCC OO009. ADC #006.
STA (253),Y.OO009 DEY. BPL OO008
. LDY 039 ;HERSTEL (Y).. R
TS ;NAAR H.P..DECI LDA 00750
;DEC.OP VLAG DB:. BEQ DENK ;0=EN
KELBYTE;. JSR 39744 ;1=DUBBELBYTE
.. RTS.DENK JSR OO018. RTS.H
EXA LDA 00750 ;HEX.OP VLAG DB:.
BEQ HENK ;0=ENKELBYTE;. JSR 398
88 ;1=DUBBELBYTE.. RTS.HENK JSR
OO017. RTS. LDY #000 ;LENGT
E VAN. LDA (253),Y ;ELEMENT BEPALEN
. BNE OO010 ;MET TERUGTELLEN.
RTS ;VAN NASPATIES..OO010 TAY
;(254,253) WIJST.OO011 LDA (253)
,Y ;LENGTEBYTE AAN.. CMP #032.
BNE OO012. DEY. BNE OO011.O
O012 TYA. LDY #000. STA (253),
Y. RTS. LDA 00756 ;DECONVERS
IE OP. BEQ OO013 ;DB- EN DC-VLAG.
. JSR DECI. RTS.OO013 LDY #00
0. LDA #036 ;'$' VOOROP.. S
TA (253),Y. LDA 254 ;RED ADRES.
. PHA. LDA 253. PHA.
INC 253. BNE OO014. INC 2
54.OO014 JSR HEXA. PLA ;HE
RSTEL ADRES.. STA 253. PLA.
STA 254. RTS. NOP. J
SR 39744 ;LABEL ZETTEN.. LDY #00
1 ;VOORLETTERS.OO040 LDA 00766,Y ;U
IT (766,767).. STA (253),Y ;IN: (2
52,251).. DEY ;UIT:(254,25
3). BPL OO040 ;BEGINADRES..
RTS. JSR 39744 ;TWEE VOORNUL-.
LDY #001 ;LEN VERVANGEN. L
DA #032 ;DOOR SPATIES..OO041 STA (25
3),Y ;IN: (252,251).. DEY
;UIT:(254,253). BPL OO041 ;BEGI
NADRES.. RTS. NOP. LDA 1
44 ;STATUS OP. STA 251 ;SCHE
RM.. LDA #000. STA 252.
JSR 38792 ;VUL XXXXX.. JSR 38817
;TEXT VOORBLOK.. LDX #000 ;'TO
ESTAND XXX.'. JSR 38712. LDX
#024 ;OPEN REGEL.. JSR 38712.
RTS ;NAAR H.P.. NOP.OP0
LDA #005 ;**OPENEN. **. LDX
00751 ;BEST.5;TOESTEL.. BNE OP1
;0: SCHERM.. LDX #003 ;APPARAA
TNR.. BNE OP2 ; -->[OP2].
OP1 CPX #003. BNE OP5 ;3: PRI
NTER.. LDX #004 ;APPARAATNR..OP2
LDY #000 ;SEC.ADR.NUL.. JSR
65466 ;* SETLFS *. LDA #000 ;GE
EN NAAM.. BEQ OP9 ; -->[O
P9].OP5 LDA #000 ;NAAMVLAG. ST
A 002 ;NV=0.. LDA 00751.
CMP #001 ;1: TAPE.. BEQ OP6
;2: DISK.. LDX #008 ;DISK:APP.8.
. LDY #003 ;SEC.ADR.=3.. IN
C 002 ;ZET NV=1.. CLC ;
-->[OP7]. BCC OP7.OP6 LDX
#001 ;TAPE:APP.1.. LDY #001
;SEC.ADR.=1..OP7 LDA #005 ;BESTANDS
NR.. JSR 65466 ;* SETLFS *.
LDA 002 ;NV=0: -->[OP8]. BEQ
OP8 ;NV=1:. LDX #044 ;KOMMA..
JSR 37728. LDX #083 ;'S'.
. JSR 37728. LDX #044 ;KOM
MA.. JSR 37728. LDX #087 ;
'W'.. JSR 37728.OP8 LDY #000
;LENGTE IN. LDA (253),Y ;DE STAPEL.
. PHA. CLC. LDA 253 ;
LS ADRES NAAM.. ADC #001. TAX.
LDA 254 ;MS 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.O
R0 LDY #000 ;**SCHRIJF.**. LDA
(253),Y ;REGELLENGTE. STA 002
;TIJDELIJK.. BNE OR2 ;>0: --
>[OR2]. BEQ OR9 ;=0: -->[OR9
].OR1 INY ;VOLGENDE BYTE..
LDA (253),Y ;UIT ELEMENT.. JSR 6
5490 ;* CHROUT *.OR2 CPY 002 ;KLA
AR?. BCC OR1 ;NEEN: -->[OR1].O
R9 RTS ;NAAR H.P.. .BYTE
$FF,$FF.OS0 LDA #005 ;**SLUITEN.**.
JSR 65475 ;* CLOSE *. JSR
65511 ;* CLALL *. RTS ;N
AAR H.P.. .BYTE $FF,$FF. LDY #
000 ;**EXTRA-X.**. CLC. LDA
(253),Y ;LENGTE MET EEN. ADC #001
;OPHOGEN.. STA (253),Y ;LENGTE M
ET EEN. TAY ;ZET IN (Y)..
TXA ;EXTRA TEKEN (X). S
TA (253),Y ;ACHTERAAN.. RTS. N
OP. NOP ;LAATSTE!!!!!!.
.END.
> CLICK IMAGE PREVIEW FOR FULL MODAL