DISF02
FILE INFORMATION
FILENAME(S): DISF02
FILE TYPE(S): DEL
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
37d03ec54285917d0470967610840aa957b24cf7d3a9070e0fa23b9d55319199
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISF02 | DEL | DuncanTwain | 4 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 38 31 34 34 | *=38144| 00000010: 0D 44 41 30 30 31 20 53 54 58 20 20 32 35 31 20 |.DA001 STX 251 | 00000020: 20 20 20 20 20 3B 4C 45 4E 47 54 45 2E 0D 20 20 | ;LENGTE.. | 00000030: 20 20 20 20 4C 44 41 20 23 30 34 32 20 20 20 20 | LDA #042 | 00000040: 20 20 3B 53 54 45 52 52 45 4E 2E 0D 20 20 20 20 | ;STERREN.. | 00000050: 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 | STA 252. | 00000060: 20 4C 44 58 20 23 30 30 38 20 20 20 20 20 20 3B | LDX #008 ;| 00000070: 42 45 47 49 4E 41 44 52 45 53 0D 20 20 20 20 20 |BEGINADRES. | 00000080: 20 4A 53 52 20 20 44 58 31 30 37 20 20 20 20 3B | JSR DX107 ;| 00000090: 57 45 52 4B 56 45 4C 44 2E 0D 20 20 20 20 20 20 |WERKVELD.. | 000000A0: 4A 53 52 20 20 33 38 35 32 30 20 20 20 20 3B 56 |JSR 38520 ;V| 000000B0: 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 |ULLEN.. JSR| 000000C0: 20 20 33 38 34 39 36 20 20 20 20 3B 4F 50 20 53 | 38496 ;OP S| 000000D0: 43 48 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 41 |CHERM.. LDA| 000000E0: 20 23 31 35 37 20 20 20 20 20 20 3B 50 49 4A 4C | #157 ;PIJL| 000000F0: 20 54 45 52 55 47 2E 0D 20 20 20 20 20 20 53 54 | TERUG.. ST| 00000100: 41 20 20 32 35 32 0D 20 20 20 20 20 20 4A 53 52 |A 252. JSR| 00000110: 20 20 33 38 35 32 30 20 20 20 20 3B 56 55 4C 4C | 38520 ;VULL| 00000120: 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |EN.. JSR 3| 00000130: 38 34 39 36 20 20 20 20 3B 4F 50 20 53 43 48 45 |8496 ;OP SCHE| 00000140: 52 4D 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 32 |RM.. INC 2| 00000150: 35 31 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 2B |51 ;LENGTE+| 00000160: 31 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 31 |1.. LDA #01| 00000170: 33 20 20 20 20 20 20 3B 3C 52 45 54 55 52 4E 3E |3 ;<RETURN>| 00000180: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |.. STA 252| 00000190: 0D 20 20 20 20 20 20 4A 53 52 20 20 34 30 30 37 |. JSR 4007| 000001A0: 31 20 20 20 20 3B 41 43 43 45 50 54 2E 0D 20 20 |1 ;ACCEPT.. | 000001B0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 000001C0: 20 20 3B 52 45 54 55 52 4E 2E 0D 20 20 20 20 20 | ;RETURN.. | 000001D0: 20 4E 4F 50 0D 44 58 31 30 31 20 4C 44 41 20 20 | NOP.DX101 LDA | 000001E0: 30 30 37 35 36 20 20 20 20 3B 56 52 41 41 47 20 |00756 ;VRAAG | 000001F0: 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 42 45 51 |BEGIN-. BEQ| 00000200: 20 20 44 41 30 30 32 20 20 20 20 3B 4F 46 20 45 | DA002 ;OF E| 00000210: 49 4E 44 41 44 52 45 53 2E 0D 20 20 20 20 20 20 |INDADRES.. | 00000220: 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 3B 28 |INX ;(| 00000230: 58 29 3D 31 31 28 42 45 47 2E 29 2E 0D 44 41 30 |X)=11(BEG.)..DA0| 00000240: 30 32 20 4A 53 52 20 20 33 38 37 31 32 20 20 20 |02 JSR 38712 | 00000250: 20 3B 28 58 29 3D 31 33 28 45 49 4E 44 29 2E 0D | ;(X)=13(EIND)..| 00000260: 20 20 20 20 20 20 4C 44 58 20 23 30 30 34 20 20 | LDX #004 | 00000270: 20 20 20 20 3B 44 43 3D 28 37 35 36 29 2E 0D 20 | ;DC=(756).. | 00000280: 20 20 20 20 20 4C 44 41 20 20 30 30 37 35 36 20 | LDA 00756 | 00000290: 20 20 20 3B 44 43 3D 31 3A 44 45 43 49 4D 2E 0D | ;DC=1:DECIM..| 000002A0: 20 20 20 20 20 20 42 45 51 20 20 44 41 30 30 33 | BEQ DA003| 000002B0: 0D 20 20 20 20 20 20 49 4E 58 0D 44 41 30 30 33 |. INX.DA003| 000002C0: 20 4A 53 52 20 20 44 41 30 30 31 20 20 20 20 3B | JSR DA001 ;| 000002D0: 41 43 43 45 50 54 20 34 20 4F 46 20 35 0D 20 20 |ACCEPT 4 OF 5. | 000002E0: 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 20 | LDY #001 | 000002F0: 20 20 3B 54 45 4B 45 4E 53 2E 0D 20 20 20 20 20 | ;TEKENS.. | 00000300: 20 4A 53 52 20 20 33 38 35 33 32 20 20 20 20 3B | JSR 38532 ;| 00000310: 41 44 52 45 53 2B 31 2E 0D 20 20 20 20 20 20 4C |ADRES+1.. L| 00000320: 44 41 20 20 30 30 37 35 36 0D 20 20 20 20 20 20 |DA 00756. | 00000330: 42 45 51 20 20 44 41 30 30 34 0D 20 20 20 20 20 |BEQ DA004. | 00000340: 20 4A 53 52 20 20 33 39 39 34 34 20 20 20 20 3B | JSR 39944 ;| 00000350: 43 4F 4E 56 2E 44 45 43 49 4D 2E 0D 20 20 20 20 |CONV.DECIM.. | 00000360: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 20 | RTS | 00000370: 3B 52 45 54 55 52 4E 2E 0D 44 41 30 30 34 20 4A |;RETURN..DA004 J| 00000380: 53 52 20 20 34 30 30 31 36 20 20 20 20 3B 43 4F |SR 40016 ;CO| 00000390: 4E 56 2E 48 45 58 41 44 2E 0D 20 20 20 20 20 20 |NV.HEXAD.. | 000003A0: 52 54 53 20 20 20 20 20 20 20 20 20 20 20 3B 52 |RTS ;R| 000003B0: 45 54 55 52 4E 2E 0D 20 20 20 20 20 20 4E 4F 50 |ETURN.. NOP| 000003C0: 0D 44 58 31 30 32 20 4C 44 58 20 23 30 30 30 20 |.DX102 LDX #000 | 000003D0: 20 20 20 3B 47 45 42 49 45 44 53 4E 55 4D 4D 45 | ;GEBIEDSNUMME| 000003E0: 52 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 |R. LDA 252| 000003F0: 20 20 20 20 3B 56 41 4E 20 28 32 35 32 2C 32 35 | ;VAN (252,25| 00000400: 31 29 0D 20 20 20 20 20 20 42 45 51 20 20 44 41 |1). BEQ DA| 00000410: 30 30 37 20 20 3B 49 4E 20 28 58 29 2E 0D 20 20 |007 ;IN (X).. | 00000420: 20 20 20 20 4A 53 52 20 20 44 58 31 30 38 20 20 | JSR DX108 | 00000430: 3B 30 3A 30 30 30 30 30 2E 2E 30 30 32 35 35 2E |;0:00000..00255.| 00000440: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 38 |. JSR 3878| 00000450: 30 20 20 3B 31 3A 30 30 32 35 36 2E 2E 20 52 55 |0 ;1:00256.. RU| 00000460: 2D 31 2E 0D 20 20 20 20 20 20 42 43 43 20 20 44 |-1.. BCC D| 00000470: 41 30 30 36 20 20 3B 32 3A 20 52 55 20 20 2E 2E |A006 ;2: RU ..| 00000480: 20 5A 55 2D 31 2E 0D 20 20 20 20 20 20 4C 44 58 | ZU-1.. LDX| 00000490: 20 23 30 30 34 20 20 20 20 3B 33 3A 20 5A 55 20 | #004 ;3: ZU | 000004A0: 20 2E 2E 36 35 35 33 35 2E 0D 20 20 20 20 20 20 | ..65535.. | 000004B0: 4A 53 52 20 20 44 58 31 30 38 20 20 3B 32 20 4F |JSR DX108 ;2 O| 000004C0: 46 20 33 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |F 3.. LDX #| 000004D0: 30 30 32 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |002. JSR 3| 000004E0: 38 37 38 30 0D 20 20 20 20 20 20 42 43 43 20 20 |8780. BCC | 000004F0: 44 41 30 30 37 0D 44 41 30 30 36 20 49 4E 58 0D |DA007.DA006 INX.| 00000500: 44 41 30 30 37 20 52 54 53 0D 20 20 20 20 20 20 |DA007 RTS. | 00000510: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000520: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000530: 50 0D 44 58 31 30 33 20 4C 44 58 20 23 30 33 30 |P.DX103 LDX #030| 00000540: 20 20 20 20 3B 54 45 4B 53 54 0D 20 20 20 20 20 | ;TEKST. | 00000550: 20 4A 53 52 20 20 33 39 37 31 31 20 20 3B 27 55 | JSR 39711 ;'U| 00000560: 49 54 47 45 5A 4F 4E 44 45 52 44 27 0D 20 20 20 |ITGEZONDERD'. | 00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000580: 27 56 45 4C 44 20 58 58 0D 20 20 20 20 20 20 20 |'VELD XX. | 00000590: 20 20 20 20 20 20 20 20 20 20 20 3B 20 54 2F 4D | ; T/M| 000005A0: 20 59 59 2E 27 0D 20 20 20 20 20 20 4A 53 52 20 | YY.'. JSR | 000005B0: 20 33 38 37 39 32 20 20 3B 56 41 4E 3D 28 37 34 | 38792 ;VAN=(74| 000005C0: 31 2C 37 34 30 29 2E 0D 20 20 20 20 20 20 53 45 |1,740).. SE| 000005D0: 43 20 20 20 20 20 20 20 20 20 3B 54 4F 54 3D 28 |C ;TOT=(| 000005E0: 37 34 33 2C 37 34 32 29 2E 0D 20 20 20 20 20 20 |743,742).. | 000005F0: 4C 44 41 20 20 30 30 37 34 32 20 20 3B 53 55 42 |LDA 00742 ;SUB| 00000600: 50 52 4F 47 2E 44 4F 45 54 0D 20 20 20 20 20 20 |PROG.DOET. | 00000610: 53 42 43 20 23 30 30 31 20 20 20 20 3B 54 4F 54 |SBC #001 ;TOT| 00000620: 20 2D 20 31 20 3D 54 2F 4D 2E 0D 20 20 20 20 20 | - 1 =T/M.. | 00000630: 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 | STA 251. | 00000640: 4C 44 41 20 20 30 30 37 34 33 0D 20 20 20 20 20 |LDA 00743. | 00000650: 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 20 20 | SBC #000. | 00000660: 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 4A |STA 252. J| 00000670: 53 52 20 20 33 38 38 30 34 0D 20 20 20 20 20 20 |SR 38804. | 00000680: 4A 53 52 20 20 33 38 38 31 37 20 20 3B 56 4F 4F |JSR 38817 ;VOO| 00000690: 52 42 4C 4F 4B 2E 0D 20 20 20 20 20 20 4C 44 58 |RBLOK.. LDX| 000006A0: 20 23 30 30 34 20 20 20 20 3B 54 45 4B 53 54 20 | #004 ;TEKST | 000006B0: 23 34 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |#4.. JSR 3| 000006C0: 38 37 31 32 20 20 3B 4F 55 54 50 55 54 20 53 43 |8712 ;OUTPUT SC| 000006D0: 48 45 52 4D 2E 0D 20 20 20 20 20 20 52 54 53 0D |HERM.. RTS.| 000006E0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000006F0: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000700: 20 20 20 20 20 20 20 2A 3D 33 38 32 39 31 0D 44 | *=38291.D| 00000710: 58 31 30 34 20 4C 44 41 20 23 30 33 35 20 20 20 |X104 LDA #035 | 00000720: 20 3B 41 44 52 45 53 20 41 58 20 4F 50 0D 20 20 | ;ADRES AX OP. | 00000730: 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 20 | STA 253 | 00000740: 3B 53 43 48 45 52 4D 20 42 4F 56 45 4E 0D 20 20 |;SCHERM BOVEN. | 00000750: 20 20 20 20 4C 44 41 20 20 30 30 36 34 38 20 20 | LDA 00648 | 00000760: 3B 52 45 43 48 54 53 3A 50 4F 53 2E 33 35 0D 20 |;RECHTS:POS.35. | 00000770: 20 20 20 20 20 53 54 41 20 20 32 35 34 20 20 20 | STA 254 | 00000780: 20 3B 52 45 47 45 4C 20 31 2E 0D 20 20 20 20 20 | ;REGEL 1.. | 00000790: 20 4A 53 52 20 20 33 39 37 34 34 0D 20 20 20 20 | JSR 39744. | 000007A0: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 000007B0: 44 58 31 30 35 20 43 4C 43 20 20 20 20 20 20 20 |DX105 CLC | 000007C0: 20 20 3B 41 44 52 45 53 20 43 48 45 43 4B 0D 20 | ;ADRES CHECK. | 000007D0: 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 20 | TYA | 000007E0: 20 3B 41 58 2B 28 59 29 3E 41 45 3F 0D 20 20 20 | ;AX+(Y)>AE?. | 000007F0: 20 20 20 41 44 43 20 20 30 30 37 30 30 20 20 3B | ADC 00700 ;| 00000800: 20 4A 41 3A 28 58 29 3D 31 2E 0D 20 20 20 20 20 | JA:(X)=1.. | 00000810: 20 53 54 41 20 20 31 30 37 20 20 20 20 3B 4E 45 | STA 107 ;NE| 00000820: 45 3A 28 58 29 3D 30 2E 0D 20 20 20 20 20 20 4C |E:(X)=0.. L| 00000830: 44 58 20 23 30 30 30 20 20 20 20 3B 41 58 3D 28 |DX #000 ;AX=(| 00000840: 37 30 31 2C 37 30 30 29 2E 0D 20 20 20 20 20 20 |701,700).. | 00000850: 54 58 41 20 20 20 20 20 20 20 20 20 3B 4F 50 47 |TXA ;OPG| 00000860: 45 48 4F 4F 47 44 20 41 44 52 45 53 0D 20 20 20 |EHOOGD ADRES. | 00000870: 20 20 20 41 44 43 20 20 30 30 37 30 31 20 20 3B | ADC 00701 ;| 00000880: 41 59 3D 41 58 2B 28 59 29 20 49 4E 0D 20 20 20 |AY=AX+(Y) IN. | 00000890: 20 20 20 53 54 41 20 20 31 30 38 20 20 20 20 3B | STA 108 ;| 000008A0: 28 31 30 38 2C 31 30 37 29 2E 0D 20 20 20 20 20 |(108,107).. | 000008B0: 20 4C 44 41 20 20 30 30 37 36 33 0D 20 20 20 20 | LDA 00763. | 000008C0: 20 20 43 4D 50 20 20 31 30 38 0D 20 20 20 20 20 | CMP 108. | 000008D0: 20 42 43 43 20 20 44 41 30 30 38 0D 20 20 20 20 | BCC DA008. | 000008E0: 20 20 42 45 51 20 20 44 41 41 30 38 0D 20 20 20 | BEQ DAA08. | 000008F0: 20 20 20 42 43 53 20 20 44 41 30 30 39 0D 44 41 | BCS DA009.DA| 00000900: 41 30 38 20 4C 44 41 20 20 30 30 37 36 32 0D 20 |A08 LDA 00762. | 00000910: 20 20 20 20 20 43 4D 50 20 20 31 30 37 0D 20 20 | CMP 107. | 00000920: 20 20 20 20 42 43 53 20 20 44 41 30 30 39 0D 44 | BCS DA009.D| 00000930: 41 30 30 38 20 49 4E 58 0D 44 41 30 30 39 20 52 |A008 INX.DA009 R| 00000940: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |TS. NOP. | 00000950: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00000960: 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 38 33 34 |. *=3834| 00000970: 33 0D 44 58 31 30 36 20 4C 44 58 20 23 30 35 30 |3.DX106 LDX #050| 00000980: 20 20 20 20 20 20 3B 41 42 3C 3D 53 4C 3C 3D 41 | ;AB<=SL<=A| 00000990: 45 3F 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 |E?. JSR 39| 000009A0: 37 30 30 20 20 20 20 3B 53 4C 3D 28 32 35 32 2C |700 ;SL=(252,| 000009B0: 32 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 58 20 |251).. LDX | 000009C0: 23 30 30 30 20 20 20 20 20 20 3B 4E 45 45 3A 28 |#000 ;NEE:(| 000009D0: 58 29 3D 31 2E 0D 20 20 20 20 20 20 20 20 20 20 |X)=1.. | 000009E0: 20 20 20 20 20 20 20 20 20 20 3B 20 4A 41 3A 28 | ; JA:(| 000009F0: 58 29 3D 30 2E 0D 20 20 20 20 20 20 4A 53 52 20 |X)=0.. JSR | 00000A00: 20 33 38 37 38 30 20 20 20 20 3B 53 4C 3A 3A 41 | 38780 ;SL::A| 00000A10: 42 2E 0D 20 20 20 20 20 20 42 43 43 20 20 44 41 |B.. BCC DA| 00000A20: 30 31 30 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |010. LDX #0| 00000A30: 35 32 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 |52. JSR 39| 00000A40: 37 30 30 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |700. LDX #0| 00000A50: 30 30 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |00. JSR 38| 00000A60: 37 38 30 20 20 20 20 3B 53 4C 3A 3A 41 45 2E 0D |780 ;SL::AE..| 00000A70: 20 20 20 20 20 20 42 45 51 20 20 44 41 30 31 31 | BEQ DA011| 00000A80: 0D 20 20 20 20 20 20 42 43 43 20 20 44 41 30 31 |. BCC DA01| 00000A90: 31 0D 44 41 30 31 30 20 49 4E 58 0D 44 41 30 31 |1.DA010 INX.DA01| 00000AA0: 31 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D |1 RTS. NOP.| 00000AB0: 20 20 20 20 20 20 20 20 20 2A 3D 33 38 33 37 32 | *=38372| 00000AC0: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 | 00000AD0: 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 4F 50 0D | ;LENGTE OP.| 00000AE0: 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 | TYA | 00000AF0: 20 20 20 20 3B 4E 55 4C 20 5A 45 54 54 45 4E 2E | ;NUL ZETTEN.| 00000B00: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00000B10: 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |,Y. RTS. | 00000B20: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00000B30: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000B40: 20 20 20 20 2A 3D 33 38 33 38 31 0D 44 58 31 30 | *=38381.DX10| 00000B50: 37 20 4C 44 41 20 20 34 30 39 32 38 2C 58 20 3B |7 LDA 40928,X ;| 00000B60: 28 58 29 3D 30 3A 52 55 2E 20 49 4E 0D 20 20 20 |(X)=0:RU. IN. | 00000B70: 20 20 20 53 54 41 20 20 32 35 33 20 20 20 20 20 | STA 253 | 00000B80: 3B 28 58 29 3D 32 3A 4C 55 2E 20 32 35 34 0D 20 |;(X)=2:LU. 254. | 00000B90: 20 20 20 20 20 4C 44 41 20 20 34 30 39 32 39 2C | LDA 40929,| 00000BA0: 58 20 3B 28 58 29 3D 34 3A 5A 55 2E 20 45 4E 0D |X ;(X)=4:ZU. EN.| 00000BB0: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 20 20 | STA 254 | 00000BC0: 20 20 20 3B 28 58 29 3D 38 3A 57 55 2E 20 32 35 | ;(X)=8:WU. 25| 00000BD0: 33 2E 0D 20 20 20 20 20 20 52 54 53 0D 44 58 31 |3.. RTS.DX1| 00000BE0: 30 38 20 4C 44 41 20 20 34 30 39 32 38 2C 58 20 |08 LDA 40928,X | 00000BF0: 3B 5A 49 45 20 42 4F 56 45 4E 2E 0D 20 20 20 20 |;ZIE BOVEN.. | 00000C00: 20 20 53 54 41 20 20 31 30 39 20 20 20 20 20 3B | STA 109 ;| 00000C10: 49 4E 20 31 31 30 20 45 4E 20 31 30 39 2E 0D 20 |IN 110 EN 109.. | 00000C20: 20 20 20 20 20 4C 44 41 20 20 34 30 39 32 39 2C | LDA 40929,| 00000C30: 58 0D 20 20 20 20 20 20 53 54 41 20 20 31 31 30 |X. STA 110| 00000C40: 0D 20 20 20 20 20 20 52 54 53 0D 44 41 30 31 32 |. RTS.DA012| 00000C50: 20 4C 44 41 20 20 32 35 34 20 20 20 20 3B 28 32 | LDA 254 ;(2| 00000C60: 35 34 2C 32 35 33 29 20 3D 3E 0D 20 20 20 20 20 |54,253) =>. | 00000C70: 20 53 54 41 20 20 32 35 32 20 20 20 20 3B 28 32 | STA 252 ;(2| 00000C80: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4C |52,251).. L| 00000C90: 44 41 20 20 32 35 33 0D 20 20 20 20 20 20 53 54 |DA 253. ST| 00000CA0: 41 20 20 32 35 31 0D 20 20 20 20 20 20 52 54 53 |A 251. RTS| 00000CB0: 0D 44 41 30 31 33 20 53 45 43 20 20 20 20 20 20 |.DA013 SEC | 00000CC0: 20 20 20 3B 28 32 35 34 2C 32 35 33 29 20 2D 0D | ;(254,253) -.| 00000CD0: 20 20 20 20 20 20 4C 44 41 20 20 32 35 33 20 20 | LDA 253 | 00000CE0: 20 20 3B 28 31 31 30 2C 31 30 39 29 20 3D 3E 0D | ;(110,109) =>.| 00000CF0: 20 20 20 20 20 20 53 42 43 20 20 31 30 39 20 20 | SBC 109 | 00000D00: 20 20 3B 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 | ;(252,251).. | 00000D10: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 00000D20: 20 20 20 4C 44 41 20 20 32 35 34 0D 20 20 20 20 | LDA 254. | 00000D30: 20 20 53 42 43 20 20 31 31 30 0D 20 20 20 20 20 | SBC 110. | 00000D40: 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 | STA 252. | 00000D50: 52 54 53 0D 44 58 31 31 31 20 4A 53 52 20 20 44 |RTS.DX111 JSR D| 00000D60: 41 30 31 33 20 20 3B 5B 28 32 35 34 2C 32 35 33 |A013 ;[(254,253| 00000D70: 29 20 2D 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |) -. LDA #0| 00000D80: 30 36 20 20 20 20 3B 20 28 31 31 30 2C 31 30 39 |06 ; (110,109| 00000D90: 29 5D 2F 36 0D 20 20 20 20 20 20 53 54 41 20 20 |)]/6. STA | 00000DA0: 31 30 37 20 20 20 20 3B 20 3D 3E 20 28 32 35 32 |107 ; => (252| 00000DB0: 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,251).. LDA| 00000DC0: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA | 00000DD0: 20 31 30 38 0D 20 20 20 20 20 20 4A 53 52 20 20 | 108. JSR | 00000DE0: 33 38 35 34 38 0D 20 20 20 20 20 20 4A 53 52 20 |38548. JSR | 00000DF0: 20 44 41 30 31 32 0D 20 20 20 20 20 20 52 54 53 | DA012. RTS| 00000E00: 0D 44 58 31 31 32 20 4A 53 52 20 20 44 41 30 31 |.DX112 JSR DA01| 00000E10: 33 20 20 3B 5B 28 32 35 34 2C 32 35 33 29 20 2D |3 ;[(254,253) -| 00000E20: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000E30: 20 20 20 3B 20 28 31 31 30 2C 31 30 39 29 5D 2F | ; (110,109)]/| 00000E40: 32 0D 20 20 20 20 20 20 52 4F 52 20 20 32 35 32 |2. ROR 252| 00000E50: 20 20 20 20 3B 20 3D 3E 20 28 32 35 32 2C 32 35 | ; => (252,25| 00000E60: 31 29 2E 0D 20 20 20 20 20 20 52 4F 52 20 20 32 |1).. ROR 2| 00000E70: 35 31 0D 20 20 20 20 20 20 52 54 53 0D 44 58 31 |51. RTS.DX1| 00000E80: 31 33 20 4C 44 58 20 23 30 30 38 20 20 20 20 3B |13 LDX #008 ;| 00000E90: 27 43 4F 4E 54 52 4F 4C 45 2E 2E 0D 20 20 20 20 |'CONTROLE... | 00000EA0: 20 20 4A 53 52 20 20 33 38 37 31 32 20 20 3B 20 | JSR 38712 ; | 00000EB0: 3C 46 3E 2E 27 0D 20 20 20 20 20 20 4C 44 58 20 |<F>.'. LDX | 00000EC0: 23 30 30 31 20 20 20 20 3B 31 20 54 45 4B 45 4E |#001 ;1 TEKEN| 00000ED0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 31 |.. JSR 381| 00000EE0: 34 34 20 20 3B 41 43 43 45 50 54 2E 0D 20 20 20 |44 ;ACCEPT.. | 00000EF0: 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 3B | LDX #000 ;| 00000F00: 27 47 27 3A 28 58 29 3D 30 2E 0D 20 20 20 20 20 |'G':(X)=0.. | 00000F10: 20 4C 44 59 20 23 30 30 31 20 20 20 20 3B 27 46 | LDY #001 ;'F| 00000F20: 27 3A 28 58 29 3D 31 2E 0D 20 20 20 20 20 20 4C |':(X)=1.. L| 00000F30: 44 41 20 28 32 35 33 29 2C 59 20 3B 54 45 4B 45 |DA (253),Y ;TEKE| 00000F40: 4E 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 37 |N.. CMP #07| 00000F50: 31 20 20 20 20 3B 27 47 27 3F 0D 20 20 20 20 20 |1 ;'G'?. | 00000F60: 20 42 45 51 20 44 41 30 32 30 20 20 20 3B 20 4A | BEQ DA020 ; J| 00000F70: 41 3A 28 58 29 3D 30 2E 0D 20 20 20 20 20 20 49 |A:(X)=0.. I| 00000F80: 4E 58 20 20 20 20 20 20 20 20 20 3B 4E 45 45 3A |NX ;NEE:| 00000F90: 28 58 29 3D 31 2E 0D 44 41 30 32 30 20 52 54 53 |(X)=1..DA020 RTS| 00000FA0: 20 20 20 20 20 20 20 20 20 3B 54 45 52 55 47 2E | ;TERUG.| 00000FB0: 0D 20 20 20 20 20 20 53 54 59 20 20 30 30 32 20 |. STY 002 | 00000FC0: 20 20 20 3B 41 44 52 45 53 49 4E 48 4F 55 44 0D | ;ADRESINHOUD.| 00000FD0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 | LDY #000 | 00000FE0: 20 20 3B 28 28 32 35 34 2C 32 35 33 29 29 0D 20 | ;((254,253)). | 00000FF0: 20 20 20 20 20 53 45 43 20 20 20 20 20 20 20 20 | SEC | 00001000: 20 3B 56 45 52 4D 49 4E 44 45 52 45 4E 0D 20 20 | ;VERMINDEREN. | 00001010: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 | LDA (253),Y | 00001020: 3B 4D 45 54 20 28 59 29 20 45 4E 0D 20 20 20 20 |;MET (Y) EN. | 00001030: 20 20 53 42 43 20 20 30 30 32 20 20 20 20 3B 54 | SBC 002 ;T| 00001040: 45 56 45 4E 53 20 28 59 29 3D 30 0D 20 20 20 20 |EVENS (Y)=0. | 00001050: 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 3B 47 | STA (253),Y ;G| 00001060: 45 5A 45 54 2E 0D 20 20 20 20 20 20 52 54 53 0D |EZET.. RTS.| 00001070: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00001080: 4C 44 58 20 23 30 32 34 20 20 20 20 3B 4F 50 45 |LDX #024 ;OPE| 00001090: 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 4A |N REGEL.. J| 000010A0: 53 52 20 20 33 38 37 31 32 0D 20 20 20 20 20 20 |SR 38712. | 000010B0: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |RTS. NOP. | 000010C0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 2E 45 | NOP. .E| 000010D0: 4E 44 0D |ND. |
*=38144.DA001 STX 251 ;LE
NGTE.. LDA #042 ;STERREN..
STA 252. LDX #008 ;BEGINADR
ES. JSR DX107 ;WERKVELD..
JSR 38520 ;VULLEN.. JSR 38496
;OP SCHERM.. LDA #157 ;PIJL
TERUG.. STA 252. JSR 38520
;VULLEN.. JSR 38496 ;OP SCHE
RM.. INC 251 ;LENGTE+1..
LDA #013 ;<RETURN>.. STA 252
. JSR 40071 ;ACCEPT.. RTS
;RETURN.. NOP.DX101 LDA
00756 ;VRAAG BEGIN-. BEQ DA002
;OF EINDADRES.. INX ;(
X)=11(BEG.)..DA002 JSR 38712 ;(X)=13
(EIND).. LDX #004 ;DC=(756)..
LDA 00756 ;DC=1:DECIM.. BE
Q DA003. INX.DA003 JSR DA001 ;
ACCEPT 4 OF 5. LDY #001 ;TEKEN
S.. JSR 38532 ;ADRES+1.. L
DA 00756. BEQ DA004. JSR 39
944 ;CONV.DECIM.. RTS
;RETURN..DA004 JSR 40016 ;CONV.HEXAD
.. RTS ;RETURN.. NOP
.DX102 LDX #000 ;GEBIEDSNUMMER.
LDA 252 ;VAN (252,251). BEQ DA
007 ;IN (X).. JSR DX108 ;0:00000
..00255.. JSR 38780 ;1:00256.. RU
-1.. BCC DA006 ;2: RU .. ZU-1..
LDX #004 ;3: ZU ..65535..
JSR DX108 ;2 OF 3.. LDX #002.
JSR 38780. BCC DA007.DA006 INX.
DA007 RTS. NOP. NOP. NOP.
NOP.DX103 LDX #030 ;TEKST.
JSR 39711 ;'UITGEZONDERD'.
;'VELD XX. ; T/M
YY.'. JSR 38792 ;VAN=(741,740)..
SEC ;TOT=(743,742)..
LDA 00742 ;SUBPROG.DOET. SBC #001
;TOT - 1 =T/M.. STA 251.
LDA 00743. SBC #000. STA 252
. JSR 38804. JSR 38817 ;VOO
RBLOK.. LDX #004 ;TEKST #4..
JSR 38712 ;OUTPUT SCHERM.. RTS.
NOP. NOP. NOP. *
=38291.DX104 LDA #035 ;ADRES AX OP.
STA 253 ;SCHERM BOVEN. LDA
00648 ;RECHTS:POS.35. STA 254
;REGEL 1.. JSR 39744. RTS.
NOP.DX105 CLC ;ADRES CHECK.
TYA ;AX+(Y)>AE?. ADC
00700 ; JA:(X)=1.. STA 107 ;NE
E:(X)=0.. LDX #000 ;AX=(701,700)
.. TXA ;OPGEHOOGD ADRES.
ADC 00701 ;AY=AX+(Y) IN. STA
108 ;(108,107).. LDA 00763.
CMP 108. BCC DA008. BEQ D
AA08. BCS DA009.DAA08 LDA 00762.
CMP 107. BCS DA009.DA008 INX
.DA009 RTS. NOP. NOP. NOP
. *=38343.DX106 LDX #050 ;A
B<=SL<=AE?. JSR 39700 ;SL=(252,
251).. LDX #000 ;NEE:(X)=1..
; JA:(X)=0.. JSR
38780 ;SL::AB.. BCC DA010.
LDX #052. JSR 39700. LDX #0
00. JSR 38780 ;SL::AE.. BE
Q DA011. BCC DA011.DA010 INX.DA01
1 RTS. NOP. *=38372. L
DY #000 ;LENGTE OP. TYA
;NUL ZETTEN.. STA (253),Y.
RTS. NOP. NOP. NOP.
*=38381.DX107 LDA 40928,X ;(X)=0:RU
. IN. STA 253 ;(X)=2:LU. 254.
LDA 40929,X ;(X)=4:ZU. EN. ST
A 254 ;(X)=8:WU. 253.. RTS.DX1
08 LDA 40928,X ;ZIE BOVEN.. STA 1
09 ;IN 110 EN 109.. LDA 40929,
X. STA 110. RTS.DA012 LDA 25
4 ;(254,253) =>. STA 252 ;(2
52,251).. LDA 253. STA 251.
RTS.DA013 SEC ;(254,253) -.
LDA 253 ;(110,109) =>. SB
C 109 ;(252,251).. STA 251.
LDA 254. SBC 110. STA 25
2. RTS.DX111 JSR DA013 ;[(254,253
) -. LDA #006 ; (110,109)]/6.
STA 107 ; => (252,251).. LDA
#000. STA 108. JSR 38548.
JSR DA012. RTS.DX112 JSR DA01
3 ;[(254,253) -. CLC ; (11
0,109)]/2. ROR 252 ; => (252,25
1).. ROR 251. RTS.DX113 LDX #
008 ;'CONTROLE... JSR 38712 ;
<F>.'. LDX #001 ;1 TEKEN..
JSR 38144 ;ACCEPT.. LDX #000 ;
'G':(X)=0.. LDY #001 ;'F':(X)=1.
. LDA (253),Y ;TEKEN.. CMP #07
1 ;'G'?. BEQ DA020 ; JA:(X)=0.
. INX ;NEE:(X)=1..DA020 RTS
;TERUG.. STY 002 ;ADRE
SINHOUD. LDY #000 ;((254,253)).
SEC ;VERMINDEREN. LDA
(253),Y ;MET (Y) EN. SBC 002 ;T
EVENS (Y)=0. STA (253),Y ;GEZET..
RTS. NOP. LDX #024 ;OPE
N REGEL.. JSR 38712. RTS.
NOP. NOP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL