DISA05
FILE INFORMATION
FILENAME(S): DISA05
FILE TYPE(S): SEQ
FILE SIZE: 9.3K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
46c71a4db9e06efb2576f3679410bfff65e973aef57a93ddc1a92017259e7eda
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA05 | SEQ | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 37 32 38 30 | *=37280| 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 33 38 34 0D 4F 4F 30 | *=37384.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 4C 44 41 20 20 | NOP. LDA | 00000C90: 31 34 34 20 20 20 20 3B 53 54 41 54 55 53 20 4F |144 ;STATUS O| 00000CA0: 50 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 |P. STA 251| 00000CB0: 20 20 20 20 3B 53 43 48 45 52 4D 2E 0D 20 20 20 | ;SCHERM.. | 00000CC0: 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 | LDA #000. | 00000CD0: 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 | STA 252. | 00000CE0: 20 4A 53 52 20 20 33 38 37 39 32 20 20 3B 56 55 | JSR 38792 ;VU| 00000CF0: 4C 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 4A |L XXXXX.. J| 00000D00: 53 52 20 20 33 38 38 31 37 20 20 3B 54 45 58 54 |SR 38817 ;TEXT| 00000D10: 20 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 20 | VOORBLOK.. | 00000D20: 20 4C 44 58 20 23 30 30 30 20 20 20 20 3B 27 54 | LDX #000 ;'T| 00000D30: 4F 45 53 54 41 4E 44 20 58 58 58 2E 27 0D 20 20 |OESTAND XXX.'. | 00000D40: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 0D 20 | JSR 38712. | 00000D50: 20 20 20 20 20 4C 44 58 20 23 30 32 34 20 20 20 | LDX #024 | 00000D60: 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 | ;OPEN REGEL.. | 00000D70: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 0D 20 | JSR 38712. | 00000D80: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000D90: 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 | ;NAAR H.P.. | 00000DA0: 20 20 4E 4F 50 0D 4F 50 30 20 20 20 4C 44 41 20 | NOP.OP0 LDA | 00000DB0: 23 30 30 35 20 20 20 20 3B 2A 2A 4F 50 45 4E 45 |#005 ;**OPENE| 00000DC0: 4E 2E 20 2A 2A 0D 20 20 20 20 20 20 4C 44 58 20 |N. **. LDX | 00000DD0: 20 30 30 37 35 31 20 20 3B 42 45 53 54 2E 35 3B | 00751 ;BEST.5;| 00000DE0: 54 4F 45 53 54 45 4C 2E 0D 20 20 20 20 20 20 42 |TOESTEL.. B| 00000DF0: 4E 45 20 20 4F 50 31 20 20 20 20 3B 30 3A 20 53 |NE OP1 ;0: S| 00000E00: 43 48 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 58 |CHERM.. LDX| 00000E10: 20 23 30 30 33 20 20 20 20 3B 41 50 50 41 52 41 | #003 ;APPARA| 00000E20: 41 54 4E 52 2E 0D 20 20 20 20 20 20 42 4E 45 20 |ATNR.. BNE | 00000E30: 20 4F 50 32 20 20 20 20 3B 20 20 20 20 20 20 20 | OP2 ; | 00000E40: 2D 2D 3E 5B 4F 50 32 5D 0D 4F 50 31 20 20 20 43 |-->[OP2].OP1 C| 00000E50: 50 58 20 23 30 30 33 0D 20 20 20 20 20 20 42 4E |PX #003. BN| 00000E60: 45 20 20 4F 50 35 20 20 20 20 3B 33 3A 20 50 52 |E OP5 ;3: PR| 00000E70: 49 4E 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 58 |INTER.. LDX| 00000E80: 20 23 30 30 34 20 20 20 20 3B 41 50 50 41 52 41 | #004 ;APPARA| 00000E90: 41 54 4E 52 2E 0D 4F 50 32 20 20 20 4C 44 59 20 |ATNR..OP2 LDY | 00000EA0: 23 30 30 30 20 20 20 20 3B 53 45 43 2E 41 44 52 |#000 ;SEC.ADR| 00000EB0: 2E 4E 55 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 |.NUL.. JSR | 00000EC0: 20 36 35 34 36 36 20 20 3B 2A 20 53 45 54 4C 46 | 65466 ;* SETLF| 00000ED0: 53 20 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |S *. LDA #0| 00000EE0: 30 30 20 20 20 20 3B 47 45 45 4E 20 4E 41 41 4D |00 ;GEEN NAAM| 00000EF0: 2E 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 39 |.. BEQ OP9| 00000F00: 20 20 20 20 3B 20 20 20 20 20 20 20 2D 2D 3E 5B | ; -->[| 00000F10: 4F 50 39 5D 0D 4F 50 35 20 20 20 4C 44 41 20 23 |OP9].OP5 LDA #| 00000F20: 30 30 30 20 20 20 20 3B 4E 41 41 4D 56 4C 41 47 |000 ;NAAMVLAG| 00000F30: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 |. STA 002 | 00000F40: 20 20 20 3B 4E 56 3D 30 2E 0D 20 20 20 20 20 20 | ;NV=0.. | 00000F50: 4C 44 41 20 20 30 30 37 35 31 0D 20 20 20 20 20 |LDA 00751. | 00000F60: 20 43 4D 50 20 23 30 30 31 20 20 20 20 3B 31 3A | CMP #001 ;1:| 00000F70: 20 54 41 50 45 2E 0D 20 20 20 20 20 20 42 45 51 | TAPE.. BEQ| 00000F80: 20 20 4F 50 36 20 20 20 20 3B 32 3A 20 44 49 53 | OP6 ;2: DIS| 00000F90: 4B 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |K.. LDX #00| 00000FA0: 38 20 20 20 20 3B 44 49 53 4B 3A 41 50 50 2E 38 |8 ;DISK:APP.8| 00000FB0: 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 33 |.. LDY #003| 00000FC0: 20 20 20 20 3B 53 45 43 2E 41 44 52 2E 3D 33 2E | ;SEC.ADR.=3.| 00000FD0: 0D 20 20 20 20 20 20 49 4E 43 20 20 30 30 32 20 |. INC 002 | 00000FE0: 20 20 20 3B 5A 45 54 20 4E 56 3D 31 2E 0D 20 20 | ;ZET NV=1.. | 00000FF0: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 00001000: 3B 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 50 37 5D |; -->[OP7]| 00001010: 0D 20 20 20 20 20 20 42 43 43 20 20 4F 50 37 0D |. BCC OP7.| 00001020: 4F 50 36 20 20 20 4C 44 58 20 23 30 30 31 20 20 |OP6 LDX #001 | 00001030: 20 20 3B 54 41 50 45 3A 41 50 50 2E 31 2E 0D 20 | ;TAPE:APP.1.. | 00001040: 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 | LDY #001 | 00001050: 20 3B 53 45 43 2E 41 44 52 2E 3D 31 2E 0D 4F 50 | ;SEC.ADR.=1..OP| 00001060: 37 20 20 20 4C 44 41 20 23 30 30 35 20 20 20 20 |7 LDA #005 | 00001070: 3B 42 45 53 54 41 4E 44 53 4E 52 2E 0D 20 20 20 |;BESTANDSNR.. | 00001080: 20 20 20 4A 53 52 20 20 36 35 34 36 36 20 20 3B | JSR 65466 ;| 00001090: 2A 20 53 45 54 4C 46 53 20 2A 0D 20 20 20 20 20 |* SETLFS *. | 000010A0: 20 4C 44 41 20 20 30 30 32 20 20 20 20 3B 4E 56 | LDA 002 ;NV| 000010B0: 3D 30 3A 20 20 2D 2D 3E 5B 4F 50 38 5D 0D 20 20 |=0: -->[OP8]. | 000010C0: 20 20 20 20 42 45 51 20 20 4F 50 38 20 20 20 20 | BEQ OP8 | 000010D0: 3B 4E 56 3D 31 3A 0D 20 20 20 20 20 20 4C 44 58 |;NV=1:. LDX| 000010E0: 20 23 30 34 34 20 20 20 20 3B 4B 4F 4D 4D 41 2E | #044 ;KOMMA.| 000010F0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 37 30 |. JSR 3770| 00001100: 38 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 33 |8. LDX #083| 00001110: 20 20 20 20 3B 27 53 27 2E 0D 20 20 20 20 20 20 | ;'S'.. | 00001120: 4A 53 52 20 20 33 37 37 30 38 0D 20 20 20 20 20 |JSR 37708. | 00001130: 20 4C 44 58 20 23 30 34 34 20 20 20 20 3B 4B 4F | LDX #044 ;KO| 00001140: 4D 4D 41 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |MMA.. JSR | 00001150: 33 37 37 30 38 0D 20 20 20 20 20 20 4C 44 58 20 |37708. LDX | 00001160: 23 30 38 37 20 20 20 20 3B 27 57 27 2E 0D 20 20 |#087 ;'W'.. | 00001170: 20 20 20 20 4A 53 52 20 20 33 37 37 30 38 0D 4F | JSR 37708.O| 00001180: 50 38 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 |P8 LDY #000 | 00001190: 20 3B 4C 45 4E 47 54 45 20 49 4E 0D 20 20 20 20 | ;LENGTE IN. | 000011A0: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 44 | LDA (253),Y ;D| 000011B0: 45 20 53 54 41 50 45 4C 2E 0D 20 20 20 20 20 20 |E STAPEL.. | 000011C0: 50 48 41 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |PHA. CLC. | 000011D0: 20 20 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 | LDA 253 | 000011E0: 3B 4C 53 20 41 44 52 45 53 20 4E 41 41 4D 2E 0D |;LS ADRES NAAM..| 000011F0: 20 20 20 20 20 20 41 44 43 20 23 30 30 31 0D 20 | ADC #001. | 00001200: 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C | TAX. L| 00001210: 44 41 20 20 32 35 34 20 20 20 20 3B 4D 53 20 41 |DA 254 ;MS A| 00001220: 44 52 45 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 |DRES NAAM.. | 00001230: 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 | ADC #000. | 00001240: 54 41 59 20 20 20 20 20 20 20 20 20 3B 4C 45 4E |TAY ;LEN| 00001250: 47 54 45 20 55 49 54 0D 20 20 20 20 20 20 50 4C |GTE UIT. PL| 00001260: 41 20 20 20 20 20 20 20 20 20 3B 44 45 20 53 54 |A ;DE ST| 00001270: 41 50 45 4C 2E 0D 4F 50 39 20 20 20 4A 53 52 20 |APEL..OP9 JSR | 00001280: 20 36 35 34 36 39 20 20 3B 2A 20 53 45 54 4E 41 | 65469 ;* SETNA| 00001290: 4D 20 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |M *. JSR 6| 000012A0: 35 34 37 32 20 20 3B 2A 20 4F 50 45 4E 20 20 20 |5472 ;* OPEN | 000012B0: 2A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 35 |*. LDX #005| 000012C0: 20 20 20 20 3B 42 45 53 54 41 4E 44 53 4E 52 2E | ;BESTANDSNR.| 000012D0: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 38 |. JSR 6548| 000012E0: 31 20 20 3B 2A 20 43 48 4B 4F 55 54 20 2A 0D 20 |1 ;* CHKOUT *. | 000012F0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00001300: 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 | ;NAAR H.P.. | 00001310: 20 20 2E 42 59 54 45 20 24 45 41 2C 24 45 41 0D | .BYTE $EA,$EA.| 00001320: 4F 52 30 20 20 20 4C 44 59 20 23 30 30 30 20 20 |OR0 LDY #000 | 00001330: 20 20 3B 2A 2A 53 43 48 52 49 4A 46 2E 2A 2A 0D | ;**SCHRIJF.**.| 00001340: 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C | LDA (253),| 00001350: 59 20 3B 52 45 47 45 4C 4C 45 4E 47 54 45 0D 20 |Y ;REGELLENGTE. | 00001360: 20 20 20 20 20 53 54 41 20 20 30 30 32 20 20 20 | STA 002 | 00001370: 20 3B 54 49 4A 44 45 4C 49 4A 4B 2E 0D 20 20 20 | ;TIJDELIJK.. | 00001380: 20 20 20 42 4E 45 20 20 4F 52 32 20 20 20 20 3B | BNE OR2 ;| 00001390: 3E 30 3A 20 20 20 20 2D 2D 3E 5B 4F 52 32 5D 0D |>0: -->[OR2].| 000013A0: 20 20 20 20 20 20 42 45 51 20 20 4F 52 39 20 20 | BEQ OR9 | 000013B0: 20 20 3B 3D 30 3A 20 20 20 20 2D 2D 3E 5B 4F 52 | ;=0: -->[OR| 000013C0: 39 5D 0D 4F 52 31 20 20 20 49 4E 59 20 20 20 20 |9].OR1 INY | 000013D0: 20 20 20 20 20 3B 56 4F 4C 47 45 4E 44 45 20 42 | ;VOLGENDE B| 000013E0: 59 54 45 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 |YTE.. LDA (| 000013F0: 32 35 33 29 2C 59 20 3B 55 49 54 20 45 4C 45 4D |253),Y ;UIT ELEM| 00001400: 45 4E 54 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |ENT.. JSR | 00001410: 36 35 34 39 30 20 20 3B 2A 20 43 48 52 4F 55 54 |65490 ;* CHROUT| 00001420: 20 2A 0D 4F 52 32 20 20 20 43 50 59 20 20 30 30 | *.OR2 CPY 00| 00001430: 32 20 20 20 20 3B 4B 4C 41 41 52 3F 0D 20 20 20 |2 ;KLAAR?. | 00001440: 20 20 20 42 43 43 20 20 4F 52 31 20 20 20 20 3B | BCC OR1 ;| 00001450: 4E 45 45 4E 3A 20 20 2D 2D 3E 5B 4F 52 31 5D 0D |NEEN: -->[OR1].| 00001460: 4F 52 39 20 20 20 52 54 53 20 20 20 20 20 20 20 |OR9 RTS | 00001470: 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 | ;NAAR H.P.. | 00001480: 20 20 20 2E 42 59 54 45 20 24 45 41 2C 24 45 41 | .BYTE $EA,$EA| 00001490: 0D 4F 53 30 20 20 20 4C 44 41 20 23 30 30 35 20 |.OS0 LDA #005 | 000014A0: 20 20 20 3B 2A 2A 53 4C 55 49 54 45 4E 2E 2A 2A | ;**SLUITEN.**| 000014B0: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 |. JSR 6547| 000014C0: 35 20 20 3B 2A 20 43 4C 4F 53 45 20 20 2A 0D 20 |5 ;* CLOSE *. | 000014D0: 20 20 20 20 20 4A 53 52 20 20 36 35 35 31 31 20 | JSR 65511 | 000014E0: 20 3B 2A 20 43 4C 41 4C 4C 20 20 2A 0D 20 20 20 | ;* CLALL *. | 000014F0: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00001500: 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 |NAAR H.P.. | 00001510: 2E 42 59 54 45 20 24 45 41 2C 24 45 41 0D 20 20 |.BYTE $EA,$EA. | 00001520: 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 | LDY #000 | 00001530: 3B 2A 2A 45 58 54 52 41 2D 58 2E 2A 2A 0D 20 20 |;**EXTRA-X.**. | 00001540: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 | CLC. LD| 00001550: 41 20 28 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 |A (253),Y ;LENGT| 00001560: 45 20 4D 45 54 20 45 45 4E 0D 20 20 20 20 20 20 |E MET EEN. | 00001570: 41 44 43 20 23 30 30 31 20 20 20 20 3B 4F 50 48 |ADC #001 ;OPH| 00001580: 4F 47 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 |OGEN.. STA | 00001590: 28 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 20 |(253),Y ;LENGTE | 000015A0: 4D 45 54 20 45 45 4E 0D 20 20 20 20 20 20 54 41 |MET EEN. TA| 000015B0: 59 20 20 20 20 20 20 20 20 20 3B 5A 45 54 20 49 |Y ;ZET I| 000015C0: 4E 20 28 59 29 2E 0D 20 20 20 20 20 20 54 58 41 |N (Y).. TXA| 000015D0: 20 20 20 20 20 20 20 20 20 3B 45 58 54 52 41 20 | ;EXTRA | 000015E0: 54 45 4B 45 4E 20 28 58 29 0D 20 20 20 20 20 20 |TEKEN (X). | 000015F0: 53 54 41 20 28 32 35 33 29 2C 59 20 3B 41 43 48 |STA (253),Y ;ACH| 00001600: 54 45 52 41 41 4E 2E 0D 20 20 20 20 20 20 52 54 |TERAAN.. RT| 00001610: 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |S. NOP. | 00001620: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00001630: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00001640: 20 20 20 2A 3D 33 37 37 32 33 0D 20 20 20 20 20 | *=37723. | 00001650: 20 4C 44 58 20 23 30 31 30 0D 20 20 20 20 20 20 | LDX #010. | 00001660: 4A 53 52 20 20 33 38 33 38 31 20 20 3B 42 55 3D |JSR 38381 ;BU=| 00001670: 3E 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 |>(254,253).. | 00001680: 20 20 4C 44 41 20 23 30 33 32 20 20 20 20 3B 53 | LDA #032 ;S| 00001690: 50 41 54 49 45 2E 0D 20 20 20 20 20 20 53 54 41 |PATIE.. STA| 000016A0: 20 20 32 35 32 20 20 20 20 3B 41 41 4E 54 41 4C | 252 ;AANTAL| 000016B0: 20 4D 4F 45 54 20 4F 4F 4B 0D 20 20 20 20 20 20 | MOET OOK. | 000016C0: 4C 44 41 20 23 30 32 30 20 20 20 20 3B 49 4E 20 |LDA #020 ;IN | 000016D0: 28 42 55 2B 30 29 20 47 45 5A 45 54 0D 20 20 20 |(BU+0) GEZET. | 000016E0: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 3B | STA 251 ;| 000016F0: 57 4F 52 44 45 4E 2E 0D 20 20 20 20 20 20 4A 53 |WORDEN.. JS| 00001700: 52 20 20 33 38 35 32 30 20 20 3B 5A 45 54 20 49 |R 38520 ;ZET I| 00001710: 4E 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |N.. RTS. | 00001720: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00001730: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00001740: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00001750: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 00001760: 20 20 2A 3D 33 37 37 34 34 0D 20 20 20 20 20 20 | *=37744. | 00001770: 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 | ;. | 00001780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001790: 3B 27 4C 41 42 45 4C 4F 56 45 52 4C 4F 4F 50 0D |;'LABELOVERLOOP.| 000017A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017B0: 20 20 3B 20 52 45 47 45 4C 2E 2E 2E 2E 27 0D 20 | ; REGEL....'. | 000017C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017D0: 20 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 | ;. LDX #00| 000017E0: 30 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 |0. JSR 383| 000017F0: 39 32 20 20 3B 52 55 3D 3E 28 31 31 30 2C 31 30 |92 ;RU=>(110,10| 00001800: 39 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |9).. JSR 3| 00001810: 39 37 33 31 20 20 3B 52 58 3D 3E 28 32 35 34 2C |9731 ;RX=>(254,| 00001820: 32 35 33 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 |253).. JSR | 00001830: 20 33 38 34 32 36 20 20 3B 52 45 47 45 4C 4E 55 | 38426 ;REGELNU| 00001840: 4D 4D 45 52 2E 0D 20 20 20 20 20 20 4A 53 52 20 |MMER.. JSR | 00001850: 20 33 38 37 39 32 20 20 3B 5A 45 54 20 49 4E 20 | 38792 ;ZET IN | 00001860: 58 58 58 58 58 2E 0D 20 20 20 20 20 20 4A 53 52 |XXXXX.. JSR| 00001870: 20 20 33 38 38 31 37 20 20 3B 56 4F 4F 52 42 4C | 38817 ;VOORBL| 00001880: 2E 54 45 4B 53 54 2E 0D 20 20 20 20 20 20 4C 44 |.TEKST.. LD| 00001890: 58 20 23 30 31 37 20 20 20 20 3B 27 4C 41 42 45 |X #017 ;'LABE| 000018A0: 4C 4F 56 45 52 4C 2E 0D 20 20 20 20 20 20 4A 53 |LOVERL.. JS| 000018B0: 52 20 20 33 38 37 31 32 20 20 3B 20 52 45 47 45 |R 38712 ; REGE| 000018C0: 4C 2E 2E 2E 2E 27 0D 20 20 20 20 20 20 52 54 53 |L....'. RTS| 000018D0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 000018E0: 20 20 20 20 2A 3D 33 37 37 36 38 0D 20 20 20 20 | *=37768. | 000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D | ;.| 00001900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001910: 20 20 3B 27 52 45 47 45 4C 4F 56 45 52 4C 4F 4F | ;'REGELOVERLOO| 00001920: 50 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |P. | 00001930: 20 20 20 20 3B 20 41 44 52 45 53 2E 2E 2E 2E 27 | ; ADRES....'| 00001940: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001950: 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 20 | ;. LDA | 00001960: 30 30 37 30 30 20 20 3B 41 44 52 45 53 20 49 4E |00700 ;ADRES IN| 00001970: 20 54 45 4B 53 54 2E 0D 20 20 20 20 20 20 53 54 | TEKST.. ST| 00001980: 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 |A 251. LDA| 00001990: 20 20 30 30 37 30 31 0D 20 20 20 20 20 20 53 54 | 00701. ST| 000019A0: 41 20 20 32 35 32 0D 20 20 20 20 20 20 4A 53 52 |A 252. JSR| 000019B0: 20 20 33 38 37 39 32 20 20 3B 5A 45 54 20 49 4E | 38792 ;ZET IN| 000019C0: 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 4A 53 | XXXXX.. JS| 000019D0: 52 20 20 33 38 38 31 37 20 20 3B 56 4F 4F 52 42 |R 38817 ;VOORB| 000019E0: 4C 2E 54 45 4B 53 54 2E 0D 20 20 20 20 20 20 4C |L.TEKST.. L| 000019F0: 44 58 20 23 30 31 38 20 20 20 20 3B 27 52 45 47 |DX #018 ;'REG| 00001A00: 45 4C 4F 56 45 52 4C 2E 0D 20 20 20 20 20 20 4A |ELOVERL.. J| 00001A10: 53 52 20 20 33 38 37 31 32 20 20 3B 20 41 44 52 |SR 38712 ; ADR| 00001A20: 45 53 2E 2E 2E 2E 27 0D 20 20 20 20 20 20 52 54 |ES....'. RT| 00001A30: 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |S. NOP. | 00001A40: 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A | NOP. *| 00001A50: 3D 33 37 37 39 32 0D 20 20 20 20 20 20 20 20 20 |=37792. | 00001A60: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 00001A70: 20 20 20 20 20 20 20 20 20 20 20 3B 56 55 4C 20 | ;VUL | 00001A80: 4C 41 42 45 4C 54 41 42 45 4C 2E 0D 20 20 20 20 |LABELTABEL.. | 00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 45 | ;TE| 00001AA0: 20 56 4F 52 45 4E 20 28 37 35 38 29 0D 20 20 20 | VOREN (758). | 00001AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 | ;A| 00001AC0: 46 56 52 41 47 45 4E 2E 31 3D 56 4F 4C 2E 0D 20 |FVRAGEN.1=VOL.. | 00001AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AE0: 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 32 |;. LDX #002| 00001AF0: 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 3D 4C | ;(250,249)=L| 00001B00: 58 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |X.. LDY #00| 00001B10: 32 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 39 |2. JSR 379| 00001B20: 38 34 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |84. LDX #00| 00001B30: 34 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 3D |4 ;(252,251)=| 00001B40: 4C 58 2B 32 2E 0D 20 20 20 20 20 20 4A 53 52 20 |LX+2.. JSR | 00001B50: 20 33 38 33 39 32 20 20 3B 28 31 31 30 2C 31 30 | 38392 ;(110,10| 00001B60: 39 29 3D 5A 55 2E 0D 20 20 20 20 20 20 4A 53 52 |9)=ZU.. JSR| 00001B70: 20 20 33 38 37 38 30 20 20 3B 4C 58 2B 32 3C 5A | 38780 ;LX+2<Z| 00001B80: 55 3F 0D 20 20 20 20 20 20 42 43 43 20 20 4C 56 |U?. BCC LV| 00001B90: 31 0D 20 20 20 20 20 20 49 4E 43 20 20 30 30 37 |1. INC 007| 00001BA0: 35 38 20 20 3B 4E 45 45 4E 3A 20 56 42 20 4F 50 |58 ;NEEN: VB OP| 00001BB0: 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 |.. RTS | 00001BC0: 20 20 20 20 3B 54 45 52 55 47 2E 0D 4C 56 31 20 | ;TERUG..LV1 | 00001BD0: 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 58 | LDY #000 ;X| 00001BE0: 4C 2C 58 48 20 4E 49 45 55 57 21 21 0D 20 20 20 |L,XH NIEUW!!. | 00001BF0: 20 20 20 4C 44 41 20 20 30 33 38 20 20 20 20 3B | LDA 038 ;| 00001C00: 28 30 33 38 29 3D 58 4C 2E 0D 20 20 20 20 20 20 |(038)=XL.. | 00001C10: 53 54 41 20 28 32 34 39 29 2C 59 0D 20 20 20 20 |STA (249),Y. | 00001C20: 20 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 41 20 | INY. LDA | 00001C30: 20 30 33 39 20 20 20 20 3B 28 30 33 39 29 3D 58 | 039 ;(039)=X| 00001C40: 48 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 34 |H.. STA (24| 00001C50: 39 29 2C 59 0D 20 20 20 20 20 20 4C 44 58 20 23 |9),Y. LDX #| 00001C60: 30 30 32 20 20 20 20 3B 28 32 35 32 2C 32 35 31 |002 ;(252,251| 00001C70: 29 20 49 4E 0D 20 20 20 20 20 20 4A 53 52 20 20 |) IN. JSR | 00001C80: 33 38 30 30 37 20 20 3B 28 32 35 30 2C 32 34 39 |38007 ;(250,249| 00001C90: 29 3D 4C 58 2E 0D 20 20 20 20 20 20 52 54 53 0D |)=LX.. RTS.| 00001CA0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00001CB0: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00001CC0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 00001CD0: 20 2A 3D 33 37 38 33 34 0D 20 20 20 20 20 20 20 | *=37834. | 00001CE0: 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 | ;. | 00001CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 56 55 | ;VU| 00001D00: 4C 20 52 45 47 45 4C 47 45 42 49 45 44 2E 0D 20 |L REGELGEBIED.. | 00001D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D20: 3B 54 45 20 56 4F 52 45 4E 20 28 37 35 39 29 0D |;TE VOREN (759).| 00001D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D40: 20 3B 41 46 56 52 41 47 45 4E 2E 31 3D 56 4F 4C | ;AFVRAGEN.1=VOL| 00001D50: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001D60: 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 | ;. LDX #| 00001D70: 30 30 30 20 20 20 3B 28 32 34 38 2C 32 34 37 29 |000 ;(248,247)| 00001D80: 3D 52 58 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |=RX.. LDY #| 00001D90: 30 30 36 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |006. JSR 3| 00001DA0: 37 39 38 34 0D 20 20 20 20 20 20 4C 44 58 20 23 |7984. LDX #| 00001DB0: 30 30 32 20 20 20 20 3B 28 32 35 32 2C 32 35 31 |002 ;(252,251| 00001DC0: 29 3D 52 58 2B 36 2E 0D 20 20 20 20 20 20 4A 53 |)=RX+6.. JS| 00001DD0: 52 20 20 33 38 33 39 32 20 20 3B 28 31 31 30 2C |R 38392 ;(110,| 00001DE0: 31 30 39 29 3D 4C 55 2E 0D 20 20 20 20 20 20 4A |109)=LU.. J| 00001DF0: 53 52 20 20 33 38 37 38 30 20 20 3B 52 58 2B 36 |SR 38780 ;RX+6| 00001E00: 3C 4C 55 3F 0D 20 20 20 20 20 20 42 43 43 20 20 |<LU?. BCC | 00001E10: 52 56 31 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |RV1. INC 0| 00001E20: 30 37 35 37 20 20 20 20 3B 4E 45 45 4E 3A 20 56 |0757 ;NEEN: V| 00001E30: 41 20 4F 50 2E 0D 20 20 20 20 20 20 52 54 53 20 |A OP.. RTS | 00001E40: 20 20 20 20 20 20 20 20 20 20 3B 54 45 52 55 47 | ;TERUG| 00001E50: 2E 0D 52 56 31 20 20 20 4C 44 59 20 23 30 30 35 |..RV1 LDY #005| 00001E60: 20 20 20 20 20 20 3B 28 37 30 30 29 3D 41 4C 2E | ;(700)=AL.| 00001E70: 0D 52 56 32 20 20 20 4C 44 41 20 20 30 30 37 30 |.RV2 LDA 0070| 00001E80: 30 2C 59 20 20 3B 28 37 30 31 29 3D 41 48 2E 0D |0,Y ;(701)=AH..| 00001E90: 20 20 20 20 20 20 53 54 41 20 28 32 34 37 29 2C | STA (247),| 00001EA0: 59 20 20 20 3B 28 37 30 32 29 3D 53 31 2E 0D 20 |Y ;(702)=S1.. | 00001EB0: 20 20 20 20 20 44 45 59 20 20 20 20 20 20 20 20 | DEY | 00001EC0: 20 20 20 3B 28 37 30 33 29 3D 53 32 2E 0D 20 20 | ;(703)=S2.. | 00001ED0: 20 20 20 20 42 50 4C 20 20 52 56 32 20 20 20 20 | BPL RV2 | 00001EE0: 20 20 3B 28 37 30 34 29 3D 4F 4C 2E 0D 20 20 20 | ;(704)=OL.. | 00001EF0: 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 20 | LDX #000 | 00001F00: 20 3B 28 37 30 35 29 3D 4F 48 2E 0D 20 20 20 20 | ;(705)=OH.. | 00001F10: 20 20 4A 53 52 20 20 33 38 30 30 37 20 20 20 20 | JSR 38007 | 00001F20: 3B 28 32 35 32 2C 32 35 31 29 20 49 4E 0D 20 20 |;(252,251) IN. | 00001F30: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 00001F40: 20 20 3B 28 32 34 38 2C 32 34 37 29 3D 52 58 2E | ;(248,247)=RX.| 00001F50: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00001F60: 20 20 20 20 2A 3D 33 37 38 37 36 0D 20 20 20 20 | *=37876. | 00001F70: 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 3B 0D | LDA 253 ;.| 00001F80: 20 20 20 20 20 20 53 54 41 20 20 30 39 38 20 20 | STA 098 | 00001F90: 20 20 3B 5A 4F 45 4B 20 4C 41 42 45 4C 20 49 4E | ;ZOEK LABEL IN| 00001FA0: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 20 |. LDA 254 | 00001FB0: 20 20 20 3B 54 41 42 45 4C 2E 0D 20 20 20 20 20 | ;TABEL.. | 00001FC0: 20 53 54 41 20 20 30 39 39 20 20 20 20 3B 28 30 | STA 099 ;(0| 00001FD0: 33 39 2C 30 33 38 29 20 49 54 45 4D 2E 0D 20 20 |39,038) ITEM.. | 00001FE0: 20 20 20 20 4C 44 58 20 23 30 30 32 20 20 20 20 | LDX #002 | 00001FF0: 3B 28 32 35 34 2C 32 35 33 29 20 52 45 44 2E 0D |;(254,253) RED..| 00002000: 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 39 32 | JSR 38392| 00002010: 20 20 3B 28 31 31 30 2C 31 30 39 29 3D 4C 55 2E | ;(110,109)=LU.| 00002020: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 32 20 |. LDX #002 | 00002030: 20 20 20 3B 28 32 35 30 2C 32 34 39 29 3D 4C 58 | ;(250,249)=LX| 00002040: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 39 39 |. JSR 3799| 00002050: 38 20 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 29 |8 ;IN (252,251)| 00002060: 2E 0D 49 5A 31 20 20 20 53 45 43 20 20 20 20 20 |..IZ1 SEC | 00002070: 20 20 20 20 3B 54 52 45 4B 20 32 20 41 46 2E 0D | ;TREK 2 AF..| 00002080: 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 0D 20 | LDA 251. | 00002090: 20 20 20 20 20 53 42 43 20 23 30 30 32 0D 20 20 | SBC #002. | 000020A0: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 000020B0: 20 20 20 4C 44 41 20 20 32 35 32 0D 20 20 20 20 | LDA 252. | 000020C0: 20 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 20 | SBC #000. | 000020D0: 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 | STA 252. | 000020E0: 4A 53 52 20 20 33 38 37 38 30 20 20 20 20 3B 56 |JSR 38780 ;V| 000020F0: 45 52 47 45 4C 49 4A 4B 2E 0D 20 20 20 20 20 20 |ERGELIJK.. | 00002100: 42 43 43 20 20 49 5A 38 20 20 20 20 20 20 3B 4C |BCC IZ8 ;L| 00002110: 45 45 47 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |EEG.. LDY #| 00002120: 30 30 31 0D 49 5A 32 20 20 20 54 59 41 0D 20 20 |001.IZ2 TYA. | 00002130: 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 | TAX. LD| 00002140: 41 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 |A (251),Y. | 00002150: 43 4D 50 20 20 30 33 38 2C 58 20 20 20 20 3B 5A |CMP 038,X ;Z| 00002160: 4F 45 4B 49 54 45 4D 0D 20 20 20 20 20 20 42 4E |OEKITEM. BN| 00002170: 45 20 20 49 5A 31 20 20 20 20 20 20 3B 28 30 33 |E IZ1 ;(03| 00002180: 39 2C 30 33 38 29 2E 0D 20 20 20 20 20 20 44 45 |9,038).. DE| 00002190: 59 20 20 20 20 20 20 20 20 20 20 20 3B 20 58 48 |Y ; XH| 000021A0: 2C 58 4C 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 |,XL.. BPL | 000021B0: 49 5A 32 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |IZ2. CLC. | 000021C0: 20 20 20 20 4C 44 41 20 20 32 35 31 0D 20 20 20 | LDA 251. | 000021D0: 20 20 20 41 44 43 20 23 30 30 32 0D 20 20 20 20 | ADC #002. | 000021E0: 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 | STA 253. | 000021F0: 20 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 | LDA 252. | 00002200: 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 |ADC #000. S| 00002210: 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 4A 53 |TA 254. JS| 00002220: 52 20 20 33 38 34 34 34 20 20 3B 4C 41 42 45 4C |R 38444 ;LABEL| 00002230: 4E 55 4D 4D 45 52 2E 0D 20 20 20 20 20 20 4C 44 |NUMMER.. LD| 00002240: 58 20 23 30 30 30 20 20 20 20 3B 47 45 56 4F 4E |X #000 ;GEVON| 00002250: 44 45 4E 2E 0D 20 20 20 20 20 20 42 45 51 20 20 |DEN.. BEQ | 00002260: 49 5A 39 0D 49 5A 38 20 20 20 4C 44 58 20 23 30 |IZ9.IZ8 LDX #0| 00002270: 30 31 20 20 20 20 3B 4E 49 45 54 20 47 45 56 4F |01 ;NIET GEVO| 00002280: 4E 44 45 4E 2E 0D 49 5A 39 20 20 20 4C 44 41 20 |NDEN..IZ9 LDA | 00002290: 20 30 39 38 20 20 20 20 3B 48 45 52 53 54 45 4C | 098 ;HERSTEL| 000022A0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 20 |. STA 253 | 000022B0: 20 20 20 3B 28 32 35 34 2C 32 35 33 29 2E 0D 20 | ;(254,253).. | 000022C0: 20 20 20 20 20 4C 44 41 20 20 30 39 39 0D 20 20 | LDA 099. | 000022D0: 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 | STA 254. | 000022E0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 000022F0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00002300: 20 4C 44 41 20 20 32 35 31 20 20 20 20 20 3B 28 | LDA 251 ;(| 00002310: 32 35 32 2C 32 35 31 29 20 4E 41 41 52 0D 20 20 |252,251) NAAR. | 00002320: 20 20 20 20 53 54 41 20 20 30 30 37 31 30 2C 58 | STA 00710,X| 00002330: 20 3B 28 37 31 31 2B 58 2C 37 31 30 2B 58 29 2E | ;(711+X,710+X).| 00002340: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 0D |. LDA 252.| 00002350: 20 20 20 20 20 20 53 54 41 20 20 30 30 37 31 31 | STA 00711| 00002360: 2C 58 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |,X. RTS. | 00002370: 20 20 20 4A 53 52 20 20 33 37 30 31 37 20 20 20 | JSR 37017 | 00002380: 3B 52 45 47 45 4C 4E 55 4D 4D 45 52 0D 20 20 20 |;REGELNUMMER. | 00002390: 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 20 | LDX #000 | 000023A0: 3B 53 43 48 45 52 4D 20 52 45 43 48 54 53 0D 20 |;SCHERM RECHTS. | 000023B0: 20 20 20 20 20 4A 53 52 20 20 33 39 37 33 31 20 | JSR 39731 | 000023C0: 20 20 3B 42 4F 56 45 4E 41 41 4E 2E 0D 20 20 20 | ;BOVENAAN.. | 000023D0: 20 20 20 4A 53 52 20 20 33 38 34 32 36 0D 20 20 | JSR 38426. | 000023E0: 20 20 20 20 4A 53 52 20 20 33 38 32 39 31 0D 20 | JSR 38291. | 000023F0: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 00002400: 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 |OP. *=37| 00002410: 39 38 34 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |984. CLC. | 00002420: 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 41 44 | TYA. AD| 00002430: 43 20 20 32 34 37 2C 58 0D 20 20 20 20 20 20 53 |C 247,X. S| 00002440: 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 |TA 251. LD| 00002450: 59 20 23 30 30 30 0D 20 20 20 20 20 20 54 59 41 |Y #000. TYA| 00002460: 0D 20 20 20 20 20 20 41 44 43 20 20 32 34 38 2C |. ADC 248,| 00002470: 58 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |X. STA 252| 00002480: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00002490: 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D | NOP. *=| 000024A0: 33 37 39 39 38 0D 20 20 20 20 20 20 4C 44 41 20 |37998. LDA | 000024B0: 20 32 34 37 2C 58 0D 20 20 20 20 20 20 53 54 41 | 247,X. STA| 000024C0: 20 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 | 251. LDA | 000024D0: 20 32 34 38 2C 58 0D 20 20 20 20 20 20 53 54 41 | 248,X. STA| 000024E0: 20 20 32 35 32 0D 20 20 20 20 20 20 52 54 53 0D | 252. RTS.| 000024F0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00002500: 20 20 20 2A 3D 33 38 30 30 37 0D 20 20 20 20 20 | *=38007. | 00002510: 20 4C 44 41 20 20 32 35 31 0D 20 20 20 20 20 20 | LDA 251. | 00002520: 53 54 41 20 20 32 34 37 2C 58 0D 20 20 20 20 20 |STA 247,X. | 00002530: 20 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 | LDA 252. | 00002540: 53 54 41 20 20 32 34 38 2C 58 0D 20 20 20 20 20 |STA 248,X. | 00002550: 20 52 54 53 0D 20 20 20 20 20 20 2E 45 4E 44 0D | RTS. .END.|
*=37280.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. *=37384.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. LDA 144 ;STATUS OP.
STA 251 ;SCHERM.. LDA #000.
STA 252. JSR 38792 ;VUL XXXXX.
. JSR 38817 ;TEXT VOORBLOK..
LDX #000 ;'TOESTAND XXX.'. JSR
38712. LDX #024 ;OPEN REGEL..
JSR 38712. RTS ;NAAR H
.P.. NOP.OP0 LDA #005 ;**OPENE
N. **. LDX 00751 ;BEST.5;TOESTEL.
. BNE OP1 ;0: SCHERM.. LDX
#003 ;APPARAATNR.. BNE OP2
; -->[OP2].OP1 CPX #003. BN
E 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 #00
8 ;DISK:APP.8.. LDY #003 ;SEC
.ADR.=3.. INC 002 ;ZET NV=1..
CLC ; -->[OP7]. B
CC OP7.OP6 LDX #001 ;TAPE:APP.1..
LDY #001 ;SEC.ADR.=1..OP7 LDA
#005 ;BESTANDSNR.. JSR 65466 ;
* SETLFS *. LDA 002 ;NV=0: -->
[OP8]. BEQ OP8 ;NV=1:. LDX
#044 ;KOMMA.. JSR 37708.
LDX #083 ;'S'.. JSR 37708.
LDX #044 ;KOMMA.. JSR 37708.
LDX #087 ;'W'.. JSR 37708.O
P8 LDY #000 ;LENGTE IN. LDA (2
53),Y ;DE STAPEL.. PHA. CLC.
LDA 253 ;LS ADRES NAAM.. AD
C #001. TAX. LDA 254 ;MS A
DRES NAAM.. ADC #000. TAY
;LENGTE UIT. PLA ;DE ST
APEL..OP9 JSR 65469 ;* SETNAM *.
JSR 65472 ;* OPEN *. LDX #005
;BESTANDSNR.. JSR 65481 ;* CH
KOUT *. RTS ;NAAR H.P..
.BYTE $EA,$EA.OR0 LDY #000 ;**SCH
RIJF.**. LDA (253),Y ;REGELLENGTE.
STA 002 ;TIJDELIJK.. BNE
OR2 ;>0: -->[OR2]. BEQ OR9
;=0: -->[OR9].OR1 INY ;VO
LGENDE BYTE.. LDA (253),Y ;UIT ELEM
ENT.. JSR 65490 ;* CHROUT *.OR2
CPY 002 ;KLAAR?. BCC OR1 ;
NEEN: -->[OR1].OR9 RTS ;NAAR
H.P.. .BYTE $EA,$EA.OS0 LDA #005
;**SLUITEN.**. JSR 65475 ;* CL
OSE *. JSR 65511 ;* CLALL *.
RTS ;NAAR H.P.. .BYTE $E
A,$EA. LDY #000 ;**EXTRA-X.**.
CLC. LDA (253),Y ;LENGTE MET EE
N. ADC #001 ;OPHOGEN.. STA
(253),Y ;LENGTE MET EEN. TAY
;ZET IN (Y).. TXA ;EXTRA
TEKEN (X). STA (253),Y ;ACHTERAAN..
RTS. NOP. NOP. NOP.
NOP. *=37723. LDX #01
0. JSR 38381 ;BU=>(254,253)..
LDA #032 ;SPATIE.. STA 252
;AANTAL MOET OOK. LDA #020 ;IN
(BU+0) GEZET. STA 251 ;WORDEN..
JSR 38520 ;ZET IN.. RTS.
NOP. NOP. NOP. NOP.
NOP. NOP. *=37744.
;. ;'LABELO
VERLOOP. ; REGEL....'.
;. LDX #000.
JSR 38392 ;RU=>(110,109).. JSR 3
9731 ;RX=>(254,253).. JSR 38426
;REGELNUMMER.. JSR 38792 ;ZET IN
XXXXX.. JSR 38817 ;VOORBL.TEKST..
LDX #017 ;'LABELOVERL.. JS
R 38712 ; REGEL....'. RTS. N
OP. *=37768. ;.
;'REGELOVERLOOP.
; ADRES....'.
;. LDA 00700 ;ADRES IN TEKST..
STA 251. LDA 00701. ST
A 252. JSR 38792 ;ZET IN XXXXX..
JSR 38817 ;VOORBL.TEKST.. L
DX #018 ;'REGELOVERL.. JSR 3871
2 ; ADRES....'. RTS. NOP.
NOP. *=37792.
;. ;VUL LABELTABEL..
;TE VOREN (758).
;AFVRAGEN.1=VOL..
;. LDX #002 ;(250,249)=LX..
LDY #002. JSR 37984. LDX #00
4 ;(252,251)=LX+2.. JSR 38392
;(110,109)=ZU.. JSR 38780 ;LX+2<Z
U?. BCC LV1. INC 00758 ;NEE
N: VB OP.. RTS ;TERUG..LV1
LDY #000 ;XL,XH NIEUW!!. LDA
038 ;(038)=XL.. STA (249),Y.
INY. LDA 039 ;(039)=XH..
STA (249),Y. LDX #002 ;(252,251
) IN. JSR 38007 ;(250,249)=LX..
RTS. NOP. NOP. NOP.
NOP. *=37834.
;. ;VUL REGELGEBIED..
;TE VOREN (759).
;AFVRAGEN.1=VOL..
;. LDX #000 ;(248,247)=RX..
LDY #006. JSR 37984. LDX #
002 ;(252,251)=RX+6.. JSR 38392
;(110,109)=LU.. JSR 38780 ;RX+6
<LU?. BCC RV1. INC 00757
;NEEN: VA OP.. RTS ;TERUG
..RV1 LDY #005 ;(700)=AL..RV2 L
DA 00700,Y ;(701)=AH.. STA (247),
Y ;(702)=S1.. DEY ;(703
)=S2.. BPL RV2 ;(704)=OL..
LDX #000 ;(705)=OH.. JSR 3
8007 ;(252,251) IN. RTS
;(248,247)=RX.. NOP. *=37
876. LDA 253 ;. STA 098
;ZOEK LABEL IN. LDA 254 ;TABE
L.. STA 099 ;(039,038) ITEM..
LDX #002 ;(254,253) RED.. JS
R 38392 ;(110,109)=LU.. LDX #002
;(250,249)=LX. JSR 37998 ;IN (
252,251)..IZ1 SEC ;TREK 2 AF..
LDA 251. SBC #002. STA
251. LDA 252. SBC #000.
STA 252. JSR 38780 ;VERGELIJK
.. BCC IZ8 ;LEEG.. LDY #
001.IZ2 TYA. TAX. LDA (251),
Y. CMP 038,X ;ZOEKITEM. BN
E IZ1 ;(039,038).. DEY
; XH,XL.. BPL IZ2. CLC.
LDA 251. ADC #002. STA 2
53. LDA 252. ADC #000. S
TA 254. JSR 38444 ;LABELNUMMER..
LDX #000 ;GEVONDEN.. BEQ
IZ9.IZ8 LDX #001 ;NIET GEVONDEN..IZ
9 LDA 098 ;HERSTEL. STA 253
;(254,253).. LDA 099. STA
254. RTS. NOP. NOP.
LDA 251 ;(252,251) NAAR. STA
00710,X ;(711+X,710+X).. LDA 252.
STA 00711,X. RTS. JSR
37017 ;REGELNUMMER. LDX #000
;SCHERM RECHTS. JSR 39731 ;BOVEN
AAN.. JSR 38426. JSR 38291.
RTS. NOP. *=37984.
CLC. TYA. ADC 247,X. S
TA 251. LDY #000. TYA. A
DC 248,X. STA 252. RTS.
NOP. *=37998. LDA 247,X.
STA 251. LDA 248,X. STA
252. RTS. NOP. *=380
07. LDA 251. STA 247,X.
LDA 252. STA 248,X. RTS.
.END.
> CLICK IMAGE PREVIEW FOR FULL MODAL