DISN02
FILE INFORMATION
FILENAME(S): DISN02
FILE TYPE(S): SEQ
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
4e8ca5489069929d40745102a971dacd9c9a1d81b4a95aea045cfbd4f3e63f76
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES 2 | DISN02 | SEQ | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 38 30 31 36 | *=38016| 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 4C 41 42 45 4C 53 4F 52 | ;LABELSOR| 00000040: 54 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T.. | 00000050: 20 20 20 20 20 3B 0D 4C 41 42 53 52 20 4C 44 58 | ;.LABSR LDX| 00000060: 20 20 34 30 39 32 39 20 20 3B 28 32 35 32 2C 32 | 40929 ;(252,2| 00000070: 35 31 29 3D 4C 55 2E 0D 20 20 20 20 20 20 53 54 |51)=LU.. ST| 00000080: 58 20 20 32 35 32 20 20 20 20 3B 28 58 2C 59 29 |X 252 ;(X,Y)| 00000090: 3D 4C 55 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 |=LU.. LDY | 000000A0: 34 30 39 32 38 0D 20 20 20 20 20 20 53 54 59 20 |40928. STY | 000000B0: 20 32 35 31 20 20 20 20 3B 54 45 20 56 4F 52 45 | 251 ;TE VORE| 000000C0: 4E 3A 0D 20 20 20 20 20 20 43 50 58 20 20 31 30 |N:. CPX 10| 000000D0: 38 20 20 20 20 3B 41 28 4E 2B 31 29 3D 4C 58 20 |8 ;A(N+1)=LX | 000000E0: 49 4E 0D 20 20 20 20 20 20 42 4E 45 20 20 4C 41 |IN. BNE LA| 000000F0: 42 30 31 20 20 3B 28 31 30 38 2C 31 30 37 29 2E |B01 ;(108,107).| 00000100: 0D 20 20 20 20 20 20 43 50 59 20 20 31 30 37 20 |. CPY 107 | 00000110: 20 20 20 3B 4C 58 3D 4C 55 3A 54 41 42 45 4C 0D | ;LX=LU:TABEL.| 00000120: 20 20 20 20 20 20 42 45 51 20 20 4C 41 42 31 34 | BEQ LAB14| 00000130: 20 20 3B 49 53 20 4C 45 45 47 2E 0D 4C 41 42 30 | ;IS LEEG..LAB0| 00000140: 31 20 53 45 43 0D 20 20 20 20 20 20 4C 44 41 20 |1 SEC. LDA | 00000150: 20 31 30 37 20 20 20 20 3B 28 31 31 30 2C 31 30 | 107 ;(110,10| 00000160: 39 29 3D 41 28 4E 29 2C 0D 20 20 20 20 20 20 53 |9)=A(N),. S| 00000170: 42 43 20 23 30 30 32 20 20 20 20 3B 4D 45 54 20 |BC #002 ;MET | 00000180: 4C 58 2D 32 2E 0D 20 20 20 20 20 20 53 54 41 20 |LX-2.. STA | 00000190: 20 31 30 39 0D 20 20 20 20 20 20 4C 44 41 20 20 | 109. LDA | 000001A0: 31 30 38 0D 20 20 20 20 20 20 53 42 43 20 23 30 |108. SBC #0| 000001B0: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 31 |00. STA 11| 000001C0: 30 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |0. CLC | 000001D0: 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 3D 41 | ;(252,251)=A| 000001E0: 28 4C 29 2E 0D 20 20 20 20 20 20 42 43 43 20 20 |(L).. BCC | 000001F0: 4C 41 42 30 33 0D 4C 41 42 30 32 20 43 4C 43 20 |LAB03.LAB02 CLC | 00000200: 20 20 20 20 20 20 20 20 3B 41 28 4C 2B 31 29 3D | ;A(L+1)=| 00000210: 3E 41 28 4C 29 2E 0D 20 20 20 20 20 20 4C 44 41 |>A(L).. LDA| 00000220: 20 20 32 35 31 0D 20 20 20 20 20 20 41 44 43 20 | 251. ADC | 00000230: 23 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 20 |#002. STA | 00000240: 32 35 31 0D 20 20 20 20 20 20 54 41 59 20 20 20 |251. TAY | 00000250: 20 20 20 20 20 20 3B 28 58 2C 59 29 3D 41 28 4C | ;(X,Y)=A(L| 00000260: 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |).. LDA 25| 00000270: 32 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 |2. ADC #000| 00000280: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D |. STA 252.| 00000290: 20 20 20 20 20 20 54 41 58 0D 4C 41 42 30 33 20 | TAX.LAB03 | 000002A0: 43 50 58 20 20 31 31 30 20 20 20 20 3B 56 45 52 |CPX 110 ;VER| 000002B0: 47 45 4C 49 4A 4B 0D 20 20 20 20 20 20 42 43 43 |GELIJK. BCC| 000002C0: 20 20 4C 41 42 30 35 20 20 3B 4D 45 54 20 41 28 | LAB05 ;MET A(| 000002D0: 4E 29 2E 0D 20 20 20 20 20 20 42 45 51 20 20 4C |N).. BEQ L| 000002E0: 41 42 30 34 0D 20 20 20 20 20 20 42 43 53 20 20 |AB04. BCS | 000002F0: 4C 41 42 31 34 0D 4C 41 42 30 34 20 43 50 59 20 |LAB14.LAB04 CPY | 00000300: 20 31 30 39 20 20 20 20 3B 41 28 4C 29 3D 41 28 | 109 ;A(L)=A(| 00000310: 4E 29 3A 0D 20 20 20 20 20 20 42 43 53 20 20 4C |N):. BCS L| 00000320: 41 42 31 34 20 20 3B 4B 4C 41 41 52 2E 0D 4C 41 |AB14 ;KLAAR..LA| 00000330: 42 30 35 20 43 4C 43 0D 4C 41 42 30 36 20 54 59 |B05 CLC.LAB06 TY| 00000340: 41 20 20 20 20 20 20 20 20 20 3B 41 28 48 29 3C |A ;A(H)<| 00000350: 41 28 4E 29 3A 0D 20 20 20 20 20 20 41 44 43 20 |A(N):. ADC | 00000360: 23 30 30 32 20 20 20 20 3B 41 28 4C 2B 31 29 3D |#002 ;A(L+1)=| 00000370: 3E 41 28 48 29 2E 0D 20 20 20 20 20 20 53 54 41 |>A(H).. STA| 00000380: 20 20 32 35 33 0D 20 20 20 20 20 20 54 58 41 0D | 253. TXA.| 00000390: 20 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 | ADC #000. | 000003A0: 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 | STA 254. | 000003B0: 20 20 20 20 4C 44 41 20 20 31 31 30 20 20 20 20 | LDA 110 | 000003C0: 3B 41 28 4E 29 3C 41 28 48 29 3F 0D 20 20 20 20 |;A(N)<A(H)?. | 000003D0: 20 20 43 4D 50 20 20 32 35 34 0D 20 20 20 20 20 | CMP 254. | 000003E0: 20 42 43 43 20 20 4C 41 42 30 32 20 20 3B 4A 41 | BCC LAB02 ;JA| 000003F0: 3A 48 4F 4F 47 20 4C 20 4F 50 2E 0D 20 20 20 20 |:HOOG L OP.. | 00000400: 20 20 42 45 51 20 20 4C 41 42 30 37 0D 20 20 20 | BEQ LAB07. | 00000410: 20 20 20 42 43 53 20 20 4C 41 42 30 38 0D 4C 41 | BCS LAB08.LA| 00000420: 42 30 37 20 4C 44 41 20 20 31 30 39 0D 20 20 20 |B07 LDA 109. | 00000430: 20 20 20 43 4D 50 20 20 32 35 33 0D 20 20 20 20 | CMP 253. | 00000440: 20 20 42 43 43 20 20 4C 41 42 30 32 0D 4C 41 42 | BCC LAB02.LAB| 00000450: 30 38 20 4C 44 59 20 23 30 30 31 20 20 20 20 3B |08 LDY #001 ;| 00000460: 4E 45 45 4E 3A 56 45 52 47 45 4C 49 4A 4B 0D 4C |NEEN:VERGELIJK.L| 00000470: 41 42 30 39 20 4C 44 41 20 28 32 35 31 29 2C 59 |AB09 LDA (251),Y| 00000480: 20 3B 49 54 45 4D 53 20 4C 20 4D 45 54 20 48 2E | ;ITEMS L MET H.| 00000490: 0D 20 20 20 20 20 20 43 4D 50 20 28 32 35 33 29 |. CMP (253)| 000004A0: 2C 59 0D 20 20 20 20 20 20 42 43 43 20 20 4C 41 |,Y. BCC LA| 000004B0: 42 31 33 0D 20 20 20 20 20 20 42 45 51 20 20 4C |B13. BEQ L| 000004C0: 41 42 31 30 0D 20 20 20 20 20 20 42 43 53 20 20 |AB10. BCS | 000004D0: 4C 41 42 31 31 0D 4C 41 42 31 30 20 44 45 59 20 |LAB11.LAB10 DEY | 000004E0: 20 20 20 20 20 20 20 20 3B 50 41 4B 20 4C 2E 53 | ;PAK L.S| 000004F0: 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 4C 41 42 |.. BPL LAB| 00000500: 30 39 0D 20 20 20 20 20 20 42 4D 49 20 20 4C 41 |09. BMI LA| 00000510: 42 31 33 20 20 3B 47 45 4C 49 4A 4B 3A 48 2B 31 |B13 ;GELIJK:H+1| 00000520: 2E 0D 4C 41 42 31 31 20 4C 44 59 20 23 30 30 31 |..LAB11 LDY #001| 00000530: 20 20 20 20 3B 47 52 4F 54 45 52 3A 0D 4C 41 42 | ;GROTER:.LAB| 00000540: 31 32 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B |12 LDA (253),Y ;| 00000550: 49 54 45 4D 53 20 4C 20 45 4E 20 48 0D 20 20 20 |ITEMS L EN H. | 00000560: 20 20 20 54 41 58 20 20 20 20 20 20 20 20 20 3B | TAX ;| 00000570: 56 45 52 57 49 53 53 45 4C 45 4E 2E 0D 20 20 20 |VERWISSELEN.. | 00000580: 20 20 20 4C 44 41 20 28 32 35 31 29 2C 59 0D 20 | LDA (251),Y. | 00000590: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 000005A0: 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 |. TXA. | 000005B0: 20 53 54 41 20 28 32 35 31 29 2C 59 0D 20 20 20 | STA (251),Y. | 000005C0: 20 20 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C | DEY. BPL| 000005D0: 20 20 4C 41 42 31 32 0D 4C 41 42 31 33 20 4C 44 | LAB12.LAB13 LD| 000005E0: 59 20 20 32 35 33 20 20 20 20 3B 48 45 52 53 54 |Y 253 ;HERST| 000005F0: 45 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 4C 44 |EL (Y).. LD| 00000600: 58 20 20 32 35 34 20 20 20 20 3B 48 45 52 53 54 |X 254 ;HERST| 00000610: 45 4C 20 28 58 29 2E 0D 20 20 20 20 20 20 43 4C |EL (X).. CL| 00000620: 43 0D 20 20 20 20 20 20 42 43 43 20 20 4C 41 42 |C. BCC LAB| 00000630: 30 36 0D 4C 41 42 31 34 20 52 54 53 0D 20 20 20 |06.LAB14 RTS. | 00000640: 20 20 20 20 20 20 2A 3D 33 38 31 34 34 0D 20 20 | *=38144. | 00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000660: 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;. | 00000670: 20 20 20 20 3B 54 45 4B 53 54 20 41 43 43 45 50 | ;TEKST ACCEP| 00000680: 54 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T. | 00000690: 20 20 20 20 3B 56 41 4E 20 54 4F 45 54 53 42 4F | ;VAN TOETSBO| 000006A0: 52 44 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |RD.. | 000006B0: 20 20 20 20 20 20 3B 0D 54 58 54 49 4E 20 53 54 | ;.TXTIN ST| 000006C0: 58 20 20 32 35 31 20 20 20 20 3B 28 58 29 3D 4D |X 251 ;(X)=M| 000006D0: 41 58 49 4D 41 4C 45 0D 20 20 20 20 20 20 4C 44 |AXIMALE. LD| 000006E0: 41 20 23 30 34 32 20 20 20 20 3B 4C 45 4E 47 54 |A #042 ;LENGT| 000006F0: 45 20 49 4E 0D 20 20 20 20 20 20 53 54 41 20 20 |E IN. STA | 00000700: 32 35 32 20 20 20 20 3B 53 54 45 52 52 45 4E 2E |252 ;STERREN.| 00000710: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 31 30 20 |. LDX #010 | 00000720: 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 0D 20 | ;BEGINADRES. | 00000730: 20 20 20 20 20 4A 53 52 20 20 56 4C 32 41 44 20 | JSR VL2AD | 00000740: 20 3B 57 45 52 4B 56 45 4C 44 2E 0D 20 20 20 20 | ;WERKVELD.. | 00000750: 20 20 4A 53 52 20 20 45 4C 56 55 4C 20 20 3B 56 | JSR ELVUL ;V| 00000760: 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 |ULLEN.. JSR| 00000770: 20 20 45 4C 53 43 52 20 20 3B 4F 50 20 53 43 48 | ELSCR ;OP SCH| 00000780: 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |ERM.. LDA #| 00000790: 31 35 37 20 20 20 20 3B 50 49 4A 4C 20 54 45 52 |157 ;PIJL TER| 000007A0: 55 47 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |UG.. STA 2| 000007B0: 35 32 0D 20 20 20 20 20 20 4A 53 52 20 20 45 4C |52. JSR EL| 000007C0: 56 55 4C 20 20 3B 56 55 4C 4C 45 4E 2E 0D 20 20 |VUL ;VULLEN.. | 000007D0: 20 20 20 20 4A 53 52 20 20 45 4C 53 43 52 20 20 | JSR ELSCR | 000007E0: 3B 4F 50 20 53 43 48 45 52 4D 2E 0D 20 20 20 20 |;OP SCHERM.. | 000007F0: 20 20 49 4E 43 20 20 32 35 31 20 20 20 20 3B 4C | INC 251 ;L| 00000800: 45 4E 47 54 45 2B 31 2E 0D 20 20 20 20 20 20 4C |ENGTE+1.. L| 00000810: 44 41 20 23 30 31 33 20 20 20 20 3B 3C 52 45 54 |DA #013 ;<RET| 00000820: 55 52 4E 3E 20 41 4C 53 0D 20 20 20 20 20 20 53 |URN> ALS. S| 00000830: 54 41 20 20 32 35 32 20 20 20 20 3B 53 4C 55 49 |TA 252 ;SLUI| 00000840: 54 54 4F 45 54 53 2E 0D 20 20 20 20 20 20 4A 53 |TTOETS.. JS| 00000850: 52 20 20 4B 45 59 41 43 20 20 3B 41 43 43 45 50 |R KEYAC ;ACCEP| 00000860: 54 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |T.. RTS | 00000870: 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D | ;NAAR H.P..| 00000880: 20 20 20 20 20 20 4E 4F 50 0D 41 44 52 49 4E 20 | NOP.ADRIN | 00000890: 4C 44 41 20 20 30 30 37 35 36 20 20 3B 56 52 41 |LDA 00756 ;VRA| 000008A0: 41 47 20 42 45 47 49 4E 2D 20 4F 46 0D 20 20 20 |AG BEGIN- OF. | 000008B0: 20 20 20 42 45 51 20 20 41 44 52 30 31 20 20 3B | BEQ ADR01 ;| 000008C0: 45 49 4E 44 41 44 52 45 53 2E 0D 20 20 20 20 20 |EINDADRES.. | 000008D0: 20 49 4E 58 20 20 20 20 20 20 20 20 20 3B 28 58 | INX ;(X| 000008E0: 29 3D 31 31 28 42 45 47 49 4E 29 2E 0D 41 44 52 |)=11(BEGIN)..ADR| 000008F0: 30 31 20 4A 53 52 20 20 53 43 4E 54 58 20 20 3B |01 JSR SCNTX ;| 00000900: 28 58 29 3D 31 33 28 45 49 4E 44 29 2E 0D 20 20 |(X)=13(EIND).. | 00000910: 20 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 | LDX #004 | 00000920: 3B 44 43 3D 28 37 35 36 29 2E 0D 20 20 20 20 20 |;DC=(756).. | 00000930: 20 4C 44 41 20 20 30 30 37 35 36 20 20 3B 44 43 | LDA 00756 ;DC| 00000940: 3D 31 3A 44 45 43 49 4D 2E 0D 20 20 20 20 20 20 |=1:DECIM.. | 00000950: 42 45 51 20 20 41 44 52 30 32 20 20 3B 48 45 58 |BEQ ADR02 ;HEX| 00000960: 2E 34 2C 20 44 45 43 2E 35 2E 0D 20 20 20 20 20 |.4, DEC.5.. | 00000970: 20 49 4E 58 0D 41 44 52 30 32 20 4A 53 52 20 20 | INX.ADR02 JSR | 00000980: 54 58 54 49 4E 20 20 3B 41 43 43 45 50 54 20 34 |TXTIN ;ACCEPT 4| 00000990: 20 4F 46 20 35 0D 20 20 20 20 20 20 4C 44 59 20 | OF 5. LDY | 000009A0: 23 30 30 31 20 20 20 20 3B 54 45 4B 45 4E 53 2E |#001 ;TEKENS.| 000009B0: 0D 20 20 20 20 20 20 4A 53 52 20 20 41 44 50 41 |. JSR ADPA| 000009C0: 44 20 20 3B 41 44 52 45 53 2B 31 2E 0D 20 20 20 |D ;ADRES+1.. | 000009D0: 20 20 20 4C 44 41 20 20 30 30 37 35 36 20 20 3B | LDA 00756 ;| 000009E0: 44 43 20 4E 4F 47 20 45 45 4E 53 2E 0D 20 20 20 |DC NOG EENS.. | 000009F0: 20 20 20 42 45 51 20 20 41 44 52 30 33 0D 20 20 | BEQ ADR03. | 00000A00: 20 20 20 20 4A 53 52 20 20 44 43 42 49 32 20 20 | JSR DCBI2 | 00000A10: 3B 43 4F 4E 56 45 52 53 49 45 20 44 45 43 2E 0D |;CONVERSIE DEC..| 00000A20: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000A30: 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 41 44 52 | ;NAAR H.P..ADR| 00000A40: 30 33 20 4A 53 52 20 20 48 58 42 49 32 20 20 3B |03 JSR HXBI2 ;| 00000A50: 43 4F 4E 56 45 52 53 49 45 20 48 45 58 2E 0D 20 |CONVERSIE HEX.. | 00000A60: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000A70: 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 | ;NAAR H.P.. | 00000A80: 20 20 4E 4F 50 0D 49 4E 54 56 4C 20 4C 44 58 20 | NOP.INTVL LDX | 00000A90: 23 30 30 35 20 20 20 20 20 3B 49 4E 54 45 52 56 |#005 ;INTERV| 00000AA0: 41 4C 54 45 53 54 2E 0D 49 4E 54 56 31 20 54 58 |ALTEST..INTV1 TX| 00000AB0: 41 20 20 20 20 20 20 20 20 20 20 3B 28 32 35 32 |A ;(252| 00000AC0: 2C 32 35 31 29 20 4E 41 41 52 0D 20 20 20 20 20 |,251) NAAR. | 00000AD0: 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 3B 4E | CLC ;N| 00000AE0: 55 4D 4D 45 52 20 49 4E 20 28 58 29 2E 0D 20 20 |UMMER IN (X).. | 00000AF0: 20 20 20 20 2E 42 59 54 45 20 24 32 41 20 20 20 | .BYTE $2A | 00000B00: 20 3B 3C 20 28 37 31 31 2C 37 31 30 29 20 30 2E | ;< (711,710) 0.| 00000B10: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 00000B20: 20 20 20 20 3B 3E 3D 28 37 31 31 2C 37 31 30 29 | ;>=(711,710)| 00000B30: 20 31 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 | 1.. LDA 0| 00000B40: 30 37 31 30 2C 59 20 3B 3E 3D 28 37 31 33 2C 37 |0710,Y ;>=(713,7| 00000B50: 31 32 29 20 32 2E 0D 20 20 20 20 20 20 53 54 41 |12) 2.. STA| 00000B60: 20 20 31 30 39 20 20 20 20 20 3B 3E 3D 28 37 31 | 109 ;>=(71| 00000B70: 35 2C 37 31 34 29 20 33 2E 0D 20 20 20 20 20 20 |5,714) 3.. | 00000B80: 4C 44 41 20 20 30 30 37 31 31 2C 59 20 3B 3E 3D |LDA 00711,Y ;>=| 00000B90: 28 37 31 37 2C 37 31 36 29 20 34 2E 0D 20 20 20 |(717,716) 4.. | 00000BA0: 20 20 20 53 54 41 20 20 31 31 30 20 20 20 20 20 | STA 110 | 00000BB0: 3B 3E 3D 28 37 31 39 2C 37 31 38 29 20 35 2E 0D |;>=(719,718) 5..| 00000BC0: 20 20 20 20 20 20 4A 53 52 20 20 56 47 4C 41 42 | JSR VGLAB| 00000BD0: 20 20 20 3B 28 32 35 32 2C 32 35 31 29 20 3A 3A | ;(252,251) ::| 00000BE0: 0D 20 20 20 20 20 20 42 45 51 20 20 49 4E 54 56 |. BEQ INTV| 00000BF0: 32 20 20 20 3B 28 31 31 30 2C 31 30 39 29 2E 0D |2 ;(110,109)..| 00000C00: 20 20 20 20 20 20 42 43 43 20 20 49 4E 54 56 32 | BCC INTV2| 00000C10: 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |. DEX. | 00000C20: 20 42 4E 45 20 20 49 4E 54 56 31 0D 49 4E 54 56 | BNE INTV1.INTV| 00000C30: 32 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D |2 RTS. NOP.| 00000C40: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000C50: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000C60: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00000C70: 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 38 32 |P. *=382| 00000C80: 35 33 0D 55 54 47 5A 44 20 4C 44 58 20 23 30 33 |53.UTGZD LDX #03| 00000C90: 30 20 20 20 20 3B 54 45 4B 53 54 0D 20 20 20 20 |0 ;TEKST. | 00000CA0: 20 20 4A 53 52 20 20 56 4C 31 42 49 20 20 3B 27 | JSR VL1BI ;'| 00000CB0: 55 49 54 47 45 5A 4F 4E 44 45 52 44 27 0D 20 20 |UITGEZONDERD'. | 00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CD0: 3B 27 56 45 4C 44 20 58 58 0D 20 20 20 20 20 20 |;'VELD XX. | 00000CE0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 54 2F | ; T/| 00000CF0: 4D 20 59 59 2E 27 0D 20 20 20 20 20 20 4A 53 52 |M YY.'. JSR| 00000D00: 20 20 56 55 4C 58 58 20 20 3B 56 41 4E 3D 28 37 | VULXX ;VAN=(7| 00000D10: 34 31 2C 37 34 30 29 2E 0D 20 20 20 20 20 20 53 |41,740).. S| 00000D20: 45 43 20 20 20 20 20 20 20 20 20 3B 54 4F 54 3D |EC ;TOT=| 00000D30: 28 37 34 33 2C 37 34 32 29 2E 0D 20 20 20 20 20 |(743,742).. | 00000D40: 20 4C 44 41 20 20 30 30 37 34 32 20 20 3B 53 55 | LDA 00742 ;SU| 00000D50: 42 50 52 4F 47 2E 44 4F 45 54 0D 20 20 20 20 20 |BPROG.DOET. | 00000D60: 20 53 42 43 20 23 30 30 31 20 20 20 20 3B 54 4F | SBC #001 ;TO| 00000D70: 54 20 2D 20 31 20 3D 54 2F 4D 2E 0D 20 20 20 20 |T - 1 =T/M.. | 00000D80: 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 | STA 251. | 00000D90: 20 4C 44 41 20 20 30 30 37 34 33 0D 20 20 20 20 | LDA 00743. | 00000DA0: 20 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 20 | SBC #000. | 00000DB0: 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 | STA 252. | 00000DC0: 4A 53 52 20 20 56 55 4C 59 59 0D 20 20 20 20 20 |JSR VULYY. | 00000DD0: 20 4A 53 52 20 20 41 44 56 54 58 20 20 3B 56 4F | JSR ADVTX ;VO| 00000DE0: 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 20 20 4C 44 |ORBLOK.. LD| 00000DF0: 58 20 23 30 30 34 20 20 20 20 3B 54 45 4B 53 54 |X #004 ;TEKST| 00000E00: 20 23 34 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 | #4.. JSR | 00000E10: 53 43 4E 54 58 20 20 3B 4F 55 54 50 55 54 20 53 |SCNTX ;OUTPUT S| 00000E20: 43 48 45 52 4D 2E 0D 20 20 20 20 20 20 52 54 53 |CHERM.. RTS| 00000E30: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000E40: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000E50: 20 20 20 20 20 20 20 20 2A 3D 33 38 32 39 31 0D | *=38291.| 00000E60: 41 58 52 42 56 20 4C 44 41 20 23 30 33 35 20 20 |AXRBV LDA #035 | 00000E70: 20 20 3B 41 44 52 45 53 20 41 58 20 4F 50 0D 20 | ;ADRES AX OP. | 00000E80: 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 | STA 253 | 00000E90: 20 3B 53 43 48 45 52 4D 20 42 4F 56 45 4E 0D 20 | ;SCHERM BOVEN. | 00000EA0: 20 20 20 20 20 4C 44 41 20 20 30 30 36 34 38 20 | LDA 00648 | 00000EB0: 20 3B 52 45 43 48 54 53 3A 50 4F 53 2E 33 35 0D | ;RECHTS:POS.35.| 00000EC0: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 20 20 | STA 254 | 00000ED0: 20 20 3B 52 45 47 45 4C 20 31 2E 0D 20 20 20 20 | ;REGEL 1.. | 00000EE0: 20 20 4A 53 52 20 20 42 49 44 43 32 0D 20 20 20 | JSR BIDC2. | 00000EF0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 00000F00: 0D 41 58 43 48 4B 20 43 4C 43 20 20 20 20 20 20 |.AXCHK CLC | 00000F10: 20 20 20 3B 41 44 52 45 53 20 43 48 45 43 4B 0D | ;ADRES CHECK.| 00000F20: 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 | TYA | 00000F30: 20 20 3B 41 58 2B 28 59 29 3E 41 45 3F 0D 20 20 | ;AX+(Y)>AE?. | 00000F40: 20 20 20 20 41 44 43 20 20 30 30 37 30 30 20 20 | ADC 00700 | 00000F50: 3B 20 4A 41 3A 28 58 29 3D 31 2E 0D 20 20 20 20 |; JA:(X)=1.. | 00000F60: 20 20 53 54 41 20 20 31 30 37 20 20 20 20 3B 4E | STA 107 ;N| 00000F70: 45 45 3A 28 58 29 3D 30 2E 0D 20 20 20 20 20 20 |EE:(X)=0.. | 00000F80: 4C 44 58 20 23 30 30 30 20 20 20 20 3B 41 58 3D |LDX #000 ;AX=| 00000F90: 28 37 30 31 2C 37 30 30 29 2E 0D 20 20 20 20 20 |(701,700).. | 00000FA0: 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 4F 50 | TXA ;OP| 00000FB0: 47 45 48 4F 4F 47 44 20 41 44 52 45 53 0D 20 20 |GEHOOGD ADRES. | 00000FC0: 20 20 20 20 41 44 43 20 20 30 30 37 30 31 20 20 | ADC 00701 | 00000FD0: 3B 41 59 3D 41 58 2B 28 59 29 20 49 4E 0D 20 20 |;AY=AX+(Y) IN. | 00000FE0: 20 20 20 20 53 54 41 20 20 31 30 38 20 20 20 20 | STA 108 | 00000FF0: 3B 28 31 30 38 2C 31 30 37 29 2E 0D 20 20 20 20 |;(108,107).. | 00001000: 20 20 4C 44 41 20 20 30 30 37 36 33 0D 20 20 20 | LDA 00763. | 00001010: 20 20 20 43 4D 50 20 20 31 30 38 0D 20 20 20 20 | CMP 108. | 00001020: 20 20 42 43 43 20 20 41 58 43 48 32 0D 20 20 20 | BCC AXCH2. | 00001030: 20 20 20 42 45 51 20 20 41 58 43 48 31 0D 20 20 | BEQ AXCH1. | 00001040: 20 20 20 20 42 43 53 20 20 41 58 43 48 33 0D 41 | BCS AXCH3.A| 00001050: 58 43 48 31 20 4C 44 41 20 20 30 30 37 36 32 0D |XCH1 LDA 00762.| 00001060: 20 20 20 20 20 20 43 4D 50 20 20 31 30 37 0D 20 | CMP 107. | 00001070: 20 20 20 20 20 42 43 53 20 20 41 58 43 48 33 0D | BCS AXCH3.| 00001080: 41 58 43 48 32 20 49 4E 58 0D 41 58 43 48 33 20 |AXCH2 INX.AXCH3 | 00001090: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |RTS. NOP. | 000010A0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 000010B0: 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 38 33 |P. *=383| 000010C0: 34 33 0D 47 42 54 45 53 20 4C 44 58 20 23 30 35 |43.GBTES LDX #05| 000010D0: 30 20 20 20 20 20 20 3B 41 42 3C 3D 53 4C 3C 3D |0 ;AB<=SL<=| 000010E0: 41 45 3F 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |AE?. JSR V| 000010F0: 4C 31 41 41 20 20 20 20 3B 53 4C 3D 28 32 35 32 |L1AA ;SL=(252| 00001100: 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 58 |,251).. LDX| 00001110: 20 23 30 30 30 20 20 20 20 20 20 3B 4E 45 45 3A | #000 ;NEE:| 00001120: 28 58 29 3D 31 2E 0D 20 20 20 20 20 20 20 20 20 |(X)=1.. | 00001130: 20 20 20 20 20 20 20 20 20 20 20 3B 20 4A 41 3A | ; JA:| 00001140: 28 58 29 3D 30 2E 0D 20 20 20 20 20 20 4A 53 52 |(X)=0.. JSR| 00001150: 20 20 56 47 4C 41 42 20 20 20 20 3B 53 4C 3A 3A | VGLAB ;SL::| 00001160: 41 42 2E 0D 20 20 20 20 20 20 42 43 43 20 20 47 |AB.. BCC G| 00001170: 42 54 45 31 0D 20 20 20 20 20 20 4C 44 58 20 23 |BTE1. LDX #| 00001180: 30 35 32 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |052. JSR V| 00001190: 4C 31 41 41 0D 20 20 20 20 20 20 4C 44 58 20 23 |L1AA. LDX #| 000011A0: 30 30 30 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |000. JSR V| 000011B0: 47 4C 41 42 20 20 20 20 3B 53 4C 3A 3A 41 45 2E |GLAB ;SL::AE.| 000011C0: 0D 20 20 20 20 20 20 42 45 51 20 20 47 42 54 45 |. BEQ GBTE| 000011D0: 32 0D 20 20 20 20 20 20 42 43 43 20 20 47 42 54 |2. BCC GBT| 000011E0: 45 32 0D 47 42 54 45 31 20 49 4E 58 0D 47 42 54 |E2.GBTE1 INX.GBT| 000011F0: 45 32 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 |E2 RTS. NOP| 00001200: 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 38 33 37 |. *=3837| 00001210: 32 0D 4C 45 4E 4F 4F 20 4C 44 59 20 23 30 30 30 |2.LENOO LDY #000| 00001220: 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 4F 50 | ;LENGTE OP| 00001230: 0D 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 |. TYA | 00001240: 20 20 20 20 20 3B 4E 55 4C 20 5A 45 54 54 45 4E | ;NUL ZETTEN| 00001250: 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |.. STA (253| 00001260: 29 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |),Y. RTS. | 00001270: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00001280: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00001290: 20 20 20 20 20 2A 3D 33 38 33 38 31 0D 20 20 20 | *=38381. | 000012A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012B0: 3B 28 58 29 3D 30 30 3A 4C 55 2E 49 4E 0D 20 20 |;(X)=00:LU.IN. | 000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012D0: 20 3B 28 58 29 3D 30 32 3A 4C 56 2E 32 35 34 0D | ;(X)=02:LV.254.| 000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012F0: 20 20 20 3B 28 58 29 3D 30 34 3A 52 55 2E 45 4E | ;(X)=04:RU.EN| 00001300: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001310: 20 20 20 20 3B 28 58 29 3D 30 36 3A 52 56 2E 32 | ;(X)=06:RV.2| 00001320: 35 33 2E 0D 56 4C 32 41 44 20 4C 44 41 20 20 34 |53..VL2AD LDA 4| 00001330: 30 39 32 38 2C 58 20 3B 28 58 29 3D 30 38 3A 56 |0928,X ;(X)=08:V| 00001340: 55 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |U.. STA 25| 00001350: 33 20 20 20 20 20 3B 28 58 29 3D 31 30 3A 57 55 |3 ;(X)=10:WU| 00001360: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 34 30 39 |.. LDA 409| 00001370: 32 39 2C 58 20 3B 28 58 29 3D 31 32 3A 42 55 2E |29,X ;(X)=12:BU.| 00001380: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D |. STA 254.| 00001390: 20 20 20 20 20 20 52 54 53 0D 56 4C 32 41 41 20 | RTS.VL2AA | 000013A0: 4C 44 41 20 20 34 30 39 32 38 2C 58 20 3B 5A 49 |LDA 40928,X ;ZI| 000013B0: 45 20 42 4F 56 45 4E 2E 0D 20 20 20 20 20 20 53 |E BOVEN.. S| 000013C0: 54 41 20 20 31 30 39 20 20 20 20 20 3B 49 4E 20 |TA 109 ;IN | 000013D0: 31 31 30 20 45 4E 20 31 30 39 2E 0D 20 20 20 20 |110 EN 109.. | 000013E0: 20 20 4C 44 41 20 20 34 30 39 32 39 2C 58 0D 20 | LDA 40929,X. | 000013F0: 20 20 20 20 20 53 54 41 20 20 31 31 30 0D 20 20 | STA 110. | 00001400: 20 20 20 20 52 54 53 0D 41 44 42 49 20 20 4C 44 | RTS.ADBI LD| 00001410: 41 20 20 32 35 34 20 20 20 20 3B 28 32 35 34 2C |A 254 ;(254,| 00001420: 32 35 33 29 20 3D 3E 0D 20 20 20 20 20 20 53 54 |253) =>. ST| 00001430: 41 20 20 32 35 32 20 20 20 20 3B 28 32 35 32 2C |A 252 ;(252,| 00001440: 32 35 31 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 |251).. LDA | 00001450: 20 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 20 | 253. STA | 00001460: 32 35 31 0D 20 20 20 20 20 20 52 54 53 0D 41 44 |251. RTS.AD| 00001470: 41 42 49 20 53 45 43 20 20 20 20 20 20 20 20 20 |ABI SEC | 00001480: 3B 28 32 35 34 2C 32 35 33 29 20 2D 0D 20 20 20 |;(254,253) -. | 00001490: 20 20 20 4C 44 41 20 20 32 35 33 20 20 20 20 3B | LDA 253 ;| 000014A0: 28 31 31 30 2C 31 30 39 29 20 3D 3E 0D 20 20 20 |(110,109) =>. | 000014B0: 20 20 20 53 42 43 20 20 31 30 39 20 20 20 20 3B | SBC 109 ;| 000014C0: 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 |(252,251).. | 000014D0: 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 | STA 251. | 000014E0: 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 20 53 |LDA 254. S| 000014F0: 42 43 20 20 31 31 30 0D 20 20 20 20 20 20 53 54 |BC 110. ST| 00001500: 41 20 20 32 35 32 0D 20 20 20 20 20 20 52 54 53 |A 252. RTS| 00001510: 0D 52 45 47 42 49 20 4A 53 52 20 20 41 44 41 42 |.REGBI JSR ADAB| 00001520: 49 20 20 3B 5B 28 32 35 34 2C 32 35 33 29 20 2D |I ;[(254,253) -| 00001530: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 36 20 |. LDA #006 | 00001540: 20 20 20 3B 20 28 31 31 30 2C 31 30 39 29 5D 2F | ; (110,109)]/| 00001550: 36 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 37 |6. STA 107| 00001560: 20 20 20 20 3B 20 3D 3E 20 28 32 35 32 2C 32 35 | ; => (252,25| 00001570: 31 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |1).. LDA #0| 00001580: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 |00. STA 10| 00001590: 38 0D 20 20 20 20 20 20 4A 53 52 20 20 44 49 56 |8. JSR DIV| 000015A0: 41 46 0D 20 20 20 20 20 20 4A 53 52 20 20 41 44 |AF. JSR AD| 000015B0: 42 49 0D 20 20 20 20 20 20 52 54 53 0D 4C 41 42 |BI. RTS.LAB| 000015C0: 42 49 20 4A 53 52 20 20 41 44 41 42 49 20 20 3B |BI JSR ADABI ;| 000015D0: 5B 28 32 35 34 2C 32 35 33 29 20 2D 0D 20 20 20 |[(254,253) -. | 000015E0: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B | CLC ;| 000015F0: 20 28 31 31 30 2C 31 30 39 29 5D 2F 32 0D 20 20 | (110,109)]/2. | 00001600: 20 20 20 20 52 4F 52 20 20 32 35 32 20 20 20 20 | ROR 252 | 00001610: 3B 20 3D 3E 20 28 32 35 32 2C 32 35 31 29 2E 0D |; => (252,251)..| 00001620: 20 20 20 20 20 20 52 4F 52 20 20 32 35 31 0D 20 | ROR 251. | 00001630: 20 20 20 20 20 52 54 53 0D 43 48 45 43 4B 20 4C | RTS.CHECK L| 00001640: 44 58 20 23 30 30 38 20 20 20 20 3B 27 43 4F 4E |DX #008 ;'CON| 00001650: 54 52 4F 4C 45 2E 2E 0D 20 20 20 20 20 20 4A 53 |TROLE... JS| 00001660: 52 20 20 53 43 4E 54 58 20 20 3B 20 3C 46 3E 2E |R SCNTX ; <F>.| 00001670: 27 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 |'. LDX #001| 00001680: 20 20 20 20 3B 31 20 54 45 4B 45 4E 2E 0D 20 20 | ;1 TEKEN.. | 00001690: 20 20 20 20 4A 53 52 20 20 54 58 54 49 4E 20 20 | JSR TXTIN | 000016A0: 3B 41 43 43 45 50 54 2E 0D 20 20 20 20 20 20 4C |;ACCEPT.. L| 000016B0: 44 58 20 23 30 30 30 20 20 20 20 3B 27 47 27 3A |DX #000 ;'G':| 000016C0: 28 58 29 3D 30 2E 0D 20 20 20 20 20 20 4C 44 59 |(X)=0.. LDY| 000016D0: 20 23 30 30 31 20 20 20 20 3B 27 46 27 3A 28 58 | #001 ;'F':(X| 000016E0: 29 3D 31 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 |)=1.. LDA (| 000016F0: 32 35 33 29 2C 59 20 3B 54 45 4B 45 4E 2E 0D 20 |253),Y ;TEKEN.. | 00001700: 20 20 20 20 20 43 4D 50 20 23 30 37 31 20 20 20 | CMP #071 | 00001710: 20 3B 27 47 27 3F 0D 20 20 20 20 20 20 42 45 51 | ;'G'?. BEQ| 00001720: 20 43 48 45 30 31 20 20 20 3B 20 4A 41 3A 28 58 | CHE01 ; JA:(X| 00001730: 29 3D 30 2E 0D 20 20 20 20 20 20 49 4E 58 20 20 |)=0.. INX | 00001740: 20 20 20 20 20 20 20 3B 4E 45 45 3A 28 58 29 3D | ;NEE:(X)=| 00001750: 31 2E 0D 43 48 45 30 31 20 52 54 53 20 20 20 20 |1..CHE01 RTS | 00001760: 20 20 20 20 20 3B 54 45 52 55 47 2E 0D 41 44 4D | ;TERUG..ADM| 00001770: 41 44 20 53 54 59 20 20 30 30 32 20 20 20 20 3B |AD STY 002 ;| 00001780: 41 44 52 45 53 49 4E 48 4F 55 44 0D 20 20 20 20 |ADRESINHOUD. | 00001790: 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 28 | LDY #000 ;(| 000017A0: 28 32 35 34 2C 32 35 33 29 29 0D 20 20 20 20 20 |(254,253)). | 000017B0: 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 56 45 | SEC ;VE| 000017C0: 52 4D 49 4E 44 45 52 45 4E 0D 20 20 20 20 20 20 |RMINDEREN. | 000017D0: 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4D 45 54 |LDA (253),Y ;MET| 000017E0: 20 28 59 29 20 45 4E 0D 20 20 20 20 20 20 53 42 | (Y) EN. SB| 000017F0: 43 20 20 30 30 32 20 20 20 20 3B 54 45 56 45 4E |C 002 ;TEVEN| 00001800: 53 20 28 59 29 3D 30 0D 20 20 20 20 20 20 53 54 |S (Y)=0. ST| 00001810: 41 20 28 32 35 33 29 2C 59 20 3B 47 45 5A 45 54 |A (253),Y ;GEZET| 00001820: 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |.. RTS. | 00001830: 20 20 4E 4F 50 0D 4F 50 52 47 4C 20 4C 44 58 20 | NOP.OPRGL LDX | 00001840: 23 30 32 34 20 20 20 20 3B 4F 50 45 4E 20 52 45 |#024 ;OPEN RE| 00001850: 47 45 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |GEL.. JSR | 00001860: 53 43 4E 54 58 0D 20 20 20 20 20 20 52 54 53 0D |SCNTX. RTS.| 00001870: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00001880: 4E 4F 50 0D 20 20 20 20 20 20 2E 4C 49 42 20 44 |NOP. .LIB D| 00001890: 49 4C 4E 30 30 0D 20 20 20 20 20 20 2E 45 4E 44 |ILN00. .END| 000018A0: 0D |. |
*=38016. ;.
;LABELSORT..
;.LABSR LDX 40929 ;(252,251)=LU..
STX 252 ;(X,Y)=LU.. LDY
40928. STY 251 ;TE VOREN:.
CPX 108 ;A(N+1)=LX IN. BNE LA
B01 ;(108,107).. CPY 107 ;LX=L
U:TABEL. BEQ LAB14 ;IS LEEG..LAB0
1 SEC. LDA 107 ;(110,109)=A(N),
. SBC #002 ;MET LX-2.. STA
109. LDA 108. SBC #000.
STA 110. CLC ;(252,251)=A
(L).. BCC LAB03.LAB02 CLC
;A(L+1)=>A(L).. LDA 251. ADC
#002. STA 251. TAY ;(
X,Y)=A(L).. LDA 252. ADC #000
. STA 252. TAX.LAB03 CPX 110
;VERGELIJK. BCC LAB05 ;MET A(
N).. BEQ LAB04. BCS LAB14.LA
B04 CPY 109 ;A(L)=A(N):. BCS L
AB14 ;KLAAR..LAB05 CLC.LAB06 TYA
;A(H)<A(N):. ADC #002 ;A(L+1)=
>A(H).. STA 253. TXA. AD
C #000. STA 254. LDA 110
;A(N)<A(H)?. CMP 254. BCC LA
B02 ;JA:HOOG L OP.. BEQ LAB07.
BCS LAB08.LAB07 LDA 109. CMP
253. BCC LAB02.LAB08 LDY #001 ;
NEEN:VERGELIJK.LAB09 LDA (251),Y ;ITEMS
L MET H.. CMP (253),Y. BCC LA
B13. BEQ LAB10. BCS LAB11.LA
B10 DEY ;PAK L.S.. BPL LAB
09. BMI LAB13 ;GELIJK:H+1..LAB11
LDY #001 ;GROTER:.LAB12 LDA (253),Y ;
ITEMS L EN H. TAX ;VERWISSE
LEN.. LDA (251),Y. STA (253),Y
. TXA. STA (251),Y. DEY.
BPL LAB12.LAB13 LDY 253 ;HERST
EL (Y).. LDX 254 ;HERSTEL (X)..
CLC. BCC LAB06.LAB14 RTS.
*=38144. ;.
;TEKST ACCEPT.
;VAN TOETSBORD.. ;.
TXTIN STX 251 ;(X)=MAXIMALE. LD
A #042 ;LENGTE IN. STA 252 ;
STERREN.. LDX #010 ;BEGINADRES.
JSR VL2AD ;WERKVELD.. JSR E
LVUL ;VULLEN.. JSR ELSCR ;OP SCH
ERM.. LDA #157 ;PIJL TERUG..
STA 252. JSR ELVUL ;VULLEN..
JSR ELSCR ;OP SCHERM.. INC 2
51 ;LENGTE+1.. LDA #013 ;<RET
URN> ALS. STA 252 ;SLUITTOETS..
JSR KEYAC ;ACCEPT.. RTS
;NAAR H.P.. NOP.ADRIN LDA 007
56 ;VRAAG BEGIN- OF. BEQ ADR01 ;
EINDADRES.. INX ;(X)=11(BEG
IN)..ADR01 JSR SCNTX ;(X)=13(EIND)..
LDX #004 ;DC=(756).. LDA 00
756 ;DC=1:DECIM.. BEQ ADR02 ;HEX
.4, DEC.5.. INX.ADR02 JSR TXTIN ;
ACCEPT 4 OF 5. LDY #001 ;TEKENS.
. JSR ADPAD ;ADRES+1.. LDA
00756 ;DC NOG EENS.. BEQ ADR03.
JSR DCBI2 ;CONVERSIE DEC.. RT
S ;NAAR H.P..ADR03 JSR HXBI2 ;
CONVERSIE HEX.. RTS ;NAAR H
.P.. NOP.INTVL LDX #005 ;INTERV
ALTEST..INTV1 TXA ;(252,251) NA
AR. CLC ;NUMMER IN (X)..
.BYTE $2A ;< (711,710) 0.. T
AY ;>=(711,710) 1.. LDA 0
0710,Y ;>=(713,712) 2.. STA 109
;>=(715,714) 3.. LDA 00711,Y ;>=
(717,716) 4.. STA 110 ;>=(719,
718) 5.. JSR VGLAB ;(252,251) ::
. BEQ INTV2 ;(110,109).. BC
C INTV2. DEX. BNE INTV1.INTV
2 RTS. NOP. NOP. NOP.
NOP. NOP. NOP. *=382
53.UTGZD LDX #030 ;TEKST. JSR V
L1BI ;'UITGEZONDERD'.
;'VELD XX. ; T/M YY.'.
JSR VULXX ;VAN=(741,740).. S
EC ;TOT=(743,742).. LDA 00
742 ;SUBPROG.DOET. SBC #001 ;TO
T - 1 =T/M.. STA 251. LDA 00
743. SBC #000. STA 252.
JSR VULYY. JSR ADVTX ;VOORBLOK..
LDX #004 ;TEKST #4.. JSR
SCNTX ;OUTPUT SCHERM.. RTS. N
OP. NOP. NOP. *=38291.
AXRBV LDA #035 ;ADRES AX OP. STA
253 ;SCHERM BOVEN. LDA 00648
;RECHTS:POS.35. STA 254 ;REGEL
1.. JSR BIDC2. RTS. NOP
.AXCHK CLC ;ADRES CHECK. TY
A ;AX+(Y)>AE?. ADC 00700
; JA:(X)=1.. STA 107 ;NEE:(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 AXCH2. BEQ AXCH1.
BCS AXCH3.AXCH1 LDA 00762. CM
P 107. BCS AXCH3.AXCH2 INX.AXCH3
RTS. NOP. NOP. NOP.
*=38343.GBTES LDX #050 ;AB<=SL<=
AE?. JSR VL1AA ;SL=(252,251)..
LDX #000 ;NEE:(X)=1..
; JA:(X)=0.. JSR VGLAB
;SL::AB.. BCC GBTE1. LDX #
052. JSR VL1AA. LDX #000.
JSR VGLAB ;SL::AE.. BEQ GBTE
2. BCC GBTE2.GBTE1 INX.GBTE2 RTS.
NOP. *=38372.LENOO LDY #000
;LENGTE OP. TYA ;NU
L ZETTEN.. STA (253),Y. RTS.
NOP. NOP. NOP. *=3
8381. ;(X)=00:LU.IN.
;(X)=02:LV.254.
;(X)=04:RU.EN.
;(X)=06:RV.253..VL2AD LDA 40928,X ;
(X)=08:VU.. STA 253 ;(X)=10:WU
.. LDA 40929,X ;(X)=12:BU.. S
TA 254. 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 #001
;1 TEKEN.. JSR TXTIN ;ACCEPT.
. LDX #000 ;'G':(X)=0.. LDY
#001 ;'F':(X)=1.. LDA (253),Y ;
TEKEN.. CMP #071 ;'G'?. BEQ
CHE01 ; JA:(X)=0.. INX ;
NEE:(X)=1..CHE01 RTS ;TERUG..ADM
AD STY 002 ;ADRESINHOUD. LDY #0
00 ;((254,253)). SEC ;VE
RMINDEREN. LDA (253),Y ;MET (Y) EN.
SBC 002 ;TEVENS (Y)=0. ST
A (253),Y ;GEZET.. RTS. NOP.OP
RGL LDX #024 ;OPEN REGEL.. JSR
SCNTX. RTS. NOP. NOP.
.LIB DILN00. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL