LORDUS.ASM
FILE INFORMATION
FILENAME(S): LORDUS.ASM
FILE TYPE(S): SEQ
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:27:02
APPEARS ON: 1 disk(s)
FILE HASH
2ab4c5fdc20af476de390debf00cca26eae824a38e31e20fbe228f402287b054
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLERBRON | LORDUS.ASM | SEQ | DuncanTwain | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 50 52 4F 47 52 41 4D 4D 41 20 20 20 |;.; PROGRAMMA | 00000010: 3A 20 20 4C 4F 52 44 55 53 20 2E 0D 3B 20 42 52 |: LORDUS ..; BR| 00000020: 4F 4E 43 4F 44 45 20 20 20 20 3A 20 20 4C 4F 52 |ONCODE : LOR| 00000030: 44 55 53 2E 41 53 4D 20 20 2E 0D 3B 20 4F 42 4A |DUS.ASM ..; OBJ| 00000040: 45 43 54 43 4F 44 45 20 20 3A 20 20 4C 4F 52 44 |ECTCODE : LORD| 00000050: 55 53 2E 4F 42 4A 20 20 2E 0D 3B 20 44 49 53 4B |US.OBJ ..; DISK| 00000060: 20 20 20 20 20 20 20 20 3A 20 20 41 53 53 45 4D | : ASSEM| 00000070: 42 4C 45 52 42 52 4F 4E 20 2E 0D 3B 20 54 41 41 |BLERBRON ..; TAA| 00000080: 4C 20 20 20 20 20 20 20 20 3A 20 20 41 53 53 45 |L : ASSE| 00000090: 4D 42 4C 45 52 20 43 36 34 2E 0D 3B 20 44 41 54 |MBLER C64..; DAT| 000000A0: 55 4D 20 20 20 20 20 20 20 3A 20 20 32 20 4F 43 |UM : 2 OC| 000000B0: 54 2E 31 39 39 31 2E 0D 3B 20 50 52 4F 47 52 41 |T.1991..; PROGRA| 000000C0: 4D 4D 45 55 52 20 3A 20 20 4A 2E 48 2E 56 41 4E |MMEUR : J.H.VAN| 000000D0: 20 52 49 4A 4E 2E 0D 3B 0D 3B 20 44 49 54 20 53 | RIJN..;.; DIT S| 000000E0: 55 42 50 52 4F 47 52 41 4D 4D 41 20 44 55 4D 50 |UBPROGRAMMA DUMP| 000000F0: 54 20 4F 50 20 44 45 0D 3B 20 50 52 49 4E 54 45 |T OP DE.; PRINTE| 00000100: 52 20 53 54 41 52 20 53 47 2D 31 30 20 4B 41 52 |R STAR SG-10 KAR| 00000110: 41 4B 54 45 52 53 0D 3B 20 55 49 54 20 48 45 54 |AKTERS.; UIT HET| 00000120: 20 53 43 48 45 52 4D 20 49 4E 20 4C 4F 57 2D 52 | SCHERM IN LOW-R| 00000130: 45 53 4F 4C 55 2D 0D 3B 20 54 49 4F 4E 2D 4D 4F |ESOLU-.; TION-MO| 00000140: 44 45 2E 20 44 45 20 54 45 4B 45 4E 53 20 57 4F |DE. DE TEKENS WO| 00000150: 52 44 45 4E 0D 3B 20 47 45 48 41 41 4C 44 20 55 |RDEN.; GEHAALD U| 00000160: 49 54 20 45 45 4E 20 4B 41 52 41 4B 54 45 52 2D |IT EEN KARAKTER-| 00000170: 52 41 4D 0D 3B 20 4D 45 54 20 4D 4F 53 54 2D 53 |RAM.; MET MOST-S| 00000180: 49 47 4E 49 46 49 43 41 4E 54 20 41 44 52 45 53 |IGNIFICANT ADRES| 00000190: 20 49 4E 0D 3B 20 47 45 48 45 55 47 45 4E 41 44 | IN.; GEHEUGENAD| 000001A0: 52 45 53 20 30 30 36 38 31 2E 0D 3B 20 44 45 20 |RES 00681..; DE | 000001B0: 4D 41 52 47 45 20 28 31 32 2F 49 4E 43 48 29 20 |MARGE (12/INCH) | 000001C0: 49 4E 20 36 38 32 2E 0D 3B 0D 3B 3D 3D 3D 3D 3D |IN 682..;.;=====| 000001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B 0D 3B |============.;.;| 000001F0: 20 44 45 43 49 4D 20 48 45 58 41 20 53 59 4D 42 | DECIM HEXA SYMB| 00000200: 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B 20 34 39 |L FUNCTIE.;.; 49| 00000210: 31 35 32 20 43 30 30 30 20 48 50 52 49 4E 20 50 |152 C000 HPRIN P| 00000220: 52 49 4E 54 20 4C 4F 57 52 45 53 4F 2D 0D 3B 20 |RINT LOWRESO-.; | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000240: 20 4C 55 54 2E 41 46 20 53 43 48 45 52 4D 2E 0D | LUT.AF SCHERM..| 00000250: 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 34 |;.;. *=4| 00000260: 39 31 35 32 0D 3B 0D 48 50 52 49 4E 20 4C 44 41 |9152.;.HPRIN LDA| 00000270: 20 20 35 33 32 37 32 20 20 3B 4C 45 54 54 45 52 | 53272 ;LETTER| 00000280: 2D 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 37 |-. STA 247| 00000290: 20 20 20 20 3B 53 4F 4F 52 54 2E 0D 20 20 20 20 | ;SOORT.. | 000002A0: 20 20 4C 44 41 20 23 30 30 31 20 20 20 20 3B 4F | LDA #001 ;O| 000002B0: 50 45 4E 20 46 49 4C 45 20 31 2E 0D 20 20 20 20 |PEN FILE 1.. | 000002C0: 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 3B 50 | LDX #004 ;P| 000002D0: 52 49 4E 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 |RINTER.. LD| 000002E0: 59 20 23 30 30 30 0D 20 20 20 20 20 20 4A 53 52 |Y #000. JSR| 000002F0: 20 20 36 35 34 36 36 20 20 3B 2A 53 45 54 4C 46 | 65466 ;*SETLF| 00000300: 53 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |S*. LDA #00| 00000310: 30 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |0. JSR 654| 00000320: 36 39 20 20 3B 2A 53 45 54 4E 41 4D 2A 0D 20 20 |69 ;*SETNAM*. | 00000330: 20 20 20 20 4A 53 52 20 20 36 35 34 37 32 20 20 | JSR 65472 | 00000340: 3B 2A 20 4F 50 45 4E 20 2A 0D 20 20 20 20 20 20 |;* OPEN *. | 00000350: 4C 44 58 20 23 30 30 31 20 20 20 20 3B 46 49 4C |LDX #001 ;FIL| 00000360: 45 20 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |E 1.. JSR | 00000370: 36 35 34 38 31 20 20 3B 2A 43 48 4B 4F 55 54 2A |65481 ;*CHKOUT*| 00000380: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 34 20 |. LDA #024 | 00000390: 20 20 20 3B 42 55 46 46 45 52 20 4C 45 45 47 2E | ;BUFFER LEEG.| 000003A0: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 |. JSR 6549| 000003B0: 30 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 20 |0 ;*CHROUT*. | 000003C0: 20 20 20 4C 44 41 20 23 30 32 37 20 20 20 20 3B | LDA #027 ;| 000003D0: 52 45 47 45 4C 20 38 2F 37 32 20 49 4E 2E 0D 20 |REGEL 8/72 IN.. | 000003E0: 20 20 20 20 20 4C 44 58 20 23 30 36 35 0D 20 20 | LDX #065. | 000003F0: 20 20 20 20 4C 44 59 20 23 30 30 38 0D 20 20 20 | LDY #008. | 00000400: 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 20 | JSR LAXY. | 00000410: 20 20 20 4C 44 58 20 23 30 36 36 20 20 20 20 3B | LDX #066 ;| 00000420: 4B 4F 4C 4F 4D 20 37 32 2F 49 4E 43 48 2E 0D 20 |KOLOM 72/INCH.. | 00000430: 20 20 20 20 20 4C 44 59 20 23 30 30 32 0D 20 20 | LDY #002. | 00000440: 20 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 | JSR LAXY. | 00000450: 20 20 20 20 4C 44 58 20 23 30 38 35 20 20 20 20 | LDX #085 | 00000460: 3B 45 45 4E 52 49 43 48 54 49 4E 47 2E 0D 20 20 |;EENRICHTING.. | 00000470: 20 20 20 20 4C 44 59 20 23 30 30 31 0D 20 20 20 | LDY #001. | 00000480: 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 20 | JSR LAXY. | 00000490: 20 20 20 4C 44 41 20 20 30 30 36 38 31 20 20 3B | LDA 00681 ;| 000004A0: 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E 0D 20 |BEGINADRES VAN. | 000004B0: 20 20 20 20 20 53 54 41 20 20 32 35 34 20 20 20 | STA 254 | 000004C0: 20 3B 4B 41 52 41 4B 54 45 52 2D 52 41 4D 0D 20 | ;KARAKTER-RAM. | 000004D0: 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 | LDA #000 | 000004E0: 20 3B 49 4E 20 28 32 35 34 2C 32 35 33 29 2E 0D | ;IN (254,253)..| 000004F0: 20 20 20 20 20 20 53 54 41 20 20 32 35 33 20 20 | STA 253 | 00000500: 20 20 3B 42 45 47 49 4E 41 44 52 45 53 20 56 41 | ;BEGINADRES VA| 00000510: 4E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 |N. LDA 006| 00000520: 34 38 20 20 3B 53 43 48 45 52 4D 47 45 48 45 55 |48 ;SCHERMGEHEU| 00000530: 47 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |GEN. STA 1| 00000540: 36 38 20 20 20 20 3B 45 4E 20 56 41 4E 20 42 45 |68 ;EN VAN BE| 00000550: 47 49 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |GIN. LDA #0| 00000560: 30 30 20 20 20 20 3B 56 41 4E 20 52 45 47 45 4C |00 ;VAN REGEL| 00000570: 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 37 20 |. STA 167 | 00000580: 20 20 20 3B 49 4E 20 28 31 36 38 2C 31 36 37 29 | ;IN (168,167)| 00000590: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 34 |.. LDA #024| 000005A0: 20 20 20 20 3B 52 45 47 45 4C 41 46 54 45 4C 4C | ;REGELAFTELL| 000005B0: 45 52 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 |ER. STA 24| 000005C0: 38 20 20 20 20 3B 32 34 2D 30 30 20 49 4E 20 28 |8 ;24-00 IN (| 000005D0: 32 34 38 29 2E 0D 48 50 52 49 31 20 4C 44 59 20 |248)..HPRI1 LDY | 000005E0: 23 30 30 30 20 20 20 20 3B 5A 4F 45 4B 20 42 45 |#000 ;ZOEK BE| 000005F0: 47 49 4E 20 56 41 4E 0D 20 20 20 20 20 20 54 59 |GIN VAN. TY| 00000600: 41 20 20 20 20 20 20 20 20 20 3B 50 4F 45 54 53 |A ;POETS| 00000610: 20 57 49 4A 5A 45 52 53 2E 0D 20 20 20 20 20 20 | WIJZERS.. | 00000620: 42 45 51 20 20 48 50 52 49 33 20 20 3B 4E 41 41 |BEQ HPRI3 ;NAA| 00000630: 52 20 5A 45 54 54 49 4E 47 45 4E 2E 0D 48 50 52 |R ZETTINGEN..HPR| 00000640: 49 32 20 44 45 58 20 20 20 20 20 20 20 20 20 3B |I2 DEX ;| 00000650: 32 2D 31 2D 30 20 41 46 54 45 4C 4C 45 4E 2E 0D |2-1-0 AFTELLEN..| 00000660: 20 20 20 20 20 20 42 50 4C 20 20 48 50 52 49 34 | BPL HPRI4| 00000670: 20 20 3B 4E 4F 47 20 4E 49 45 54 2E 0D 20 20 20 | ;NOG NIET.. | 00000680: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B | CLC ;| 00000690: 4E 55 20 57 45 4C 3A 20 44 4F 45 0D 20 20 20 20 |NU WEL: DOE. | 000006A0: 20 20 4C 44 41 20 20 31 36 39 20 20 20 20 3B 56 | LDA 169 ;V| 000006B0: 49 45 52 20 42 49 4A 20 45 4C 49 54 45 2D 0D 20 |IER BIJ ELITE-. | 000006C0: 20 20 20 20 20 41 44 43 20 23 30 30 34 20 20 20 | ADC #004 | 000006D0: 20 3B 4D 41 52 47 45 2E 0D 48 50 52 49 33 20 53 | ;MARGE..HPRI3 S| 000006E0: 54 41 20 20 31 36 39 20 20 20 20 3B 5A 45 54 54 |TA 169 ;ZETT| 000006F0: 49 4E 47 45 4E 2E 0D 20 20 20 20 20 20 53 54 59 |INGEN.. STY| 00000700: 20 20 31 37 30 20 20 20 20 3B 28 59 29 20 44 52 | 170 ;(Y) DR| 00000710: 49 45 56 4F 55 44 2E 0D 20 20 20 20 20 20 4C 44 |IEVOUD.. LD| 00000720: 58 20 23 30 30 32 20 20 20 20 3B 32 2D 31 2D 30 |X #002 ;2-1-0| 00000730: 20 41 46 54 45 4C 2E 0D 48 50 52 49 34 20 4C 44 | AFTEL..HPRI4 LD| 00000740: 41 20 28 31 36 37 29 2C 59 20 3B 54 45 4B 45 4E |A (167),Y ;TEKEN| 00000750: 20 55 2F 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 | U/REGEL.. | 00000760: 43 4D 50 20 23 30 33 32 20 20 20 20 3B 56 41 4E |CMP #032 ;VAN| 00000770: 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 42 4E | REGEL.. BN| 00000780: 45 20 20 48 50 52 49 36 20 20 3B 53 50 41 54 49 |E HPRI6 ;SPATI| 00000790: 45 3F 20 4A 41 3A 0D 20 20 20 20 20 20 49 4E 59 |E? JA:. INY| 000007A0: 20 20 20 20 20 20 20 20 20 3B 50 4F 53 2E 45 45 | ;POS.EE| 000007B0: 4E 20 56 45 52 44 45 52 2E 0D 20 20 20 20 20 20 |N VERDER.. | 000007C0: 43 50 59 20 23 30 34 30 20 20 20 20 3B 45 49 4E |CPY #040 ;EIN| 000007D0: 44 20 56 2E 52 45 47 45 4C 3F 0D 20 20 20 20 20 |D V.REGEL?. | 000007E0: 20 42 43 43 20 20 48 50 52 49 32 20 20 3B 4E 45 | BCC HPRI2 ;NE| 000007F0: 45 3A 54 45 52 55 47 2E 0D 20 20 20 20 20 20 42 |E:TERUG.. B| 00000800: 43 53 20 20 48 50 52 49 39 20 20 3B 4A 41 3A 52 |CS HPRI9 ;JA:R| 00000810: 45 47 45 4C 20 4C 45 45 47 2E 0D 48 50 52 49 35 |EGEL LEEG..HPRI5| 00000820: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 54 55 | CLC ;TU| 00000830: 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 43 43 20 |SSEN-. BCC | 00000840: 20 48 50 52 49 31 20 20 3B 53 50 52 4F 4E 47 2E | HPRI1 ;SPRONG.| 00000850: 0D 48 50 52 49 36 20 4C 44 59 20 23 30 34 30 20 |.HPRI6 LDY #040 | 00000860: 20 20 20 3B 5A 4F 45 4B 20 41 46 20 45 49 4E 44 | ;ZOEK AF EIND| 00000870: 20 56 2E 0D 48 50 52 49 37 20 44 45 59 20 20 20 | V..HPRI7 DEY | 00000880: 20 20 20 20 20 20 3B 52 45 47 45 4C 20 4E 2E 4D | ;REGEL N.M| 00000890: 45 45 53 54 0D 20 20 20 20 20 20 4C 44 41 20 28 |EEST. LDA (| 000008A0: 31 36 37 29 2C 59 20 3B 52 45 43 48 54 53 20 4E |167),Y ;RECHTS N| 000008B0: 49 45 54 2D 0D 20 20 20 20 20 20 43 4D 50 20 23 |IET-. CMP #| 000008C0: 30 33 32 20 20 20 20 3B 42 4C 41 4E 4B 20 4B 41 |032 ;BLANK KA| 000008D0: 52 41 4B 54 45 52 2E 0D 20 20 20 20 20 20 42 45 |RAKTER.. BE| 000008E0: 51 20 20 48 50 52 49 37 20 20 3B 47 45 56 4F 4E |Q HPRI7 ;GEVON| 000008F0: 44 45 4E 3A 20 50 4F 53 2E 0D 20 20 20 20 20 20 |DEN: POS.. | 00000900: 49 4E 59 20 20 20 20 20 20 20 20 20 3B 45 45 4E |INY ;EEN| 00000910: 20 4E 2F 52 45 43 48 54 53 2E 0D 20 20 20 20 20 | N/RECHTS.. | 00000920: 20 53 54 59 20 20 31 37 31 0D 20 20 20 20 20 20 | STY 171. | 00000930: 53 45 43 0D 20 20 20 20 20 20 54 59 41 20 20 20 |SEC. TYA | 00000940: 20 20 20 20 20 20 3B 42 45 50 41 41 4C 20 41 41 | ;BEPAAL AA| 00000950: 4E 54 41 4C 0D 20 20 20 20 20 20 53 42 43 20 20 |NTAL. SBC | 00000960: 31 37 30 20 20 20 20 3B 4E 49 45 54 42 4C 41 4E |170 ;NIETBLAN| 00000970: 4B 45 20 4B 41 52 2E 0D 20 20 20 20 20 20 53 54 |KE KAR.. ST| 00000980: 41 20 20 32 35 31 20 20 20 20 3B 49 4E 43 4C 2E |A 251 ;INCL.| 00000990: 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 43 4C |TUSSEN-. CL| 000009A0: 43 20 20 20 20 20 20 20 20 20 3B 53 50 41 54 49 |C ;SPATI| 000009B0: 45 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |ES.. LDA #0| 000009C0: 30 30 20 20 20 20 3B 44 41 54 20 41 41 4E 54 41 |00 ;DAT AANTA| 000009D0: 4C 20 2A 20 38 2E 0D 20 20 20 20 20 20 52 4F 4C |L * 8.. ROL| 000009E0: 20 20 32 35 31 0D 20 20 20 20 20 20 52 4F 4C 20 | 251. ROL | 000009F0: 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 35 | A. ROL 25| 00000A00: 31 20 20 20 20 3B 50 52 4F 44 55 43 54 0D 20 20 |1 ;PRODUCT. | 00000A10: 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 20 | ROL A | 00000A20: 3B 49 4E 20 28 32 35 32 2C 32 35 31 29 2E 0D 20 |;IN (252,251).. | 00000A30: 20 20 20 20 20 52 4F 4C 20 20 32 35 31 0D 20 20 | ROL 251. | 00000A40: 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 | ROL A. | 00000A50: 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 | STA 252. | 00000A60: 4C 44 41 20 20 31 36 39 20 20 20 20 3B 54 45 4C |LDA 169 ;TEL| 00000A70: 20 4D 41 52 47 45 20 4F 50 0D 20 20 20 20 20 20 | MARGE OP. | 00000A80: 41 44 43 20 20 30 30 36 38 32 20 20 3B 42 49 4A |ADC 00682 ;BIJ| 00000A90: 20 42 45 47 49 4E 4D 41 52 47 45 2E 0D 20 20 20 | BEGINMARGE.. | 00000AA0: 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 3B | TAY ;| 00000AB0: 5A 45 54 20 53 4F 4D 20 49 4E 20 28 59 29 2E 0D |ZET SOM IN (Y)..| 00000AC0: 20 20 20 20 20 20 4C 44 41 20 23 30 32 37 20 20 | LDA #027 | 00000AD0: 20 20 3B 5A 45 54 20 54 4F 54 41 4C 45 0D 20 20 | ;ZET TOTALE. | 00000AE0: 20 20 20 20 4C 44 58 20 23 30 37 37 20 20 20 20 | LDX #077 | 00000AF0: 3B 4D 41 52 47 45 20 4F 50 0D 20 20 20 20 20 20 |;MARGE OP. | 00000B00: 4A 53 52 20 20 4C 41 58 59 20 20 20 3B 50 52 49 |JSR LAXY ;PRI| 00000B10: 4E 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 58 20 |NTER.. LDX | 00000B20: 23 31 30 33 20 20 20 20 3B 50 52 49 4E 54 45 52 |#103 ;PRINTER| 00000B30: 20 47 52 41 46 2E 4F 50 0D 20 20 20 20 20 20 4C | GRAF.OP. L| 00000B40: 44 59 20 23 30 30 35 20 20 20 20 3B 37 32 20 50 |DY #005 ;72 P| 00000B50: 55 4E 54 45 4E 2F 49 4E 43 48 2E 0D 20 20 20 20 |UNTEN/INCH.. | 00000B60: 20 20 4A 53 52 20 20 4C 41 58 59 20 20 20 3B 47 | JSR LAXY ;G| 00000B70: 52 41 46 2E 42 59 54 45 53 3A 0D 20 20 20 20 20 |RAF.BYTES:. | 00000B80: 20 4C 44 58 20 20 32 35 31 20 20 20 20 3B 41 41 | LDX 251 ;AA| 00000B90: 4E 54 41 4C 20 4C 41 41 47 20 45 4E 0D 20 20 20 |NTAL LAAG EN. | 00000BA0: 20 20 20 4C 44 59 20 20 32 35 32 20 20 20 20 3B | LDY 252 ;| 00000BB0: 41 41 4E 54 41 4C 20 48 4F 4F 47 2E 0D 20 20 20 |AANTAL HOOG.. | 00000BC0: 20 20 20 4A 53 52 20 20 4C 58 59 0D 20 20 20 20 | JSR LXY. | 00000BD0: 20 20 4C 44 59 20 20 31 37 30 20 20 20 20 3B 42 | LDY 170 ;B| 00000BE0: 45 47 49 4E 50 4F 53 49 54 49 45 2E 0D 48 50 52 |EGINPOSITIE..HPR| 00000BF0: 49 38 20 4C 44 41 20 20 32 34 37 20 20 20 20 3B |I8 LDA 247 ;| 00000C00: 4C 45 54 54 45 52 53 4F 4F 52 54 2D 42 49 54 0D |LETTERSOORT-BIT.| 00000C10: 20 20 20 20 20 20 4C 53 52 20 20 41 20 20 20 20 | LSR A | 00000C20: 20 20 3B 53 43 48 55 49 56 45 4E 20 4E 41 41 52 | ;SCHUIVEN NAAR| 00000C30: 0D 20 20 20 20 20 20 4C 53 52 20 20 41 20 20 20 |. LSR A | 00000C40: 20 20 20 3B 43 41 52 52 59 2E 0D 20 20 20 20 20 | ;CARRY.. | 00000C50: 20 4C 44 41 20 28 31 36 37 29 2C 59 20 3B 43 4F | LDA (167),Y ;CO| 00000C60: 44 45 20 45 4E 20 50 52 49 4E 54 2E 0D 20 20 20 |DE EN PRINT.. | 00000C70: 20 20 20 4A 53 52 20 20 52 4F 50 55 20 20 20 3B | JSR ROPU ;| 00000C80: 28 59 29 20 4F 4E 56 45 52 4C 45 54 2E 0D 20 20 |(Y) ONVERLET.. | 00000C90: 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 | INY | 00000CA0: 3B 56 4F 4C 47 45 4E 44 45 0D 20 20 20 20 20 20 |;VOLGENDE. | 00000CB0: 43 50 59 20 20 31 37 31 20 20 20 20 3B 50 4F 53 |CPY 171 ;POS| 00000CC0: 49 54 49 45 2E 0D 20 20 20 20 20 20 42 43 43 20 |ITIE.. BCC | 00000CD0: 20 48 50 52 49 38 20 20 3B 45 49 4E 44 20 56 41 | HPRI8 ;EIND VA| 00000CE0: 4E 20 52 45 47 45 4C 3A 0D 48 50 52 49 39 20 4C |N REGEL:.HPRI9 L| 00000CF0: 44 41 20 23 30 31 30 20 20 20 20 3B 52 45 47 45 |DA #010 ;REGE| 00000D00: 4C 56 45 52 5A 45 54 2E 0D 20 20 20 20 20 20 4A |LVERZET.. J| 00000D10: 53 52 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 |SR 65490 ;*CHR| 00000D20: 4F 55 54 2A 0D 20 20 20 20 20 20 43 4C 43 20 20 |OUT*. CLC | 00000D30: 20 20 20 20 20 20 20 3B 4F 50 48 4F 47 45 4E 20 | ;OPHOGEN | 00000D40: 41 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 |ADRES. LDA | 00000D50: 23 30 34 30 20 20 20 20 3B 56 41 4E 20 53 43 48 |#040 ;VAN SCH| 00000D60: 45 52 4D 0D 20 20 20 20 20 20 41 44 43 20 20 31 |ERM. ADC 1| 00000D70: 36 37 20 20 20 20 3B 4D 45 54 20 34 30 2E 0D 20 |67 ;MET 40.. | 00000D80: 20 20 20 20 20 53 54 41 20 20 31 36 37 0D 20 20 | STA 167. | 00000D90: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 00000DA0: 20 20 20 41 44 43 20 20 31 36 38 0D 20 20 20 20 | ADC 168. | 00000DB0: 20 20 53 54 41 20 20 31 36 38 0D 20 20 20 20 20 | STA 168. | 00000DC0: 20 44 45 43 20 20 32 34 38 20 20 20 20 3B 41 46 | DEC 248 ;AF| 00000DD0: 54 45 4C 4C 45 4E 20 56 41 4E 0D 20 20 20 20 20 |TELLEN VAN. | 00000DE0: 20 42 50 4C 20 20 48 50 52 49 35 20 20 3B 44 45 | BPL HPRI5 ;DE| 00000DF0: 20 52 45 47 45 4C 53 2E 0D 20 20 20 20 20 20 4C | REGELS.. L| 00000E00: 44 58 20 23 30 32 37 20 20 20 20 3B 4E 41 20 44 |DX #027 ;NA D| 00000E10: 45 20 4C 41 41 54 53 54 45 3A 0D 20 20 20 20 20 |E LAATSTE:. | 00000E20: 20 4C 44 59 20 23 30 36 34 20 20 20 20 3B 48 45 | LDY #064 ;HE| 00000E30: 52 5A 45 54 20 44 45 0D 20 20 20 20 20 20 4A 53 |RZET DE. JS| 00000E40: 52 20 20 4C 58 59 20 20 20 20 3B 50 52 49 4E 54 |R LXY ;PRINT| 00000E50: 45 52 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |ER.. LDA #0| 00000E60: 30 31 20 20 20 20 3B 53 4C 55 49 54 20 46 49 4C |01 ;SLUIT FIL| 00000E70: 45 20 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |E 1.. JSR | 00000E80: 36 35 34 37 35 20 20 3B 2A 20 43 4C 4F 53 45 2A |65475 ;* CLOSE*| 00000E90: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 35 31 |. JSR 6551| 00000EA0: 31 20 20 3B 2A 20 43 4C 41 4C 4C 2A 0D 20 20 20 |1 ;* CLALL*. | 00000EB0: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00000EC0: 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 52 2E 0D |NAAR HOOFDPRGR..| 00000ED0: 3B 0D 4C 41 58 59 20 20 53 54 41 20 20 30 30 32 |;.LAXY STA 002| 00000EE0: 20 20 20 20 3B 52 45 44 20 28 41 29 2E 0D 20 20 | ;RED (A).. | 00000EF0: 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 | JSR 65490 | 00000F00: 3B 2A 43 48 52 4F 55 54 2A 0D 3B 0D 4C 58 59 20 |;*CHROUT*.;.LXY | 00000F10: 20 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 28 | TXA ;(| 00000F20: 58 29 3D 3E 28 41 29 2E 0D 20 20 20 20 20 20 4A |X)=>(A).. J| 00000F30: 53 52 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 |SR 65490 ;*CHR| 00000F40: 4F 55 54 2A 0D 20 20 20 20 20 20 54 59 41 20 20 |OUT*. TYA | 00000F50: 20 20 20 20 20 20 20 3B 28 59 29 3D 3E 28 41 29 | ;(Y)=>(A)| 00000F60: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |.. JSR 654| 00000F70: 39 30 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 |90 ;*CHROUT*. | 00000F80: 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 20 20 | LDA 002 | 00000F90: 3B 48 45 52 53 54 45 4C 20 28 41 29 2E 0D 20 20 |;HERSTEL (A).. | 00000FA0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 00000FB0: 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 52 2E |;NAAR HOOFDPRGR.| 00000FC0: 0D 3B 0D 52 4F 50 55 20 20 53 54 41 20 20 30 30 |.;.ROPU STA 00| 00000FD0: 32 20 20 20 20 3B 52 45 44 20 28 41 29 20 49 4E |2 ;RED (A) IN| 00000FE0: 20 28 32 29 2E 0D 20 20 20 20 20 20 54 59 41 20 | (2).. TYA | 00000FF0: 20 20 20 20 20 20 20 20 3B 52 45 44 20 28 59 29 | ;RED (Y)| 00001000: 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |.. PHA. | 00001010: 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 3B 28 | LDA #000 ;(| 00001020: 43 2C 41 29 20 43 4F 44 45 2E 0D 20 20 20 20 20 |C,A) CODE.. | 00001030: 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B 4D 41 | ROL A ;MA| 00001040: 41 4C 20 41 43 48 54 2C 0D 20 20 20 20 20 20 52 |AL ACHT,. R| 00001050: 4F 4C 20 20 30 30 32 20 20 20 20 3B 49 4E 20 28 |OL 002 ;IN (| 00001060: 41 29 28 32 29 2E 0D 20 20 20 20 20 20 52 4F 4C |A)(2).. ROL| 00001070: 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 | A. ROL 0| 00001080: 30 32 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D |02. ROL A.| 00001090: 20 20 20 20 20 20 52 4F 4C 20 20 30 30 32 0D 20 | ROL 002. | 000010A0: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 000010B0: 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 41 20 | TAX. LDA | 000010C0: 20 30 30 32 20 20 20 20 3B 41 44 52 45 53 20 56 | 002 ;ADRES V| 000010D0: 41 4E 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |AN. ADC 25| 000010E0: 33 20 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D 52 |3 ;KARAKTER-R| 000010F0: 41 4D 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 |AM. STA 24| 00001100: 39 20 20 20 20 3B 45 52 42 49 4A 20 45 4E 20 49 |9 ;ERBIJ EN I| 00001110: 4E 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 20 |N. TXA | 00001120: 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 2E 0D | ;(250,249)..| 00001130: 20 20 20 20 20 20 41 44 43 20 20 32 35 34 0D 20 | ADC 254. | 00001140: 20 20 20 20 20 53 54 41 20 20 32 35 30 0D 20 20 | STA 250. | 00001150: 20 20 20 20 4C 44 59 20 23 30 30 37 20 20 20 20 | LDY #007 | 00001160: 3B 54 52 41 4E 53 50 4F 52 54 20 4E 41 41 52 0D |;TRANSPORT NAAR.| 00001170: 52 4F 50 31 20 20 4C 44 41 20 28 32 34 39 29 2C |ROP1 LDA (249),| 00001180: 59 20 3B 28 38 32 30 29 2E 2E 28 38 32 37 29 2E |Y ;(820)..(827).| 00001190: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 38 32 |. STA 0082| 000011A0: 30 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 |0,Y. DEY. | 000011B0: 20 20 20 20 42 50 4C 20 20 52 4F 50 31 0D 20 20 | BPL ROP1. | 000011C0: 20 20 20 20 4C 44 59 20 23 30 30 37 20 20 20 20 | LDY #007 | 000011D0: 3B 54 52 41 4E 53 50 4F 53 49 54 49 45 0D 52 4F |;TRANSPOSITIE.RO| 000011E0: 50 32 20 20 4C 44 58 20 23 30 30 37 20 20 20 20 |P2 LDX #007 | 000011F0: 3B 45 4E 20 4F 55 54 50 55 54 2E 0D 52 4F 50 33 |;EN OUTPUT..ROP3| 00001200: 20 20 52 4F 4C 20 20 30 30 38 32 30 2C 58 0D 20 | ROL 00820,X. | 00001210: 20 20 20 20 20 52 4F 52 20 20 41 20 20 20 20 20 | ROR A | 00001220: 20 3B 56 4F 52 4D 20 49 4E 20 28 41 29 0D 20 20 | ;VORM IN (A). | 00001230: 20 20 20 20 44 45 58 20 20 20 20 20 20 20 20 20 | DEX | 00001240: 3B 42 49 54 20 56 4F 4F 52 20 42 49 54 0D 20 20 |;BIT VOOR BIT. | 00001250: 20 20 20 20 42 50 4C 20 20 52 4F 50 33 20 20 20 | BPL ROP3 | 00001260: 3B 44 45 20 4F 55 54 50 55 54 42 59 54 45 2E 0D |;DE OUTPUTBYTE..| 00001270: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 | JSR 65490| 00001280: 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 20 20 | ;*CHROUT*. | 00001290: 20 20 44 45 59 20 20 20 20 20 20 20 20 20 3B 54 | DEY ;T| 000012A0: 45 4C 20 49 4E 50 55 54 2D 0D 20 20 20 20 20 20 |EL INPUT-. | 000012B0: 42 50 4C 20 20 52 4F 50 32 20 20 20 3B 42 49 54 |BPL ROP2 ;BIT| 000012C0: 53 20 41 46 2E 0D 20 20 20 20 20 20 50 4C 41 20 |S AF.. PLA | 000012D0: 20 20 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C | ;HERSTEL| 000012E0: 20 28 59 29 2E 0D 20 20 20 20 20 20 54 41 59 0D | (Y).. TAY.| 000012F0: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00001300: 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 | ;NAAR HOOFDPRG| 00001310: 52 2E 0D 3B 0D 20 20 20 20 20 20 2E 44 42 59 54 |R..;. .DBYT| 00001320: 45 20 24 46 46 46 46 2C 24 46 46 46 46 0D 20 20 |E $FFFF,$FFFF. | 00001330: 20 20 20 20 2E 44 42 59 54 45 20 24 46 46 46 46 | .DBYTE $FFFF| 00001340: 2C 24 46 46 46 46 0D 3B 0D 20 20 20 20 20 20 2E |,$FFFF.;. .| 00001350: 45 4E 44 0D |END. |
;.; PROGRAMMA : LORDUS ..; BRONCODE
: LORDUS.ASM ..; OBJECTCODE : LORD
US.OBJ ..; DISK : ASSEMBLERBRON
..; TAAL : ASSEMBLER C64..; DAT
UM : 2 OCT.1991..; PROGRAMMEUR :
J.H.VAN RIJN..;.; DIT SUBPROGRAMMA DUMP
T OP DE.; PRINTER STAR SG-10 KARAKTERS.;
UIT HET SCHERM IN LOW-RESOLU-.; TION-MO
DE. DE TEKENS WORDEN.; GEHAALD UIT EEN K
ARAKTER-RAM.; MET MOST-SIGNIFICANT ADRES
IN.; GEHEUGENADRES 00681..; DE MARGE (1
2/INCH) IN 682..;.;=====================
============.;.; DECIM HEXA SYMBL FUNCTI
E.;.; 49152 C000 HPRIN PRINT LOWRESO-.;
LUT.AF SCHERM..;.;.
*=49152.;.HPRIN LDA 53272 ;LETTER
-. STA 247 ;SOORT.. LDA #0
01 ;OPEN FILE 1.. LDX #004 ;P
RINTER.. LDY #000. JSR 65466
;*SETLFS*. LDA #000. JSR 654
69 ;*SETNAM*. JSR 65472 ;* OPEN
*. LDX #001 ;FILE 1.. JSR
65481 ;*CHKOUT*. LDA #024 ;BUFF
ER LEEG.. JSR 65490 ;*CHROUT*.
LDA #027 ;REGEL 8/72 IN.. LDX
#065. LDY #008. JSR LAXY.
LDX #066 ;KOLOM 72/INCH.. LDY
#002. JSR LAXY. LDX #085
;EENRICHTING.. LDY #001. JSR
LAXY. LDA 00681 ;BEGINADRES VAN.
STA 254 ;KARAKTER-RAM. LDA
#000 ;IN (254,253).. STA 253
;BEGINADRES VAN. LDA 00648 ;SCH
ERMGEHEUGEN. STA 168 ;EN VAN BE
GIN. LDA #000 ;VAN REGEL. S
TA 167 ;IN (168,167).. LDA #024
;REGELAFTELLER. STA 248 ;24
-00 IN (248)..HPRI1 LDY #000 ;ZOEK BE
GIN VAN. TYA ;POETS WIJZERS
.. BEQ HPRI3 ;NAAR ZETTINGEN..HPR
I2 DEX ;2-1-0 AFTELLEN.. BP
L HPRI4 ;NOG NIET.. CLC ;
NU WEL: DOE. LDA 169 ;VIER BIJ
ELITE-. ADC #004 ;MARGE..HPRI3 S
TA 169 ;ZETTINGEN.. STY 170
;(Y) DRIEVOUD.. LDX #002 ;2-1-0
AFTEL..HPRI4 LDA (167),Y ;TEKEN U/REGEL
.. CMP #032 ;VAN REGEL.. BN
E HPRI6 ;SPATIE? JA:. INY
;POS.EEN VERDER.. CPY #040 ;EIN
D V.REGEL?. BCC HPRI2 ;NEE:TERUG.
. BCS HPRI9 ;JA:REGEL LEEG..HPRI5
CLC ;TUSSEN-. BCC HPRI1
;SPRONG..HPRI6 LDY #040 ;ZOEK AF EIND
V..HPRI7 DEY ;REGEL N.MEEST.
LDA (167),Y ;RECHTS NIET-. CMP #
032 ;BLANK KARAKTER.. BEQ HPRI7
;GEVONDEN: POS.. INY ;EEN
N/RECHTS.. STY 171. SEC.
TYA ;BEPAAL AANTAL. SBC
170 ;NIETBLANKE KAR.. STA 251
;INCL.TUSSEN-. CLC ;SPATI
ES.. LDA #000 ;DAT AANTAL * 8..
ROL 251. ROL A. ROL 25
1 ;PRODUCT. ROL A ;IN (252
,251).. ROL 251. ROL A.
STA 252. LDA 169 ;TEL MARGE O
P. ADC 00682 ;BIJ BEGINMARGE..
TAY ;ZET SOM IN (Y).. LD
A #027 ;ZET TOTALE. LDX #077
;MARGE OP. JSR LAXY ;PRINTER..
LDX #103 ;PRINTER GRAF.OP. L
DY #005 ;72 PUNTEN/INCH.. JSR L
AXY ;GRAF.BYTES:. LDX 251 ;AA
NTAL LAAG EN. LDY 252 ;AANTAL H
OOG.. JSR LXY. LDY 170 ;B
EGINPOSITIE..HPRI8 LDA 247 ;LETTERSO
ORT-BIT. LSR A ;SCHUIVEN NAAR
. LSR A ;CARRY.. LDA (16
7),Y ;CODE EN PRINT.. JSR ROPU ;
(Y) ONVERLET.. INY ;VOLGEND
E. CPY 171 ;POSITIE.. BCC
HPRI8 ;EIND VAN REGEL:.HPRI9 LDA #010
;REGELVERZET.. JSR 65490 ;*CHR
OUT*. CLC ;OPHOGEN ADRES.
LDA #040 ;VAN SCHERM. ADC 1
67 ;MET 40.. STA 167. LDA
#000. ADC 168. STA 168.
DEC 248 ;AFTELLEN VAN. BPL HP
RI5 ;DE REGELS.. LDX #027 ;NA D
E LAATSTE:. LDY #064 ;HERZET DE.
JSR LXY ;PRINTER.. LDA #0
01 ;SLUIT FILE 1.. JSR 65475 ;
* CLOSE*. JSR 65511 ;* CLALL*.
RTS ;NAAR HOOFDPRGR..;.LAXY
STA 002 ;RED (A).. JSR 65490
;*CHROUT*.;.LXY TXA ;(X)=>(A).
. JSR 65490 ;*CHROUT*. TYA
;(Y)=>(A).. JSR 65490 ;*CH
ROUT*. LDA 002 ;HERSTEL (A)..
RTS ;NAAR HOOFDPRGR..;.ROPU
STA 002 ;RED (A) IN (2).. TYA
;RED (Y).. PHA. LDA #0
00 ;(C,A) CODE.. ROL A ;MA
AL ACHT,. ROL 002 ;IN (A)(2)..
ROL A. ROL 002. ROL A.
ROL 002. ROL A. TAX.
LDA 002 ;ADRES VAN. ADC 25
3 ;KARAKTER-RAM. STA 249 ;ER
BIJ EN IN. TXA ;(250,249)..
ADC 254. STA 250. LDY
#007 ;TRANSPORT NAAR.ROP1 LDA (249),
Y ;(820)..(827).. STA 00820,Y.
DEY. BPL ROP1. LDY #007
;TRANSPOSITIE.ROP2 LDX #007 ;EN OUTP
UT..ROP3 ROL 00820,X. ROR A
;VORM IN (A). DEX ;BIT VOO
R BIT. BPL ROP3 ;DE OUTPUTBYTE..
JSR 65490 ;*CHROUT*. DEY
;TEL INPUT-. BPL ROP2 ;BIT
S AF.. PLA ;HERSTEL (Y)..
TAY. RTS ;NAAR HOOFDPRG
R..;. .DBYTE $FFFF,$FFFF. .DBY
TE $FFFF,$FFFF.;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL