DISE02
FILE INFORMATION
FILENAME(S): DISE02
FILE TYPE(S): SEQ
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
0ed63ae4006e7d38d423f1de0dd0b1eb8a93f6a5c3b4dad39af48b8fc3e0b370
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | DISE02 | SEQ | DuncanTwain | 10 | 0 | 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 20 20 20 20 20 20 | STA 252 | 00000060: 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 38 |;. LDX #008| 00000070: 20 20 20 20 20 20 3B 42 45 47 49 4E 41 44 52 45 | ;BEGINADRE| 00000080: 53 0D 20 20 20 20 20 20 4A 53 52 20 20 44 58 31 |S. JSR DX1| 00000090: 30 37 20 20 20 20 3B 57 45 52 4B 56 45 4C 44 2E |07 ;WERKVELD.| 000000A0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 35 32 |. JSR 3852| 000000B0: 30 20 20 20 20 3B 56 55 4C 4C 45 4E 2E 0D 20 20 |0 ;VULLEN.. | 000000C0: 20 20 20 20 4A 53 52 20 20 33 38 34 39 36 20 20 | JSR 38496 | 000000D0: 20 20 3B 4F 50 20 53 43 48 45 52 4D 2E 0D 20 20 | ;OP SCHERM.. | 000000E0: 20 20 20 20 4C 44 41 20 23 31 35 37 20 20 20 20 | LDA #157 | 000000F0: 20 20 3B 50 49 4A 4C 20 54 45 52 55 47 2E 0D 20 | ;PIJL TERUG.. | 00000100: 20 20 20 20 20 53 54 41 20 20 32 35 32 20 20 20 | STA 252 | 00000110: 20 20 20 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 | ;. JSR | 00000120: 33 38 35 32 30 20 20 20 20 3B 56 55 4C 4C 45 4E |38520 ;VULLEN| 00000130: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 34 |.. JSR 384| 00000140: 39 36 20 20 20 20 3B 4F 50 20 53 43 48 45 52 4D |96 ;OP SCHERM| 00000150: 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 32 35 31 |.. INC 251| 00000160: 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 2B 31 2E | ;LENGTE+1.| 00000170: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 31 33 20 |. LDA #013 | 00000180: 20 20 20 20 20 3B 3C 52 45 54 55 52 4E 3E 2E 0D | ;<RETURN>..| 00000190: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 20 20 | STA 252 | 000001A0: 20 20 20 20 3B 0D 20 20 20 20 20 20 4A 53 52 20 | ;. JSR | 000001B0: 20 34 30 30 37 31 20 20 20 20 3B 41 43 43 45 50 | 40071 ;ACCEP| 000001C0: 54 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |T.. RTS | 000001D0: 20 20 20 20 20 20 20 3B 52 45 54 55 52 4E 2E 0D | ;RETURN..| 000001E0: 20 20 20 20 20 20 4E 4F 50 20 20 20 20 20 20 20 | NOP | 000001F0: 20 20 20 20 3B 0D 44 58 31 30 31 20 4C 44 41 20 | ;.DX101 LDA | 00000200: 20 30 30 37 35 36 20 20 20 20 3B 56 52 41 41 47 | 00756 ;VRAAG| 00000210: 20 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 42 45 | BEGIN-. BE| 00000220: 51 20 20 44 41 30 30 32 20 20 20 20 3B 4F 46 20 |Q DA002 ;OF | 00000230: 45 49 4E 44 41 44 52 45 53 2E 0D 20 20 20 20 20 |EINDADRES.. | 00000240: 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 3B | INX ;| 00000250: 28 58 29 3D 31 31 28 42 45 47 2E 29 2E 0D 44 41 |(X)=11(BEG.)..DA| 00000260: 30 30 32 20 4A 53 52 20 20 33 38 37 31 32 20 20 |002 JSR 38712 | 00000270: 20 20 3B 28 58 29 3D 31 33 28 45 49 4E 44 29 2E | ;(X)=13(EIND).| 00000280: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 34 20 |. LDX #004 | 00000290: 20 20 20 20 20 3B 44 43 3D 28 37 35 36 29 2E 0D | ;DC=(756)..| 000002A0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 35 36 | LDA 00756| 000002B0: 20 20 20 20 3B 44 43 3D 31 3A 44 45 43 49 4D 2E | ;DC=1:DECIM.| 000002C0: 0D 20 20 20 20 20 20 42 45 51 20 20 44 41 30 30 |. BEQ DA00| 000002D0: 33 20 20 20 20 3B 0D 20 20 20 20 20 20 49 4E 58 |3 ;. INX| 000002E0: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 44 41 30 | ;.DA0| 000002F0: 30 33 20 4A 53 52 20 20 44 41 30 30 31 20 20 20 |03 JSR DA001 | 00000300: 20 3B 41 43 43 45 50 54 20 34 20 4F 46 20 35 0D | ;ACCEPT 4 OF 5.| 00000310: 20 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 | LDY #001 | 00000320: 20 20 20 20 3B 54 45 4B 45 4E 53 2E 0D 20 20 20 | ;TEKENS.. | 00000330: 20 20 20 4A 53 52 20 20 33 38 35 33 32 20 20 20 | JSR 38532 | 00000340: 20 3B 41 44 52 45 53 2B 31 2E 0D 20 20 20 20 20 | ;ADRES+1.. | 00000350: 20 4C 44 41 20 20 30 30 37 35 36 20 20 20 20 3B | LDA 00756 ;| 00000360: 0D 20 20 20 20 20 20 42 45 51 20 20 44 41 30 30 |. BEQ DA00| 00000370: 34 20 20 20 20 3B 0D 20 20 20 20 20 20 4A 53 52 |4 ;. JSR| 00000380: 20 20 33 39 39 34 34 20 20 20 20 3B 43 4F 4E 56 | 39944 ;CONV| 00000390: 2E 44 45 43 49 4D 2E 0D 20 20 20 20 20 20 52 54 |.DECIM.. RT| 000003A0: 53 20 20 20 20 20 20 20 20 20 20 20 3B 52 45 54 |S ;RET| 000003B0: 55 52 4E 2E 0D 44 41 30 30 34 20 4A 53 52 20 20 |URN..DA004 JSR | 000003C0: 34 30 30 31 36 20 20 20 20 3B 43 4F 4E 56 2E 48 |40016 ;CONV.H| 000003D0: 45 58 41 44 2E 0D 20 20 20 20 20 20 52 54 53 20 |EXAD.. RTS | 000003E0: 20 20 20 20 20 20 20 20 20 20 3B 52 45 54 55 52 | ;RETUR| 000003F0: 4E 2E 0D 20 20 20 20 20 20 4E 4F 50 20 20 20 20 |N.. NOP | 00000400: 20 20 20 20 20 20 20 3B 0D 44 58 31 30 32 20 4C | ;.DX102 L| 00000410: 44 58 20 23 30 30 30 20 20 20 20 20 20 3B 47 45 |DX #000 ;GE| 00000420: 42 49 45 44 53 4E 55 4D 4D 45 52 0D 20 20 20 20 |BIEDSNUMMER. | 00000430: 20 20 4C 44 41 20 20 32 35 32 20 20 20 20 20 20 | LDA 252 | 00000440: 3B 56 41 4E 20 28 32 35 32 2C 32 35 31 29 0D 20 |;VAN (252,251). | 00000450: 20 20 20 20 20 42 45 51 20 20 44 41 30 30 37 20 | BEQ DA007 | 00000460: 20 20 20 3B 49 4E 20 28 58 29 2E 0D 20 20 20 20 | ;IN (X).. | 00000470: 20 20 4A 53 52 20 20 44 58 31 30 38 20 20 3B 30 | JSR DX108 ;0| 00000480: 3A 30 30 30 30 30 2E 2E 30 30 32 35 35 2E 0D 20 |:00000..00255.. | 00000490: 20 20 20 20 20 4A 53 52 20 20 33 38 37 38 30 20 | JSR 38780 | 000004A0: 20 3B 31 3A 30 30 32 35 36 2E 2E 20 52 55 2D 31 | ;1:00256.. RU-1| 000004B0: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 44 41 30 |.. BCC DA0| 000004C0: 30 36 20 20 3B 32 3A 20 52 55 20 20 2E 2E 20 5A |06 ;2: RU .. Z| 000004D0: 55 2D 31 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |U-1.. LDX #| 000004E0: 30 30 34 20 20 20 20 3B 33 3A 20 5A 55 20 20 2E |004 ;3: ZU .| 000004F0: 2E 36 35 35 33 35 2E 0D 20 20 20 20 20 20 4A 53 |.65535.. JS| 00000500: 52 20 20 44 58 31 30 38 20 20 20 20 3B 0D 20 20 |R DX108 ;. | 00000510: 20 20 20 20 4C 44 58 20 23 30 30 32 20 20 20 20 | LDX #002 | 00000520: 20 20 3B 32 20 4F 46 20 33 2E 0D 20 20 20 20 20 | ;2 OF 3.. | 00000530: 20 4A 53 52 20 20 33 38 37 38 30 20 20 20 20 3B | JSR 38780 ;| 00000540: 0D 20 20 20 20 20 20 42 43 43 20 20 44 41 30 30 |. BCC DA00| 00000550: 37 20 20 20 20 3B 0D 44 41 30 30 36 20 49 4E 58 |7 ;.DA006 INX| 00000560: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 44 41 30 | ;.DA0| 00000570: 30 37 20 52 54 53 20 20 20 20 20 20 20 20 20 20 |07 RTS | 00000580: 20 3B 0D 20 20 20 20 20 20 4E 4F 50 20 20 20 20 | ;. NOP | 00000590: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4E | ;. N| 000005A0: 4F 50 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 |OP ;. | 000005B0: 20 20 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 | NOP | 000005C0: 20 20 20 3B 0D 20 20 20 20 20 20 4E 4F 50 20 20 | ;. NOP | 000005D0: 20 20 20 20 20 20 20 20 20 3B 0D 44 58 31 30 33 | ;.DX103| 000005E0: 20 4C 44 41 20 20 30 30 37 34 30 20 20 20 20 3B | LDA 00740 ;| 000005F0: 54 45 4B 53 54 0D 20 20 20 20 20 20 53 54 41 20 |TEKST. STA | 00000600: 20 32 35 31 20 20 20 20 20 20 3B 27 55 49 54 47 | 251 ;'UITG| 00000610: 45 5A 4F 4E 44 2E 27 0D 20 20 20 20 20 20 4C 44 |EZOND.'. LD| 00000620: 41 20 20 30 30 37 34 31 20 20 20 20 3B 27 56 45 |A 00741 ;'VE| 00000630: 4C 44 20 58 58 0D 20 20 20 20 20 20 53 54 41 20 |LD XX. STA | 00000640: 20 32 35 32 20 20 20 20 20 20 3B 20 54 2F 4D 20 | 252 ; T/M | 00000650: 59 59 2E 27 0D 20 20 20 20 20 20 4A 53 52 20 20 |YY.'. JSR | 00000660: 33 38 37 39 32 20 20 20 20 3B 56 41 4E 28 37 34 |38792 ;VAN(74| 00000670: 31 2C 37 34 30 29 2E 0D 20 20 20 20 20 20 53 45 |1,740).. SE| 00000680: 43 20 20 20 20 20 20 20 20 20 20 20 3B 54 4F 54 |C ;TOT| 00000690: 28 37 34 33 2C 37 34 32 29 2E 0D 20 20 20 20 20 |(743,742).. | 000006A0: 20 4C 44 41 20 20 30 30 37 34 32 20 20 20 20 3B | LDA 00742 ;| 000006B0: 53 55 42 50 52 4F 47 2E 44 4F 45 54 0D 20 20 20 |SUBPROG.DOET. | 000006C0: 20 20 20 53 42 43 20 23 30 30 31 20 20 20 20 20 | SBC #001 | 000006D0: 20 3B 54 4F 54 20 2D 20 31 20 3D 54 2F 4D 2E 0D | ;TOT - 1 =T/M..| 000006E0: 20 20 20 20 20 20 53 54 41 20 20 32 35 31 20 20 | STA 251 | 000006F0: 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 | ;. LDA | 00000700: 20 30 30 37 34 33 20 20 20 20 3B 0D 20 20 20 20 | 00743 ;. | 00000710: 20 20 53 42 43 20 23 30 30 30 20 20 20 20 20 20 | SBC #000 | 00000720: 3B 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |;. STA 252| 00000730: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4A 53 | ;. JS| 00000740: 52 20 20 33 38 38 30 34 20 20 20 20 3B 0D 20 20 |R 38804 ;. | 00000750: 20 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 | LDX #004 | 00000760: 20 20 3B 54 45 4B 53 54 2E 0D 20 20 20 20 20 20 | ;TEKST.. | 00000770: 4A 53 52 20 20 33 38 37 31 32 20 20 20 20 3B 0D |JSR 38712 ;.| 00000780: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000790: 20 20 20 20 3B 0D 20 20 20 20 20 20 4E 4F 50 20 | ;. NOP | 000007A0: 20 20 20 20 20 20 20 20 20 20 3B 0D 44 58 31 30 | ;.DX10| 000007B0: 34 20 4C 44 41 20 20 30 32 38 20 20 20 20 20 20 |4 LDA 028 | 000007C0: 3B 41 44 52 45 53 20 41 58 20 4F 50 0D 20 20 20 |;ADRES AX OP. | 000007D0: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 20 | STA 251 | 000007E0: 20 3B 53 43 48 45 52 4D 20 42 4F 56 45 4E 0D 20 | ;SCHERM BOVEN. | 000007F0: 20 20 20 20 20 4C 44 41 20 20 30 32 39 20 20 20 | LDA 029 | 00000800: 20 20 20 3B 52 45 43 48 54 53 2E 0D 20 20 20 20 | ;RECHTS.. | 00000810: 20 20 53 54 41 20 20 32 35 32 20 20 20 20 20 20 | STA 252 | 00000820: 3B 0D 20 20 20 20 20 20 4C 44 41 20 23 30 33 35 |;. LDA #035| 00000830: 20 20 20 20 20 20 3B 52 45 47 2E 31 20 50 4F 53 | ;REG.1 POS| 00000840: 2E 33 35 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |.35.. STA | 00000850: 32 35 33 20 20 20 20 20 20 3B 0D 20 20 20 20 20 |253 ;. | 00000860: 20 4C 44 41 20 20 30 30 36 34 38 20 20 20 20 3B | LDA 00648 ;| 00000870: 4D 53 20 53 43 48 45 52 4D 0D 20 20 20 20 20 20 |MS SCHERM. | 00000880: 53 54 41 20 20 32 35 34 20 20 20 20 20 20 3B 42 |STA 254 ;B| 00000890: 45 47 49 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 |EGIN.. JSR | 000008A0: 20 33 39 37 34 34 20 20 20 20 3B 44 45 43 4F 4E | 39744 ;DECON| 000008B0: 56 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |V.. RTS | 000008C0: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4E | ;. N| 000008D0: 4F 50 20 20 20 20 20 20 20 20 20 20 20 3B 0D 44 |OP ;.D| 000008E0: 58 31 30 35 20 43 4C 43 20 20 20 20 20 20 20 20 |X105 CLC | 000008F0: 20 20 20 3B 41 44 52 45 53 20 43 48 45 43 4B 0D | ;ADRES CHECK.| 00000900: 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 | TYA | 00000910: 20 20 20 20 3B 41 58 2B 28 59 29 3E 41 45 3F 0D | ;AX+(Y)>AE?.| 00000920: 20 20 20 20 20 20 41 44 43 20 20 30 32 38 20 20 | ADC 028 | 00000930: 20 20 20 20 3B 20 4A 41 3A 28 58 29 3D 31 2E 0D | ; JA:(X)=1..| 00000940: 20 20 20 20 20 20 53 54 41 20 20 31 36 37 20 20 | STA 167 | 00000950: 20 20 20 20 3B 4E 45 45 3A 28 58 29 3D 30 2E 0D | ;NEE:(X)=0..| 00000960: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 | LDX #000 | 00000970: 20 20 20 20 3B 41 58 3D 28 30 32 39 2C 30 32 38 | ;AX=(029,028| 00000980: 29 2E 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 |).. TXA. | 00000990: 20 20 20 41 44 43 20 20 30 32 39 20 20 20 20 3B | ADC 029 ;| 000009A0: 4F 50 47 45 48 4F 4F 47 44 20 41 44 52 45 53 0D |OPGEHOOGD ADRES.| 000009B0: 20 20 20 20 20 20 53 54 41 20 20 31 36 38 20 20 | STA 168 | 000009C0: 20 20 3B 41 59 3D 41 58 2B 28 59 29 20 49 4E 0D | ;AY=AX+(Y) IN.| 000009D0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 36 33 | LDA 00763| 000009E0: 20 20 3B 28 31 36 38 2C 31 36 37 29 2E 0D 20 20 | ;(168,167).. | 000009F0: 20 20 20 20 43 4D 50 20 20 31 36 38 0D 20 20 20 | CMP 168. | 00000A00: 20 20 20 42 43 43 20 20 44 41 30 30 38 0D 20 20 | BCC DA008. | 00000A10: 20 20 20 20 4C 44 41 20 20 30 30 37 36 32 0D 20 | LDA 00762. | 00000A20: 20 20 20 20 20 43 4D 50 20 20 31 36 37 0D 20 20 | CMP 167. | 00000A30: 20 20 20 20 42 43 53 20 20 44 41 30 30 39 0D 44 | BCS DA009.D| 00000A40: 41 30 30 38 20 49 4E 58 0D 44 41 30 30 39 20 52 |A008 INX.DA009 R| 00000A50: 54 53 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 |TS ;. | 00000A60: 20 20 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 | NOP | 00000A70: 20 20 20 3B 0D 44 58 31 30 36 20 4C 44 58 20 23 | ;.DX106 LDX #| 00000A80: 30 30 30 20 20 20 20 20 20 3B 41 42 3C 3D 53 4C |000 ;AB<=SL| 00000A90: 3C 3D 41 45 3F 0D 20 20 20 20 20 20 4C 44 41 20 |<=AE?. LDA | 00000AA0: 20 30 30 37 36 31 20 20 20 20 3B 53 4C 3D 28 32 | 00761 ;SL=(2| 00000AB0: 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 53 |54,253).. S| 00000AC0: 54 41 20 20 31 37 30 20 20 20 20 20 20 3B 4E 45 |TA 170 ;NE| 00000AD0: 45 3A 28 58 29 3D 31 2E 0D 20 20 20 20 20 20 4C |E:(X)=1.. L| 00000AE0: 44 41 20 20 30 30 37 36 30 20 20 20 20 3B 20 4A |DA 00760 ; J| 00000AF0: 41 3A 28 58 29 3D 30 2E 0D 20 20 20 20 20 20 53 |A:(X)=0.. S| 00000B00: 54 41 20 20 31 36 39 20 20 20 20 20 20 3B 0D 20 |TA 169 ;. | 00000B10: 20 20 20 20 20 4A 53 52 20 20 33 38 37 38 30 20 | JSR 38780 | 00000B20: 20 20 20 3B 53 4C 3A 3A 41 42 2E 0D 20 20 20 20 | ;SL::AB.. | 00000B30: 20 20 42 43 43 20 20 44 41 30 31 30 20 20 20 20 | BCC DA010 | 00000B40: 3B 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |;. LDA 007| 00000B50: 36 33 20 20 20 20 3B 0D 20 20 20 20 20 20 53 54 |63 ;. ST| 00000B60: 41 20 20 31 37 30 20 20 20 20 20 20 3B 0D 20 20 |A 170 ;. | 00000B70: 20 20 20 20 4C 44 41 20 20 30 30 37 36 32 20 20 | LDA 00762 | 00000B80: 20 20 3B 0D 20 20 20 20 20 20 53 54 41 20 20 31 | ;. STA 1| 00000B90: 36 39 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |69 ;. | 00000BA0: 4A 53 52 20 20 33 38 37 38 30 20 20 20 20 3B 53 |JSR 38780 ;S| 00000BB0: 4C 3A 3A 41 45 2E 0D 20 20 20 20 20 20 42 45 51 |L::AE.. BEQ| 00000BC0: 20 20 44 41 30 31 31 20 20 20 20 3B 0D 20 20 20 | DA011 ;. | 00000BD0: 20 20 20 42 43 43 20 20 44 41 30 31 31 20 20 20 | BCC DA011 | 00000BE0: 20 3B 0D 44 41 30 31 30 20 49 4E 58 20 20 20 20 | ;.DA010 INX | 00000BF0: 20 20 20 20 20 20 20 3B 0D 44 41 30 31 31 20 52 | ;.DA011 R| 00000C00: 54 53 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 |TS ;. | 00000C10: 20 20 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 | NOP | 00000C20: 20 20 20 3B 0D 20 20 20 20 20 20 4E 4F 50 20 20 | ;. NOP | 00000C30: 20 20 20 20 20 20 20 20 20 3B 0D 44 58 31 30 37 | ;.DX107| 00000C40: 20 4C 44 41 20 20 34 30 39 32 38 2C 58 20 20 3B | LDA 40928,X ;| 00000C50: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 20 |. STA 253 | 00000C60: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 | ;. LDA| 00000C70: 20 20 34 30 39 32 39 2C 58 20 20 3B 0D 20 20 20 | 40929,X ;. | 00000C80: 20 20 20 53 54 41 20 20 32 35 34 20 20 20 20 20 | STA 254 | 00000C90: 20 3B 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 | ;. RTS | 00000CA0: 20 20 20 20 20 20 20 3B 0D 44 58 31 30 38 20 4C | ;.DX108 L| 00000CB0: 44 41 20 20 34 30 39 32 38 2C 58 20 20 3B 0D 20 |DA 40928,X ;. | 00000CC0: 20 20 20 20 20 53 54 41 20 20 31 36 39 20 20 20 | STA 169 | 00000CD0: 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 20 | ;. LDA | 00000CE0: 34 30 39 32 39 2C 58 20 20 3B 0D 20 20 20 20 20 |40929,X ;. | 00000CF0: 20 53 54 41 20 20 31 37 30 20 20 20 20 20 20 3B | STA 170 ;| 00000D00: 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 |. RTS | 00000D10: 20 20 20 20 20 3B 0D 44 41 30 31 32 20 4C 44 41 | ;.DA012 LDA| 00000D20: 20 20 32 35 34 20 20 20 20 20 20 3B 0D 20 20 20 | 254 ;. | 00000D30: 20 20 20 53 54 41 20 20 32 35 32 20 20 20 20 20 | STA 252 | 00000D40: 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 | ;. LDA 25| 00000D50: 33 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 53 |3 ;. S| 00000D60: 54 41 20 20 32 35 31 20 20 20 20 20 20 3B 0D 20 |TA 251 ;. | 00000D70: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000D80: 20 20 20 3B 0D 44 41 30 31 33 20 53 45 43 20 20 | ;.DA013 SEC | 00000D90: 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 | ;. | 00000DA0: 20 4C 44 41 20 20 32 35 33 20 20 20 20 20 20 3B | LDA 253 ;| 00000DB0: 0D 20 20 20 20 20 20 53 42 43 20 20 31 36 39 20 |. SBC 169 | 00000DC0: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 53 54 41 | ;. STA| 00000DD0: 20 20 32 35 31 20 20 20 20 20 20 3B 0D 20 20 20 | 251 ;. | 00000DE0: 20 20 20 4C 44 41 20 20 32 35 34 20 20 20 20 20 | LDA 254 | 00000DF0: 20 3B 0D 20 20 20 20 20 20 53 42 43 20 20 31 37 | ;. SBC 17| 00000E00: 30 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 53 |0 ;. S| 00000E10: 54 41 20 20 32 35 32 20 20 20 20 20 20 3B 0D 20 |TA 252 ;. | 00000E20: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000E30: 20 20 20 3B 0D 44 58 31 31 31 20 4A 53 52 20 20 | ;.DX111 JSR | 00000E40: 44 41 30 31 33 20 20 20 20 3B 0D 20 20 20 20 20 |DA013 ;. | 00000E50: 20 4C 44 41 20 23 30 30 36 20 20 20 20 20 20 3B | LDA #006 ;| 00000E60: 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 37 20 |. STA 167 | 00000E70: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 | ;. LDA| 00000E80: 20 23 30 30 30 20 20 20 20 20 20 3B 0D 20 20 20 | #000 ;. | 00000E90: 20 20 20 53 54 41 20 20 31 36 38 20 20 20 20 20 | STA 168 | 00000EA0: 20 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 | ;. JSR 38| 00000EB0: 35 34 38 20 20 20 20 3B 0D 20 20 20 20 20 20 4A |548 ;. J| 00000EC0: 53 52 20 20 44 41 30 31 32 20 20 20 20 3B 0D 20 |SR DA012 ;. | 00000ED0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000EE0: 20 20 20 3B 0D 44 58 31 31 32 20 4A 53 52 20 20 | ;.DX112 JSR | 00000EF0: 44 41 30 31 33 20 20 20 20 3B 0D 20 20 20 20 20 |DA013 ;. | 00000F00: 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B | CLC ;| 00000F10: 0D 20 20 20 20 20 20 52 4F 52 20 20 32 35 32 20 |. ROR 252 | 00000F20: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 52 4F 52 | ;. ROR| 00000F30: 20 20 32 35 31 20 20 20 20 20 20 3B 0D 20 20 20 | 251 ;. | 00000F40: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS | 00000F50: 20 3B 0D 44 58 31 31 33 20 4C 44 58 20 23 30 30 | ;.DX113 LDX #00| 00000F60: 38 20 20 20 20 20 20 3B 27 43 4F 4E 54 52 4F 4C |8 ;'CONTROL| 00000F70: 45 2E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |E... JSR 3| 00000F80: 38 37 31 32 20 20 20 20 3B 20 3C 46 3E 2E 27 0D |8712 ; <F>.'.| 00000F90: 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 20 20 | LDX #001 | 00000FA0: 20 20 20 20 3B 31 20 54 45 4B 45 4E 2E 0D 20 20 | ;1 TEKEN.. | 00000FB0: 20 20 20 20 4A 53 52 20 20 33 38 31 34 34 20 20 | JSR 38144 | 00000FC0: 20 20 3B 41 43 43 45 50 54 2E 0D 20 20 20 20 20 | ;ACCEPT.. | 00000FD0: 20 4C 44 58 20 23 30 30 30 20 20 20 20 20 20 3B | LDX #000 ;| 00000FE0: 27 47 27 3A 28 58 29 3D 30 2E 0D 20 20 20 20 20 |'G':(X)=0.. | 00000FF0: 20 4C 44 59 20 23 30 30 31 20 20 20 20 20 20 3B | LDY #001 ;| 00001000: 27 46 27 3A 28 58 29 3D 31 2E 0D 20 20 20 20 20 |'F':(X)=1.. | 00001010: 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 20 3B | LDA (253),Y ;| 00001020: 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 43 4D 50 |TEKEN.. CMP| 00001030: 20 23 30 37 31 20 20 20 20 20 20 3B 27 47 27 3F | #071 ;'G'?| 00001040: 0D 20 20 20 20 20 20 42 45 51 20 44 41 30 32 30 |. BEQ DA020| 00001050: 20 20 20 20 20 3B 20 4A 41 3A 28 58 29 3D 30 2E | ; JA:(X)=0.| 00001060: 0D 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 |. INX | 00001070: 20 20 20 20 20 3B 4E 45 45 3A 28 58 29 3D 31 2E | ;NEE:(X)=1.| 00001080: 0D 44 41 30 32 30 20 52 54 53 20 20 20 20 20 20 |.DA020 RTS | 00001090: 20 20 20 20 20 3B 52 45 54 55 52 4E 2E 0D 20 20 | ;RETURN.. | 000010A0: 20 20 20 20 53 54 59 20 20 30 30 32 20 20 20 20 | STY 002 | 000010B0: 20 20 3B 41 44 52 45 53 49 4E 48 4F 55 44 0D 20 | ;ADRESINHOUD. | 000010C0: 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 | LDY #000 | 000010D0: 20 20 20 3B 28 28 32 35 34 2C 32 35 33 29 29 0D | ;((254,253)).| 000010E0: 20 20 20 20 20 20 53 45 43 20 20 20 20 20 20 20 | SEC | 000010F0: 20 20 20 20 3B 56 45 52 4D 49 4E 44 45 52 45 4E | ;VERMINDEREN| 00001100: 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 |. LDA (253)| 00001110: 2C 59 20 20 20 3B 4D 45 54 20 28 59 29 3B 0D 20 |,Y ;MET (Y);. | 00001120: 20 20 20 20 20 53 42 43 20 20 30 30 32 20 20 20 | SBC 002 | 00001130: 20 20 20 3B 54 45 56 45 4E 53 0D 20 20 20 20 20 | ;TEVENS. | 00001140: 20 53 54 41 20 28 32 35 33 29 2C 59 20 20 20 3B | STA (253),Y ;| 00001150: 28 59 29 3D 30 20 47 45 5A 45 54 2E 0D 20 20 20 |(Y)=0 GEZET.. | 00001160: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS | 00001170: 20 3B 52 45 54 55 52 4E 2E 0D 20 20 20 20 20 20 | ;RETURN.. | 00001180: 4E 4F 50 20 20 20 20 20 20 20 20 20 20 20 3B 0D |NOP ;.| 00001190: 20 20 20 20 20 20 2E 45 4E 44 0D | .END. |
*=38144.DA001 STX 251 ;LE
NGTE.. LDA #042 ;STERREN..
STA 252 ;. LDX #008 ;B
EGINADRES. JSR DX107 ;WERKVELD.
. JSR 38520 ;VULLEN.. JSR
38496 ;OP SCHERM.. LDA #157
;PIJL TERUG.. STA 252 ;.
JSR 38520 ;VULLEN.. JSR 384
96 ;OP SCHERM.. INC 251 ;L
ENGTE+1.. LDA #013 ;<RETURN>..
STA 252 ;. JSR 40071
;ACCEPT.. RTS ;RETURN..
NOP ;.DX101 LDA 00756
;VRAAG BEGIN-. BEQ DA002 ;OF
EINDADRES.. INX ;(X)=11(B
EG.)..DA002 JSR 38712 ;(X)=13(EIND).
. LDX #004 ;DC=(756).. LD
A 00756 ;DC=1:DECIM.. BEQ DA00
3 ;. INX ;.DA003 JSR
DA001 ;ACCEPT 4 OF 5. LDY #001
;TEKENS.. JSR 38532 ;ADRES+
1.. LDA 00756 ;. BEQ DA00
4 ;. JSR 39944 ;CONV.DECIM..
RTS ;RETURN..DA004 JSR
40016 ;CONV.HEXAD.. RTS
;RETURN.. NOP ;.DX102 L
DX #000 ;GEBIEDSNUMMER. LDA 2
52 ;VAN (252,251). BEQ DA007
;IN (X).. JSR DX108 ;0:00000..
00255.. JSR 38780 ;1:00256.. RU-1
.. BCC DA006 ;2: RU .. ZU-1..
LDX #004 ;3: ZU ..65535.. JS
R DX108 ;. LDX #002 ;2 OF
3.. JSR 38780 ;. BCC DA00
7 ;.DA006 INX ;.DA007 RTS
;. NOP ;. N
OP ;. NOP ;.
NOP ;.DX103 LDA 00740 ;
TEKST. STA 251 ;'UITGEZOND.'.
LDA 00741 ;'VELD XX. STA
252 ; 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 ;. LDX
#004 ;TEKST.. JSR 38712 ;.
RTS ;. NOP
;.DX104 LDA 028 ;ADRES AX OP.
STA 251 ;SCHERM BOVEN. LDA
029 ;RECHTS.. STA 252
;. LDA #035 ;REG.1 POS.35..
STA 253 ;. LDA 00648 ;
MS SCHERM. STA 254 ;BEGIN..
JSR 39744 ;DECONV.. RTS
;. NOP ;.DX105 CLC
;ADRES CHECK. TYA
;AX+(Y)>AE?. ADC 028 ; JA
:(X)=1.. STA 167 ;NEE:(X)=0..
LDX #000 ;AX=(029,028)..
TXA. ADC 029 ;OPGEHOOGD ADRES.
STA 168 ;AY=AX+(Y) IN. LD
A 00763 ;(168,167).. CMP 168.
BCC DA008. LDA 00762. CMP
167. BCS DA009.DA008 INX.DA009 R
TS ;. NOP ;.DX1
06 LDX #000 ;AB<=SL<=AE?. LDA
00761 ;SL=(254,253).. STA 170
;NEE:(X)=1.. LDA 00760 ; J
A:(X)=0.. STA 169 ;. JSR
38780 ;SL::AB.. BCC DA010
;. LDA 00763 ;. STA 170
;. LDA 00762 ;. STA 1
69 ;. JSR 38780 ;SL::AE..
BEQ DA011 ;. BCC DA011
;.DA010 INX ;.DA011 RTS
;. NOP ;. NOP
;.DX107 LDA 40928,X ;. S
TA 253 ;. LDA 40929,X ;.
STA 254 ;. RTS ;
.DX108 LDA 40928,X ;. STA 169
;. LDA 40929,X ;. STA 17
0 ;. RTS ;.DA012 LDA
254 ;. STA 252 ;.
LDA 253 ;. STA 251 ;.
RTS ;.DA013 SEC
;. LDA 253 ;. SBC 169
;. STA 251 ;. LDA
254 ;. SBC 170 ;. S
TA 252 ;. RTS ;.DX1
11 JSR DA013 ;. LDA #006 ;
. STA 167 ;. LDA #000
;. STA 168 ;. JSR 38
548 ;. JSR DA012 ;. RTS
;.DX112 JSR DA013 ;.
CLC ;. ROR 252 ;.
ROR 251 ;. RTS
;.DX113 LDX #008 ;'CONTROLE...
JSR 38712 ; <F>.'. LDX #001
;1 TEKEN.. JSR 38144 ;ACCEP
T.. LDX #000 ;'G':(X)=0..
LDY #001 ;'F':(X)=1.. LDA (25
3),Y ;TEKEN.. CMP #071 ;'G'?
. BEQ DA020 ; JA:(X)=0.. I
NX ;NEE:(X)=1..DA020 RTS
;RETURN.. STY 002 ;ADRES
INHOUD. LDY #000 ;((254,253)).
SEC ;VERMINDEREN. L
DA (253),Y ;MET (Y);. SBC 002
;TEVENS. STA (253),Y ;(Y)=0 GE
ZET.. RTS ;RETURN..
NOP ;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL