D3
FILE INFORMATION
FILENAME(S): D3
FILE TYPE(S): SEQ
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
83e0eb57084f7a6469a3428ad71eda6f7311e839e13cf4c0cf29e7fc4fbed7b9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | D3 | SEQ | DuncanTwain | 20 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 37 34 30 38 | *=37408| 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 20 20 20 20 |P. NOP. | 000004F0: 20 20 20 20 20 2A 3D 33 37 35 31 32 0D 4F 4F 30 | *=37512.OO0| 00000500: 31 37 20 53 54 59 20 20 30 33 39 20 20 3B 45 45 |17 STY 039 ;EE| 00000510: 4E 42 59 54 45 20 42 49 4E 2D 48 45 58 2E 0D 20 |NBYTE BIN-HEX.. | 00000520: 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 3B | LDY #000 ;| 00000530: 49 4E 3A 28 32 35 31 29 20 42 49 4E 41 49 52 2E |IN:(251) BINAIR.| 00000540: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 |. LDA 251 | 00000550: 20 3B 55 49 54 3A 41 46 20 41 44 52 45 53 0D 20 | ;UIT:AF ADRES. | 00000560: 20 20 20 20 20 2E 42 59 54 45 20 24 34 41 20 3B | .BYTE $4A ;| 00000570: 41 55 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 |AU=(254,253).. | 00000580: 20 20 20 20 2E 42 59 54 45 20 24 34 41 20 3B 53 | .BYTE $4A ;S| 00000590: 43 48 55 49 46 20 34 20 42 49 54 53 0D 20 20 20 |CHUIF 4 BITS. | 000005A0: 20 20 20 2E 42 59 54 45 20 24 34 41 20 3B 4E 41 | .BYTE $4A ;NA| 000005B0: 41 52 20 52 45 43 48 54 53 2E 0D 20 20 20 20 20 |AR RECHTS.. | 000005C0: 20 2E 42 59 54 45 20 24 34 41 20 3B 4D 2E 53 2E | .BYTE $4A ;M.S.| 000005D0: 44 45 45 4C 2E 0D 20 20 20 20 20 20 4F 52 41 20 |DEEL.. ORA | 000005E0: 23 30 34 38 0D 20 20 20 20 20 20 53 54 41 20 28 |#048. STA (| 000005F0: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 |253),Y. INY| 00000600: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 |. LDA 251 | 00000610: 20 3B 4C 2E 53 2E 44 45 45 4C 2E 0D 20 20 20 20 | ;L.S.DEEL.. | 00000620: 20 20 41 4E 44 20 23 30 31 35 0D 20 20 20 20 20 | AND #015. | 00000630: 20 4F 52 41 20 23 30 34 38 0D 20 20 20 20 20 20 | ORA #048. | 00000640: 53 54 41 20 28 32 35 33 29 2C 59 0D 4F 4F 30 30 |STA (253),Y.OO00| 00000650: 38 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 48 |8 LDA (253),Y ;H| 00000660: 45 58 41 44 45 43 2E 54 45 4B 45 4E 2E 0D 20 20 |EXADEC.TEKEN.. | 00000670: 20 20 20 20 43 4D 50 20 23 30 35 38 0D 20 20 20 | CMP #058. | 00000680: 20 20 20 42 43 43 20 20 4F 4F 30 30 39 0D 20 20 | BCC OO009. | 00000690: 20 20 20 20 41 44 43 20 23 30 30 36 0D 20 20 20 | ADC #006. | 000006A0: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 4F | STA (253),Y.O| 000006B0: 4F 30 30 39 20 44 45 59 0D 20 20 20 20 20 20 42 |O009 DEY. B| 000006C0: 50 4C 20 20 4F 4F 30 30 38 0D 20 20 20 20 20 20 |PL OO008. | 000006D0: 4C 44 59 20 20 30 33 39 20 20 20 20 3B 48 45 52 |LDY 039 ;HER| 000006E0: 53 54 45 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 |STEL (Y).. | 000006F0: 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 |RTS ;NAA| 00000700: 52 20 48 2E 50 2E 0D 44 45 43 49 20 20 4C 44 41 |R H.P..DECI LDA| 00000710: 20 20 30 30 37 35 30 20 20 3B 44 45 43 2E 4F 50 | 00750 ;DEC.OP| 00000720: 20 56 4C 41 47 20 44 42 3A 0D 20 20 20 20 20 20 | VLAG DB:. | 00000730: 42 45 51 20 20 44 45 4E 4B 20 20 20 3B 30 3D 45 |BEQ DENK ;0=E| 00000740: 4E 4B 45 4C 42 59 54 45 3B 0D 20 20 20 20 20 20 |NKELBYTE;. | 00000750: 4A 53 52 20 20 33 39 37 34 34 20 20 3B 31 3D 44 |JSR 39744 ;1=D| 00000760: 55 42 42 45 4C 42 59 54 45 2E 0D 20 20 20 20 20 |UBBELBYTE.. | 00000770: 20 52 54 53 0D 44 45 4E 4B 20 20 4A 53 52 20 20 | RTS.DENK JSR | 00000780: 4F 4F 30 31 38 0D 20 20 20 20 20 20 52 54 53 0D |OO018. RTS.| 00000790: 48 45 58 41 20 20 4C 44 41 20 20 30 30 37 35 30 |HEXA LDA 00750| 000007A0: 20 20 3B 48 45 58 2E 4F 50 20 56 4C 41 47 20 44 | ;HEX.OP VLAG D| 000007B0: 42 3A 0D 20 20 20 20 20 20 42 45 51 20 20 48 45 |B:. BEQ HE| 000007C0: 4E 4B 20 20 20 3B 30 3D 45 4E 4B 45 4C 42 59 54 |NK ;0=ENKELBYT| 000007D0: 45 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 |E;. JSR 39| 000007E0: 38 38 38 20 20 3B 31 3D 44 55 42 42 45 4C 42 59 |888 ;1=DUBBELBY| 000007F0: 54 45 2E 0D 20 20 20 20 20 20 52 54 53 0D 48 45 |TE.. RTS.HE| 00000800: 4E 4B 20 20 4A 53 52 20 20 4F 4F 30 31 37 0D 20 |NK JSR OO017. | 00000810: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4C | RTS. L| 00000820: 44 59 20 23 30 30 30 20 20 20 20 3B 4C 45 4E 47 |DY #000 ;LENG| 00000830: 54 45 20 56 41 4E 0D 20 20 20 20 20 20 4C 44 41 |TE VAN. LDA| 00000840: 20 28 32 35 33 29 2C 59 20 3B 45 4C 45 4D 45 4E | (253),Y ;ELEMEN| 00000850: 54 20 42 45 50 41 4C 45 4E 0D 20 20 20 20 20 20 |T BEPALEN. | 00000860: 42 4E 45 20 20 4F 4F 30 31 30 20 20 3B 4D 45 54 |BNE OO010 ;MET| 00000870: 20 54 45 52 55 47 54 45 4C 4C 45 4E 0D 20 20 20 | TERUGTELLEN. | 00000880: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00000890: 56 41 4E 20 4E 41 53 50 41 54 49 45 53 2E 0D 4F |VAN NASPATIES..O| 000008A0: 4F 30 31 30 20 54 41 59 20 20 20 20 20 20 20 20 |O010 TAY | 000008B0: 20 3B 28 32 35 34 2C 32 35 33 29 20 57 49 4A 53 | ;(254,253) WIJS| 000008C0: 54 0D 4F 4F 30 31 31 20 4C 44 41 20 28 32 35 33 |T.OO011 LDA (253| 000008D0: 29 2C 59 20 3B 4C 45 4E 47 54 45 42 59 54 45 20 |),Y ;LENGTEBYTE | 000008E0: 41 41 4E 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 |AAN.. CMP #| 000008F0: 30 33 32 0D 20 20 20 20 20 20 42 4E 45 20 20 4F |032. BNE O| 00000900: 4F 30 31 32 0D 20 20 20 20 20 20 44 45 59 0D 20 |O012. DEY. | 00000910: 20 20 20 20 20 42 4E 45 20 20 4F 4F 30 31 31 0D | BNE OO011.| 00000920: 4F 4F 30 31 32 20 54 59 41 0D 20 20 20 20 20 20 |OO012 TYA. | 00000930: 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 53 |LDY #000. S| 00000940: 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 |TA (253),Y. | 00000950: 20 52 54 53 0D 20 20 20 20 20 20 4C 44 41 20 20 | RTS. LDA | 00000960: 30 30 37 35 36 20 20 3B 44 45 43 4F 4E 56 45 52 |00756 ;DECONVER| 00000970: 53 49 45 20 4F 50 0D 20 20 20 20 20 20 42 45 51 |SIE OP. BEQ| 00000980: 20 20 4F 4F 30 31 33 20 20 3B 44 42 2D 20 45 4E | OO013 ;DB- EN| 00000990: 20 44 43 2D 56 4C 41 47 2E 0D 20 20 20 20 20 20 | DC-VLAG.. | 000009A0: 4A 53 52 20 20 44 45 43 49 0D 20 20 20 20 20 20 |JSR DECI. | 000009B0: 52 54 53 0D 4F 4F 30 31 33 20 4C 44 59 20 23 30 |RTS.OO013 LDY #0| 000009C0: 30 30 0D 20 20 20 20 20 20 4C 44 41 20 23 30 33 |00. LDA #03| 000009D0: 36 20 20 20 20 3B 27 24 27 20 56 4F 4F 52 4F 50 |6 ;'$' VOOROP| 000009E0: 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |.. STA (253| 000009F0: 29 2C 59 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |),Y. LDA 2| 00000A00: 35 34 20 20 20 20 3B 52 45 44 20 41 44 52 45 53 |54 ;RED ADRES| 00000A10: 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |.. PHA. | 00000A20: 20 20 4C 44 41 20 20 32 35 33 0D 20 20 20 20 20 | LDA 253. | 00000A30: 20 50 48 41 0D 20 20 20 20 20 20 49 4E 43 20 20 | PHA. INC | 00000A40: 32 35 33 0D 20 20 20 20 20 20 42 4E 45 20 20 4F |253. BNE O| 00000A50: 4F 30 31 34 0D 20 20 20 20 20 20 49 4E 43 20 20 |O014. INC | 00000A60: 32 35 34 0D 4F 4F 30 31 34 20 4A 53 52 20 20 48 |254.OO014 JSR H| 00000A70: 45 58 41 0D 20 20 20 20 20 20 50 4C 41 20 20 20 |EXA. PLA | 00000A80: 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C 20 41 | ;HERSTEL A| 00000A90: 44 52 45 53 2E 0D 20 20 20 20 20 20 53 54 41 20 |DRES.. STA | 00000AA0: 20 32 35 33 0D 20 20 20 20 20 20 50 4C 41 0D 20 | 253. PLA. | 00000AB0: 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 | STA 254. | 00000AC0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00000AD0: 50 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 |P. JSR 397| 00000AE0: 34 34 20 20 20 3B 4C 41 42 45 4C 20 5A 45 54 54 |44 ;LABEL ZETT| 00000AF0: 45 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |EN.. LDY #0| 00000B00: 30 31 20 20 20 20 20 3B 56 4F 4F 52 4C 45 54 54 |01 ;VOORLETT| 00000B10: 45 52 53 0D 4F 4F 30 34 30 20 4C 44 41 20 20 30 |ERS.OO040 LDA 0| 00000B20: 30 37 36 36 2C 59 20 3B 55 49 54 20 28 37 36 36 |0766,Y ;UIT (766| 00000B30: 2C 37 36 37 29 2E 0D 20 20 20 20 20 20 53 54 41 |,767).. STA| 00000B40: 20 28 32 35 33 29 2C 59 20 20 3B 49 4E 3A 20 28 | (253),Y ;IN: (| 00000B50: 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 |252,251).. | 00000B60: 44 45 59 20 20 20 20 20 20 20 20 20 20 3B 55 49 |DEY ;UI| 00000B70: 54 3A 28 32 35 34 2C 32 35 33 29 0D 20 20 20 20 |T:(254,253). | 00000B80: 20 20 42 50 4C 20 20 4F 4F 30 34 30 20 20 20 3B | BPL OO040 ;| 00000B90: 42 45 47 49 4E 41 44 52 45 53 2E 0D 20 20 20 20 |BEGINADRES.. | 00000BA0: 20 20 52 54 53 0D 20 20 20 20 20 20 4A 53 52 20 | RTS. JSR | 00000BB0: 20 33 39 37 34 34 20 20 20 3B 54 57 45 45 20 56 | 39744 ;TWEE V| 00000BC0: 4F 4F 52 4E 55 4C 2D 0D 20 20 20 20 20 20 4C 44 |OORNUL-. LD| 00000BD0: 59 20 23 30 30 31 20 20 20 20 20 3B 4C 45 4E 20 |Y #001 ;LEN | 00000BE0: 56 45 52 56 41 4E 47 45 4E 0D 20 20 20 20 20 20 |VERVANGEN. | 00000BF0: 4C 44 41 20 23 30 33 32 20 20 20 20 20 3B 44 4F |LDA #032 ;DO| 00000C00: 4F 52 20 53 50 41 54 49 45 53 2E 0D 4F 4F 30 34 |OR SPATIES..OO04| 00000C10: 31 20 53 54 41 20 28 32 35 33 29 2C 59 20 20 3B |1 STA (253),Y ;| 00000C20: 49 4E 3A 20 28 32 35 32 2C 32 35 31 29 2E 0D 20 |IN: (252,251).. | 00000C30: 20 20 20 20 20 44 45 59 20 20 20 20 20 20 20 20 | DEY | 00000C40: 20 20 3B 55 49 54 3A 28 32 35 34 2C 32 35 33 29 | ;UIT:(254,253)| 00000C50: 0D 20 20 20 20 20 20 42 50 4C 20 20 4F 4F 30 34 |. BPL OO04| 00000C60: 31 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 2E |1 ;BEGINADRES.| 00000C70: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00000C80: 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D | NOP. *=| 00000C90: 33 37 36 36 36 0D 20 20 20 20 20 20 4C 44 41 20 |37666. LDA | 00000CA0: 20 31 34 34 20 20 20 20 3B 53 54 41 54 55 53 20 | 144 ;STATUS | 00000CB0: 4F 50 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |OP. STA 25| 00000CC0: 31 20 20 20 20 3B 53 43 48 45 52 4D 2E 0D 20 20 |1 ;SCHERM.. | 00000CD0: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 00000CE0: 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 | STA 252. | 00000CF0: 20 20 4A 53 52 20 20 33 38 37 39 32 20 20 3B 56 | JSR 38792 ;V| 00000D00: 55 4C 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 |UL XXXXX.. | 00000D10: 4A 53 52 20 20 33 38 38 31 37 20 20 3B 54 45 58 |JSR 38817 ;TEX| 00000D20: 54 20 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 |T VOORBLOK.. | 00000D30: 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 3B 27 | LDX #000 ;'| 00000D40: 54 4F 45 53 54 41 4E 44 20 58 58 58 2E 27 0D 20 |TOESTAND XXX.'. | 00000D50: 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 0D | JSR 38712.| 00000D60: 20 20 20 20 20 20 4C 44 58 20 23 30 32 34 20 20 | LDX #024 | 00000D70: 20 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 | ;OPEN REGEL.. | 00000D80: 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 0D | JSR 38712.| 00000D90: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000DA0: 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 | ;NAAR H.P.. | 00000DB0: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 2E 45 4E | NOP. .EN| 00000DC0: 44 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 35 |D. *=375| 00000DD0: 38 30 0D 4F 50 30 20 20 20 4C 44 41 20 23 30 30 |80.OP0 LDA #00| 00000DE0: 35 20 20 20 20 3B 2A 2A 4F 50 45 4E 45 4E 2E 20 |5 ;**OPENEN. | 00000DF0: 2A 2A 0D 20 20 20 20 20 20 4C 44 58 20 20 30 30 |**. LDX 00| 00000E00: 37 35 31 20 20 3B 42 45 53 54 2E 35 3B 54 4F 45 |751 ;BEST.5;TOE| 00000E10: 53 54 45 4C 2E 0D 20 20 20 20 20 20 42 4E 45 20 |STEL.. BNE | 00000E20: 20 4F 50 31 20 20 20 20 3B 30 3A 20 53 43 48 45 | OP1 ;0: SCHE| 00000E30: 52 4D 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |RM.. LDX #0| 00000E40: 30 33 20 20 20 20 3B 41 50 50 41 52 41 41 54 4E |03 ;APPARAATN| 00000E50: 52 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 4F 50 |R.. BNE OP| 00000E60: 32 20 20 20 20 3B 20 20 20 20 20 20 20 2D 2D 3E |2 ; -->| 00000E70: 5B 4F 50 32 5D 0D 4F 50 31 20 20 20 43 50 58 20 |[OP2].OP1 CPX | 00000E80: 23 30 30 33 0D 20 20 20 20 20 20 42 4E 45 20 20 |#003. BNE | 00000E90: 4F 50 35 20 20 20 20 3B 33 3A 20 50 52 49 4E 54 |OP5 ;3: PRINT| 00000EA0: 45 52 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |ER.. LDX #0| 00000EB0: 30 34 20 20 20 20 3B 41 50 50 41 52 41 41 54 4E |04 ;APPARAATN| 00000EC0: 52 2E 0D 4F 50 32 20 20 20 4C 44 59 20 23 30 30 |R..OP2 LDY #00| 00000ED0: 30 20 20 20 20 3B 53 45 43 2E 41 44 52 2E 4E 55 |0 ;SEC.ADR.NU| 00000EE0: 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |L.. JSR 65| 00000EF0: 34 36 36 20 20 3B 2A 20 53 45 54 4C 46 53 20 2A |466 ;* SETLFS *| 00000F00: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 |. LDA #000 | 00000F10: 20 20 20 3B 47 45 45 4E 20 4E 41 41 4D 2E 0D 20 | ;GEEN NAAM.. | 00000F20: 20 20 20 20 20 42 45 51 20 20 4F 50 39 20 20 20 | BEQ OP9 | 00000F30: 20 3B 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 50 39 | ; -->[OP9| 00000F40: 5D 0D 4F 50 35 20 20 20 4C 44 41 20 23 30 30 30 |].OP5 LDA #000| 00000F50: 20 20 20 20 3B 4E 41 41 4D 56 4C 41 47 0D 20 20 | ;NAAMVLAG. | 00000F60: 20 20 20 20 53 54 41 20 20 30 30 32 20 20 20 20 | STA 002 | 00000F70: 3B 4E 56 3D 30 2E 0D 20 20 20 20 20 20 4C 44 41 |;NV=0.. LDA| 00000F80: 20 20 30 30 37 35 31 0D 20 20 20 20 20 20 43 4D | 00751. CM| 00000F90: 50 20 23 30 30 31 20 20 20 20 3B 31 3A 20 54 41 |P #001 ;1: TA| 00000FA0: 50 45 2E 0D 20 20 20 20 20 20 42 45 51 20 20 4F |PE.. BEQ O| 00000FB0: 50 36 20 20 20 20 3B 32 3A 20 44 49 53 4B 2E 0D |P6 ;2: DISK..| 00000FC0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 38 20 20 | LDX #008 | 00000FD0: 20 20 3B 44 49 53 4B 3A 41 50 50 2E 38 2E 0D 20 | ;DISK:APP.8.. | 00000FE0: 20 20 20 20 20 4C 44 59 20 23 30 30 33 20 20 20 | LDY #003 | 00000FF0: 20 3B 53 45 43 2E 41 44 52 2E 3D 33 2E 0D 20 20 | ;SEC.ADR.=3.. | 00001000: 20 20 20 20 49 4E 43 20 20 30 30 32 20 20 20 20 | INC 002 | 00001010: 3B 5A 45 54 20 4E 56 3D 31 2E 0D 20 20 20 20 20 |;ZET NV=1.. | 00001020: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 20 20 | CLC ; | 00001030: 20 20 20 20 20 2D 2D 3E 5B 4F 50 37 5D 0D 20 20 | -->[OP7]. | 00001040: 20 20 20 20 42 43 43 20 20 4F 50 37 0D 4F 50 36 | BCC OP7.OP6| 00001050: 20 20 20 4C 44 58 20 23 30 30 31 20 20 20 20 3B | LDX #001 ;| 00001060: 54 41 50 45 3A 41 50 50 2E 31 2E 0D 20 20 20 20 |TAPE:APP.1.. | 00001070: 20 20 4C 44 59 20 23 30 30 31 20 20 20 20 3B 53 | LDY #001 ;S| 00001080: 45 43 2E 41 44 52 2E 3D 31 2E 0D 4F 50 37 20 20 |EC.ADR.=1..OP7 | 00001090: 20 4C 44 41 20 23 30 30 35 20 20 20 20 3B 42 45 | LDA #005 ;BE| 000010A0: 53 54 41 4E 44 53 4E 52 2E 0D 20 20 20 20 20 20 |STANDSNR.. | 000010B0: 4A 53 52 20 20 36 35 34 36 36 20 20 3B 2A 20 53 |JSR 65466 ;* S| 000010C0: 45 54 4C 46 53 20 2A 0D 20 20 20 20 20 20 4C 44 |ETLFS *. LD| 000010D0: 41 20 20 30 30 32 20 20 20 20 3B 4E 56 3D 30 3A |A 002 ;NV=0:| 000010E0: 20 20 2D 2D 3E 5B 4F 50 38 5D 0D 20 20 20 20 20 | -->[OP8]. | 000010F0: 20 42 45 51 20 20 4F 50 38 20 20 20 20 3B 4E 56 | BEQ OP8 ;NV| 00001100: 3D 31 3A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |=1:. LDX #0| 00001110: 34 34 20 20 20 20 3B 4B 4F 4D 4D 41 2E 0D 20 20 |44 ;KOMMA.. | 00001120: 20 20 20 20 4A 53 52 20 20 33 37 37 32 38 0D 20 | JSR 37728. | 00001130: 20 20 20 20 20 4C 44 58 20 23 30 38 33 20 20 20 | LDX #083 | 00001140: 20 3B 27 53 27 2E 0D 20 20 20 20 20 20 4A 53 52 | ;'S'.. JSR| 00001150: 20 20 33 37 37 32 38 0D 20 20 20 20 20 20 4C 44 | 37728. LD| 00001160: 58 20 23 30 34 34 20 20 20 20 3B 4B 4F 4D 4D 41 |X #044 ;KOMMA| 00001170: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 37 |.. JSR 377| 00001180: 32 38 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 |28. LDX #08| 00001190: 37 20 20 20 20 3B 27 57 27 2E 0D 20 20 20 20 20 |7 ;'W'.. | 000011A0: 20 4A 53 52 20 20 33 37 37 32 38 0D 4F 50 38 20 | JSR 37728.OP8 | 000011B0: 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 4C | LDY #000 ;L| 000011C0: 45 4E 47 54 45 20 49 4E 0D 20 20 20 20 20 20 4C |ENGTE IN. L| 000011D0: 44 41 20 28 32 35 33 29 2C 59 20 3B 44 45 20 53 |DA (253),Y ;DE S| 000011E0: 54 41 50 45 4C 2E 0D 20 20 20 20 20 20 50 48 41 |TAPEL.. PHA| 000011F0: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 00001200: 20 4C 44 41 20 20 32 35 33 20 20 20 20 3B 4C 53 | LDA 253 ;LS| 00001210: 20 41 44 52 45 53 20 4E 41 41 4D 2E 0D 20 20 20 | ADRES NAAM.. | 00001220: 20 20 20 41 44 43 20 23 30 30 31 0D 20 20 20 20 | ADC #001. | 00001230: 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 41 20 | TAX. LDA | 00001240: 20 32 35 34 20 20 20 20 3B 4D 53 20 41 44 52 45 | 254 ;MS ADRE| 00001250: 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 41 44 |S NAAM.. AD| 00001260: 43 20 23 30 30 30 0D 20 20 20 20 20 20 54 41 59 |C #000. TAY| 00001270: 20 20 20 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 | ;LENGTE| 00001280: 20 55 49 54 0D 20 20 20 20 20 20 50 4C 41 20 20 | UIT. PLA | 00001290: 20 20 20 20 20 20 20 3B 44 45 20 53 54 41 50 45 | ;DE STAPE| 000012A0: 4C 2E 0D 4F 50 39 20 20 20 4A 53 52 20 20 36 35 |L..OP9 JSR 65| 000012B0: 34 36 39 20 20 3B 2A 20 53 45 54 4E 41 4D 20 2A |469 ;* SETNAM *| 000012C0: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 |. JSR 6547| 000012D0: 32 20 20 3B 2A 20 4F 50 45 4E 20 20 20 2A 0D 20 |2 ;* OPEN *. | 000012E0: 20 20 20 20 20 4C 44 58 20 23 30 30 35 20 20 20 | LDX #005 | 000012F0: 20 3B 42 45 53 54 41 4E 44 53 4E 52 2E 0D 20 20 | ;BESTANDSNR.. | 00001300: 20 20 20 20 4A 53 52 20 20 36 35 34 38 31 20 20 | JSR 65481 | 00001310: 3B 2A 20 43 48 4B 4F 55 54 20 2A 0D 20 20 20 20 |;* CHKOUT *. | 00001320: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00001330: 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 2E |AAR H.P.. .| 00001340: 42 59 54 45 20 24 46 46 2C 24 46 46 0D 20 20 20 |BYTE $FF,$FF. | 00001350: 20 20 20 20 20 20 2A 3D 33 37 36 39 32 0D 4F 52 | *=37692.OR| 00001360: 30 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 |0 LDY #000 | 00001370: 3B 2A 2A 53 43 48 52 49 4A 46 2E 2A 2A 0D 20 20 |;**SCHRIJF.**. | 00001380: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 | LDA (253),Y | 00001390: 3B 52 45 47 45 4C 4C 45 4E 47 54 45 0D 20 20 20 |;REGELLENGTE. | 000013A0: 20 20 20 53 54 41 20 20 30 30 32 20 20 20 20 3B | STA 002 ;| 000013B0: 54 49 4A 44 45 4C 49 4A 4B 2E 0D 20 20 20 20 20 |TIJDELIJK.. | 000013C0: 20 42 4E 45 20 20 4F 52 32 20 20 20 20 3B 3E 30 | BNE OR2 ;>0| 000013D0: 3A 20 20 20 20 2D 2D 3E 5B 4F 52 32 5D 0D 20 20 |: -->[OR2]. | 000013E0: 20 20 20 20 42 45 51 20 20 4F 52 39 20 20 20 20 | BEQ OR9 | 000013F0: 3B 3D 30 3A 20 20 20 20 2D 2D 3E 5B 4F 52 39 5D |;=0: -->[OR9]| 00001400: 0D 4F 52 31 20 20 20 49 4E 59 20 20 20 20 20 20 |.OR1 INY | 00001410: 20 20 20 3B 56 4F 4C 47 45 4E 44 45 20 42 59 54 | ;VOLGENDE BYT| 00001420: 45 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |E.. LDA (25| 00001430: 33 29 2C 59 20 3B 55 49 54 20 45 4C 45 4D 45 4E |3),Y ;UIT ELEMEN| 00001440: 54 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |T.. JSR 65| 00001450: 34 39 30 20 20 3B 2A 20 43 48 52 4F 55 54 20 2A |490 ;* CHROUT *| 00001460: 0D 4F 52 32 20 20 20 43 50 59 20 20 30 30 32 20 |.OR2 CPY 002 | 00001470: 20 20 20 3B 4B 4C 41 41 52 3F 0D 20 20 20 20 20 | ;KLAAR?. | 00001480: 20 42 43 43 20 20 4F 52 31 20 20 20 20 3B 4E 45 | BCC OR1 ;NE| 00001490: 45 4E 3A 20 20 2D 2D 3E 5B 4F 52 31 5D 0D 4F 52 |EN: -->[OR1].OR| 000014A0: 39 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 |9 RTS | 000014B0: 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |;NAAR H.P.. | 000014C0: 20 2E 42 59 54 45 20 24 46 46 2C 24 46 46 0D 20 | .BYTE $FF,$FF. | 000014D0: 20 20 20 20 20 20 20 20 2A 3D 33 37 37 31 36 0D | *=37716.| 000014E0: 4F 53 30 20 20 20 4C 44 41 20 23 30 30 35 20 20 |OS0 LDA #005 | 000014F0: 20 20 3B 2A 2A 53 4C 55 49 54 45 4E 2E 2A 2A 0D | ;**SLUITEN.**.| 00001500: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 35 | JSR 65475| 00001510: 20 20 3B 2A 20 43 4C 4F 53 45 20 20 2A 0D 20 20 | ;* CLOSE *. | 00001520: 20 20 20 20 4A 53 52 20 20 36 35 35 31 31 20 20 | JSR 65511 | 00001530: 3B 2A 20 43 4C 41 4C 4C 20 20 2A 0D 20 20 20 20 |;* CLALL *. | 00001540: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00001550: 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 2E |AAR H.P.. .| 00001560: 42 59 54 45 20 24 46 46 2C 24 46 46 0D 20 20 20 |BYTE $FF,$FF. | 00001570: 20 20 20 20 20 20 2A 3D 33 37 37 32 38 0D 20 20 | *=37728. | 00001580: 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 | LDY #000 | 00001590: 3B 2A 2A 45 58 54 52 41 2D 58 2E 2A 2A 0D 20 20 |;**EXTRA-X.**. | 000015A0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 | CLC. LD| 000015B0: 41 20 28 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 |A (253),Y ;LENGT| 000015C0: 45 20 4D 45 54 20 45 45 4E 0D 20 20 20 20 20 20 |E MET EEN. | 000015D0: 41 44 43 20 23 30 30 31 20 20 20 20 3B 4F 50 48 |ADC #001 ;OPH| 000015E0: 4F 47 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 |OGEN.. STA | 000015F0: 28 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 20 |(253),Y ;LENGTE | 00001600: 4D 45 54 20 45 45 4E 0D 20 20 20 20 20 20 54 41 |MET EEN. TA| 00001610: 59 20 20 20 20 20 20 20 20 20 3B 5A 45 54 20 49 |Y ;ZET I| 00001620: 4E 20 28 59 29 2E 0D 20 20 20 20 20 20 54 58 41 |N (Y).. TXA| 00001630: 20 20 20 20 20 20 20 20 20 3B 45 58 54 52 41 20 | ;EXTRA | 00001640: 54 45 4B 45 4E 20 28 58 29 0D 20 20 20 20 20 20 |TEKEN (X). | 00001650: 53 54 41 20 28 32 35 33 29 2C 59 20 3B 41 43 48 |STA (253),Y ;ACH| 00001660: 54 45 52 41 41 4E 2E 0D 20 20 20 20 20 20 52 54 |TERAAN.. RT| 00001670: 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |S. NOP. | 00001680: 20 20 4E 4F 50 20 20 20 20 20 20 20 20 20 3B 4C | NOP ;L| 00001690: 41 41 54 53 54 45 21 21 21 21 21 21 0D 20 20 20 |AATSTE!!!!!!. | 000016A0: 20 20 20 2E 45 4E 44 0D | .END. |
*=37408.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. *=37512.OO0
17 STY 039 ;EENBYTE BIN-HEX.. LDY
#000 ;IN:(251) BINAIR.. LDA 251
;UIT:AF ADRES. .BYTE $4A ;AU=(254,
253).. .BYTE $4A ;SCHUIF 4 BITS.
.BYTE $4A ;NAAR RECHTS.. .BYTE $
4A ;M.S.DEEL.. ORA #048. STA (
253),Y. INY. LDA 251 ;L.S.DE
EL.. AND #015. ORA #048.
STA (253),Y.OO008 LDA (253),Y ;HEXADEC.T
EKEN.. CMP #058. BCC OO009.
ADC #006. STA (253),Y.OO009 DEY
. BPL OO008. LDY 039 ;HER
STEL (Y).. RTS ;NAAR H.P..D
ECI LDA 00750 ;DEC.OP VLAG DB:.
BEQ DENK ;0=ENKELBYTE;. JSR 397
44 ;1=DUBBELBYTE.. RTS.DENK JSR
OO018. RTS.HEXA LDA 00750 ;HEX.O
P VLAG DB:. BEQ HENK ;0=ENKELBYT
E;. JSR 39888 ;1=DUBBELBYTE..
RTS.HENK JSR OO017. RTS. L
DY #000 ;LENGTE VAN. LDA (253),Y
;ELEMENT BEPALEN. BNE OO010 ;MET
TERUGTELLEN. RTS ;VAN NASP
ATIES..OO010 TAY ;(254,253) WIJS
T.OO011 LDA (253),Y ;LENGTEBYTE AAN..
CMP #032. BNE OO012. DEY.
BNE OO011.OO012 TYA. LDY #000
. STA (253),Y. RTS. LDA
00756 ;DECONVERSIE OP. BEQ OO013
;DB- EN DC-VLAG.. JSR DECI.
RTS.OO013 LDY #000. LDA #036 ;'$
' VOOROP.. STA (253),Y. LDA 2
54 ;RED ADRES.. PHA. LDA 2
53. PHA. INC 253. BNE O
O014. INC 254.OO014 JSR HEXA.
PLA ;HERSTEL ADRES.. STA
253. PLA. STA 254. RTS.
NOP. JSR 39744 ;LABEL ZETT
EN.. LDY #001 ;VOORLETTERS.OO04
0 LDA 00766,Y ;UIT (766,767).. STA
(253),Y ;IN: (252,251).. DEY
;UIT:(254,253). BPL OO040 ;
BEGINADRES.. RTS. JSR 39744
;TWEE VOORNUL-. LDY #001 ;LEN
VERVANGEN. LDA #032 ;DOOR SPATI
ES..OO041 STA (253),Y ;IN: (252,251)..
DEY ;UIT:(254,253). B
PL OO041 ;BEGINADRES.. RTS.
NOP. *=37666. LDA 144
;STATUS OP. STA 251 ;SCHERM..
LDA #000. STA 252. JSR 3
8792 ;VUL XXXXX.. JSR 38817 ;TEX
T VOORBLOK.. LDX #000 ;'TOESTAND
XXX.'. JSR 38712. LDX #024
;OPEN REGEL.. JSR 38712. RT
S ;NAAR H.P.. NOP. .EN
D. *=37580.OP0 LDA #005 ;**
OPENEN. **. LDX 00751 ;BEST.5;TOE
STEL.. BNE OP1 ;0: SCHERM..
LDX #003 ;APPARAATNR.. BNE OP
2 ; -->[OP2].OP1 CPX #003.
BNE OP5 ;3: PRINTER.. LDX #0
04 ;APPARAATNR..OP2 LDY #000 ;SE
C.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: TA
PE.. BEQ OP6 ;2: DISK.. LD
X #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
LDA #005 ;BESTANDSNR.. JSR 654
66 ;* SETLFS *. LDA 002 ;NV=0:
-->[OP8]. BEQ OP8 ;NV=1:.
LDX #044 ;KOMMA.. JSR 37728.
LDX #083 ;'S'.. JSR 37728.
LDX #044 ;KOMMA.. JSR 377
28. LDX #087 ;'W'.. JSR 37
728.OP8 LDY #000 ;LENGTE IN. L
DA (253),Y ;DE STAPEL.. PHA. C
LC. 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. *=37692.OR
0 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 65
490 ;* CHROUT *.OR2 CPY 002 ;KLAA
R?. BCC OR1 ;NEEN: -->[OR1].OR
9 RTS ;NAAR H.P.. .BYTE $
FF,$FF. *=37716.OS0 LDA #005
;**SLUITEN.**. JSR 65475 ;* CLO
SE *. JSR 65511 ;* CLALL *.
RTS ;NAAR H.P.. .BYTE $FF
,$FF. *=37728. LDY #000
;**EXTRA-X.**. CLC. LDA (253),
Y ;LENGTE MET EEN. ADC #001 ;OPH
OGEN.. 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