DISA41
FILE INFORMATION
FILENAME(S): DISA41
FILE TYPE(S): SEQ
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
9d36f8a81a29bb0d5cf536478db9bcdc11ca78c0f645b62bb000862b3db1ae1b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA41 | SEQ | DuncanTwain | 26 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 38 34 39 36 | *=38496| 00000010: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 | 00000020: 20 20 20 3B 42 52 45 4E 47 20 45 4C 45 4D 45 4E | ;BRENG ELEMEN| 00000030: 54 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |T. LDA (253| 00000040: 29 2C 59 20 3B 4F 50 20 53 43 48 45 52 4D 20 41 |),Y ;OP SCHERM A| 00000050: 46 0D 20 20 20 20 20 20 53 54 41 20 20 31 38 33 |F. STA 183| 00000060: 20 20 20 20 3B 4C 4F 50 45 52 50 4F 53 49 54 49 | ;LOPERPOSITI| 00000070: 45 2E 0D 20 20 20 20 20 20 53 45 43 20 20 20 20 |E.. SEC | 00000080: 20 20 20 20 20 3B 41 4C 3D 28 32 35 34 2C 32 35 | ;AL=(254,25| 00000090: 33 29 3A 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |3):. LDA 2| 000000A0: 35 33 20 20 20 20 3B 41 44 52 45 53 20 56 41 4E |53 ;ADRES VAN| 000000B0: 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 20 |. ADC #000 | 000000C0: 20 20 20 3B 4C 45 4E 47 54 45 42 59 54 45 2E 0D | ;LENGTEBYTE..| 000000D0: 20 20 20 20 20 20 53 54 41 20 20 31 38 37 0D 20 | STA 187. | 000000E0: 20 20 20 20 20 4C 44 41 20 20 32 35 34 20 20 20 | LDA 254 | 000000F0: 20 3B 48 4F 4F 47 20 41 44 52 45 53 20 4F 50 0D | ;HOOG ADRES OP.| 00000100: 20 20 20 20 20 20 41 44 43 20 23 30 30 30 20 20 | ADC #000 | 00000110: 20 20 3B 4D 45 54 20 31 2E 0D 20 20 20 20 20 20 | ;MET 1.. | 00000120: 53 54 41 20 20 31 38 38 0D 20 20 20 20 20 20 4A |STA 188. J| 00000130: 53 52 20 20 36 32 39 31 33 20 20 3B 4F 55 54 50 |SR 62913 ;OUTP| 00000140: 55 54 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |UT.. RTS. | 00000150: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4A 53 | NOP. JS| 00000160: 52 20 20 34 30 31 33 30 20 20 3B 56 55 4C 20 28 |R 40130 ;VUL (| 00000170: 41 2B 30 29 20 4D 45 54 20 4C 0D 20 20 20 20 20 |A+0) MET L. | 00000180: 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 45 4E | LDY #000 ;EN| 00000190: 20 28 41 2B 31 29 2E 2E 28 41 2B 4C 29 0D 20 20 | (A+1)..(A+L). | 000001A0: 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 20 20 | LDA 251 | 000001B0: 3B 4D 45 54 20 49 54 45 4D 20 28 32 35 32 29 2E |;MET ITEM (252).| 000001C0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 000001D0: 2C 59 20 3B 4C 3D 28 32 35 31 29 2E 0D 20 20 20 |,Y ;L=(251).. | 000001E0: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 000001F0: 41 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 |A=(254,253).. | 00000200: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00000210: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000220: 20 20 20 3B 41 2B 28 59 29 3D 3E 41 3B 0D 20 20 | ;A+(Y)=>A;. | 00000230: 20 20 20 20 54 59 41 20 20 20 20 20 20 20 20 20 | TYA | 00000240: 3B 30 3D 3E 28 59 29 2E 0D 20 20 20 20 20 20 41 |;0=>(Y).. A| 00000250: 44 43 20 20 32 35 33 20 20 20 20 3B 41 3D 28 32 |DC 253 ;A=(2| 00000260: 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 53 |54,253).. S| 00000270: 54 41 20 20 32 35 33 0D 20 20 20 20 20 20 4C 44 |TA 253. LD| 00000280: 59 20 23 30 30 30 0D 20 20 20 20 20 20 54 59 41 |Y #000. TYA| 00000290: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 34 0D |. ADC 254.| 000002A0: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 | STA 254. | 000002B0: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 000002C0: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 000002D0: 20 20 20 54 58 41 20 20 20 20 20 3B 44 45 4C 45 | TXA ;DELE| 000002E0: 4E 2E 0D 20 20 20 20 20 20 50 48 41 20 20 20 20 |N.. PHA | 000002F0: 20 3B 28 32 35 32 2C 32 35 31 29 2F 28 31 30 38 | ;(252,251)/(108| 00000300: 2C 31 30 37 29 0D 20 20 20 20 20 20 54 59 41 20 |,107). TYA | 00000310: 20 20 20 20 3B 51 55 4F 54 2E 28 32 35 34 2C 32 | ;QUOT.(254,2| 00000320: 35 33 29 2C 0D 20 20 20 20 20 20 50 48 41 20 20 |53),. PHA | 00000330: 20 20 20 3B 52 45 53 54 20 28 32 35 32 2C 32 35 | ;REST (252,25| 00000340: 31 29 2E 0D 20 20 20 20 20 20 4C 44 58 20 20 32 |1).. LDX 2| 00000350: 35 31 0D 20 20 20 20 20 20 4C 44 59 20 20 32 35 |51. LDY 25| 00000360: 32 20 20 3B 44 45 45 4C 54 41 4C 20 49 4E 20 52 |2 ;DEELTAL IN R| 00000370: 45 53 54 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |EST.. LDA | 00000380: 31 30 38 20 20 3B 44 45 4C 45 52 20 49 4E 20 28 |108 ;DELER IN (| 00000390: 33 31 2C 33 30 29 2E 0D 20 20 20 20 20 20 53 54 |31,30).. ST| 000003A0: 41 20 20 30 33 31 0D 20 20 20 20 20 20 4C 44 41 |A 031. LDA| 000003B0: 20 20 31 30 37 0D 20 20 20 20 20 20 53 54 41 20 | 107. STA | 000003C0: 20 30 33 30 0D 20 20 20 20 20 20 4F 52 41 20 20 | 030. ORA | 000003D0: 30 33 31 0D 20 20 20 20 20 20 42 45 51 20 20 44 |031. BEQ D| 000003E0: 48 30 30 38 20 20 3B 4E 49 45 54 20 44 4F 4F 52 |H008 ;NIET DOOR| 000003F0: 20 4E 55 4C 0D 20 20 20 20 20 20 4C 44 41 20 23 | NUL. LDA #| 00000400: 30 30 31 20 20 20 20 3B 44 45 4C 45 4E 2E 0D 20 |001 ;DELEN.. | 00000410: 20 20 20 20 20 53 54 41 20 20 30 33 32 20 20 20 | STA 032 | 00000420: 20 3B 53 43 48 55 49 46 42 49 54 20 49 4E 0D 20 | ;SCHUIFBIT IN. | 00000430: 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 | LDA #000 | 00000440: 20 3B 28 33 33 2C 33 32 29 2E 0D 20 20 20 20 20 | ;(33,32).. | 00000450: 20 53 54 41 20 20 30 33 33 20 20 20 20 3B 50 4F | STA 033 ;PO| 00000460: 45 54 53 20 51 55 4F 54 49 45 4E 54 2E 0D 20 20 |ETS QUOTIENT.. | 00000470: 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 | STA 253. | 00000480: 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 | STA 254. | 00000490: 20 20 42 45 51 20 20 44 48 30 30 32 0D 44 48 30 | BEQ DH002.DH0| 000004A0: 30 31 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B |01 CLC ;| 000004B0: 4E 41 20 43 48 45 43 4B 20 53 43 48 55 49 46 0D |NA CHECK SCHUIF.| 000004C0: 20 20 20 20 20 20 52 4F 4C 20 20 30 33 30 20 20 | ROL 030 | 000004D0: 20 20 3B 53 43 48 55 49 46 44 45 4C 45 52 0D 20 | ;SCHUIFDELER. | 000004E0: 20 20 20 20 20 52 4F 4C 20 20 30 33 31 20 20 20 | ROL 031 | 000004F0: 20 3B 45 4E 20 53 43 48 55 49 46 42 49 54 0D 20 | ;EN SCHUIFBIT. | 00000500: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000510: 20 3B 4E 41 41 52 20 4C 49 4E 4B 53 2E 0D 20 20 | ;NAAR LINKS.. | 00000520: 20 20 20 20 52 4F 4C 20 20 30 33 32 0D 20 20 20 | ROL 032. | 00000530: 20 20 20 52 4F 4C 20 20 30 33 33 0D 44 48 30 30 | ROL 033.DH00| 00000540: 32 20 4C 44 41 20 20 30 33 31 20 20 20 20 3B 43 |2 LDA 031 ;C| 00000550: 48 45 43 4B 20 4D 53 20 42 49 54 2E 0D 20 20 20 |HECK MS BIT.. | 00000560: 20 20 20 41 4E 44 20 23 31 32 38 0D 20 20 20 20 | AND #128. | 00000570: 20 20 42 45 51 20 20 44 48 30 30 31 0D 44 48 30 | BEQ DH001.DH0| 00000580: 30 33 20 43 50 59 20 20 30 33 31 20 20 20 20 3B |03 CPY 031 ;| 00000590: 4E 55 20 44 45 4C 45 4E 2E 0D 20 20 20 20 20 20 |NU DELEN.. | 000005A0: 42 43 43 20 20 44 48 30 30 37 20 20 3B 3C 2E 0D |BCC DH007 ;<..| 000005B0: 20 20 20 20 20 20 42 45 51 20 20 44 48 30 30 34 | BEQ DH004| 000005C0: 20 20 3B 3D 2E 0D 20 20 20 20 20 20 42 43 53 20 | ;=.. BCS | 000005D0: 20 44 48 30 30 35 20 20 3B 3E 2E 0D 44 48 30 30 | DH005 ;>..DH00| 000005E0: 34 20 43 50 58 20 20 30 33 30 0D 20 20 20 20 20 |4 CPX 030. | 000005F0: 20 42 43 43 20 20 44 48 30 30 37 0D 44 48 30 30 | BCC DH007.DH00| 00000600: 35 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 54 |5 SEC ;T| 00000610: 52 45 4B 20 53 43 48 55 49 46 2D 0D 20 20 20 20 |REK SCHUIF-. | 00000620: 20 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 44 | TXA ;D| 00000630: 45 4C 45 52 20 41 46 2E 0D 20 20 20 20 20 20 53 |ELER AF.. S| 00000640: 42 43 20 20 30 33 30 0D 20 20 20 20 20 20 54 41 |BC 030. TA| 00000650: 58 0D 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 |X. TYA. | 00000660: 20 20 53 42 43 20 20 30 33 31 0D 20 20 20 20 20 | SBC 031. | 00000670: 20 54 41 59 0D 20 20 20 20 20 20 4C 44 41 20 20 | TAY. LDA | 00000680: 30 33 33 20 20 20 20 3B 53 43 48 55 49 46 42 49 |033 ;SCHUIFBI| 00000690: 54 0D 20 20 20 20 20 20 42 45 51 20 20 44 48 30 |T. BEQ DH0| 000006A0: 30 36 20 20 3B 49 4E 20 51 55 4F 54 49 45 4E 54 |06 ;IN QUOTIENT| 000006B0: 2E 0D 20 20 20 20 20 20 4F 52 41 20 20 32 35 34 |.. ORA 254| 000006C0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D |. STA 254.| 000006D0: 44 48 30 30 36 20 4C 44 41 20 20 30 33 32 0D 20 |DH006 LDA 032. | 000006E0: 20 20 20 20 20 42 45 51 20 20 44 48 30 30 37 0D | BEQ DH007.| 000006F0: 20 20 20 20 20 20 4F 52 41 20 20 32 35 33 0D 20 | ORA 253. | 00000700: 20 20 20 20 20 53 54 41 20 20 32 35 33 0D 44 48 | STA 253.DH| 00000710: 30 30 37 20 43 4C 43 20 20 20 20 20 20 20 20 20 |007 CLC | 00000720: 3B 53 43 48 55 49 46 20 53 43 48 55 49 46 2D 0D |;SCHUIF SCHUIF-.| 00000730: 20 20 20 20 20 20 52 4F 52 20 20 30 33 31 20 20 | ROR 031 | 00000740: 20 20 3B 42 49 54 20 45 4E 20 53 43 48 55 49 46 | ;BIT EN SCHUIF| 00000750: 2D 0D 20 20 20 20 20 20 52 4F 52 20 20 30 33 30 |-. ROR 030| 00000760: 20 20 20 20 3B 44 45 4C 45 52 20 45 45 4E 20 4E | ;DELER EEN N| 00000770: 41 41 52 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |AAR. CLC | 00000780: 20 20 20 20 20 20 3B 52 45 43 48 54 53 2E 0D 20 | ;RECHTS.. | 00000790: 20 20 20 20 20 52 4F 52 20 20 30 33 33 0D 20 20 | ROR 033. | 000007A0: 20 20 20 20 52 4F 52 20 20 30 33 32 0D 20 20 20 | ROR 032. | 000007B0: 20 20 20 42 43 43 20 20 44 48 30 30 33 20 20 3B | BCC DH003 ;| 000007C0: 45 49 4E 44 20 56 41 4E 20 44 45 4C 45 4E 3F 0D |EIND VAN DELEN?.| 000007D0: 44 48 30 30 38 20 53 54 58 20 20 32 35 31 20 20 |DH008 STX 251 | 000007E0: 20 20 3B 4A 41 3A 5A 45 54 20 52 45 53 54 2E 0D | ;JA:ZET REST..| 000007F0: 20 20 20 20 20 20 53 54 59 20 20 32 35 32 0D 20 | STY 252. | 00000800: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 54 | PLA. T| 00000810: 41 59 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 |AY. PLA. | 00000820: 20 20 20 54 41 58 0D 20 20 20 20 20 20 52 54 53 | TAX. RTS| 00000830: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000840: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000850: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 54 | NOP. T| 00000860: 58 41 20 20 20 3B 56 45 52 4D 45 4E 49 47 56 55 |XA ;VERMENIGVU| 00000870: 4C 44 49 47 45 4E 0D 20 20 20 20 20 20 50 48 41 |LDIGEN. PHA| 00000880: 20 20 20 3B 4D 45 54 20 4F 50 54 45 4C 4C 45 4E | ;MET OPTELLEN| 00000890: 2E 0D 20 20 20 20 20 20 54 59 41 20 20 20 3B 28 |.. TYA ;(| 000008A0: 32 35 32 2C 32 35 31 29 20 2B 20 50 52 4F 44 55 |252,251) + PRODU| 000008B0: 43 54 0D 20 20 20 20 20 20 50 48 41 20 20 20 3B |CT. PHA ;| 000008C0: 28 32 35 34 2C 32 35 33 29 2A 28 31 30 38 2C 31 |(254,253)*(108,1| 000008D0: 30 37 29 0D 20 20 20 20 20 20 4C 44 58 20 20 31 |07). LDX 1| 000008E0: 30 38 20 3B 3D 3E 28 32 35 32 2C 32 35 31 29 2E |08 ;=>(252,251).| 000008F0: 0D 20 20 20 20 20 20 4C 44 59 20 20 31 30 37 0D |. LDY 107.| 00000900: 20 20 20 20 20 20 43 4C 43 0D 44 48 30 30 39 20 | CLC.DH009 | 00000910: 4C 44 41 20 20 32 35 34 20 20 20 20 3B 53 43 48 |LDA 254 ;SCH| 00000920: 55 49 46 46 41 43 54 4F 52 2E 0D 20 20 20 20 20 |UIFFACTOR.. | 00000930: 20 42 4E 45 20 20 44 48 30 31 30 0D 20 20 20 20 | BNE DH010. | 00000940: 20 20 4C 44 41 20 20 32 35 33 0D 20 20 20 20 20 | LDA 253. | 00000950: 20 42 45 51 20 20 44 48 30 31 33 0D 20 20 20 20 | BEQ DH013. | 00000960: 20 20 42 4E 45 20 20 44 48 30 31 31 0D 44 48 30 | BNE DH011.DH0| 00000970: 31 30 20 52 4F 52 20 20 32 35 34 0D 44 48 30 31 |10 ROR 254.DH01| 00000980: 31 20 52 4F 52 20 20 32 35 33 0D 20 20 20 20 20 |1 ROR 253. | 00000990: 20 42 43 43 20 20 44 48 30 31 32 0D 20 20 20 20 | BCC DH012. | 000009A0: 20 20 43 4C 43 0D 20 20 20 20 20 20 54 59 41 0D | CLC. TYA.| 000009B0: 20 20 20 20 20 20 41 44 43 20 20 32 35 31 20 20 | ADC 251 | 000009C0: 20 20 3B 42 49 54 20 31 3A 54 45 4C 20 4F 50 2E | ;BIT 1:TEL OP.| 000009D0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D |. STA 251.| 000009E0: 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 | TXA. | 000009F0: 41 44 43 20 20 32 35 32 0D 20 20 20 20 20 20 53 |ADC 252. S| 00000A00: 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 43 4C |TA 252. CL| 00000A10: 43 0D 44 48 30 31 32 20 54 59 41 20 20 20 20 20 |C.DH012 TYA | 00000A20: 20 20 20 20 3B 44 41 41 52 4E 41 20 53 43 48 55 | ;DAARNA SCHU| 00000A30: 49 46 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |IF.. .BYTE | 00000A40: 24 32 41 0D 20 20 20 20 20 20 54 41 59 0D 20 20 |$2A. TAY. | 00000A50: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 2E 42 | TXA. .B| 00000A60: 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 54 41 |YTE $2A. TA| 00000A70: 58 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 |X. CLC. | 00000A80: 20 20 42 43 43 20 20 44 48 30 30 39 20 20 3B 45 | BCC DH009 ;E| 00000A90: 49 4E 44 2E 0D 44 48 30 31 33 20 50 4C 41 0D 20 |IND..DH013 PLA. | 00000AA0: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 50 | TAY. P| 00000AB0: 4C 41 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 |LA. TAX. | 00000AC0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 00000AD0: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000AE0: 20 3B 54 45 4B 53 54 20 54 3D 28 58 29 20 4E 41 | ;TEKST T=(X) NA| 00000AF0: 41 52 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 |AR. TXA | 00000B00: 20 20 20 3B 53 43 48 45 52 4D 20 41 46 20 4C 4F | ;SCHERM AF LO| 00000B10: 50 45 52 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 |PER.. .BYTE| 00000B20: 20 24 32 41 20 3B 28 59 29 3D 32 2A 54 2E 0D 20 | $2A ;(Y)=2*T.. | 00000B30: 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 3B | TAY ;| 00000B40: 28 31 30 38 2C 31 30 37 29 20 41 44 52 45 53 0D |(108,107) ADRES.| 00000B50: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 00000B60: 3B 42 45 47 49 4E 20 56 4F 4F 52 42 4C 4F 4B 2E |;BEGIN VOORBLOK.| 00000B70: 0D 20 20 20 20 20 20 4C 44 41 20 28 31 30 37 29 |. LDA (107)| 00000B80: 2C 59 20 3B 42 45 52 45 4B 45 4E 20 48 45 54 0D |,Y ;BEREKEN HET.| 00000B90: 20 20 20 20 20 20 41 44 43 20 20 31 30 37 20 20 | ADC 107 | 00000BA0: 20 20 3B 41 44 52 45 53 20 49 4E 20 48 45 54 0D | ;ADRES IN HET.| 00000BB0: 20 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 | STA 253 | 00000BC0: 20 20 3B 53 54 55 55 52 42 4C 4F 4B 3A 0D 20 20 | ;STUURBLOK:. | 00000BD0: 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 | INY | 00000BE0: 3B 41 53 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 |;AS=(254,253).. | 00000BF0: 20 20 20 20 20 4C 44 41 20 28 31 30 37 29 2C 59 | LDA (107),Y| 00000C00: 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 38 0D |. ADC 108.| 00000C10: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 | STA 254. | 00000C20: 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 | LDY #000 | 00000C30: 20 3B 4C 45 4E 47 54 45 2E 0D 20 20 20 20 20 20 | ;LENGTE.. | 00000C40: 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4E 55 4C |LDA (253),Y ;NUL| 00000C50: 3A 56 4F 4C 47 45 4E 44 0D 20 20 20 20 20 20 42 |:VOLGEND. B| 00000C60: 45 51 20 20 44 48 30 31 37 20 20 3B 45 4C 45 4D |EQ DH017 ;ELEM| 00000C70: 45 4E 54 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |ENT.. STA | 00000C80: 30 30 32 20 20 20 20 3B 52 45 44 20 49 4E 20 28 |002 ;RED IN (| 00000C90: 30 30 32 29 2E 0D 44 48 30 31 34 20 49 4E 59 20 |002)..DH014 INY | 00000CA0: 20 20 20 20 20 20 20 20 3B 44 41 41 52 4E 41 20 | ;DAARNA | 00000CB0: 5A 45 54 20 49 4E 0D 20 20 20 20 20 20 43 4C 43 |ZET IN. CLC| 00000CC0: 20 20 20 20 20 20 20 20 20 3B 28 31 38 38 2C 31 | ;(188,1| 00000CD0: 38 37 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 |87).. LDA (| 00000CE0: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 41 44 43 |253),Y. ADC| 00000CF0: 20 20 31 30 37 0D 20 20 20 20 20 20 53 54 41 20 | 107. STA | 00000D00: 20 31 38 37 0D 20 20 20 20 20 20 49 4E 59 0D 20 | 187. INY. | 00000D10: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 00000D20: 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 38 0D |. ADC 108.| 00000D30: 20 20 20 20 20 20 53 54 41 20 20 31 38 38 0D 20 | STA 188. | 00000D40: 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 50 | TYA. P| 00000D50: 48 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |HA. LDY #00| 00000D60: 30 20 20 20 20 3B 41 41 4E 54 41 4C 20 49 4E 20 |0 ;AANTAL IN | 00000D70: 31 38 33 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 |183.. LDA (| 00000D80: 31 38 37 29 2C 59 20 3B 4E 55 4C 3A 53 4C 41 20 |187),Y ;NUL:SLA | 00000D90: 4F 56 45 52 2E 0D 20 20 20 20 20 20 42 45 51 20 |OVER.. BEQ | 00000DA0: 20 44 48 30 31 36 0D 20 20 20 20 20 20 53 54 41 | DH016. STA| 00000DB0: 20 20 31 38 33 0D 20 20 20 20 20 20 49 4E 43 20 | 183. INC | 00000DC0: 20 31 38 37 20 20 20 20 3B 41 44 52 45 53 20 2B | 187 ;ADRES +| 00000DD0: 20 31 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 44 | 1.. BNE D| 00000DE0: 48 30 31 35 0D 20 20 20 20 20 20 49 4E 43 20 20 |H015. INC | 00000DF0: 31 38 38 0D 44 48 30 31 35 20 4A 53 52 20 20 36 |188.DH015 JSR 6| 00000E00: 32 39 31 33 20 20 3B 4F 55 54 50 55 54 2E 0D 44 |2913 ;OUTPUT..D| 00000E10: 48 30 31 36 20 50 4C 41 0D 20 20 20 20 20 20 54 |H016 PLA. T| 00000E20: 41 59 20 20 20 20 20 20 20 20 20 3B 4C 45 4E 47 |AY ;LENG| 00000E30: 54 45 20 57 45 45 52 2E 0D 20 20 20 20 20 20 44 |TE WEER.. D| 00000E40: 45 43 20 20 30 30 32 20 20 20 20 3B 41 46 54 45 |EC 002 ;AFTE| 00000E50: 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 42 4E 45 20 |LLEN.. BNE | 00000E60: 20 44 48 30 31 34 20 20 3B 45 49 4E 44 2E 0D 44 | DH014 ;EIND..D| 00000E70: 48 30 31 37 20 52 54 53 0D 20 20 20 20 20 20 4E |H017 RTS. N| 00000E80: 4F 50 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |OP. LDA 25| 00000E90: 32 20 20 20 20 3B 56 45 52 47 45 4C 49 4A 4B 45 |2 ;VERGELIJKE| 00000EA0: 4E 2E 0D 20 20 20 20 20 20 43 4D 50 20 20 31 31 |N.. CMP 11| 00000EB0: 30 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 20 |0 ;(252,251) | 00000EC0: 3A 3A 0D 20 20 20 20 20 20 42 4E 45 20 20 44 48 |::. BNE DH| 00000ED0: 30 31 38 20 20 3B 28 31 31 30 2C 31 30 39 29 2E |018 ;(110,109).| 00000EE0: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 |. LDA 251 | 00000EF0: 20 20 20 3B 28 43 29 3D 30 20 3C 2E 0D 20 20 20 | ;(C)=0 <.. | 00000F00: 20 20 20 43 4D 50 20 20 31 30 39 20 20 20 20 3B | CMP 109 ;| 00000F10: 28 43 29 3D 31 20 3E 3D 2E 0D 44 48 30 31 38 20 |(C)=1 >=..DH018 | 00000F20: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |RTS. NOP. | 00000F30: 20 20 20 20 4C 44 41 20 23 30 30 33 20 20 20 20 | LDA #003 | 00000F40: 3B 33 39 36 38 33 20 49 4E 0D 20 20 20 20 20 20 |;39683 IN. | 00000F50: 53 54 41 20 20 32 35 33 20 20 20 20 3B 28 32 35 |STA 253 ;(25| 00000F60: 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 4C 44 |4,253).. LD| 00000F70: 41 20 23 31 35 35 20 20 20 20 3B 58 58 58 58 58 |A #155 ;XXXXX| 00000F80: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 |.. STA 254| 00000F90: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 30 30 |. JSR 3700| 00000FA0: 38 20 20 3B 44 45 43 4F 4E 56 45 52 53 49 45 2E |8 ;DECONVERSIE.| 00000FB0: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00000FC0: 20 4C 44 41 20 23 30 30 39 20 20 20 20 3B 33 39 | LDA #009 ;39| 00000FD0: 36 38 39 20 49 4E 0D 20 20 20 20 20 20 53 54 41 |689 IN. STA| 00000FE0: 20 20 32 35 33 20 20 20 20 3B 28 32 35 34 2C 32 | 253 ;(254,2| 00000FF0: 35 33 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |53).. LDA #| 00001000: 31 35 35 20 20 20 20 3B 59 59 59 59 59 2E 0D 20 |155 ;YYYYY.. | 00001010: 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 | STA 254. | 00001020: 20 20 20 20 4A 53 52 20 20 33 37 30 30 38 20 20 | JSR 37008 | 00001030: 3B 44 45 43 4F 4E 56 45 52 53 49 45 2E 0D 20 20 |;DECONVERSIE.. | 00001040: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00001050: 50 0D 20 20 20 20 20 20 4C 44 41 20 20 34 30 39 |P. LDA 409| 00001060: 33 34 20 20 3B 42 45 47 49 4E 41 44 52 45 53 0D |34 ;BEGINADRES.| 00001070: 20 20 20 20 20 20 53 54 41 20 20 31 30 37 20 20 | STA 107 | 00001080: 20 20 3B 56 4F 4F 52 42 4C 4F 4B 20 54 45 4B 53 | ;VOORBLOK TEKS| 00001090: 54 0D 20 20 20 20 20 20 4C 44 41 20 20 34 30 39 |T. LDA 409| 000010A0: 33 35 20 20 3B 49 4E 20 28 31 30 38 2C 31 30 37 |35 ;IN (108,107| 000010B0: 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 |).. STA 10| 000010C0: 38 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |8. RTS. | 000010D0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 000010E0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000010F0: 4E 4F 50 0D 20 20 20 20 20 20 2E 45 4E 44 0D |NOP. .END. |
*=38496. LDY #000 ;BREN
G ELEMENT. LDA (253),Y ;OP SCHERM A
F. STA 183 ;LOPERPOSITIE..
SEC ;AL=(254,253):. LDA 2
53 ;ADRES VAN. ADC #000 ;LENG
TEBYTE.. STA 187. LDA 254
;HOOG ADRES OP. ADC #000 ;MET 1
.. STA 188. JSR 62913 ;OUTP
UT.. RTS. NOP. JSR 40130
;VUL (A+0) MET L. LDY #000 ;EN
(A+1)..(A+L). LDA 251 ;MET ITE
M (252).. STA (253),Y ;L=(251)..
RTS ;A=(254,253).. NOP.
NOP. CLC ;A+(Y)=>A;.
TYA ;0=>(Y).. ADC 253
;A=(254,253).. STA 253. LD
Y #000. TYA. ADC 254. ST
A 254. RTS. NOP. NOP.
TXA ;DELEN.. PHA ;(252,2
51)/(108,107). TYA ;QUOT.(254,2
53),. PHA ;REST (252,251)..
LDX 251. LDY 252 ;DEELTAL IN R
EST.. LDA 108 ;DELER IN (31,30)..
STA 031. LDA 107. STA
030. ORA 031. BEQ DH008 ;N
IET DOOR NUL. LDA #001 ;DELEN..
STA 032 ;SCHUIFBIT IN. LDA
#000 ;(33,32).. STA 033 ;PO
ETS QUOTIENT.. STA 253. STA
254. BEQ DH002.DH001 CLC ;
NA CHECK SCHUIF. ROL 030 ;SCHUI
FDELER. ROL 031 ;EN SCHUIFBIT.
CLC ;NAAR LINKS.. ROL
032. ROL 033.DH002 LDA 031 ;C
HECK MS BIT.. AND #128. BEQ D
H001.DH003 CPY 031 ;NU DELEN..
BCC DH007 ;<.. BEQ DH004 ;=..
BCS DH005 ;>..DH004 CPX 030.
BCC DH007.DH005 SEC ;TREK SCHU
IF-. TXA ;DELER AF.. S
BC 030. TAX. TYA. SBC 0
31. TAY. LDA 033 ;SCHUIFBI
T. BEQ DH006 ;IN QUOTIENT..
ORA 254. STA 254.DH006 LDA 032.
BEQ DH007. ORA 253. STA
253.DH007 CLC ;SCHUIF SCHUIF-.
ROR 031 ;BIT EN SCHUIF-.
ROR 030 ;DELER EEN NAAR. CLC
;RECHTS.. ROR 033. ROR
032. BCC DH003 ;EIND VAN DELEN?.
DH008 STX 251 ;JA:ZET REST.. ST
Y 252. PLA. TAY. PLA.
TAX. RTS. NOP. NOP.
NOP. NOP. TXA ;VERMENIGVU
LDIGEN. PHA ;MET OPTELLEN..
TYA ;(252,251) + PRODUCT. PHA ;
(254,253)*(108,107). LDX 108 ;=>(2
52,251).. LDY 107. CLC.DH009
LDA 254 ;SCHUIFFACTOR.. BNE DH
010. LDA 253. BEQ DH013.
BNE DH011.DH010 ROR 254.DH011 ROR 2
53. BCC DH012. CLC. TYA.
ADC 251 ;BIT 1:TEL OP.. S
TA 251. TXA. ADC 252. S
TA 252. CLC.DH012 TYA ;DAA
RNA SCHUIF.. .BYTE $2A. TAY.
TXA. .BYTE $2A. TAX.
CLC. BCC DH009 ;EIND..DH013 PLA.
TAY. PLA. TAX. RTS.
NOP. CLC ;TEKST T=(X) NA
AR. TXA ;SCHERM AF LOPER..
.BYTE $2A ;(Y)=2*T.. TAY ;
(108,107) ADRES. CLC ;BEGIN V
OORBLOK.. LDA (107),Y ;BEREKEN HET.
ADC 107 ;ADRES IN HET. ST
A 253 ;STUURBLOK:. INY
;AS=(254,253).. LDA (107),Y. A
DC 108. STA 254. LDY #000
;LENGTE.. LDA (253),Y ;NUL:VOLGEND
. BEQ DH017 ;ELEMENT.. STA
002 ;RED IN (002)..DH014 INY
;DAARNA ZET IN. CLC ;(188,1
87).. LDA (253),Y. ADC 107.
STA 187. INY. LDA (253),Y
. ADC 108. STA 188. TYA
. PHA. LDY #000 ;AANTAL IN
183.. LDA (187),Y ;NUL:SLA OVER..
BEQ DH016. STA 183. INC
187 ;ADRES + 1.. BNE DH015.
INC 188.DH015 JSR 62913 ;OUTPUT..D
H016 PLA. TAY ;LENGTE WEER.
. DEC 002 ;AFTELLEN.. BNE
DH014 ;EIND..DH017 RTS. NOP.
LDA 252 ;VERGELIJKEN.. CMP 11
0 ;(252,251) ::. BNE DH018 ;(1
10,109).. LDA 251 ;(C)=0 <..
CMP 109 ;(C)=1 >=..DH018 RTS.
NOP. LDA #003 ;39683 IN.
STA 253 ;(254,253).. LDA #155
;XXXXX.. STA 254. JSR 3700
8 ;DECONVERSIE.. RTS. LDA #00
9 ;39689 IN. STA 253 ;(254,2
53).. LDA #155 ;YYYYY.. STA
254. JSR 37008 ;DECONVERSIE..
RTS. NOP. LDA 40934 ;BEG
INADRES. STA 107 ;VOORBLOK TEKS
T. LDA 40935 ;IN (108,107)..
STA 108. RTS. NOP. NOP.
NOP. NOP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL