DISA02
FILE INFORMATION
FILENAME(S): DISA02
FILE TYPE(S): SEQ
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
8972fa83bb597d88904878c02505ab098ed1c29bbcb93894b5d3293f76d43455
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA02 | SEQ | DuncanTwain | 22 | 0 | 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 20 20 20 20 20 20 4C 44 58 | ;. LDX| 00000060: 20 20 34 30 39 33 31 20 20 3B 28 32 35 32 2C 32 | 40931 ;(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 33 30 0D 20 20 20 20 20 20 53 54 59 20 |40930. 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 54 58 |IN. BNE TX| 000000F0: 30 30 31 20 20 3B 28 31 30 38 2C 31 30 37 29 2E |001 ;(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 54 58 30 30 39 | BEQ TX009| 00000130: 20 20 3B 49 53 20 4C 45 45 47 2E 0D 54 58 30 30 | ;IS LEEG..TX00| 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: 54 58 30 30 33 0D 54 58 30 30 32 20 43 4C 43 20 |TX003.TX002 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 54 58 30 30 33 20 | TAX.TX003 | 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 54 58 30 30 34 20 20 3B 4D 45 54 20 41 28 | TX004 ;MET A(| 000002D0: 4E 29 2E 0D 20 20 20 20 20 20 42 45 51 20 20 54 |N).. BEQ T| 000002E0: 58 31 30 33 0D 20 20 20 20 20 20 42 43 53 20 20 |X103. BCS | 000002F0: 54 58 30 30 39 0D 54 58 31 30 33 20 43 50 59 20 |TX009.TX103 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 54 |N):. BCS T| 00000320: 58 30 30 39 20 20 3B 4B 4C 41 41 52 2E 0D 54 58 |X009 ;KLAAR..TX| 00000330: 30 30 34 20 43 4C 43 0D 54 58 31 30 34 20 54 59 |004 CLC.TX104 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 54 58 30 30 32 20 20 3B 4A 41 | BCC TX002 ;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 54 58 31 31 34 0D 20 20 20 | BEQ TX114. | 00000410: 20 20 20 42 43 53 20 20 54 58 31 32 34 0D 54 58 | BCS TX124.TX| 00000420: 31 31 34 20 4C 44 41 20 20 31 30 39 0D 20 20 20 |114 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 54 58 30 30 32 0D 54 58 31 | BCC TX002.TX1| 00000450: 32 34 20 4C 44 59 20 23 30 30 31 20 20 20 20 3B |24 LDY #001 ;| 00000460: 4E 45 45 4E 3A 56 45 52 47 45 4C 49 4A 4B 0D 54 |NEEN:VERGELIJK.T| 00000470: 58 30 30 35 20 4C 44 41 20 28 32 35 31 29 2C 59 |X005 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 54 58 |,Y. BCC TX| 000004B0: 32 30 34 0D 20 20 20 20 20 20 42 45 51 20 20 54 |204. BEQ T| 000004C0: 58 30 30 36 0D 20 20 20 20 20 20 42 43 53 20 20 |X006. BCS | 000004D0: 54 58 30 30 37 0D 54 58 30 30 36 20 44 45 59 20 |TX007.TX006 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 54 58 30 |.. BPL TX0| 00000500: 30 35 0D 20 20 20 20 20 20 42 4D 49 20 20 54 58 |05. BMI TX| 00000510: 32 30 34 20 20 3B 47 45 4C 49 4A 4B 3A 48 2B 31 |204 ;GELIJK:H+1| 00000520: 2E 0D 54 58 30 30 37 20 4C 44 59 20 23 30 30 31 |..TX007 LDY #001| 00000530: 20 20 20 20 3B 47 52 4F 54 45 52 3A 0D 54 58 30 | ;GROTER:.TX0| 00000540: 30 38 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B |08 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 54 58 30 30 38 0D 54 58 32 30 34 20 4C 44 | TX008.TX204 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 54 58 31 |C. BCC TX1| 00000630: 30 34 0D 54 58 30 30 39 20 52 54 53 0D 20 20 20 |04.TX009 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 44 41 30 30 31 20 53 54 | ;.DA001 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 30 38 20 |. LDX #008 | 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 44 58 31 30 37 20 | JSR DX107 | 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 33 38 35 32 30 20 20 3B 56 | JSR 38520 ;V| 00000760: 55 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 |ULLEN.. JSR| 00000770: 20 20 33 38 34 39 36 20 20 3B 4F 50 20 53 43 48 | 38496 ;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 33 38 |52. JSR 38| 000007C0: 35 32 30 20 20 3B 56 55 4C 4C 45 4E 2E 0D 20 20 |520 ;VULLEN.. | 000007D0: 20 20 20 20 4A 53 52 20 20 33 38 34 39 36 20 20 | JSR 38496 | 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 34 30 30 37 31 20 20 3B 41 43 43 45 50 |R 40071 ;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 44 58 31 30 31 20 | NOP.DX101 | 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 44 41 30 30 32 20 20 3B | BEQ DA002 ;| 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 44 41 30 |)=11(BEGIN)..DA0| 000008F0: 30 32 20 4A 53 52 20 20 33 38 37 31 32 20 20 3B |02 JSR 38712 ;| 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 44 41 30 30 33 20 20 3B 48 45 58 |BEQ DA003 ;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 44 41 30 30 33 20 4A 53 52 20 20 | INX.DA003 JSR | 00000980: 44 41 30 30 31 20 20 3B 41 43 43 45 50 54 20 34 |DA001 ;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 33 38 35 33 |. JSR 3853| 000009C0: 32 20 20 3B 41 44 52 45 53 2B 31 2E 0D 20 20 20 |2 ;ADRES+1.. | 000009D0: 20 20 20 4C 44 41 20 20 30 30 37 35 36 0D 20 20 | LDA 00756. | 000009E0: 20 20 20 20 42 45 51 20 20 44 41 30 30 34 0D 20 | BEQ DA004. | 000009F0: 20 20 20 20 20 4A 53 52 20 20 33 39 39 34 34 20 | JSR 39944 | 00000A00: 20 3B 43 4F 4E 56 45 52 53 49 45 20 44 45 43 2E | ;CONVERSIE DEC.| 00000A10: 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 |. RTS | 00000A20: 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 44 41 | ;NAAR H.P..DA| 00000A30: 30 30 34 20 4A 53 52 20 20 34 30 30 31 36 20 20 |004 JSR 40016 | 00000A40: 3B 43 4F 4E 56 45 52 53 49 45 20 48 45 58 2E 0D |;CONVERSIE HEX..| 00000A50: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000A60: 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 | ;NAAR H.P.. | 00000A70: 20 20 20 4E 4F 50 0D 44 58 31 30 32 20 4C 44 58 | NOP.DX102 LDX| 00000A80: 20 23 30 30 30 20 20 20 20 3B 47 45 42 49 45 44 | #000 ;GEBIED| 00000A90: 53 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 4C 44 |SNUMMER. LD| 00000AA0: 41 20 20 32 35 32 20 20 20 20 3B 56 41 4E 20 28 |A 252 ;VAN (| 00000AB0: 32 35 32 2C 32 35 31 29 0D 20 20 20 20 20 20 42 |252,251). B| 00000AC0: 45 51 20 20 44 41 30 30 37 20 20 3B 49 4E 20 28 |EQ DA007 ;IN (| 00000AD0: 58 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 44 |X).. JSR D| 00000AE0: 58 31 30 38 20 20 3B 30 3A 30 30 30 30 30 2E 2E |X108 ;0:00000..| 00000AF0: 30 30 32 35 35 2E 0D 20 20 20 20 20 20 4A 53 52 |00255.. JSR| 00000B00: 20 20 33 38 37 38 30 20 20 3B 31 3A 30 30 32 35 | 38780 ;1:0025| 00000B10: 36 2E 2E 20 52 55 2D 31 2E 0D 20 20 20 20 20 20 |6.. RU-1.. | 00000B20: 42 43 43 20 20 44 41 30 30 36 20 20 3B 32 3A 20 |BCC DA006 ;2: | 00000B30: 52 55 20 20 2E 2E 20 5A 55 2D 31 2E 0D 20 20 20 |RU .. ZU-1.. | 00000B40: 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 3B | LDX #004 ;| 00000B50: 33 3A 20 5A 55 20 20 2E 2E 36 35 35 33 35 2E 0D |3: ZU ..65535..| 00000B60: 20 20 20 20 20 20 4A 53 52 20 20 44 58 31 30 38 | JSR DX108| 00000B70: 20 20 3B 32 20 4F 46 20 33 2E 0D 20 20 20 20 20 | ;2 OF 3.. | 00000B80: 20 4C 44 58 20 23 30 30 32 0D 20 20 20 20 20 20 | LDX #002. | 00000B90: 4A 53 52 20 20 33 38 37 38 30 0D 20 20 20 20 20 |JSR 38780. | 00000BA0: 20 42 43 43 20 20 44 41 30 30 37 0D 44 41 30 30 | BCC DA007.DA00| 00000BB0: 36 20 49 4E 58 0D 44 41 30 30 37 20 52 54 53 0D |6 INX.DA007 RTS.| 00000BC0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000BD0: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000BE0: 20 20 20 20 4E 4F 50 0D 44 58 31 30 33 20 4C 44 | NOP.DX103 LD| 00000BF0: 58 20 23 30 33 30 20 20 20 20 3B 54 45 4B 53 54 |X #030 ;TEKST| 00000C00: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 31 |. JSR 3971| 00000C10: 31 20 20 3B 27 55 49 54 47 45 5A 4F 4E 44 45 52 |1 ;'UITGEZONDER| 00000C20: 44 27 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |D'. | 00000C30: 20 20 20 20 20 3B 27 56 45 4C 44 20 58 58 0D 20 | ;'VELD XX. | 00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C50: 20 3B 20 54 2F 4D 20 59 59 2E 27 0D 20 20 20 20 | ; T/M YY.'. | 00000C60: 20 20 4A 53 52 20 20 33 38 37 39 32 20 20 3B 56 | JSR 38792 ;V| 00000C70: 41 4E 3D 28 37 34 31 2C 37 34 30 29 2E 0D 20 20 |AN=(741,740).. | 00000C80: 20 20 20 20 53 45 43 20 20 20 20 20 20 20 20 20 | SEC | 00000C90: 3B 54 4F 54 3D 28 37 34 33 2C 37 34 32 29 2E 0D |;TOT=(743,742)..| 00000CA0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 34 32 | LDA 00742| 00000CB0: 20 20 3B 53 55 42 50 52 4F 47 2E 44 4F 45 54 0D | ;SUBPROG.DOET.| 00000CC0: 20 20 20 20 20 20 53 42 43 20 23 30 30 31 20 20 | SBC #001 | 00000CD0: 20 20 3B 54 4F 54 20 2D 20 31 20 3D 54 2F 4D 2E | ;TOT - 1 =T/M.| 00000CE0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D |. STA 251.| 00000CF0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 34 33 | LDA 00743| 00000D00: 0D 20 20 20 20 20 20 53 42 43 20 23 30 30 30 0D |. SBC #000.| 00000D10: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 | STA 252. | 00000D20: 20 20 20 20 20 4A 53 52 20 20 33 38 38 30 34 0D | JSR 38804.| 00000D30: 20 20 20 20 20 20 4A 53 52 20 20 33 38 38 31 37 | JSR 38817| 00000D40: 20 20 3B 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 | ;VOORBLOK.. | 00000D50: 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 3B | LDX #004 ;| 00000D60: 54 45 4B 53 54 20 23 34 2E 0D 20 20 20 20 20 20 |TEKST #4.. | 00000D70: 4A 53 52 20 20 33 38 37 31 32 20 20 3B 4F 55 54 |JSR 38712 ;OUT| 00000D80: 50 55 54 20 53 43 48 45 52 4D 2E 0D 20 20 20 20 |PUT SCHERM.. | 00000D90: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 00000DA0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000DB0: 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 |NOP. *=3| 00000DC0: 38 32 39 31 0D 44 58 31 30 34 20 4C 44 41 20 23 |8291.DX104 LDA #| 00000DD0: 30 33 35 20 20 20 20 3B 41 44 52 45 53 20 41 58 |035 ;ADRES AX| 00000DE0: 20 4F 50 0D 20 20 20 20 20 20 53 54 41 20 20 32 | OP. STA 2| 00000DF0: 35 33 20 20 20 20 3B 53 43 48 45 52 4D 20 42 4F |53 ;SCHERM BO| 00000E00: 56 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |VEN. LDA 0| 00000E10: 30 36 34 38 20 20 3B 52 45 43 48 54 53 3A 50 4F |0648 ;RECHTS:PO| 00000E20: 53 2E 33 35 0D 20 20 20 20 20 20 53 54 41 20 20 |S.35. STA | 00000E30: 32 35 34 20 20 20 20 3B 52 45 47 45 4C 20 31 2E |254 ;REGEL 1.| 00000E40: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 34 |. JSR 3974| 00000E50: 34 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |4. RTS. | 00000E60: 20 20 4E 4F 50 0D 44 58 31 30 35 20 43 4C 43 20 | NOP.DX105 CLC | 00000E70: 20 20 20 20 20 20 20 20 3B 41 44 52 45 53 20 43 | ;ADRES C| 00000E80: 48 45 43 4B 0D 20 20 20 20 20 20 54 59 41 20 20 |HECK. TYA | 00000E90: 20 20 20 20 20 20 20 3B 41 58 2B 28 59 29 3E 41 | ;AX+(Y)>A| 00000EA0: 45 3F 0D 20 20 20 20 20 20 41 44 43 20 20 30 30 |E?. ADC 00| 00000EB0: 37 30 30 20 20 3B 20 4A 41 3A 28 58 29 3D 31 2E |700 ; JA:(X)=1.| 00000EC0: 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 37 20 |. STA 107 | 00000ED0: 20 20 20 3B 4E 45 45 3A 28 58 29 3D 30 2E 0D 20 | ;NEE:(X)=0.. | 00000EE0: 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 | LDX #000 | 00000EF0: 20 3B 41 58 3D 28 37 30 31 2C 37 30 30 29 2E 0D | ;AX=(701,700)..| 00000F00: 20 20 20 20 20 20 54 58 41 20 20 20 20 20 20 20 | TXA | 00000F10: 20 20 3B 4F 50 47 45 48 4F 4F 47 44 20 41 44 52 | ;OPGEHOOGD ADR| 00000F20: 45 53 0D 20 20 20 20 20 20 41 44 43 20 20 30 30 |ES. ADC 00| 00000F30: 37 30 31 20 20 3B 41 59 3D 41 58 2B 28 59 29 20 |701 ;AY=AX+(Y) | 00000F40: 49 4E 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 |IN. STA 10| 00000F50: 38 20 20 20 20 3B 28 31 30 38 2C 31 30 37 29 2E |8 ;(108,107).| 00000F60: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 36 |. LDA 0076| 00000F70: 33 0D 20 20 20 20 20 20 43 4D 50 20 20 31 30 38 |3. CMP 108| 00000F80: 0D 20 20 20 20 20 20 42 43 43 20 20 44 41 30 30 |. BCC DA00| 00000F90: 38 0D 20 20 20 20 20 20 42 45 51 20 20 44 41 41 |8. BEQ DAA| 00000FA0: 30 38 0D 20 20 20 20 20 20 42 43 53 20 20 44 41 |08. BCS DA| 00000FB0: 30 30 39 0D 44 41 41 30 38 20 4C 44 41 20 20 30 |009.DAA08 LDA 0| 00000FC0: 30 37 36 32 0D 20 20 20 20 20 20 43 4D 50 20 20 |0762. CMP | 00000FD0: 31 30 37 0D 20 20 20 20 20 20 42 43 53 20 20 44 |107. BCS D| 00000FE0: 41 30 30 39 0D 44 41 30 30 38 20 49 4E 58 0D 44 |A009.DA008 INX.D| 00000FF0: 41 30 30 39 20 52 54 53 0D 20 20 20 20 20 20 4E |A009 RTS. N| 00001000: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 00001010: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. | 00001020: 2A 3D 33 38 33 34 33 0D 44 58 31 30 36 20 4C 44 |*=38343.DX106 LD| 00001030: 58 20 23 30 35 30 20 20 20 20 20 20 3B 41 42 3C |X #050 ;AB<| 00001040: 3D 53 4C 3C 3D 41 45 3F 0D 20 20 20 20 20 20 4A |=SL<=AE?. J| 00001050: 53 52 20 20 33 39 37 30 30 20 20 20 20 3B 53 4C |SR 39700 ;SL| 00001060: 3D 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 |=(252,251).. | 00001070: 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 20 20 | LDX #000 | 00001080: 3B 4E 45 45 3A 28 58 29 3D 31 2E 0D 20 20 20 20 |;NEE:(X)=1.. | 00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010A0: 3B 20 4A 41 3A 28 58 29 3D 30 2E 0D 20 20 20 20 |; JA:(X)=0.. | 000010B0: 20 20 4A 53 52 20 20 33 38 37 38 30 20 20 20 20 | JSR 38780 | 000010C0: 3B 53 4C 3A 3A 41 42 2E 0D 20 20 20 20 20 20 42 |;SL::AB.. B| 000010D0: 43 43 20 20 44 41 30 31 30 0D 20 20 20 20 20 20 |CC DA010. | 000010E0: 4C 44 58 20 23 30 35 32 0D 20 20 20 20 20 20 4A |LDX #052. J| 000010F0: 53 52 20 20 33 39 37 30 30 0D 20 20 20 20 20 20 |SR 39700. | 00001100: 4C 44 58 20 23 30 30 30 0D 20 20 20 20 20 20 4A |LDX #000. J| 00001110: 53 52 20 20 33 38 37 38 30 20 20 20 20 3B 53 4C |SR 38780 ;SL| 00001120: 3A 3A 41 45 2E 0D 20 20 20 20 20 20 42 45 51 20 |::AE.. BEQ | 00001130: 20 44 41 30 31 31 0D 20 20 20 20 20 20 42 43 43 | DA011. BCC| 00001140: 20 20 44 41 30 31 31 0D 44 41 30 31 30 20 49 4E | DA011.DA010 IN| 00001150: 58 0D 44 41 30 31 31 20 52 54 53 0D 20 20 20 20 |X.DA011 RTS. | 00001160: 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A | NOP. *| 00001170: 3D 33 38 33 37 32 0D 20 20 20 20 20 20 4C 44 59 |=38372. LDY| 00001180: 20 23 30 30 30 20 20 20 20 20 20 3B 4C 45 4E 47 | #000 ;LENG| 00001190: 54 45 20 4F 50 0D 20 20 20 20 20 20 54 59 41 20 |TE OP. TYA | 000011A0: 20 20 20 20 20 20 20 20 20 20 3B 4E 55 4C 20 5A | ;NUL Z| 000011B0: 45 54 54 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 |ETTEN.. STA| 000011C0: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 52 | (253),Y. R| 000011D0: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |TS. NOP. | 000011E0: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 000011F0: 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 38 33 38 |. *=3838| 00001200: 31 0D 44 58 31 30 37 20 4C 44 41 20 20 34 30 39 |1.DX107 LDA 409| 00001210: 32 38 2C 58 20 3B 28 58 29 3D 30 3A 52 55 2E 20 |28,X ;(X)=0:RU. | 00001220: 49 4E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |IN. STA 25| 00001230: 33 20 20 20 20 20 3B 28 58 29 3D 32 3A 4C 55 2E |3 ;(X)=2:LU.| 00001240: 20 32 35 34 0D 20 20 20 20 20 20 4C 44 41 20 20 | 254. LDA | 00001250: 34 30 39 32 39 2C 58 20 3B 28 58 29 3D 34 3A 5A |40929,X ;(X)=4:Z| 00001260: 55 2E 20 45 4E 0D 20 20 20 20 20 20 53 54 41 20 |U. EN. STA | 00001270: 20 32 35 34 20 20 20 20 20 3B 28 58 29 3D 38 3A | 254 ;(X)=8:| 00001280: 57 55 2E 20 32 35 33 2E 0D 20 20 20 20 20 20 52 |WU. 253.. R| 00001290: 54 53 0D 44 58 31 30 38 20 4C 44 41 20 20 34 30 |TS.DX108 LDA 40| 000012A0: 39 32 38 2C 58 20 3B 5A 49 45 20 42 4F 56 45 4E |928,X ;ZIE BOVEN| 000012B0: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 39 |.. STA 109| 000012C0: 20 20 20 20 20 3B 49 4E 20 31 31 30 20 45 4E 20 | ;IN 110 EN | 000012D0: 31 30 39 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |109.. LDA | 000012E0: 34 30 39 32 39 2C 58 0D 20 20 20 20 20 20 53 54 |40929,X. ST| 000012F0: 41 20 20 31 31 30 0D 20 20 20 20 20 20 52 54 53 |A 110. RTS| 00001300: 0D 44 41 30 31 32 20 4C 44 41 20 20 32 35 34 20 |.DA012 LDA 254 | 00001310: 20 20 20 3B 28 32 35 34 2C 32 35 33 29 20 3D 3E | ;(254,253) =>| 00001320: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 20 |. STA 252 | 00001330: 20 20 20 3B 28 32 35 32 2C 32 35 31 29 2E 0D 20 | ;(252,251).. | 00001340: 20 20 20 20 20 4C 44 41 20 20 32 35 33 0D 20 20 | LDA 253. | 00001350: 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 | STA 251. | 00001360: 20 20 20 52 54 53 0D 44 41 30 31 33 20 53 45 43 | RTS.DA013 SEC| 00001370: 20 20 20 20 20 20 20 20 20 3B 28 32 35 34 2C 32 | ;(254,2| 00001380: 35 33 29 20 2D 0D 20 20 20 20 20 20 4C 44 41 20 |53) -. LDA | 00001390: 20 32 35 33 20 20 20 20 3B 28 31 31 30 2C 31 30 | 253 ;(110,10| 000013A0: 39 29 20 3D 3E 0D 20 20 20 20 20 20 53 42 43 20 |9) =>. SBC | 000013B0: 20 31 30 39 20 20 20 20 3B 28 32 35 32 2C 32 35 | 109 ;(252,25| 000013C0: 31 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |1).. STA 2| 000013D0: 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |51. LDA 25| 000013E0: 34 0D 20 20 20 20 20 20 53 42 43 20 20 31 31 30 |4. SBC 110| 000013F0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D |. STA 252.| 00001400: 20 20 20 20 20 20 52 54 53 0D 44 58 31 31 31 20 | RTS.DX111 | 00001410: 4A 53 52 20 20 44 41 30 31 33 20 20 3B 5B 28 32 |JSR DA013 ;[(2| 00001420: 35 34 2C 32 35 33 29 20 2D 0D 20 20 20 20 20 20 |54,253) -. | 00001430: 4C 44 41 20 23 30 30 36 20 20 20 20 3B 20 28 31 |LDA #006 ; (1| 00001440: 31 30 2C 31 30 39 29 5D 2F 36 0D 20 20 20 20 20 |10,109)]/6. | 00001450: 20 53 54 41 20 20 31 30 37 20 20 20 20 3B 20 3D | STA 107 ; =| 00001460: 3E 20 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 |> (252,251).. | 00001470: 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 | LDA #000. | 00001480: 20 20 53 54 41 20 20 31 30 38 0D 20 20 20 20 20 | STA 108. | 00001490: 20 4A 53 52 20 20 33 38 35 34 38 0D 20 20 20 20 | JSR 38548. | 000014A0: 20 20 4A 53 52 20 20 44 41 30 31 32 0D 20 20 20 | JSR DA012. | 000014B0: 20 20 20 52 54 53 0D 44 58 31 31 32 20 4A 53 52 | RTS.DX112 JSR| 000014C0: 20 20 44 41 30 31 33 20 20 3B 5B 28 32 35 34 2C | DA013 ;[(254,| 000014D0: 32 35 33 29 20 2D 0D 20 20 20 20 20 20 43 4C 43 |253) -. CLC| 000014E0: 20 20 20 20 20 20 20 20 20 3B 20 28 31 31 30 2C | ; (110,| 000014F0: 31 30 39 29 5D 2F 32 0D 20 20 20 20 20 20 52 4F |109)]/2. RO| 00001500: 52 20 20 32 35 32 20 20 20 20 3B 20 3D 3E 20 28 |R 252 ; => (| 00001510: 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 |252,251).. | 00001520: 52 4F 52 20 20 32 35 31 0D 20 20 20 20 20 20 52 |ROR 251. R| 00001530: 54 53 0D 44 58 31 31 33 20 4C 44 58 20 23 30 30 |TS.DX113 LDX #00| 00001540: 38 20 20 20 20 3B 27 43 4F 4E 54 52 4F 4C 45 2E |8 ;'CONTROLE.| 00001550: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 |.. JSR 387| 00001560: 31 32 20 20 3B 20 3C 46 3E 2E 27 0D 20 20 20 20 |12 ; <F>.'. | 00001570: 20 20 4C 44 58 20 23 30 30 31 20 20 20 20 3B 31 | LDX #001 ;1| 00001580: 20 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 4A 53 | TEKEN.. JS| 00001590: 52 20 20 33 38 31 34 34 20 20 3B 41 43 43 45 50 |R 38144 ;ACCEP| 000015A0: 54 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |T.. LDX #00| 000015B0: 30 20 20 20 20 3B 27 47 27 3A 28 58 29 3D 30 2E |0 ;'G':(X)=0.| 000015C0: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 |. LDY #001 | 000015D0: 20 20 20 3B 27 46 27 3A 28 58 29 3D 31 2E 0D 20 | ;'F':(X)=1.. | 000015E0: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 000015F0: 20 3B 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 43 | ;TEKEN.. C| 00001600: 4D 50 20 23 30 37 31 20 20 20 20 3B 27 47 27 3F |MP #071 ;'G'?| 00001610: 0D 20 20 20 20 20 20 42 45 51 20 44 41 30 32 30 |. BEQ DA020| 00001620: 20 20 20 3B 20 4A 41 3A 28 58 29 3D 30 2E 0D 20 | ; JA:(X)=0.. | 00001630: 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 20 | INX | 00001640: 20 3B 4E 45 45 3A 28 58 29 3D 31 2E 0D 44 41 30 | ;NEE:(X)=1..DA0| 00001650: 32 30 20 52 54 53 20 20 20 20 20 20 20 20 20 3B |20 RTS ;| 00001660: 54 45 52 55 47 2E 0D 20 20 20 20 20 20 53 54 59 |TERUG.. STY| 00001670: 20 20 30 30 32 20 20 20 20 3B 41 44 52 45 53 49 | 002 ;ADRESI| 00001680: 4E 48 4F 55 44 0D 20 20 20 20 20 20 4C 44 59 20 |NHOUD. LDY | 00001690: 23 30 30 30 20 20 20 20 3B 28 28 32 35 34 2C 32 |#000 ;((254,2| 000016A0: 35 33 29 29 0D 20 20 20 20 20 20 53 45 43 20 20 |53)). SEC | 000016B0: 20 20 20 20 20 20 20 3B 56 45 52 4D 49 4E 44 45 | ;VERMINDE| 000016C0: 52 45 4E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 |REN. LDA (2| 000016D0: 35 33 29 2C 59 20 3B 4D 45 54 20 28 59 29 20 45 |53),Y ;MET (Y) E| 000016E0: 4E 0D 20 20 20 20 20 20 53 42 43 20 20 30 30 32 |N. SBC 002| 000016F0: 20 20 20 20 3B 54 45 56 45 4E 53 20 28 59 29 3D | ;TEVENS (Y)=| 00001700: 30 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |0. STA (253| 00001710: 29 2C 59 20 3B 47 45 5A 45 54 2E 0D 20 20 20 20 |),Y ;GEZET.. | 00001720: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 00001730: 20 20 20 20 20 20 4C 44 58 20 23 30 32 34 20 20 | LDX #024 | 00001740: 20 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 | ;OPEN REGEL.. | 00001750: 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 0D | JSR 38712.| 00001760: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001770: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00001780: 20 20 20 20 2E 45 4E 44 0D | .END. |
*=38016. ;.
;LABELSORT..
;. LDX 40931 ;(252,251)=LU..
STX 252 ;(X,Y)=LU.. LDY
40930. STY 251 ;TE VOREN:.
CPX 108 ;A(N+1)=LX IN. BNE TX
001 ;(108,107).. CPY 107 ;LX=L
U:TABEL. BEQ TX009 ;IS LEEG..TX00
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 TX003.TX002 CLC
;A(L+1)=>A(L).. LDA 251. ADC
#002. STA 251. TAY ;(
X,Y)=A(L).. LDA 252. ADC #000
. STA 252. TAX.TX003 CPX 110
;VERGELIJK. BCC TX004 ;MET A(
N).. BEQ TX103. BCS TX009.TX
103 CPY 109 ;A(L)=A(N):. BCS T
X009 ;KLAAR..TX004 CLC.TX104 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 TX
002 ;JA:HOOG L OP.. BEQ TX114.
BCS TX124.TX114 LDA 109. CMP
253. BCC TX002.TX124 LDY #001 ;
NEEN:VERGELIJK.TX005 LDA (251),Y ;ITEMS
L MET H.. CMP (253),Y. BCC TX
204. BEQ TX006. BCS TX007.TX
006 DEY ;PAK L.S.. BPL TX0
05. BMI TX204 ;GELIJK:H+1..TX007
LDY #001 ;GROTER:.TX008 LDA (253),Y ;
ITEMS L EN H. TAX ;VERWISSE
LEN.. LDA (251),Y. STA (253),Y
. TXA. STA (251),Y. DEY.
BPL TX008.TX204 LDY 253 ;HERST
EL (Y).. LDX 254 ;HERSTEL (X)..
CLC. BCC TX104.TX009 RTS.
*=38144. ;.
;TEKST ACCEPT.
;VAN TOETSBORD.. ;.
DA001 STX 251 ;(X)=MAXIMALE. LD
A #042 ;LENGTE IN. STA 252 ;
STERREN.. LDX #008 ;BEGINADRES.
JSR DX107 ;WERKVELD.. JSR 3
8520 ;VULLEN.. JSR 38496 ;OP SCH
ERM.. LDA #157 ;PIJL TERUG..
STA 252. JSR 38520 ;VULLEN..
JSR 38496 ;OP SCHERM.. INC 2
51 ;LENGTE+1.. LDA #013 ;<RET
URN> ALS. STA 252 ;SLUITTOETS..
JSR 40071 ;ACCEPT.. RTS
;NAAR H.P.. NOP.DX101 LDA 007
56 ;VRAAG BEGIN- OF. BEQ DA002 ;
EINDADRES.. INX ;(X)=11(BEG
IN)..DA002 JSR 38712 ;(X)=13(EIND)..
LDX #004 ;DC=(756).. LDA 00
756 ;DC=1:DECIM.. BEQ DA003 ;HEX
.4, DEC.5.. INX.DA003 JSR DA001 ;
ACCEPT 4 OF 5. LDY #001 ;TEKENS.
. JSR 38532 ;ADRES+1.. LDA
00756. BEQ DA004. JSR 39944
;CONVERSIE DEC.. RTS ;NAAR
H.P..DA004 JSR 40016 ;CONVERSIE HEX..
RTS ;NAAR H.P.. NOP.D
X102 LDX #000 ;GEBIEDSNUMMER. LD
A 252 ;VAN (252,251). BEQ DA00
7 ;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 ;2 OF 3.. LDX #002.
JSR 38780. BCC DA007.DA006 INX.DA
007 RTS. NOP. NOP. NOP.
NOP.DX103 LDX #030 ;TEKST. J
SR 39711 ;'UITGEZONDERD'.
;'VELD XX. ; T/M Y
Y.'. JSR 38792 ;VAN=(741,740)..
SEC ;TOT=(743,742).. LD
A 00742 ;SUBPROG.DOET. SBC #001
;TOT - 1 =T/M.. STA 251. LD
A 00743. SBC #000. STA 252.
JSR 38804. JSR 38817 ;VOORB
LOK.. LDX #004 ;TEKST #4..
JSR 38712 ;OUTPUT SCHERM.. RTS.
NOP. NOP. NOP. *=3
8291.DX104 LDA #035 ;ADRES AX OP.
STA 253 ;SCHERM BOVEN. LDA 0
0648 ;RECHTS:POS.35. STA 254 ;
REGEL 1.. JSR 39744. RTS.
NOP.DX105 CLC ;ADRES CHECK.
TYA ;AX+(Y)>AE?. ADC 00
700 ; JA:(X)=1.. STA 107 ;NEE:
(X)=0.. LDX #000 ;AX=(701,700)..
TXA ;OPGEHOOGD ADRES.
ADC 00701 ;AY=AX+(Y) IN. STA 10
8 ;(108,107).. LDA 00763.
CMP 108. BCC DA008. BEQ DAA
08. BCS DA009.DAA08 LDA 00762.
CMP 107. BCS DA009.DA008 INX.D
A009 RTS. NOP. NOP. NOP.
*=38343.DX106 LDX #050 ;AB<
=SL<=AE?. JSR 39700 ;SL=(252,25
1).. LDX #000 ;NEE:(X)=1..
; JA:(X)=0.. JSR 3
8780 ;SL::AB.. BCC DA010.
LDX #052. JSR 39700. LDX #000
. JSR 38780 ;SL::AE.. BEQ
DA011. BCC DA011.DA010 INX.DA011
RTS. NOP. *=38372. LDY
#000 ;LENGTE OP. TYA
;NUL ZETTEN.. STA (253),Y. R
TS. 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. STA
254 ;(X)=8:WU. 253.. RTS.DX108
LDA 40928,X ;ZIE BOVEN.. STA 109
;IN 110 EN 109.. LDA 40929,X.
STA 110. RTS.DA012 LDA 254
;(254,253) =>. STA 252 ;(252
,251).. LDA 253. STA 251.
RTS.DA013 SEC ;(254,253) -.
LDA 253 ;(110,109) =>. SBC
109 ;(252,251).. STA 251.
LDA 254. SBC 110. STA 252.
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 DA013
;[(254,253) -. CLC ; (110,
109)]/2. ROR 252 ; => (252,251)
.. ROR 251. RTS.DX113 LDX #00
8 ;'CONTROLE... JSR 38712 ; <F
>.'. LDX #001 ;1 TEKEN.. JS
R 38144 ;ACCEPT.. LDX #000 ;'G
':(X)=0.. LDY #001 ;'F':(X)=1..
LDA (253),Y ;TEKEN.. CMP #071
;'G'?. BEQ DA020 ; JA:(X)=0..
INX ;NEE:(X)=1..DA020 RTS
;TERUG.. STY 002 ;ADRESI
NHOUD. LDY #000 ;((254,253)).
SEC ;VERMINDEREN. LDA (2
53),Y ;MET (Y) EN. SBC 002 ;TEV
ENS (Y)=0. STA (253),Y ;GEZET..
RTS. NOP. LDX #024 ;OPEN
REGEL.. JSR 38712. RTS.
NOP. NOP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL