DISN43
FILE INFORMATION
FILENAME(S): DISN43
FILE TYPE(S): SEQ
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
2aabe78bf116f01f219c07fc34aea14f21126c735764ac781701ce5fc70fd827
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES 2 | DISN43 | SEQ | DuncanTwain | 3 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 35 38 32 34 | *=35824| 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 56 2E 0D 20 | ; DEEL IV.. | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 000000A0: 20 20 20 20 20 3B 52 45 4B 45 4E 4B 55 4E 44 45 | ;REKENKUNDE| 000000B0: 2D 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |-. | 000000C0: 20 20 20 20 3B 45 4E 20 4F 55 54 50 55 54 2D 0D | ;EN OUTPUT-.| 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 3B 52 4F 55 54 49 4E 45 53 2E 0D 20 20 20 | ;ROUTINES.. | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000100: 0D 45 4C 53 43 52 20 4C 44 59 20 23 30 30 30 20 |.ELSCR LDY #000 | 00000110: 20 20 20 3B 42 52 45 4E 47 20 45 4C 45 4D 45 4E | ;BRENG ELEMEN| 00000120: 54 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |T. LDA (253| 00000130: 29 2C 59 20 3B 4F 50 20 53 43 48 45 52 4D 20 41 |),Y ;OP SCHERM A| 00000140: 46 0D 20 20 20 20 20 20 53 54 41 20 20 31 38 33 |F. STA 183| 00000150: 20 20 20 20 3B 4C 4F 50 45 52 50 4F 53 49 54 49 | ;LOPERPOSITI| 00000160: 45 2E 0D 20 20 20 20 20 20 53 45 43 20 20 20 20 |E.. SEC | 00000170: 20 20 20 20 20 3B 41 4C 3D 28 32 35 34 2C 32 35 | ;AL=(254,25| 00000180: 33 29 3A 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |3):. LDA 2| 00000190: 35 33 20 20 20 20 3B 41 44 52 45 53 20 56 41 4E |53 ;ADRES VAN| 000001A0: 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 20 |. ADC #000 | 000001B0: 20 20 20 3B 4C 45 4E 47 54 45 42 59 54 45 2E 0D | ;LENGTEBYTE..| 000001C0: 20 20 20 20 20 20 53 54 41 20 20 31 38 37 0D 20 | STA 187. | 000001D0: 20 20 20 20 20 4C 44 41 20 20 32 35 34 20 20 20 | LDA 254 | 000001E0: 20 3B 48 4F 4F 47 20 41 44 52 45 53 20 4F 50 0D | ;HOOG ADRES OP.| 000001F0: 20 20 20 20 20 20 41 44 43 20 23 30 30 30 20 20 | ADC #000 | 00000200: 20 20 3B 4D 45 54 20 31 2E 0D 20 20 20 20 20 20 | ;MET 1.. | 00000210: 53 54 41 20 20 31 38 38 0D 20 20 20 20 20 20 4A |STA 188. J| 00000220: 53 52 20 20 36 32 39 31 33 20 20 3B 4F 55 54 50 |SR 62913 ;OUTP| 00000230: 55 54 2E 0D 20 20 20 20 20 20 52 54 53 0D 45 4C |UT.. RTS.EL| 00000240: 56 55 4C 20 4A 53 52 20 20 56 55 4C 4C 4E 20 20 |VUL JSR VULLN | 00000250: 3B 56 55 4C 20 28 41 2B 30 29 20 4D 45 54 20 4C |;VUL (A+0) MET L| 00000260: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 | 00000270: 20 20 20 3B 45 4E 20 28 41 2B 31 29 2E 2E 28 41 | ;EN (A+1)..(A| 00000280: 2B 4C 29 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |+L). LDA 2| 00000290: 35 31 20 20 20 20 3B 4D 45 54 20 49 54 45 4D 20 |51 ;MET ITEM | 000002A0: 28 32 35 32 29 2E 0D 20 20 20 20 20 20 53 54 41 |(252).. STA| 000002B0: 20 28 32 35 33 29 2C 59 20 3B 4C 3D 28 32 35 31 | (253),Y ;L=(251| 000002C0: 29 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |).. RTS | 000002D0: 20 20 20 20 20 3B 41 3D 28 32 35 34 2C 32 35 33 | ;A=(254,253| 000002E0: 29 2E 0D 41 44 50 41 44 20 43 4C 43 20 20 20 20 |)..ADPAD CLC | 000002F0: 20 20 20 20 20 3B 41 2B 28 59 29 3D 3E 41 3B 0D | ;A+(Y)=>A;.| 00000300: 20 20 20 20 20 20 54 59 41 20 20 20 20 20 20 20 | TYA | 00000310: 20 20 3B 30 3D 3E 28 59 29 2E 0D 20 20 20 20 20 | ;0=>(Y).. | 00000320: 20 41 44 43 20 20 32 35 33 20 20 20 20 3B 41 3D | ADC 253 ;A=| 00000330: 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 |(254,253).. | 00000340: 20 53 54 41 20 20 32 35 33 0D 20 20 20 20 20 20 | STA 253. | 00000350: 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 54 |LDY #000. T| 00000360: 59 41 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |YA. ADC 25| 00000370: 34 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 |4. STA 254| 00000380: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00000390: 20 4E 4F 50 0D 44 49 56 41 46 20 54 58 41 20 20 | NOP.DIVAF TXA | 000003A0: 20 20 20 3B 44 45 4C 45 4E 2E 0D 20 20 20 20 20 | ;DELEN.. | 000003B0: 20 50 48 41 20 20 20 20 20 3B 28 32 35 32 2C 32 | PHA ;(252,2| 000003C0: 35 31 29 2F 28 31 30 38 2C 31 30 37 29 0D 20 20 |51)/(108,107). | 000003D0: 20 20 20 20 54 59 41 20 20 20 20 20 3B 51 55 4F | TYA ;QUO| 000003E0: 54 2E 28 32 35 34 2C 32 35 33 29 2C 0D 20 20 20 |T.(254,253),. | 000003F0: 20 20 20 50 48 41 20 20 20 20 20 3B 52 45 53 54 | PHA ;REST| 00000400: 20 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 | (252,251).. | 00000410: 20 20 4C 44 58 20 20 32 35 31 0D 20 20 20 20 20 | LDX 251. | 00000420: 20 4C 44 59 20 20 32 35 32 20 20 3B 44 45 45 4C | LDY 252 ;DEEL| 00000430: 54 41 4C 20 49 4E 20 52 45 53 54 2E 0D 20 20 20 |TAL IN REST.. | 00000440: 20 20 20 4C 44 41 20 20 31 30 38 20 20 3B 44 45 | LDA 108 ;DE| 00000450: 4C 45 52 20 49 4E 20 28 33 31 2C 33 30 29 2E 0D |LER IN (31,30)..| 00000460: 20 20 20 20 20 20 53 54 41 20 20 30 33 31 0D 20 | STA 031. | 00000470: 20 20 20 20 20 4C 44 41 20 20 31 30 37 0D 20 20 | LDA 107. | 00000480: 20 20 20 20 53 54 41 20 20 30 33 30 0D 20 20 20 | STA 030. | 00000490: 20 20 20 4F 52 41 20 20 30 33 31 0D 20 20 20 20 | ORA 031. | 000004A0: 20 20 42 45 51 20 20 44 49 56 41 38 20 20 3B 4E | BEQ DIVA8 ;N| 000004B0: 49 45 54 20 44 4F 4F 52 20 4E 55 4C 0D 20 20 20 |IET DOOR NUL. | 000004C0: 20 20 20 4C 44 41 20 23 30 30 31 20 20 20 20 3B | LDA #001 ;| 000004D0: 44 45 4C 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 |DELEN.. STA| 000004E0: 20 20 30 33 32 20 20 20 20 3B 53 43 48 55 49 46 | 032 ;SCHUIF| 000004F0: 42 49 54 20 49 4E 0D 20 20 20 20 20 20 4C 44 41 |BIT IN. LDA| 00000500: 20 23 30 30 30 20 20 20 20 3B 28 33 33 2C 33 32 | #000 ;(33,32| 00000510: 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |).. STA 03| 00000520: 33 20 20 20 20 3B 50 4F 45 54 53 20 51 55 4F 54 |3 ;POETS QUOT| 00000530: 49 45 4E 54 2E 0D 20 20 20 20 20 20 53 54 41 20 |IENT.. STA | 00000540: 20 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 20 | 253. STA | 00000550: 32 35 34 0D 20 20 20 20 20 20 42 45 51 20 20 44 |254. BEQ D| 00000560: 49 56 41 32 0D 44 49 56 41 31 20 43 4C 43 20 20 |IVA2.DIVA1 CLC | 00000570: 20 20 20 20 20 20 20 3B 4E 41 20 43 48 45 43 4B | ;NA CHECK| 00000580: 20 53 43 48 55 49 46 0D 20 20 20 20 20 20 52 4F | SCHUIF. RO| 00000590: 4C 20 20 30 33 30 20 20 20 20 3B 53 43 48 55 49 |L 030 ;SCHUI| 000005A0: 46 44 45 4C 45 52 0D 20 20 20 20 20 20 52 4F 4C |FDELER. ROL| 000005B0: 20 20 30 33 31 20 20 20 20 3B 45 4E 20 53 43 48 | 031 ;EN SCH| 000005C0: 55 49 46 42 49 54 0D 20 20 20 20 20 20 43 4C 43 |UIFBIT. CLC| 000005D0: 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 4C | ;NAAR L| 000005E0: 49 4E 4B 53 2E 0D 20 20 20 20 20 20 52 4F 4C 20 |INKS.. ROL | 000005F0: 20 30 33 32 0D 20 20 20 20 20 20 52 4F 4C 20 20 | 032. ROL | 00000600: 30 33 33 0D 44 49 56 41 32 20 4C 44 41 20 20 30 |033.DIVA2 LDA 0| 00000610: 33 31 20 20 20 20 3B 43 48 45 43 4B 20 4D 53 20 |31 ;CHECK MS | 00000620: 42 49 54 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 |BIT.. AND #| 00000630: 31 32 38 0D 20 20 20 20 20 20 42 45 51 20 20 44 |128. BEQ D| 00000640: 49 56 41 31 0D 44 49 56 41 33 20 43 50 59 20 20 |IVA1.DIVA3 CPY | 00000650: 30 33 31 20 20 20 20 3B 4E 55 20 44 45 4C 45 4E |031 ;NU DELEN| 00000660: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 44 49 56 |.. BCC DIV| 00000670: 41 37 20 20 3B 3C 2E 0D 20 20 20 20 20 20 42 45 |A7 ;<.. BE| 00000680: 51 20 20 44 49 56 41 34 20 20 3B 3D 2E 0D 20 20 |Q DIVA4 ;=.. | 00000690: 20 20 20 20 42 43 53 20 20 44 49 56 41 35 20 20 | BCS DIVA5 | 000006A0: 3B 3E 2E 0D 44 49 56 41 34 20 43 50 58 20 20 30 |;>..DIVA4 CPX 0| 000006B0: 33 30 0D 20 20 20 20 20 20 42 43 43 20 20 44 49 |30. BCC DI| 000006C0: 56 41 37 0D 44 49 56 41 35 20 53 45 43 20 20 20 |VA7.DIVA5 SEC | 000006D0: 20 20 20 20 20 20 3B 54 52 45 4B 20 53 43 48 55 | ;TREK SCHU| 000006E0: 49 46 2D 0D 20 20 20 20 20 20 54 58 41 20 20 20 |IF-. TXA | 000006F0: 20 20 20 20 20 20 3B 44 45 4C 45 52 20 41 46 2E | ;DELER AF.| 00000700: 0D 20 20 20 20 20 20 53 42 43 20 20 30 33 30 0D |. SBC 030.| 00000710: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00000720: 54 59 41 0D 20 20 20 20 20 20 53 42 43 20 20 30 |TYA. SBC 0| 00000730: 33 31 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 |31. TAY. | 00000740: 20 20 20 4C 44 41 20 20 30 33 33 20 20 20 20 3B | LDA 033 ;| 00000750: 53 43 48 55 49 46 42 49 54 0D 20 20 20 20 20 20 |SCHUIFBIT. | 00000760: 42 45 51 20 20 44 49 56 41 36 20 20 3B 49 4E 20 |BEQ DIVA6 ;IN | 00000770: 51 55 4F 54 49 45 4E 54 2E 0D 20 20 20 20 20 20 |QUOTIENT.. | 00000780: 4F 52 41 20 20 32 35 34 0D 20 20 20 20 20 20 53 |ORA 254. S| 00000790: 54 41 20 20 32 35 34 0D 44 49 56 41 36 20 4C 44 |TA 254.DIVA6 LD| 000007A0: 41 20 20 30 33 32 0D 20 20 20 20 20 20 42 45 51 |A 032. BEQ| 000007B0: 20 20 44 49 56 41 37 0D 20 20 20 20 20 20 4F 52 | DIVA7. OR| 000007C0: 41 20 20 32 35 33 0D 20 20 20 20 20 20 53 54 41 |A 253. STA| 000007D0: 20 20 32 35 33 0D 44 49 56 41 37 20 43 4C 43 20 | 253.DIVA7 CLC | 000007E0: 20 20 20 20 20 20 20 20 3B 53 43 48 55 49 46 20 | ;SCHUIF | 000007F0: 53 43 48 55 49 46 2D 0D 20 20 20 20 20 20 52 4F |SCHUIF-. RO| 00000800: 52 20 20 30 33 31 20 20 20 20 3B 42 49 54 20 45 |R 031 ;BIT E| 00000810: 4E 20 53 43 48 55 49 46 2D 0D 20 20 20 20 20 20 |N SCHUIF-. | 00000820: 52 4F 52 20 20 30 33 30 20 20 20 20 3B 44 45 4C |ROR 030 ;DEL| 00000830: 45 52 20 45 45 4E 20 4E 41 41 52 0D 20 20 20 20 |ER EEN NAAR. | 00000840: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 52 | CLC ;R| 00000850: 45 43 48 54 53 2E 0D 20 20 20 20 20 20 52 4F 52 |ECHTS.. ROR| 00000860: 20 20 30 33 33 0D 20 20 20 20 20 20 52 4F 52 20 | 033. ROR | 00000870: 20 30 33 32 0D 20 20 20 20 20 20 42 43 43 20 20 | 032. BCC | 00000880: 44 49 56 41 33 20 20 3B 45 49 4E 44 20 56 41 4E |DIVA3 ;EIND VAN| 00000890: 20 44 45 4C 45 4E 3F 0D 44 49 56 41 38 20 53 54 | DELEN?.DIVA8 ST| 000008A0: 58 20 20 32 35 31 20 20 20 20 3B 4A 41 3A 5A 45 |X 251 ;JA:ZE| 000008B0: 54 20 52 45 53 54 2E 0D 20 20 20 20 20 20 53 54 |T REST.. ST| 000008C0: 59 20 20 32 35 32 0D 20 20 20 20 20 20 50 4C 41 |Y 252. PLA| 000008D0: 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 |. TAY. | 000008E0: 20 50 4C 41 0D 20 20 20 20 20 20 54 41 58 0D 20 | PLA. TAX. | 000008F0: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 00000900: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 00000910: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00000920: 0D 4D 55 4C 4F 50 20 54 58 41 20 20 20 3B 56 45 |.MULOP TXA ;VE| 00000930: 52 4D 45 4E 49 47 56 55 4C 44 49 47 45 4E 0D 20 |RMENIGVULDIGEN. | 00000940: 20 20 20 20 20 50 48 41 20 20 20 3B 4D 45 54 20 | PHA ;MET | 00000950: 4F 50 54 45 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 |OPTELLEN.. | 00000960: 54 59 41 20 20 20 3B 28 32 35 32 2C 32 35 31 29 |TYA ;(252,251)| 00000970: 20 2B 20 50 52 4F 44 55 43 54 0D 20 20 20 20 20 | + PRODUCT. | 00000980: 20 50 48 41 20 20 20 3B 28 32 35 34 2C 32 35 33 | PHA ;(254,253| 00000990: 29 2A 28 31 30 38 2C 31 30 37 29 0D 20 20 20 20 |)*(108,107). | 000009A0: 20 20 4C 44 58 20 20 31 30 38 20 3B 3D 3E 28 32 | LDX 108 ;=>(2| 000009B0: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4C |52,251).. L| 000009C0: 44 59 20 20 31 30 37 0D 20 20 20 20 20 20 43 4C |DY 107. CL| 000009D0: 43 0D 4D 55 4C 4F 31 20 4C 44 41 20 20 32 35 34 |C.MULO1 LDA 254| 000009E0: 20 20 20 20 3B 53 43 48 55 49 46 46 41 43 54 4F | ;SCHUIFFACTO| 000009F0: 52 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 4D 55 |R.. BNE MU| 00000A00: 4C 4F 32 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |LO2. LDA 2| 00000A10: 35 33 0D 20 20 20 20 20 20 42 45 51 20 20 4D 55 |53. BEQ MU| 00000A20: 4C 4F 35 0D 20 20 20 20 20 20 42 4E 45 20 20 4D |LO5. BNE M| 00000A30: 55 4C 4F 33 0D 4D 55 4C 4F 32 20 52 4F 52 20 20 |ULO3.MULO2 ROR | 00000A40: 32 35 34 0D 4D 55 4C 4F 33 20 52 4F 52 20 20 32 |254.MULO3 ROR 2| 00000A50: 35 33 0D 20 20 20 20 20 20 42 43 43 20 20 4D 55 |53. BCC MU| 00000A60: 4C 4F 34 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |LO4. CLC. | 00000A70: 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 41 44 | TYA. AD| 00000A80: 43 20 20 32 35 31 20 20 20 20 3B 42 49 54 20 31 |C 251 ;BIT 1| 00000A90: 3A 54 45 4C 20 4F 50 2E 0D 20 20 20 20 20 20 53 |:TEL OP.. S| 00000AA0: 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 54 58 |TA 251. TX| 00000AB0: 41 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 32 |A. ADC 252| 00000AC0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D |. STA 252.| 00000AD0: 20 20 20 20 20 20 43 4C 43 0D 4D 55 4C 4F 34 20 | CLC.MULO4 | 00000AE0: 54 59 41 20 20 20 20 20 20 20 20 20 3B 44 41 41 |TYA ;DAA| 00000AF0: 52 4E 41 20 53 43 48 55 49 46 2E 0D 20 20 20 20 |RNA SCHUIF.. | 00000B00: 20 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 | .BYTE $2A. | 00000B10: 20 20 54 41 59 0D 20 20 20 20 20 20 54 58 41 0D | TAY. TXA.| 00000B20: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 0D | .BYTE $2A.| 00000B30: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00000B40: 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 20 4D |CLC. BCC M| 00000B50: 55 4C 4F 31 20 20 3B 45 49 4E 44 2E 0D 4D 55 4C |ULO1 ;EIND..MUL| 00000B60: 4F 35 20 50 4C 41 0D 20 20 20 20 20 20 54 41 59 |O5 PLA. TAY| 00000B70: 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 |. PLA. | 00000B80: 20 54 41 58 0D 20 20 20 20 20 20 52 54 53 0D 20 | TAX. RTS. | 00000B90: 20 20 20 20 20 4E 4F 50 0D 53 43 4E 54 58 20 43 | NOP.SCNTX C| 00000BA0: 4C 43 20 20 20 20 20 20 20 3B 54 45 4B 53 54 20 |LC ;TEKST | 00000BB0: 54 3D 28 58 29 20 4E 41 41 52 0D 20 20 20 20 20 |T=(X) NAAR. | 00000BC0: 20 54 58 41 20 20 20 20 20 20 20 3B 53 43 48 45 | TXA ;SCHE| 00000BD0: 52 4D 20 41 46 20 4C 4F 50 45 52 2E 0D 20 20 20 |RM AF LOPER.. | 00000BE0: 20 20 20 2E 42 59 54 45 20 24 32 41 20 3B 28 59 | .BYTE $2A ;(Y| 00000BF0: 29 3D 32 2A 54 2E 0D 20 20 20 20 20 20 54 41 59 |)=2*T.. TAY| 00000C00: 20 20 20 20 20 20 20 3B 28 31 30 38 2C 31 30 37 | ;(108,107| 00000C10: 29 20 41 44 52 45 53 0D 20 20 20 20 20 20 43 4C |) ADRES. CL| 00000C20: 43 20 20 20 20 20 20 20 3B 42 45 47 49 4E 20 56 |C ;BEGIN V| 00000C30: 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 20 20 4C |OORBLOK.. L| 00000C40: 44 41 20 28 31 30 37 29 2C 59 20 3B 42 45 52 45 |DA (107),Y ;BERE| 00000C50: 4B 45 4E 20 48 45 54 0D 20 20 20 20 20 20 41 44 |KEN HET. AD| 00000C60: 43 20 20 31 30 37 20 20 20 20 3B 41 44 52 45 53 |C 107 ;ADRES| 00000C70: 20 49 4E 20 48 45 54 0D 20 20 20 20 20 20 53 54 | IN HET. ST| 00000C80: 41 20 20 32 35 33 20 20 20 20 3B 53 54 55 55 52 |A 253 ;STUUR| 00000C90: 42 4C 4F 4B 3A 0D 20 20 20 20 20 20 49 4E 59 20 |BLOK:. INY | 00000CA0: 20 20 20 20 20 20 20 20 3B 41 53 3D 28 32 35 34 | ;AS=(254| 00000CB0: 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,253).. LDA| 00000CC0: 20 28 31 30 37 29 2C 59 0D 20 20 20 20 20 20 41 | (107),Y. A| 00000CD0: 44 43 20 20 31 30 38 0D 20 20 20 20 20 20 53 54 |DC 108. ST| 00000CE0: 41 20 20 32 35 34 0D 20 20 20 20 20 20 4C 44 59 |A 254. LDY| 00000CF0: 20 23 30 30 30 20 20 20 20 3B 4C 45 4E 47 54 45 | #000 ;LENGTE| 00000D00: 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |.. LDA (253| 00000D10: 29 2C 59 20 3B 4E 55 4C 3A 56 4F 4C 47 45 4E 44 |),Y ;NUL:VOLGEND| 00000D20: 0D 20 20 20 20 20 20 42 45 51 20 20 53 43 4E 54 |. BEQ SCNT| 00000D30: 34 20 20 3B 45 4C 45 4D 45 4E 54 2E 0D 20 20 20 |4 ;ELEMENT.. | 00000D40: 20 20 20 53 54 41 20 20 30 30 32 20 20 20 20 3B | STA 002 ;| 00000D50: 52 45 44 20 49 4E 20 28 30 30 32 29 2E 0D 53 43 |RED IN (002)..SC| 00000D60: 4E 54 31 20 49 4E 59 20 20 20 20 20 20 20 20 20 |NT1 INY | 00000D70: 3B 44 41 41 52 4E 41 20 5A 45 54 20 49 4E 0D 20 |;DAARNA ZET IN. | 00000D80: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000D90: 20 3B 28 31 38 38 2C 31 38 37 29 2E 0D 20 20 20 | ;(188,187).. | 00000DA0: 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 | LDA (253),Y. | 00000DB0: 20 20 20 20 20 41 44 43 20 20 31 30 37 0D 20 20 | ADC 107. | 00000DC0: 20 20 20 20 53 54 41 20 20 31 38 37 0D 20 20 20 | STA 187. | 00000DD0: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 41 | INY. LDA| 00000DE0: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 41 | (253),Y. A| 00000DF0: 44 43 20 20 31 30 38 0D 20 20 20 20 20 20 53 54 |DC 108. ST| 00000E00: 41 20 20 31 38 38 0D 20 20 20 20 20 20 54 59 41 |A 188. TYA| 00000E10: 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 |. PHA. | 00000E20: 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 41 41 | LDY #000 ;AA| 00000E30: 4E 54 41 4C 20 49 4E 20 31 38 33 2E 0D 20 20 20 |NTAL IN 183.. | 00000E40: 20 20 20 4C 44 41 20 28 31 38 37 29 2C 59 20 3B | LDA (187),Y ;| 00000E50: 4E 55 4C 3A 53 4C 41 20 4F 56 45 52 2E 0D 20 20 |NUL:SLA OVER.. | 00000E60: 20 20 20 20 42 45 51 20 20 53 43 4E 54 33 0D 20 | BEQ SCNT3. | 00000E70: 20 20 20 20 20 53 54 41 20 20 31 38 33 0D 20 20 | STA 183. | 00000E80: 20 20 20 20 49 4E 43 20 20 31 38 37 20 20 20 20 | INC 187 | 00000E90: 3B 41 44 52 45 53 20 2B 20 31 2E 0D 20 20 20 20 |;ADRES + 1.. | 00000EA0: 20 20 42 4E 45 20 20 53 43 4E 54 32 0D 20 20 20 | BNE SCNT2. | 00000EB0: 20 20 20 49 4E 43 20 20 31 38 38 0D 53 43 4E 54 | INC 188.SCNT| 00000EC0: 32 20 4A 53 52 20 20 36 32 39 31 33 20 20 3B 4F |2 JSR 62913 ;O| 00000ED0: 55 54 50 55 54 2E 0D 53 43 4E 54 33 20 50 4C 41 |UTPUT..SCNT3 PLA| 00000EE0: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 00000EF0: 20 20 20 3B 4C 45 4E 47 54 45 20 57 45 45 52 2E | ;LENGTE WEER.| 00000F00: 0D 20 20 20 20 20 20 44 45 43 20 20 30 30 32 20 |. DEC 002 | 00000F10: 20 20 20 3B 41 46 54 45 4C 4C 45 4E 2E 0D 20 20 | ;AFTELLEN.. | 00000F20: 20 20 20 20 42 4E 45 20 20 53 43 4E 54 31 20 20 | BNE SCNT1 | 00000F30: 3B 45 49 4E 44 2E 0D 53 43 4E 54 34 20 52 54 53 |;EIND..SCNT4 RTS| 00000F40: 0D 20 20 20 20 20 20 4E 4F 50 0D 56 47 4C 41 42 |. NOP.VGLAB| 00000F50: 20 4C 44 41 20 20 32 35 32 20 20 20 20 3B 56 45 | LDA 252 ;VE| 00000F60: 52 47 45 4C 49 4A 4B 45 4E 2E 0D 20 20 20 20 20 |RGELIJKEN.. | 00000F70: 20 43 4D 50 20 20 31 31 30 20 20 20 20 3B 28 32 | CMP 110 ;(2| 00000F80: 35 32 2C 32 35 31 29 20 3A 3A 0D 20 20 20 20 20 |52,251) ::. | 00000F90: 20 42 4E 45 20 20 56 47 4C 41 31 20 20 3B 28 31 | BNE VGLA1 ;(1| 00000FA0: 31 30 2C 31 30 39 29 2E 0D 20 20 20 20 20 20 4C |10,109).. L| 00000FB0: 44 41 20 20 32 35 31 20 20 20 20 3B 28 43 29 3D |DA 251 ;(C)=| 00000FC0: 30 20 3C 2E 0D 20 20 20 20 20 20 43 4D 50 20 20 |0 <.. CMP | 00000FD0: 31 30 39 20 20 20 20 3B 28 43 29 3D 31 20 3E 3D |109 ;(C)=1 >=| 00000FE0: 2E 0D 56 47 4C 41 31 20 52 54 53 0D 20 20 20 20 |..VGLA1 RTS. | 00000FF0: 20 20 4E 4F 50 0D 56 55 4C 58 58 20 4C 44 41 20 | NOP.VULXX LDA | 00001000: 23 30 30 33 20 20 20 20 3B 33 39 36 38 33 20 49 |#003 ;39683 I| 00001010: 4E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 |N. STA 253| 00001020: 20 20 20 20 3B 28 32 35 34 2C 32 35 33 29 2E 0D | ;(254,253)..| 00001030: 20 20 20 20 20 20 4C 44 41 20 23 31 35 35 20 20 | LDA #155 | 00001040: 20 20 3B 58 58 58 58 58 2E 0D 20 20 20 20 20 20 | ;XXXXX.. | 00001050: 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 4A |STA 254. J| 00001060: 53 52 20 20 42 49 58 58 32 20 20 3B 44 45 43 4F |SR BIXX2 ;DECO| 00001070: 4E 56 45 52 53 49 45 2E 0D 20 20 20 20 20 20 52 |NVERSIE.. R| 00001080: 54 53 0D 56 55 4C 59 59 20 4C 44 41 20 23 30 30 |TS.VULYY LDA #00| 00001090: 39 20 20 20 20 3B 33 39 36 38 39 20 49 4E 0D 20 |9 ;39689 IN. | 000010A0: 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 20 | STA 253 | 000010B0: 20 3B 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 | ;(254,253).. | 000010C0: 20 20 20 4C 44 41 20 23 31 35 35 20 20 20 20 3B | LDA #155 ;| 000010D0: 59 59 59 59 59 2E 0D 20 20 20 20 20 20 53 54 41 |YYYYY.. STA| 000010E0: 20 20 32 35 34 0D 20 20 20 20 20 20 4A 53 52 20 | 254. JSR | 000010F0: 20 42 49 58 58 32 20 20 3B 44 45 43 4F 4E 56 45 | BIXX2 ;DECONVE| 00001100: 52 53 49 45 2E 0D 20 20 20 20 20 20 52 54 53 0D |RSIE.. RTS.| 00001110: 41 44 56 54 58 20 4C 44 41 20 20 34 30 39 33 34 |ADVTX LDA 40934| 00001120: 20 20 3B 42 45 47 49 4E 41 44 52 45 53 0D 20 20 | ;BEGINADRES. | 00001130: 20 20 20 20 53 54 41 20 20 31 30 37 20 20 20 20 | STA 107 | 00001140: 3B 56 4F 4F 52 42 4C 4F 4B 20 54 45 4B 53 54 0D |;VOORBLOK TEKST.| 00001150: 20 20 20 20 20 20 4C 44 41 20 20 34 30 39 33 35 | LDA 40935| 00001160: 20 20 3B 49 4E 20 28 31 30 38 2C 31 30 37 29 2E | ;IN (108,107).| 00001170: 0D 20 20 20 20 20 20 53 54 41 20 20 31 30 38 0D |. STA 108.| 00001180: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001190: 2E 4C 49 42 20 44 49 4C 4E 30 31 0D 20 20 20 20 |.LIB DILN01. | 000011A0: 20 20 2E 45 4E 44 0D | .END. |
*=35824. ;.
;DISSEMBLER.
;SUBROUTINES. ; DE
EL IV.. ;.
;REKENKUNDE-. ;EN
OUTPUT-. ;ROUTINES..
;.ELSCR 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.ELVUL JSR VULLN ;VUL (A+
0) MET L. LDY #000 ;EN (A+1)..(A
+L). LDA 251 ;MET ITEM (252)..
STA (253),Y ;L=(251).. RTS
;A=(254,253)..ADPAD CLC ;A+
(Y)=>A;. TYA ;0=>(Y)..
ADC 253 ;A=(254,253).. STA 25
3. LDY #000. TYA. ADC 25
4. STA 254. RTS. NOP.DIV
AF 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 DIVA8 ;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 DIVA2.DIVA1 CLC ;
NA CHECK SCHUIF. ROL 030 ;SCHUI
FDELER. ROL 031 ;EN SCHUIFBIT.
CLC ;NAAR LINKS.. ROL
032. ROL 033.DIVA2 LDA 031 ;C
HECK MS BIT.. AND #128. BEQ D
IVA1.DIVA3 CPY 031 ;NU DELEN..
BCC DIVA7 ;<.. BEQ DIVA4 ;=..
BCS DIVA5 ;>..DIVA4 CPX 030.
BCC DIVA7.DIVA5 SEC ;TREK SCHU
IF-. TXA ;DELER AF.. S
BC 030. TAX. TYA. SBC 0
31. TAY. LDA 033 ;SCHUIFBI
T. BEQ DIVA6 ;IN QUOTIENT..
ORA 254. STA 254.DIVA6 LDA 032.
BEQ DIVA7. ORA 253. STA
253.DIVA7 CLC ;SCHUIF SCHUIF-.
ROR 031 ;BIT EN SCHUIF-.
ROR 030 ;DELER EEN NAAR. CLC
;RECHTS.. ROR 033. ROR
032. BCC DIVA3 ;EIND VAN DELEN?.
DIVA8 STX 251 ;JA:ZET REST.. ST
Y 252. PLA. TAY. PLA.
TAX. RTS. NOP. NOP.
NOP. NOP.MULOP TXA ;VERMENIGVU
LDIGEN. PHA ;MET OPTELLEN..
TYA ;(252,251) + PRODUCT. PHA ;
(254,253)*(108,107). LDX 108 ;=>(2
52,251).. LDY 107. CLC.MULO1
LDA 254 ;SCHUIFFACTOR.. BNE MU
LO2. LDA 253. BEQ MULO5.
BNE MULO3.MULO2 ROR 254.MULO3 ROR 2
53. BCC MULO4. CLC. TYA.
ADC 251 ;BIT 1:TEL OP.. S
TA 251. TXA. ADC 252. S
TA 252. CLC.MULO4 TYA ;DAA
RNA SCHUIF.. .BYTE $2A. TAY.
TXA. .BYTE $2A. TAX.
CLC. BCC MULO1 ;EIND..MULO5 PLA.
TAY. PLA. TAX. RTS.
NOP.SCNTX 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 SCNT4 ;ELEMENT.. STA
002 ;RED IN (002)..SCNT1 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 SCNT3. STA 183. INC
187 ;ADRES + 1.. BNE SCNT2.
INC 188.SCNT2 JSR 62913 ;OUTPUT..S
CNT3 PLA. TAY ;LENGTE WEER.
. DEC 002 ;AFTELLEN.. BNE
SCNT1 ;EIND..SCNT4 RTS. NOP.VGLAB
LDA 252 ;VERGELIJKEN.. CMP 11
0 ;(252,251) ::. BNE VGLA1 ;(1
10,109).. LDA 251 ;(C)=0 <..
CMP 109 ;(C)=1 >=..VGLA1 RTS.
NOP.VULXX LDA #003 ;39683 IN.
STA 253 ;(254,253).. LDA #155
;XXXXX.. STA 254. JSR BIXX
2 ;DECONVERSIE.. RTS.VULYY LDA #00
9 ;39689 IN. STA 253 ;(254,2
53).. LDA #155 ;YYYYY.. STA
254. JSR BIXX2 ;DECONVERSIE..
RTS.ADVTX LDA 40934 ;BEGINADRES.
STA 107 ;VOORBLOK TEKST. LD
A 40935 ;IN (108,107).. STA 108.
RTS. .LIB DILN01. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL