DISN42
FILE INFORMATION
FILENAME(S): DISN42
FILE TYPE(S): SEQ
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
8ea83fdf4395f9fea9742f0e31b41811aca23a03519a26db24b613803aa6d7dc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES 2 | DISN42 | SEQ | DuncanTwain | 31 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 35 33 35 30 | *=35350| 00000010: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000020: 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00000030: 20 20 20 20 20 20 20 3B 44 49 53 53 45 4D 42 4C | ;DISSEMBL| 00000040: 45 52 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER. | 00000050: 20 20 20 20 20 3B 53 55 42 52 4F 55 54 49 4E 45 | ;SUBROUTINE| 00000060: 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S. | 00000070: 20 20 20 20 3B 20 44 45 45 4C 20 49 49 49 2E 0D | ; DEEL III..| 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 000000A0: 20 20 20 20 20 20 3B 4C 41 42 45 4C 53 4F 52 54 | ;LABELSORT| 000000B0: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 000000C0: 20 20 20 20 3B 0D 4C 41 42 53 52 20 4C 44 58 20 | ;.LABSR LDX | 000000D0: 20 34 30 39 32 39 20 20 3B 28 32 35 32 2C 32 35 | 40929 ;(252,25| 000000E0: 31 29 3D 4C 55 2E 0D 20 20 20 20 20 20 53 54 58 |1)=LU.. STX| 000000F0: 20 20 32 35 32 20 20 20 20 3B 28 58 2C 59 29 3D | 252 ;(X,Y)=| 00000100: 4C 55 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 34 |LU.. LDY 4| 00000110: 30 39 32 38 0D 20 20 20 20 20 20 53 54 59 20 20 |0928. STY | 00000120: 32 35 31 20 20 20 20 3B 54 45 20 56 4F 52 45 4E |251 ;TE VOREN| 00000130: 3A 0D 20 20 20 20 20 20 43 50 58 20 20 31 30 38 |:. CPX 108| 00000140: 20 20 20 20 3B 41 28 4E 2B 31 29 3D 4C 58 20 49 | ;A(N+1)=LX I| 00000150: 4E 0D 20 20 20 20 20 20 42 4E 45 20 20 4C 53 52 |N. BNE LSR| 00000160: 30 31 20 20 3B 28 31 30 38 2C 31 30 37 29 2E 0D |01 ;(108,107)..| 00000170: 20 20 20 20 20 20 43 50 59 20 20 31 30 37 20 20 | CPY 107 | 00000180: 20 20 3B 4C 58 3D 4C 55 3A 54 41 42 45 4C 0D 20 | ;LX=LU:TABEL. | 00000190: 20 20 20 20 20 42 45 51 20 20 4C 53 52 31 34 20 | BEQ LSR14 | 000001A0: 20 3B 49 53 20 4C 45 45 47 2E 0D 4C 53 52 30 31 | ;IS LEEG..LSR01| 000001B0: 20 53 45 43 0D 20 20 20 20 20 20 4C 44 41 20 20 | SEC. LDA | 000001C0: 31 30 37 20 20 20 20 3B 28 31 31 30 2C 31 30 39 |107 ;(110,109| 000001D0: 29 3D 41 28 4E 29 2C 0D 20 20 20 20 20 20 53 42 |)=A(N),. SB| 000001E0: 43 20 23 30 30 32 20 20 20 20 3B 4D 45 54 20 4C |C #002 ;MET L| 000001F0: 58 2D 32 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |X-2.. STA | 00000200: 31 30 39 0D 20 20 20 20 20 20 4C 44 41 20 20 31 |109. LDA 1| 00000210: 30 38 0D 20 20 20 20 20 20 53 42 43 20 23 30 30 |08. SBC #00| 00000220: 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 31 30 |0. STA 110| 00000230: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000240: 20 20 20 3B 28 32 35 32 2C 32 35 31 29 3D 41 28 | ;(252,251)=A(| 00000250: 4C 29 2E 0D 20 20 20 20 20 20 42 43 43 20 20 4C |L).. BCC L| 00000260: 53 52 30 33 0D 4C 53 52 30 32 20 43 4C 43 20 20 |SR03.LSR02 CLC | 00000270: 20 20 20 20 20 20 20 3B 41 28 4C 2B 31 29 3D 3E | ;A(L+1)=>| 00000280: 41 28 4C 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 |A(L).. LDA | 00000290: 20 32 35 31 0D 20 20 20 20 20 20 41 44 43 20 23 | 251. ADC #| 000002A0: 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 20 32 |002. STA 2| 000002B0: 35 31 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 |51. TAY | 000002C0: 20 20 20 20 20 3B 28 58 2C 59 29 3D 41 28 4C 29 | ;(X,Y)=A(L)| 000002D0: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 |.. LDA 252| 000002E0: 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 0D |. ADC #000.| 000002F0: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 | STA 252. | 00000300: 20 20 20 20 20 54 41 58 0D 4C 53 52 30 33 20 43 | TAX.LSR03 C| 00000310: 50 58 20 20 31 31 30 20 20 20 20 3B 56 45 52 47 |PX 110 ;VERG| 00000320: 45 4C 49 4A 4B 0D 20 20 20 20 20 20 42 43 43 20 |ELIJK. BCC | 00000330: 20 4C 53 52 30 35 20 20 3B 4D 45 54 20 41 28 4E | LSR05 ;MET A(N| 00000340: 29 2E 0D 20 20 20 20 20 20 42 45 51 20 20 4C 53 |).. BEQ LS| 00000350: 52 30 34 0D 20 20 20 20 20 20 42 43 53 20 20 4C |R04. BCS L| 00000360: 53 52 31 34 0D 4C 53 52 30 34 20 43 50 59 20 20 |SR14.LSR04 CPY | 00000370: 31 30 39 20 20 20 20 3B 41 28 4C 29 3D 41 28 4E |109 ;A(L)=A(N| 00000380: 29 3A 0D 20 20 20 20 20 20 42 43 53 20 20 4C 53 |):. BCS LS| 00000390: 52 31 34 20 20 3B 4B 4C 41 41 52 2E 0D 4C 53 52 |R14 ;KLAAR..LSR| 000003A0: 30 35 20 43 4C 43 0D 4C 53 52 30 36 20 54 59 41 |05 CLC.LSR06 TYA| 000003B0: 20 20 20 20 20 20 20 20 20 3B 41 28 48 29 3C 41 | ;A(H)<A| 000003C0: 28 4E 29 3A 0D 20 20 20 20 20 20 41 44 43 20 23 |(N):. ADC #| 000003D0: 30 30 32 20 20 20 20 3B 41 28 4C 2B 31 29 3D 3E |002 ;A(L+1)=>| 000003E0: 41 28 48 29 2E 0D 20 20 20 20 20 20 53 54 41 20 |A(H).. STA | 000003F0: 20 32 35 33 0D 20 20 20 20 20 20 54 58 41 0D 20 | 253. TXA. | 00000400: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. | 00000410: 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 | STA 254. | 00000420: 20 20 20 4C 44 41 20 20 31 31 30 20 20 20 20 3B | LDA 110 ;| 00000430: 41 28 4E 29 3C 41 28 48 29 3F 0D 20 20 20 20 20 |A(N)<A(H)?. | 00000440: 20 43 4D 50 20 20 32 35 34 0D 20 20 20 20 20 20 | CMP 254. | 00000450: 42 43 43 20 20 4C 53 52 30 32 20 20 3B 4A 41 3A |BCC LSR02 ;JA:| 00000460: 48 4F 4F 47 20 4C 20 4F 50 2E 0D 20 20 20 20 20 |HOOG L OP.. | 00000470: 20 42 45 51 20 20 4C 53 52 30 37 0D 20 20 20 20 | BEQ LSR07. | 00000480: 20 20 42 43 53 20 20 4C 53 52 30 38 0D 4C 53 52 | BCS LSR08.LSR| 00000490: 30 37 20 4C 44 41 20 20 31 30 39 0D 20 20 20 20 |07 LDA 109. | 000004A0: 20 20 43 4D 50 20 20 32 35 33 0D 20 20 20 20 20 | CMP 253. | 000004B0: 20 42 43 43 20 20 4C 53 52 30 32 0D 4C 53 52 30 | BCC LSR02.LSR0| 000004C0: 38 20 4C 44 59 20 23 30 30 31 20 20 20 20 3B 4E |8 LDY #001 ;N| 000004D0: 45 45 4E 3A 56 45 52 47 45 4C 49 4A 4B 0D 4C 53 |EEN:VERGELIJK.LS| 000004E0: 52 30 39 20 4C 44 41 20 28 32 35 31 29 2C 59 20 |R09 LDA (251),Y | 000004F0: 3B 49 54 45 4D 53 20 4C 20 4D 45 54 20 48 2E 0D |;ITEMS L MET H..| 00000500: 20 20 20 20 20 20 43 4D 50 20 28 32 35 33 29 2C | CMP (253),| 00000510: 59 0D 20 20 20 20 20 20 42 43 43 20 20 4C 53 52 |Y. BCC LSR| 00000520: 31 33 0D 20 20 20 20 20 20 42 45 51 20 20 4C 53 |13. BEQ LS| 00000530: 52 31 30 0D 20 20 20 20 20 20 42 43 53 20 20 4C |R10. BCS L| 00000540: 53 52 31 31 0D 4C 53 52 31 30 20 44 45 59 20 20 |SR11.LSR10 DEY | 00000550: 20 20 20 20 20 20 20 3B 50 41 4B 20 4C 2E 53 2E | ;PAK L.S.| 00000560: 0D 20 20 20 20 20 20 42 50 4C 20 20 4C 53 52 30 |. BPL LSR0| 00000570: 39 0D 20 20 20 20 20 20 42 4D 49 20 20 4C 53 52 |9. BMI LSR| 00000580: 31 33 20 20 3B 47 45 4C 49 4A 4B 3A 48 2B 31 2E |13 ;GELIJK:H+1.| 00000590: 0D 4C 53 52 31 31 20 4C 44 59 20 23 30 30 31 20 |.LSR11 LDY #001 | 000005A0: 20 20 20 3B 47 52 4F 54 45 52 3A 0D 4C 53 52 31 | ;GROTER:.LSR1| 000005B0: 32 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 49 |2 LDA (253),Y ;I| 000005C0: 54 45 4D 53 20 4C 20 45 4E 20 48 0D 20 20 20 20 |TEMS L EN H. | 000005D0: 20 20 54 41 58 20 20 20 20 20 20 20 20 20 3B 56 | TAX ;V| 000005E0: 45 52 57 49 53 53 45 4C 45 4E 2E 0D 20 20 20 20 |ERWISSELEN.. | 000005F0: 20 20 4C 44 41 20 28 32 35 31 29 2C 59 0D 20 20 | LDA (251),Y. | 00000600: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00000610: 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 | TXA. | 00000620: 53 54 41 20 28 32 35 31 29 2C 59 0D 20 20 20 20 |STA (251),Y. | 00000630: 20 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 | DEY. BPL | 00000640: 20 4C 53 52 31 32 0D 4C 53 52 31 33 20 4C 44 59 | LSR12.LSR13 LDY| 00000650: 20 20 32 35 33 20 20 20 20 3B 48 45 52 53 54 45 | 253 ;HERSTE| 00000660: 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 4C 44 58 |L (Y).. LDX| 00000670: 20 20 32 35 34 20 20 20 20 3B 48 45 52 53 54 45 | 254 ;HERSTE| 00000680: 4C 20 28 58 29 2E 0D 20 20 20 20 20 20 43 4C 43 |L (X).. CLC| 00000690: 0D 20 20 20 20 20 20 42 43 43 20 20 4C 53 52 30 |. BCC LSR0| 000006A0: 36 0D 4C 53 52 31 34 20 52 54 53 0D 20 20 20 20 |6.LSR14 RTS. | 000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D | ;.| 000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006D0: 20 20 3B 54 45 4B 53 54 20 41 43 43 45 50 54 0D | ;TEKST ACCEPT.| 000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006F0: 20 20 3B 56 41 4E 20 54 4F 45 54 53 42 4F 52 44 | ;VAN TOETSBORD| 00000700: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000710: 20 20 20 20 3B 0D 54 58 54 49 4E 20 53 54 58 20 | ;.TXTIN STX | 00000720: 20 32 35 31 20 20 20 20 3B 28 58 29 3D 4D 41 58 | 251 ;(X)=MAX| 00000730: 49 4D 41 4C 45 0D 20 20 20 20 20 20 4C 44 41 20 |IMALE. LDA | 00000740: 23 30 34 32 20 20 20 20 3B 4C 45 4E 47 54 45 20 |#042 ;LENGTE | 00000750: 49 4E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |IN. STA 25| 00000760: 32 20 20 20 20 3B 53 54 45 52 52 45 4E 2E 0D 20 |2 ;STERREN.. | 00000770: 20 20 20 20 20 4C 44 58 20 23 30 31 30 20 20 20 | LDX #010 | 00000780: 20 3B 42 45 47 49 4E 41 44 52 45 53 0D 20 20 20 | ;BEGINADRES. | 00000790: 20 20 20 4A 53 52 20 20 56 4C 32 41 44 20 20 3B | JSR VL2AD ;| 000007A0: 57 45 52 4B 56 45 4C 44 2E 0D 20 20 20 20 20 20 |WERKVELD.. | 000007B0: 4A 53 52 20 20 45 4C 56 55 4C 20 20 3B 56 55 4C |JSR ELVUL ;VUL| 000007C0: 4C 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |LEN.. JSR | 000007D0: 45 4C 53 43 52 20 20 3B 4F 50 20 53 43 48 45 52 |ELSCR ;OP SCHER| 000007E0: 4D 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 31 35 |M.. LDA #15| 000007F0: 37 20 20 20 20 3B 50 49 4A 4C 20 54 45 52 55 47 |7 ;PIJL TERUG| 00000800: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |.. STA 252| 00000810: 0D 20 20 20 20 20 20 4A 53 52 20 20 45 4C 56 55 |. JSR ELVU| 00000820: 4C 20 20 3B 56 55 4C 4C 45 4E 2E 0D 20 20 20 20 |L ;VULLEN.. | 00000830: 20 20 4A 53 52 20 20 45 4C 53 43 52 20 20 3B 4F | JSR ELSCR ;O| 00000840: 50 20 53 43 48 45 52 4D 2E 0D 20 20 20 20 20 20 |P SCHERM.. | 00000850: 49 4E 43 20 20 32 35 31 20 20 20 20 3B 4C 45 4E |INC 251 ;LEN| 00000860: 47 54 45 2B 31 2E 0D 20 20 20 20 20 20 4C 44 41 |GTE+1.. LDA| 00000870: 20 23 30 31 33 20 20 20 20 3B 3C 52 45 54 55 52 | #013 ;<RETUR| 00000880: 4E 3E 20 41 4C 53 0D 20 20 20 20 20 20 53 54 41 |N> ALS. STA| 00000890: 20 20 32 35 32 20 20 20 20 3B 53 4C 55 49 54 54 | 252 ;SLUITT| 000008A0: 4F 45 54 53 2E 0D 20 20 20 20 20 20 4A 53 52 20 |OETS.. JSR | 000008B0: 20 4B 45 59 41 43 20 20 3B 41 43 43 45 50 54 2E | KEYAC ;ACCEPT.| 000008C0: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 000008D0: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 000008E0: 20 20 20 20 20 4E 4F 50 0D 41 44 52 49 4E 20 4C | NOP.ADRIN L| 000008F0: 44 41 20 20 30 30 37 35 36 20 20 3B 56 52 41 41 |DA 00756 ;VRAA| 00000900: 47 20 42 45 47 49 4E 2D 20 4F 46 0D 20 20 20 20 |G BEGIN- OF. | 00000910: 20 20 42 45 51 20 20 41 44 52 49 31 20 20 3B 45 | BEQ ADRI1 ;E| 00000920: 49 4E 44 41 44 52 45 53 2E 0D 20 20 20 20 20 20 |INDADRES.. | 00000930: 49 4E 58 20 20 20 20 20 20 20 20 20 3B 28 58 29 |INX ;(X)| 00000940: 3D 31 31 28 42 45 47 49 4E 29 2E 0D 41 44 52 49 |=11(BEGIN)..ADRI| 00000950: 31 20 4A 53 52 20 20 53 43 4E 54 58 20 20 3B 28 |1 JSR SCNTX ;(| 00000960: 58 29 3D 31 33 28 45 49 4E 44 29 2E 0D 20 20 20 |X)=13(EIND).. | 00000970: 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 3B | LDX #004 ;| 00000980: 44 43 3D 28 37 35 36 29 2E 0D 20 20 20 20 20 20 |DC=(756).. | 00000990: 4C 44 41 20 20 30 30 37 35 36 20 20 3B 44 43 3D |LDA 00756 ;DC=| 000009A0: 31 3A 44 45 43 49 4D 2E 0D 20 20 20 20 20 20 42 |1:DECIM.. B| 000009B0: 45 51 20 20 41 44 52 49 32 20 20 3B 48 45 58 2E |EQ ADRI2 ;HEX.| 000009C0: 34 2C 20 44 45 43 2E 35 2E 0D 20 20 20 20 20 20 |4, DEC.5.. | 000009D0: 49 4E 58 0D 41 44 52 49 32 20 4A 53 52 20 20 54 |INX.ADRI2 JSR T| 000009E0: 58 54 49 4E 20 20 3B 41 43 43 45 50 54 20 34 20 |XTIN ;ACCEPT 4 | 000009F0: 4F 46 20 35 0D 20 20 20 20 20 20 4C 44 59 20 23 |OF 5. LDY #| 00000A00: 30 30 31 20 20 20 20 3B 54 45 4B 45 4E 53 2E 0D |001 ;TEKENS..| 00000A10: 20 20 20 20 20 20 4A 53 52 20 20 41 44 50 41 44 | JSR ADPAD| 00000A20: 20 20 3B 41 44 52 45 53 2B 31 2E 0D 20 20 20 20 | ;ADRES+1.. | 00000A30: 20 20 4C 44 41 20 20 30 30 37 35 36 0D 20 20 20 | LDA 00756. | 00000A40: 20 20 20 42 45 51 20 20 41 44 52 49 33 0D 20 20 | BEQ ADRI3. | 00000A50: 20 20 20 20 4A 53 52 20 20 44 43 42 49 32 20 20 | JSR DCBI2 | 00000A60: 3B 43 4F 4E 56 45 52 53 49 45 20 44 45 43 2E 0D |;CONVERSIE DEC..| 00000A70: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000A80: 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 41 44 52 | ;NAAR H.P..ADR| 00000A90: 49 33 20 4A 53 52 20 20 48 58 42 49 32 20 20 3B |I3 JSR HXBI2 ;| 00000AA0: 43 4F 4E 56 45 52 53 49 45 20 48 45 58 2E 0D 20 |CONVERSIE HEX.. | 00000AB0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000AC0: 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 | ;NAAR H.P.. | 00000AD0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00000AE0: 20 20 20 20 20 20 20 20 20 2A 3D 33 35 35 35 38 | *=35558| 00000AF0: 0D 49 4E 54 56 4C 20 4C 44 58 20 23 30 30 35 20 |.INTVL LDX #005 | 00000B00: 20 20 20 20 3B 49 4E 54 45 52 56 41 4C 54 45 53 | ;INTERVALTES| 00000B10: 54 2E 0D 49 4E 54 56 31 20 54 58 41 20 20 20 20 |T..INTV1 TXA | 00000B20: 20 20 20 20 20 20 3B 20 3C 28 37 31 31 2C 37 31 | ; <(711,71| 00000B30: 30 29 20 30 2E 0D 20 20 20 20 20 20 43 4C 43 20 |0) 0.. CLC | 00000B40: 20 20 20 20 20 20 20 20 20 3B 3E 3D 28 37 31 31 | ;>=(711| 00000B50: 2C 37 31 30 29 20 31 2E 0D 20 20 20 20 20 20 2E |,710) 1.. .| 00000B60: 42 59 54 45 20 24 32 41 20 20 20 20 3B 3E 3D 28 |BYTE $2A ;>=(| 00000B70: 37 31 33 2C 37 31 32 29 20 32 2E 0D 20 20 20 20 |713,712) 2.. | 00000B80: 20 20 54 41 59 20 20 20 20 20 20 20 20 20 20 3B | TAY ;| 00000B90: 3E 3D 28 37 31 35 2C 37 31 34 29 20 33 2E 0D 20 |>=(715,714) 3.. | 00000BA0: 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 30 2C | LDA 00710,| 00000BB0: 59 20 3B 3E 3D 28 37 31 37 2C 37 31 36 29 20 34 |Y ;>=(717,716) 4| 00000BC0: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 39 |.. STA 109| 00000BD0: 20 20 20 20 20 3B 3E 3D 28 37 31 39 2C 37 31 38 | ;>=(719,718| 00000BE0: 29 20 35 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |) 5.. LDA | 00000BF0: 30 30 37 31 31 2C 59 0D 20 20 20 20 20 20 53 54 |00711,Y. ST| 00000C00: 41 20 20 31 31 30 20 20 20 20 20 3B 28 59 29 20 |A 110 ;(Y) | 00000C10: 4D 45 54 20 28 58 29 2A 32 2E 0D 20 20 20 20 20 |MET (X)*2.. | 00000C20: 20 4A 53 52 20 20 56 47 4C 41 42 20 20 20 3B 28 | JSR VGLAB ;(| 00000C30: 32 35 32 2C 32 35 31 29 20 3A 3A 0D 20 20 20 20 |252,251) ::. | 00000C40: 20 20 42 45 51 20 20 49 4E 54 56 32 20 20 20 3B | BEQ INTV2 ;| 00000C50: 28 31 31 30 2C 31 30 39 29 2E 0D 20 20 20 20 20 |(110,109).. | 00000C60: 20 42 43 43 20 20 49 4E 54 56 32 20 20 20 3B 28 | BCC INTV2 ;(| 00000C70: 43 29 3D 30 3A 20 3C 2E 0D 20 20 20 20 20 20 44 |C)=0: <.. D| 00000C80: 45 58 0D 20 20 20 20 20 20 42 4E 45 20 20 49 4E |EX. BNE IN| 00000C90: 54 56 31 0D 49 4E 54 56 32 20 52 54 53 0D 20 20 |TV1.INTV2 RTS. | 00000CA0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000CB0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00000CC0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A | NOP. *| 00000CD0: 3D 33 35 35 39 30 0D 55 54 47 5A 44 20 4C 44 58 |=35590.UTGZD LDX| 00000CE0: 20 23 30 33 30 20 20 20 20 3B 54 45 4B 53 54 0D | #030 ;TEKST.| 00000CF0: 20 20 20 20 20 20 4A 53 52 20 20 56 4C 31 42 49 | JSR VL1BI| 00000D00: 20 20 3B 27 55 49 54 47 45 5A 4F 4E 44 45 52 44 | ;'UITGEZONDERD| 00000D10: 27 0D 20 20 20 20 20 20 4A 53 52 20 20 56 55 4C |'. JSR VUL| 00000D20: 58 58 20 20 3B 27 56 45 4C 44 20 58 58 0D 20 20 |XX ;'VELD XX. | 00000D30: 20 20 20 20 53 45 43 20 20 20 20 20 20 20 20 20 | SEC | 00000D40: 3B 20 54 2F 4D 20 59 59 2E 27 0D 20 20 20 20 20 |; T/M YY.'. | 00000D50: 20 4C 44 41 20 20 30 30 37 34 32 20 20 3B 56 41 | LDA 00742 ;VA| 00000D60: 4E 3D 28 37 34 31 2C 37 34 30 29 2E 0D 20 20 20 |N=(741,740).. | 00000D70: 20 20 20 53 42 43 20 23 30 30 31 20 20 20 20 3B | SBC #001 ;| 00000D80: 54 4F 54 3D 28 37 34 33 2C 37 34 32 29 2E 0D 20 |TOT=(743,742).. | 00000D90: 20 20 20 20 20 53 54 41 20 20 32 35 31 20 20 20 | STA 251 | 00000DA0: 20 3B 53 55 42 50 52 4F 47 2E 44 4F 45 54 0D 20 | ;SUBPROG.DOET. | 00000DB0: 20 20 20 20 20 4C 44 41 20 20 30 30 37 34 33 20 | LDA 00743 | 00000DC0: 20 3B 54 4F 54 20 2D 20 31 20 3D 54 2F 4D 2E 0D | ;TOT - 1 =T/M..| 00000DD0: 20 20 20 20 20 20 53 42 43 20 23 30 30 30 0D 20 | SBC #000. | 00000DE0: 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 | STA 252. | 00000DF0: 20 20 20 20 4A 53 52 20 20 56 55 4C 59 59 0D 20 | JSR VULYY. | 00000E00: 20 20 20 20 20 4A 53 52 20 20 41 44 56 54 58 20 | JSR ADVTX | 00000E10: 20 3B 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 | ;VOORBLOK.. | 00000E20: 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 3B 54 | LDX #004 ;T| 00000E30: 45 4B 53 54 20 23 34 2E 0D 20 20 20 20 20 20 4A |EKST #4.. J| 00000E40: 53 52 20 20 53 43 4E 54 58 20 20 3B 4F 55 54 50 |SR SCNTX ;OUTP| 00000E50: 55 54 20 53 43 48 45 52 4D 2E 0D 20 20 20 20 20 |UT SCHERM.. | 00000E60: 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | RTS. NOP. | 00000E70: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00000E80: 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 35 |OP. *=35| 00000E90: 36 33 30 0D 41 58 52 42 56 20 4C 44 41 20 23 30 |630.AXRBV LDA #0| 00000EA0: 33 35 20 20 20 20 3B 41 44 52 45 53 20 41 58 20 |35 ;ADRES AX | 00000EB0: 4F 50 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |OP. STA 25| 00000EC0: 33 20 20 20 20 3B 53 43 48 45 52 4D 20 42 4F 56 |3 ;SCHERM BOV| 00000ED0: 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |EN. LDA 00| 00000EE0: 36 34 38 20 20 3B 52 45 43 48 54 53 3A 50 4F 53 |648 ;RECHTS:POS| 00000EF0: 2E 33 35 0D 20 20 20 20 20 20 53 54 41 20 20 32 |.35. STA 2| 00000F00: 35 34 20 20 20 20 3B 52 45 47 45 4C 20 31 2E 0D |54 ;REGEL 1..| 00000F10: 20 20 20 20 20 20 4A 53 52 20 20 42 49 44 43 32 | JSR BIDC2| 00000F20: 0D 20 20 20 20 20 20 52 54 53 0D 41 58 43 48 4B |. RTS.AXCHK| 00000F30: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 41 44 | CLC ;AD| 00000F40: 52 45 53 20 43 48 45 43 4B 0D 20 20 20 20 20 20 |RES CHECK. | 00000F50: 54 59 41 20 20 20 20 20 20 20 20 20 3B 41 58 2B |TYA ;AX+| 00000F60: 28 59 29 3E 41 45 3F 0D 20 20 20 20 20 20 41 44 |(Y)>AE?. AD| 00000F70: 43 20 20 30 30 37 30 30 20 20 3B 20 4A 41 3A 28 |C 00700 ; JA:(| 00000F80: 58 29 3D 31 2E 0D 20 20 20 20 20 20 53 54 41 20 |X)=1.. STA | 00000F90: 20 31 30 37 20 20 20 20 3B 4E 45 45 3A 28 58 29 | 107 ;NEE:(X)| 00000FA0: 3D 30 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |=0.. LDX #0| 00000FB0: 30 30 20 20 20 20 3B 41 58 3D 28 37 30 31 2C 37 |00 ;AX=(701,7| 00000FC0: 30 30 29 2E 0D 20 20 20 20 20 20 54 58 41 20 20 |00).. TXA | 00000FD0: 20 20 20 20 20 20 20 3B 4F 50 47 45 48 4F 4F 47 | ;OPGEHOOG| 00000FE0: 44 20 41 44 52 45 53 0D 20 20 20 20 20 20 41 44 |D ADRES. AD| 00000FF0: 43 20 20 30 30 37 30 31 20 20 3B 41 59 3D 41 58 |C 00701 ;AY=AX| 00001000: 2B 28 59 29 20 49 4E 0D 20 20 20 20 20 20 53 54 |+(Y) IN. ST| 00001010: 41 20 20 31 30 38 20 20 20 20 3B 28 31 30 38 2C |A 108 ;(108,| 00001020: 31 30 37 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 |107).. LDA | 00001030: 20 30 30 37 36 33 0D 20 20 20 20 20 20 43 4D 50 | 00763. CMP| 00001040: 20 20 31 30 38 0D 20 20 20 20 20 20 42 43 43 20 | 108. BCC | 00001050: 20 41 58 43 48 32 0D 20 20 20 20 20 20 42 45 51 | AXCH2. BEQ| 00001060: 20 20 41 58 43 48 31 0D 20 20 20 20 20 20 42 43 | AXCH1. BC| 00001070: 53 20 20 41 58 43 48 33 0D 41 58 43 48 31 20 4C |S AXCH3.AXCH1 L| 00001080: 44 41 20 20 30 30 37 36 32 0D 20 20 20 20 20 20 |DA 00762. | 00001090: 43 4D 50 20 20 31 30 37 0D 20 20 20 20 20 20 42 |CMP 107. B| 000010A0: 43 53 20 20 41 58 43 48 33 0D 41 58 43 48 32 20 |CS AXCH3.AXCH2 | 000010B0: 49 4E 58 0D 41 58 43 48 33 20 52 54 53 0D 47 42 |INX.AXCH3 RTS.GB| 000010C0: 54 45 53 20 4C 44 58 20 23 30 35 30 20 20 20 20 |TES LDX #050 | 000010D0: 20 20 3B 41 42 3C 3D 53 4C 3C 3D 41 45 3F 0D 20 | ;AB<=SL<=AE?. | 000010E0: 20 20 20 20 20 4A 53 52 20 20 56 4C 31 41 41 20 | JSR VL1AA | 000010F0: 20 20 20 3B 53 4C 3D 28 32 35 32 2C 32 35 31 29 | ;SL=(252,251)| 00001100: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 |.. LDX #000| 00001110: 20 20 20 20 20 20 3B 4E 45 45 3A 28 58 29 3D 31 | ;NEE:(X)=1| 00001120: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001130: 20 20 20 20 20 20 3B 20 4A 41 3A 28 58 29 3D 30 | ; JA:(X)=0| 00001140: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 56 47 4C |.. JSR VGL| 00001150: 41 42 20 20 20 20 3B 53 4C 3A 3A 41 42 2E 0D 20 |AB ;SL::AB.. | 00001160: 20 20 20 20 20 42 43 43 20 20 47 42 54 45 31 0D | BCC GBTE1.| 00001170: 20 20 20 20 20 20 4C 44 58 20 23 30 35 32 0D 20 | LDX #052. | 00001180: 20 20 20 20 20 4A 53 52 20 20 56 4C 31 41 41 0D | JSR VL1AA.| 00001190: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 0D 20 | LDX #000. | 000011A0: 20 20 20 20 20 4A 53 52 20 20 56 47 4C 41 42 20 | JSR VGLAB | 000011B0: 20 20 20 3B 53 4C 3A 3A 41 45 2E 0D 20 20 20 20 | ;SL::AE.. | 000011C0: 20 20 42 45 51 20 20 47 42 54 45 32 0D 20 20 20 | BEQ GBTE2. | 000011D0: 20 20 20 42 43 43 20 20 47 42 54 45 32 0D 47 42 | BCC GBTE2.GB| 000011E0: 54 45 31 20 49 4E 58 0D 47 42 54 45 32 20 52 54 |TE1 INX.GBTE2 RT| 000011F0: 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |S. NOP. | 00001200: 20 20 20 20 20 2A 3D 33 35 37 30 36 0D 4C 45 4E | *=35706.LEN| 00001210: 4F 4F 20 4C 44 59 20 23 30 30 30 20 20 20 20 20 |OO LDY #000 | 00001220: 20 3B 4C 45 4E 47 54 45 20 4F 50 0D 20 20 20 20 | ;LENGTE OP. | 00001230: 20 20 54 59 41 20 20 20 20 20 20 20 20 20 20 20 | TYA | 00001240: 3B 4E 55 4C 20 5A 45 54 54 45 4E 2E 0D 20 20 20 |;NUL ZETTEN.. | 00001250: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 00001260: 20 20 20 20 20 52 54 53 0D 56 4C 32 41 44 20 4C | RTS.VL2AD L| 00001270: 44 41 20 20 34 30 39 32 38 2C 58 20 3B 28 58 29 |DA 40928,X ;(X)| 00001280: 3D 30 3A 52 55 2E 20 49 4E 0D 20 20 20 20 20 20 |=0:RU. IN. | 00001290: 53 54 41 20 20 32 35 33 20 20 20 20 20 3B 28 58 |STA 253 ;(X| 000012A0: 29 3D 32 3A 4C 55 2E 20 32 35 34 0D 20 20 20 20 |)=2:LU. 254. | 000012B0: 20 20 4C 44 41 20 20 34 30 39 32 39 2C 58 20 3B | LDA 40929,X ;| 000012C0: 28 58 29 3D 34 3A 5A 55 2E 20 45 4E 0D 20 20 20 |(X)=4:ZU. EN. | 000012D0: 20 20 20 53 54 41 20 20 32 35 34 20 20 20 20 20 | STA 254 | 000012E0: 3B 28 58 29 3D 38 3A 57 55 2E 20 32 35 33 2E 0D |;(X)=8:WU. 253..| 000012F0: 20 20 20 20 20 20 52 54 53 0D 56 4C 32 41 41 20 | RTS.VL2AA | 00001300: 4C 44 41 20 20 34 30 39 32 38 2C 58 20 3B 5A 49 |LDA 40928,X ;ZI| 00001310: 45 20 42 4F 56 45 4E 2E 0D 20 20 20 20 20 20 53 |E BOVEN.. S| 00001320: 54 41 20 20 31 30 39 20 20 20 20 20 3B 49 4E 20 |TA 109 ;IN | 00001330: 31 31 30 20 45 4E 20 31 30 39 2E 0D 20 20 20 20 |110 EN 109.. | 00001340: 20 20 4C 44 41 20 20 34 30 39 32 39 2C 58 0D 20 | LDA 40929,X. | 00001350: 20 20 20 20 20 53 54 41 20 20 31 31 30 0D 20 20 | STA 110. | 00001360: 20 20 20 20 52 54 53 0D 41 44 42 49 20 20 4C 44 | RTS.ADBI LD| 00001370: 41 20 20 32 35 34 20 20 20 20 3B 28 32 35 34 2C |A 254 ;(254,| 00001380: 32 35 33 29 20 3D 3E 0D 20 20 20 20 20 20 53 54 |253) =>. ST| 00001390: 41 20 20 32 35 32 20 20 20 20 3B 28 32 35 32 2C |A 252 ;(252,| 000013A0: 32 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 |251).. LDA | 000013B0: 20 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 20 | 253. STA | 000013C0: 32 35 31 0D 20 20 20 20 20 20 52 54 53 0D 41 44 |251. RTS.AD| 000013D0: 41 42 49 20 53 45 43 20 20 20 20 20 20 20 20 20 |ABI SEC | 000013E0: 3B 28 32 35 34 2C 32 35 33 29 20 2D 0D 20 20 20 |;(254,253) -. | 000013F0: 20 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 3B | LDA 253 ;| 00001400: 28 31 31 30 2C 31 30 39 29 20 3D 3E 0D 20 20 20 |(110,109) =>. | 00001410: 20 20 20 53 42 43 20 20 31 30 39 20 20 20 20 3B | SBC 109 ;| 00001420: 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 |(252,251).. | 00001430: 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 | STA 251. | 00001440: 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 20 53 |LDA 254. S| 00001450: 42 43 20 20 31 31 30 0D 20 20 20 20 20 20 53 54 |BC 110. ST| 00001460: 41 20 20 32 35 32 0D 20 20 20 20 20 20 52 54 53 |A 252. RTS| 00001470: 0D 52 45 47 42 49 20 4A 53 52 20 20 41 44 41 42 |.REGBI JSR ADAB| 00001480: 49 20 20 3B 5B 28 32 35 34 2C 32 35 33 29 20 2D |I ;[(254,253) -| 00001490: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 36 20 |. LDA #006 | 000014A0: 20 20 20 3B 20 28 31 31 30 2C 31 30 39 29 5D 2F | ; (110,109)]/| 000014B0: 36 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 37 |6. STA 107| 000014C0: 20 20 20 20 3B 20 3D 3E 20 28 32 35 32 2C 32 35 | ; => (252,25| 000014D0: 31 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |1).. LDA #0| 000014E0: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 |00. STA 10| 000014F0: 38 0D 20 20 20 20 20 20 4A 53 52 20 20 44 49 56 |8. JSR DIV| 00001500: 41 46 0D 20 20 20 20 20 20 4A 53 52 20 20 41 44 |AF. JSR AD| 00001510: 42 49 20 0D 20 20 20 20 20 20 52 54 53 0D 4C 41 |BI . RTS.LA| 00001520: 42 42 49 20 4A 53 52 20 20 41 44 41 42 49 20 20 |BBI JSR ADABI | 00001530: 3B 5B 28 32 35 34 2C 32 35 33 29 20 2D 0D 20 20 |;[(254,253) -. | 00001540: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 00001550: 3B 20 28 31 31 30 2C 31 30 39 29 5D 2F 32 0D 20 |; (110,109)]/2. | 00001560: 20 20 20 20 20 52 4F 52 20 20 32 35 32 20 20 20 | ROR 252 | 00001570: 20 3B 20 3D 3E 20 28 32 35 32 2C 32 35 31 29 2E | ; => (252,251).| 00001580: 0D 20 20 20 20 20 20 52 4F 52 20 20 32 35 31 0D |. ROR 251.| 00001590: 20 20 20 20 20 20 52 54 53 0D 43 48 45 43 4B 20 | RTS.CHECK | 000015A0: 4C 44 58 20 23 30 30 38 20 20 20 20 3B 27 43 4F |LDX #008 ;'CO| 000015B0: 4E 54 52 4F 4C 45 2E 2E 0D 20 20 20 20 20 20 4A |NTROLE... J| 000015C0: 53 52 20 20 53 43 4E 54 58 20 20 3B 20 3C 46 3E |SR SCNTX ; <F>| 000015D0: 2E 27 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |.'. LDX #00| 000015E0: 31 20 20 20 20 3B 31 20 54 45 4B 45 4E 2E 0D 20 |1 ;1 TEKEN.. | 000015F0: 20 20 20 20 20 4A 53 52 20 20 54 58 54 49 4E 20 | JSR TXTIN | 00001600: 20 3B 41 43 43 45 50 54 2E 0D 20 20 20 20 20 20 | ;ACCEPT.. | 00001610: 4C 44 58 20 23 30 30 30 20 20 20 20 3B 27 47 27 |LDX #000 ;'G'| 00001620: 3A 28 58 29 3D 30 2E 0D 20 20 20 20 20 20 4C 44 |:(X)=0.. LD| 00001630: 59 20 23 30 30 31 20 20 20 20 3B 27 46 27 3A 28 |Y #001 ;'F':(| 00001640: 58 29 3D 31 2E 0D 20 20 20 20 20 20 4C 44 41 20 |X)=1.. LDA | 00001650: 28 32 35 33 29 2C 59 20 3B 54 45 4B 45 4E 2E 0D |(253),Y ;TEKEN..| 00001660: 20 20 20 20 20 20 43 4D 50 20 23 30 37 31 20 20 | CMP #071 | 00001670: 20 20 3B 27 47 27 3F 0D 20 20 20 20 20 20 42 45 | ;'G'?. BE| 00001680: 51 20 43 48 45 43 31 20 20 20 3B 20 4A 41 3A 28 |Q CHEC1 ; JA:(| 00001690: 58 29 3D 30 2E 0D 20 20 20 20 20 20 49 4E 58 20 |X)=0.. INX | 000016A0: 20 20 20 20 20 20 20 20 3B 4E 45 45 3A 28 58 29 | ;NEE:(X)| 000016B0: 3D 31 2E 0D 43 48 45 43 31 20 52 54 53 20 20 20 |=1..CHEC1 RTS | 000016C0: 20 20 20 20 20 20 3B 54 45 52 55 47 2E 0D 41 44 | ;TERUG..AD| 000016D0: 4D 41 44 20 53 54 59 20 20 30 30 32 20 20 20 20 |MAD STY 002 | 000016E0: 3B 41 44 52 45 53 49 4E 48 4F 55 44 0D 20 20 20 |;ADRESINHOUD. | 000016F0: 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B | LDY #000 ;| 00001700: 28 28 32 35 34 2C 32 35 33 29 29 0D 20 20 20 20 |((254,253)). | 00001710: 20 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 56 | SEC ;V| 00001720: 45 52 4D 49 4E 44 45 52 45 4E 0D 20 20 20 20 20 |ERMINDEREN. | 00001730: 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4D 45 | LDA (253),Y ;ME| 00001740: 54 20 28 59 29 20 45 4E 0D 20 20 20 20 20 20 53 |T (Y) EN. S| 00001750: 42 43 20 20 30 30 32 20 20 20 20 3B 54 45 56 45 |BC 002 ;TEVE| 00001760: 4E 53 20 28 59 29 3D 30 0D 20 20 20 20 20 20 53 |NS (Y)=0. S| 00001770: 54 41 20 28 32 35 33 29 2C 59 20 3B 47 45 5A 45 |TA (253),Y ;GEZE| 00001780: 54 2E 0D 20 20 20 20 20 20 52 54 53 0D 4F 50 52 |T.. RTS.OPR| 00001790: 47 4C 20 4C 44 58 20 23 30 32 34 20 20 20 20 3B |GL LDX #024 ;| 000017A0: 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 |OPEN REGEL.. | 000017B0: 20 20 4A 53 52 20 20 53 43 4E 54 58 0D 20 20 20 | JSR SCNTX. | 000017C0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 2E 4C 49 | RTS. .LI| 000017D0: 42 20 44 49 4C 4E 30 31 0D 20 20 20 20 20 20 2E |B DILN01. .| 000017E0: 45 4E 44 0D |END. |
*=35350. ;.
;DISSEMBLER.
;SUBROUTINES. ; DE
EL III.. ;.
;LABELSORT.. ;.LA
BSR LDX 40929 ;(252,251)=LU.. STX
252 ;(X,Y)=LU.. LDY 40928.
STY 251 ;TE VOREN:. CPX 108
;A(N+1)=LX IN. BNE LSR01 ;(10
8,107).. CPY 107 ;LX=LU:TABEL.
BEQ LSR14 ;IS LEEG..LSR01 SEC.
LDA 107 ;(110,109)=A(N),. SB
C #002 ;MET LX-2.. STA 109.
LDA 108. SBC #000. STA 110
. CLC ;(252,251)=A(L)..
BCC LSR03.LSR02 CLC ;A(L+1)=>
A(L).. LDA 251. ADC #002.
STA 251. TAY ;(X,Y)=A(L)
.. LDA 252. ADC #000. ST
A 252. TAX.LSR03 CPX 110 ;VERG
ELIJK. BCC LSR05 ;MET A(N)..
BEQ LSR04. BCS LSR14.LSR04 CPY
109 ;A(L)=A(N):. BCS LSR14 ;KL
AAR..LSR05 CLC.LSR06 TYA ;A(H)<A
(N):. ADC #002 ;A(L+1)=>A(H)..
STA 253. TXA. ADC #000.
STA 254. LDA 110 ;A(N)<A(H
)?. CMP 254. BCC LSR02 ;JA:
HOOG L OP.. BEQ LSR07. BCS L
SR08.LSR07 LDA 109. CMP 253.
BCC LSR02.LSR08 LDY #001 ;NEEN:VERG
ELIJK.LSR09 LDA (251),Y ;ITEMS L MET H..
CMP (253),Y. BCC LSR13.
BEQ LSR10. BCS LSR11.LSR10 DEY
;PAK L.S.. BPL LSR09.
BMI LSR13 ;GELIJK:H+1..LSR11 LDY #001
;GROTER:.LSR12 LDA (253),Y ;ITEMS L E
N H. TAX ;VERWISSELEN..
LDA (251),Y. STA (253),Y. TX
A. STA (251),Y. DEY. BPL
LSR12.LSR13 LDY 253 ;HERSTEL (Y)..
LDX 254 ;HERSTEL (X).. CLC
. BCC LSR06.LSR14 RTS.
;. ;TEKST ACCEPT.
;VAN TOETSBORD..
;.TXTIN STX 251 ;(X)=MAX
IMALE. LDA #042 ;LENGTE IN.
STA 252 ;STERREN.. LDX #010
;BEGINADRES. JSR VL2AD ;WERKVELD
.. JSR ELVUL ;VULLEN.. JSR
ELSCR ;OP SCHERM.. LDA #157 ;PI
JL TERUG.. STA 252. JSR ELVU
L ;VULLEN.. JSR ELSCR ;OP SCHERM
.. INC 251 ;LENGTE+1.. LDA
#013 ;<RETURN> ALS. STA 252
;SLUITTOETS.. JSR KEYAC ;ACCEPT.
. RTS. NOP. NOP. NOP
.ADRIN LDA 00756 ;VRAAG BEGIN- OF.
BEQ ADRI1 ;EINDADRES.. INX
;(X)=11(BEGIN)..ADRI1 JSR SCNTX ;(
X)=13(EIND).. LDX #004 ;DC=(756)
.. LDA 00756 ;DC=1:DECIM.. B
EQ ADRI2 ;HEX.4, DEC.5.. INX.ADRI
2 JSR TXTIN ;ACCEPT 4 OF 5. LDY #
001 ;TEKENS.. JSR ADPAD ;ADRES
+1.. LDA 00756. BEQ ADRI3.
JSR DCBI2 ;CONVERSIE DEC.. RT
S ;NAAR H.P..ADRI3 JSR HXBI2 ;
CONVERSIE HEX.. RTS ;NAAR H
.P.. NOP. NOP. *=35558
.INTVL LDX #005 ;INTERVALTEST..INTV1
TXA ; <(711,710) 0.. CLC
;>=(711,710) 1.. .BYTE $2A
;>=(713,712) 2.. TAY ;
>=(715,714) 3.. LDA 00710,Y ;>=(71
7,716) 4.. STA 109 ;>=(719,718
) 5.. LDA 00711,Y. STA 110
;(Y) MET (X)*2.. JSR VGLAB ;(
252,251) ::. BEQ INTV2 ;(110,109
).. BCC INTV2 ;(C)=0: <.. D
EX. BNE INTV1.INTV2 RTS. NOP.
NOP. NOP. NOP. *
=35590.UTGZD LDX #030 ;TEKST. JS
R VL1BI ;'UITGEZONDERD'. JSR VUL
XX ;'VELD XX. SEC ; T/M YY
.'. LDA 00742 ;VAN=(741,740)..
SBC #001 ;TOT=(743,742).. STA
251 ;SUBPROG.DOET. LDA 00743
;TOT - 1 =T/M.. SBC #000. STA
252. JSR VULYY. JSR ADVTX
;VOORBLOK.. LDX #004 ;TEKST #4.
. JSR SCNTX ;OUTPUT SCHERM..
RTS. NOP. NOP. NOP.
*=35630.AXRBV LDA #035 ;ADRES AX
OP. STA 253 ;SCHERM BOVEN.
LDA 00648 ;RECHTS:POS.35. STA 2
54 ;REGEL 1.. JSR BIDC2. R
TS.AXCHK CLC ;ADRES CHECK.
TYA ;AX+(Y)>AE?. ADC 00700
; JA:(X)=1.. STA 107 ;NEE:(X)
=0.. LDX #000 ;AX=(701,700)..
TXA ;OPGEHOOGD ADRES. AD
C 00701 ;AY=AX+(Y) IN. STA 108
;(108,107).. LDA 00763. CMP
108. BCC AXCH2. BEQ AXCH1.
BCS AXCH3.AXCH1 LDA 00762.
CMP 107. BCS AXCH3.AXCH2 INX.AXCH
3 RTS.GBTES LDX #050 ;AB<=SL<=AE?.
JSR VL1AA ;SL=(252,251)..
LDX #000 ;NEE:(X)=1..
; JA:(X)=0.. JSR VGLAB ;S
L::AB.. BCC GBTE1. LDX #052.
JSR VL1AA. LDX #000. JSR
VGLAB ;SL::AE.. BEQ GBTE2.
BCC GBTE2.GBTE1 INX.GBTE2 RTS.
NOP. *=35706.LENOO LDY #000
;LENGTE OP. TYA ;NUL ZET
TEN.. STA (253),Y. RTS.VL2AD L
DA 40928,X ;(X)=0:RU. IN. STA 253
;(X)=2:LU. 254. LDA 40929,X ;
(X)=4:ZU. EN. STA 254 ;(X)=8:W
U. 253.. RTS.VL2AA LDA 40928,X ;ZI
E BOVEN.. STA 109 ;IN 110 EN 1
09.. LDA 40929,X. STA 110.
RTS.ADBI LDA 254 ;(254,253) =>.
STA 252 ;(252,251).. LDA
253. STA 251. RTS.ADABI SEC
;(254,253) -. LDA 253 ;
(110,109) =>. SBC 109 ;(252,251
).. STA 251. LDA 254. S
BC 110. STA 252. RTS.REGBI J
SR ADABI ;[(254,253) -. LDA #006
; (110,109)]/6. STA 107 ; =>
(252,251).. LDA #000. STA 10
8. JSR DIVAF. JSR ADBI .
RTS.LABBI JSR ADABI ;[(254,253) -.
CLC ; (110,109)]/2. ROR
252 ; => (252,251).. ROR 251.
RTS.CHECK LDX #008 ;'CONTROLE..
. JSR SCNTX ; <F>.'. LDX #00
1 ;1 TEKEN.. JSR TXTIN ;ACCEPT
.. LDX #000 ;'G':(X)=0.. LD
Y #001 ;'F':(X)=1.. LDA (253),Y
;TEKEN.. CMP #071 ;'G'?. BE
Q CHEC1 ; JA:(X)=0.. INX
;NEE:(X)=1..CHEC1 RTS ;TERUG..AD
MAD STY 002 ;ADRESINHOUD. LDY #
000 ;((254,253)). SEC ;V
ERMINDEREN. LDA (253),Y ;MET (Y) EN
. SBC 002 ;TEVENS (Y)=0. S
TA (253),Y ;GEZET.. RTS.OPRGL LDX #
024 ;OPEN REGEL.. JSR SCNTX.
RTS. .LIB DILN01. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL