LORDUP.ASM
FILE INFORMATION
FILENAME(S): LORDUP.ASM
FILE TYPE(S): SEQ
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:26:12
APPEARS ON: 1 disk(s)
FILE HASH
4bd46140cf82d33c2b3fa1aca6891d0c9d5f8cdac3022417f496d1c660c841b6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 2 | LORDUP.ASM | SEQ | DuncanTwain | 24 | 9 | 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 50 20 2E 0D 3B 20 42 52 |: LORDUP ..; BR| 00000020: 4F 4E 43 4F 44 45 20 20 20 20 3A 20 20 4C 4F 52 |ONCODE : LOR| 00000030: 44 55 50 2E 41 53 4D 20 20 2E 0D 3B 20 4F 42 4A |DUP.ASM ..; OBJ| 00000040: 45 43 54 43 4F 44 45 20 20 3A 20 20 4C 4F 52 44 |ECTCODE : LORD| 00000050: 55 50 2E 4F 42 4A 20 20 2E 0D 3B 20 44 49 53 4B |UP.OBJ ..; DISK| 00000060: 20 20 20 20 20 20 20 20 3A 20 20 44 45 4D 4F 2D | : DEMO-| 00000070: 32 2E 0D 3B 20 54 41 41 4C 20 20 20 20 20 20 20 |2..; TAAL | 00000080: 20 3A 20 20 41 53 53 45 4D 42 4C 45 52 20 43 36 | : ASSEMBLER C6| 00000090: 34 2E 0D 3B 20 44 41 54 55 4D 20 20 20 20 20 20 |4..; DATUM | 000000A0: 20 3A 20 20 32 37 20 4E 4F 56 2E 20 31 39 39 32 | : 27 NOV. 1992| 000000B0: 2E 0D 3B 20 50 52 4F 47 52 41 4D 4D 45 55 52 20 |..; PROGRAMMEUR | 000000C0: 3A 20 20 4A 2E 48 2E 56 41 4E 20 52 49 4A 4E 2E |: J.H.VAN RIJN.| 000000D0: 0D 3B 0D 3B 20 44 49 54 20 53 55 42 50 52 4F 47 |.;.; DIT SUBPROG| 000000E0: 52 41 4D 4D 41 20 44 55 4D 50 54 20 4F 50 20 44 |RAMMA DUMPT OP D| 000000F0: 45 0D 3B 20 50 52 49 4E 54 45 52 20 53 54 41 52 |E.; PRINTER STAR| 00000100: 20 4C 43 2D 32 30 20 4B 41 52 41 4B 54 45 52 53 | LC-20 KARAKTERS| 00000110: 0D 3B 20 55 49 54 20 48 45 54 20 53 43 48 45 52 |.; UIT HET SCHER| 00000120: 4D 20 49 4E 20 4C 4F 57 2D 52 45 53 4F 4C 55 2D |M IN LOW-RESOLU-| 00000130: 0D 3B 20 54 49 4F 4E 2D 4D 4F 44 45 2E 20 44 45 |.; TION-MODE. DE| 00000140: 20 54 45 4B 45 4E 53 20 57 4F 52 44 45 4E 0D 3B | TEKENS WORDEN.;| 00000150: 20 47 45 48 41 41 4C 44 20 55 49 54 20 45 45 4E | GEHAALD UIT EEN| 00000160: 20 4B 41 52 41 4B 54 45 52 2D 52 41 4D 0D 3B 20 | KARAKTER-RAM.; | 00000170: 4D 45 54 20 4D 4F 53 54 2D 53 49 47 4E 49 46 49 |MET MOST-SIGNIFI| 00000180: 43 41 4E 54 20 41 44 52 45 53 20 49 4E 0D 3B 20 |CANT ADRES IN.; | 00000190: 47 45 48 45 55 47 45 4E 41 44 52 45 53 20 30 30 |GEHEUGENADRES 00| 000001A0: 36 38 31 2E 0D 3B 20 50 49 43 41 2D 4D 41 52 47 |681..; PICA-MARG| 000001B0: 45 20 49 4E 20 30 30 36 38 32 2E 0D 3B 0D 3B 3D |E IN 00682..;.;=| 000001C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001E0: 0D 3B 0D 3B 20 44 45 43 49 4D 20 48 45 58 41 20 |.;.; DECIM HEXA | 000001F0: 53 59 4D 42 4C 20 46 55 4E 43 54 49 45 0D 3B 0D |SYMBL FUNCTIE.;.| 00000200: 3B 20 34 39 31 35 32 20 43 30 30 30 20 48 50 49 |; 49152 C000 HPI| 00000210: 4E 20 20 50 52 49 4E 54 20 4C 4F 57 52 45 53 4F |N PRINT LOWRESO| 00000220: 2D 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |-.; | 00000230: 20 20 20 20 20 4C 55 54 2E 41 46 20 53 43 48 45 | LUT.AF SCHE| 00000240: 52 4D 2E 0D 3B 0D 3B 0D 20 20 20 20 20 20 20 20 |RM..;.;. | 00000250: 20 2A 3D 34 39 31 35 32 0D 3B 0D 48 50 49 4E 20 | *=49152.;.HPIN | 00000260: 20 4C 44 41 20 20 35 33 32 37 32 20 20 3B 4C 45 | LDA 53272 ;LE| 00000270: 54 54 45 52 2D 0D 20 20 20 20 20 20 53 54 41 20 |TTER-. STA | 00000280: 20 32 34 37 20 20 20 20 3B 53 4F 4F 52 54 2E 0D | 247 ;SOORT..| 00000290: 20 20 20 20 20 20 4C 44 41 20 23 30 30 31 20 20 | LDA #001 | 000002A0: 20 20 3B 4F 50 45 4E 20 46 49 4C 45 20 31 2E 0D | ;OPEN FILE 1..| 000002B0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 34 20 20 | LDX #004 | 000002C0: 20 20 3B 50 52 49 4E 54 45 52 2E 0D 20 20 20 20 | ;PRINTER.. | 000002D0: 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 | LDY #000. | 000002E0: 20 4A 53 52 20 20 36 35 34 36 36 20 20 3B 2A 53 | JSR 65466 ;*S| 000002F0: 45 54 4C 46 53 2A 0D 20 20 20 20 20 20 4C 44 41 |ETLFS*. LDA| 00000300: 20 23 30 30 30 0D 20 20 20 20 20 20 4A 53 52 20 | #000. JSR | 00000310: 20 36 35 34 36 39 20 20 3B 2A 53 45 54 4E 41 4D | 65469 ;*SETNAM| 00000320: 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |*. JSR 654| 00000330: 37 32 20 20 3B 2A 20 4F 50 45 4E 20 2A 0D 20 20 |72 ;* OPEN *. | 00000340: 20 20 20 20 4C 44 58 20 23 30 30 31 20 20 20 20 | LDX #001 | 00000350: 3B 46 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 4A |;FILE 1.. J| 00000360: 53 52 20 20 36 35 34 38 31 20 20 3B 2A 43 48 4B |SR 65481 ;*CHK| 00000370: 4F 55 54 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 |OUT*. LDA #| 00000380: 30 32 34 20 20 20 20 3B 42 55 46 46 45 52 20 4C |024 ;BUFFER L| 00000390: 45 45 47 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |EEG.. JSR | 000003A0: 36 35 34 39 30 20 20 3B 2A 43 48 52 4F 55 54 2A |65490 ;*CHROUT*| 000003B0: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 37 20 |. LDA #027 | 000003C0: 20 20 20 3B 50 52 49 4E 54 45 52 0D 20 20 20 20 | ;PRINTER. | 000003D0: 20 20 4C 44 58 20 23 30 36 35 20 20 20 20 3B 49 | LDX #065 ;I| 000003E0: 4E 53 54 45 4C 4C 45 4E 20 4F 50 0D 20 20 20 20 |NSTELLEN OP. | 000003F0: 20 20 4C 44 59 20 23 30 30 38 20 20 20 20 3B 52 | LDY #008 ;R| 00000400: 45 47 45 4C 20 38 2F 37 32 20 49 4E 2E 0D 20 20 |EGEL 8/72 IN.. | 00000410: 20 20 20 20 4A 53 52 20 20 4C 41 58 59 20 20 20 | JSR LAXY | 00000420: 3B 56 45 52 54 49 43 41 41 4C 20 41 4C 0D 20 20 |;VERTICAAL AL. | 00000430: 20 20 20 20 4C 44 58 20 23 30 32 37 20 20 20 20 | LDX #027 | 00000440: 3B 37 32 20 53 54 49 50 2F 49 4E 43 48 2E 0D 20 |;72 STIP/INCH.. | 00000450: 20 20 20 20 20 4C 44 59 20 23 30 38 30 20 20 20 | LDY #080 | 00000460: 20 3B 5A 45 54 20 4F 50 20 50 49 43 41 2E 0D 20 | ;ZET OP PICA.. | 00000470: 20 20 20 20 20 4A 53 52 20 20 4C 58 59 0D 20 20 | JSR LXY. | 00000480: 20 20 20 20 4C 44 41 20 23 30 32 37 0D 20 20 20 | LDA #027. | 00000490: 20 20 20 4C 44 58 20 23 30 38 35 20 20 20 20 3B | LDX #085 ;| 000004A0: 5A 45 54 20 4F 50 20 50 52 49 4E 54 20 49 4E 0D |ZET OP PRINT IN.| 000004B0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 | LDY #001 | 000004C0: 20 20 3B 45 45 4E 20 52 49 43 48 54 49 4E 47 2E | ;EEN RICHTING.| 000004D0: 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 41 58 59 |. JSR LAXY| 000004E0: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 38 |. LDA 0068| 000004F0: 31 20 20 3B 42 45 47 49 4E 41 44 52 45 53 20 56 |1 ;BEGINADRES V| 00000500: 41 4E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |AN. STA 25| 00000510: 34 20 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D 52 |4 ;KARAKTER-R| 00000520: 41 4D 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |AM. LDA #00| 00000530: 30 20 20 20 20 3B 49 4E 20 28 32 35 34 2C 32 35 |0 ;IN (254,25| 00000540: 33 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |3).. STA 2| 00000550: 35 33 20 20 20 20 3B 42 45 47 49 4E 41 44 52 45 |53 ;BEGINADRE| 00000560: 53 20 56 41 4E 0D 20 20 20 20 20 20 4C 44 41 20 |S VAN. LDA | 00000570: 20 30 30 36 34 38 20 20 3B 53 43 48 45 52 4D 47 | 00648 ;SCHERMG| 00000580: 45 48 45 55 47 45 4E 0D 20 20 20 20 20 20 53 54 |EHEUGEN. ST| 00000590: 41 20 20 31 36 38 20 20 20 20 3B 45 4E 20 56 41 |A 168 ;EN VA| 000005A0: 4E 20 42 45 47 49 4E 0D 20 20 20 20 20 20 4C 44 |N BEGIN. LD| 000005B0: 41 20 23 30 30 30 20 20 20 20 3B 56 41 4E 20 52 |A #000 ;VAN R| 000005C0: 45 47 45 4C 0D 20 20 20 20 20 20 53 54 41 20 20 |EGEL. STA | 000005D0: 31 36 37 20 20 20 20 3B 49 4E 20 28 31 36 38 2C |167 ;IN (168,| 000005E0: 31 36 37 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 |167).. LDA | 000005F0: 23 30 32 34 20 20 20 20 3B 52 45 47 45 4C 41 46 |#024 ;REGELAF| 00000600: 54 45 4C 4C 45 52 0D 20 20 20 20 20 20 53 54 41 |TELLER. STA| 00000610: 20 20 32 34 38 20 20 20 20 3B 32 34 2D 30 30 20 | 248 ;24-00 | 00000620: 49 4E 20 28 32 34 38 29 2E 0D 48 50 49 31 30 20 |IN (248)..HPI10 | 00000630: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 5A 4F 45 |LDY #000 ;ZOE| 00000640: 4B 20 42 45 47 49 4E 20 56 41 4E 0D 48 50 49 31 |K BEGIN VAN.HPI1| 00000650: 31 20 4C 44 41 20 28 31 36 37 29 2C 59 20 3B 4E |1 LDA (167),Y ;N| 00000660: 49 45 54 2D 42 4C 41 4E 4B 20 47 45 2D 0D 20 20 |IET-BLANK GE-. | 00000670: 20 20 20 20 43 4D 50 20 23 30 33 32 20 20 20 20 | CMP #032 | 00000680: 3B 44 45 45 4C 54 45 20 56 2E 52 45 47 45 4C 2E |;DEELTE V.REGEL.| 00000690: 0D 20 20 20 20 20 20 42 4E 45 20 20 48 50 49 32 |. BNE HPI2| 000006A0: 31 20 20 3B 45 45 4E 20 53 50 41 54 49 45 3F 20 |1 ;EEN SPATIE? | 000006B0: 4A 41 3A 0D 20 20 20 20 20 20 49 4E 59 20 20 20 |JA:. INY | 000006C0: 20 20 20 20 20 20 3B 45 45 4E 20 50 4F 53 2E 56 | ;EEN POS.V| 000006D0: 45 52 44 45 52 2E 0D 20 20 20 20 20 20 43 50 59 |ERDER.. CPY| 000006E0: 20 23 30 34 30 20 20 20 20 3B 45 49 4E 44 20 56 | #040 ;EIND V| 000006F0: 2E 52 45 47 45 4C 3A 0D 20 20 20 20 20 20 42 43 |.REGEL:. BC| 00000700: 43 20 20 48 50 49 31 31 20 20 3B 52 45 47 45 4C |C HPI11 ;REGEL| 00000710: 20 49 53 20 4C 45 45 47 2E 0D 20 20 20 20 20 20 | IS LEEG.. | 00000720: 42 43 53 20 20 48 50 49 31 32 20 20 3B 41 4E 44 |BCS HPI12 ;AND| 00000730: 45 52 53 20 52 45 47 2E 56 4F 4C 2E 0D 48 50 49 |ERS REG.VOL..HPI| 00000740: 32 31 20 53 54 59 20 20 31 37 30 20 20 20 20 3B |21 STY 170 ;| 00000750: 50 4F 53 2E 56 41 4E 20 45 45 52 53 54 45 0D 20 |POS.VAN EERSTE. | 00000760: 20 20 20 20 20 4C 44 59 20 23 30 34 30 20 20 20 | LDY #040 | 00000770: 20 3B 4E 49 45 54 42 4C 41 4E 4B 45 20 4B 41 52 | ;NIETBLANKE KAR| 00000780: 2E 0D 48 50 49 33 31 20 44 45 59 20 20 20 20 20 |..HPI31 DEY | 00000790: 20 20 20 20 3B 5A 4F 45 4B 20 56 41 4E 41 46 20 | ;ZOEK VANAF | 000007A0: 45 49 4E 44 0D 20 20 20 20 20 20 4C 44 41 20 28 |EIND. LDA (| 000007B0: 31 36 37 29 2C 59 20 3B 56 41 4E 20 52 45 47 45 |167),Y ;VAN REGE| 000007C0: 4C 20 4E 41 41 52 0D 20 20 20 20 20 20 43 4D 50 |L NAAR. CMP| 000007D0: 20 23 30 33 32 20 20 20 20 3B 4D 45 45 53 54 20 | #032 ;MEEST | 000007E0: 52 45 43 48 54 53 45 0D 20 20 20 20 20 20 42 45 |RECHTSE. BE| 000007F0: 51 20 20 48 50 49 33 31 20 20 3B 4E 49 45 54 42 |Q HPI31 ;NIETB| 00000800: 4C 41 4E 4B 45 20 4B 41 52 2E 0D 20 20 20 20 20 |LANKE KAR.. | 00000810: 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 45 45 | INY ;EE| 00000820: 4E 20 4E 2F 52 45 43 48 54 53 2E 0D 20 20 20 20 |N N/RECHTS.. | 00000830: 20 20 53 54 59 20 20 31 37 31 0D 20 20 20 20 20 | STY 171. | 00000840: 20 53 45 43 0D 20 20 20 20 20 20 54 59 41 20 20 | SEC. TYA | 00000850: 20 20 20 20 20 20 20 3B 42 45 50 41 41 4C 20 41 | ;BEPAAL A| 00000860: 41 4E 54 41 4C 0D 20 20 20 20 20 20 53 42 43 20 |ANTAL. SBC | 00000870: 20 31 37 30 20 20 20 20 3B 4E 49 45 54 42 4C 41 | 170 ;NIETBLA| 00000880: 4E 4B 45 20 4B 41 52 2E 0D 20 20 20 20 20 20 53 |NKE KAR.. S| 00000890: 54 41 20 20 32 35 31 20 20 20 20 3B 49 4E 43 4C |TA 251 ;INCL| 000008A0: 2E 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 43 |.TUSSEN-. C| 000008B0: 4C 43 20 20 20 20 20 20 20 20 20 3B 53 50 41 54 |LC ;SPAT| 000008C0: 49 45 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |IES.. LDA #| 000008D0: 30 30 30 20 20 20 20 3B 44 41 54 20 41 41 4E 54 |000 ;DAT AANT| 000008E0: 41 4C 20 2A 20 38 2E 0D 20 20 20 20 20 20 52 4F |AL * 8.. RO| 000008F0: 4C 20 20 32 35 31 0D 20 20 20 20 20 20 52 4F 4C |L 251. ROL| 00000900: 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 | A. ROL 2| 00000910: 35 31 20 20 20 20 3B 50 52 4F 44 55 43 54 0D 20 |51 ;PRODUCT. | 00000920: 20 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 | ROL A | 00000930: 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 29 2E 0D | ;IN (252,251)..| 00000940: 20 20 20 20 20 20 52 4F 4C 20 20 32 35 31 0D 20 | ROL 251. | 00000950: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 00000960: 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 | STA 252. | 00000970: 20 4C 44 41 20 20 31 37 30 20 20 20 20 3B 54 45 | LDA 170 ;TE| 00000980: 4C 20 50 49 43 41 4D 41 52 47 45 0D 20 20 20 20 |L PICAMARGE. | 00000990: 20 20 41 44 43 20 20 30 30 36 38 32 20 20 3B 42 | ADC 00682 ;B| 000009A0: 49 4A 20 42 45 47 49 4E 4D 41 52 47 45 2E 0D 20 |IJ BEGINMARGE.. | 000009B0: 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 | TAY | 000009C0: 20 3B 5A 45 54 20 53 4F 4D 20 49 4E 20 28 59 29 | ;ZET SOM IN (Y)| 000009D0: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 37 |.. LDA #027| 000009E0: 20 20 20 20 3B 5A 45 54 20 54 4F 54 41 4C 45 0D | ;ZET TOTALE.| 000009F0: 20 20 20 20 20 20 4C 44 58 20 23 31 30 38 20 20 | LDX #108 | 00000A00: 20 20 3B 50 49 43 41 4D 41 52 47 45 20 4F 50 0D | ;PICAMARGE OP.| 00000A10: 20 20 20 20 20 20 4A 53 52 20 20 4C 41 58 59 20 | JSR LAXY | 00000A20: 20 20 3B 50 52 49 4E 54 45 52 2E 0D 20 20 20 20 | ;PRINTER.. | 00000A30: 20 20 4C 44 58 20 23 30 34 32 20 20 20 20 3B 50 | LDX #042 ;P| 00000A40: 52 49 4E 54 45 52 20 47 52 41 46 2E 4F 50 0D 20 |RINTER GRAF.OP. | 00000A50: 20 20 20 20 20 4C 44 59 20 23 30 30 34 20 20 20 | LDY #004 | 00000A60: 20 3B 38 30 20 50 55 4E 54 45 4E 2F 49 4E 43 48 | ;80 PUNTEN/INCH| 00000A70: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 41 58 |.. JSR LAX| 00000A80: 59 20 20 20 3B 47 52 41 46 2E 42 59 54 45 53 3A |Y ;GRAF.BYTES:| 00000A90: 0D 20 20 20 20 20 20 4C 44 58 20 20 32 35 31 20 |. LDX 251 | 00000AA0: 20 20 20 3B 41 41 4E 54 41 4C 20 4C 41 41 47 20 | ;AANTAL LAAG | 00000AB0: 45 4E 0D 20 20 20 20 20 20 4C 44 59 20 20 32 35 |EN. LDY 25| 00000AC0: 32 20 20 20 20 3B 41 41 4E 54 41 4C 20 48 4F 4F |2 ;AANTAL HOO| 00000AD0: 47 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 58 |G.. JSR LX| 00000AE0: 59 0D 20 20 20 20 20 20 4C 44 59 20 20 31 37 30 |Y. LDY 170| 00000AF0: 20 20 20 20 3B 42 45 47 49 4E 50 4F 53 49 54 49 | ;BEGINPOSITI| 00000B00: 45 2E 0D 48 50 49 33 20 20 53 54 59 20 20 31 36 |E..HPI3 STY 16| 00000B10: 39 20 20 20 20 3B 5A 45 54 20 49 4E 20 28 31 36 |9 ;ZET IN (16| 00000B20: 39 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |9).. LDA 2| 00000B30: 34 37 20 20 20 20 3B 4C 45 54 54 45 52 53 4F 4F |47 ;LETTERSOO| 00000B40: 52 54 2D 42 49 54 0D 20 20 20 20 20 20 4C 53 52 |RT-BIT. LSR| 00000B50: 20 20 41 20 20 20 20 20 20 3B 53 43 48 55 49 56 | A ;SCHUIV| 00000B60: 45 4E 20 4E 41 41 52 0D 20 20 20 20 20 20 4C 53 |EN NAAR. LS| 00000B70: 52 20 20 41 20 20 20 20 20 20 3B 43 41 52 52 59 |R A ;CARRY| 00000B80: 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 31 36 37 |.. LDA (167| 00000B90: 29 2C 59 20 3B 43 4F 44 45 2E 0D 20 20 20 20 20 |),Y ;CODE.. | 00000BA0: 20 4A 53 52 20 20 52 4F 50 55 20 20 20 3B 54 45 | JSR ROPU ;TE| 00000BB0: 4B 45 4E 20 50 52 49 4E 54 45 4E 2E 0D 20 20 20 |KEN PRINTEN.. | 00000BC0: 20 20 20 4C 44 59 20 20 31 36 39 20 20 20 20 3B | LDY 169 ;| 00000BD0: 56 4F 4C 47 45 4E 44 45 20 50 4F 53 49 54 2E 0D |VOLGENDE POSIT..| 00000BE0: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00000BF0: 43 50 59 20 20 31 37 31 20 20 20 20 3B 3C 34 30 |CPY 171 ;<40| 00000C00: 3F 20 4A 41 3A 54 45 52 55 47 2E 0D 20 20 20 20 |? JA:TERUG.. | 00000C10: 20 20 42 43 43 20 20 48 50 49 33 20 20 20 3B 4E | BCC HPI3 ;N| 00000C20: 45 45 3A 20 44 4F 45 0D 48 50 49 31 32 20 4C 44 |EE: DOE.HPI12 LD| 00000C30: 41 20 23 30 31 30 20 20 20 20 3B 52 45 47 45 4C |A #010 ;REGEL| 00000C40: 56 45 52 5A 45 54 2E 0D 20 20 20 20 20 20 4A 53 |VERZET.. JS| 00000C50: 52 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 4F |R 65490 ;*CHRO| 00000C60: 55 54 2A 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |UT*. CLC | 00000C70: 20 20 20 20 20 20 3B 4F 50 48 4F 47 45 4E 20 41 | ;OPHOGEN A| 00000C80: 44 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 23 |DRES. LDA #| 00000C90: 30 34 30 20 20 20 20 3B 56 41 4E 20 53 43 48 45 |040 ;VAN SCHE| 00000CA0: 52 4D 0D 20 20 20 20 20 20 41 44 43 20 20 31 36 |RM. ADC 16| 00000CB0: 37 20 20 20 20 3B 4D 45 54 20 34 30 2E 0D 20 20 |7 ;MET 40.. | 00000CC0: 20 20 20 20 53 54 41 20 20 31 36 37 0D 20 20 20 | STA 167. | 00000CD0: 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 | LDA #000. | 00000CE0: 20 20 41 44 43 20 20 31 36 38 0D 20 20 20 20 20 | ADC 168. | 00000CF0: 20 53 54 41 20 20 31 36 38 0D 20 20 20 20 20 20 | STA 168. | 00000D00: 44 45 43 20 20 32 34 38 20 20 20 20 3B 41 46 54 |DEC 248 ;AFT| 00000D10: 45 4C 4C 45 4E 20 56 41 4E 0D 20 20 20 20 20 20 |ELLEN VAN. | 00000D20: 42 50 4C 20 20 48 50 49 31 30 20 20 3B 44 45 20 |BPL HPI10 ;DE | 00000D30: 52 45 47 45 4C 53 2E 0D 20 20 20 20 20 20 4C 44 |REGELS.. LD| 00000D40: 58 20 23 30 32 37 20 20 20 20 3B 55 49 54 47 45 |X #027 ;UITGE| 00000D50: 54 45 4C 44 3A 0D 20 20 20 20 20 20 4C 44 59 20 |TELD:. LDY | 00000D60: 23 30 36 34 20 20 20 20 3B 48 45 52 5A 45 54 20 |#064 ;HERZET | 00000D70: 50 52 49 4E 54 45 52 2E 0D 20 20 20 20 20 20 4A |PRINTER.. J| 00000D80: 53 52 20 20 4C 58 59 0D 20 20 20 20 20 20 4C 44 |SR LXY. LD| 00000D90: 41 20 23 30 30 31 20 20 20 20 3B 53 4C 55 49 54 |A #001 ;SLUIT| 00000DA0: 20 46 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 4A | FILE 1.. J| 00000DB0: 53 52 20 20 36 35 34 37 35 20 20 3B 2A 20 43 4C |SR 65475 ;* CL| 00000DC0: 4F 53 45 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 |OSE*. JSR | 00000DD0: 36 35 35 31 31 20 20 3B 2A 20 43 4C 41 4C 4C 2A |65511 ;* CLALL*| 00000DE0: 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 |. RTS | 00000DF0: 20 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 | ;NAAR HOOFDPR| 00000E00: 47 52 2E 0D 4C 41 58 59 20 20 53 54 41 20 20 30 |GR..LAXY STA 0| 00000E10: 30 32 20 20 20 20 3B 52 45 44 20 28 41 29 2E 0D |02 ;RED (A)..| 00000E20: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 | JSR 65490| 00000E30: 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 4C 58 59 20 | ;*CHROUT*.LXY | 00000E40: 20 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 28 | TXA ;(| 00000E50: 58 29 3D 3E 28 41 29 2E 0D 20 20 20 20 20 20 4A |X)=>(A).. J| 00000E60: 53 52 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 |SR 65490 ;*CHR| 00000E70: 4F 55 54 2A 0D 20 20 20 20 20 20 54 59 41 20 20 |OUT*. TYA | 00000E80: 20 20 20 20 20 20 20 3B 28 59 29 3D 3E 28 41 29 | ;(Y)=>(A)| 00000E90: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |.. JSR 654| 00000EA0: 39 30 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 |90 ;*CHROUT*. | 00000EB0: 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 20 20 | LDA 002 | 00000EC0: 3B 48 45 52 53 54 45 4C 20 28 41 29 2E 0D 20 20 |;HERSTEL (A).. | 00000ED0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 00000EE0: 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 52 2E |;NAAR HOOFDPRGR.| 00000EF0: 0D 52 4F 50 55 20 20 53 54 41 20 20 30 30 32 20 |.ROPU STA 002 | 00000F00: 20 20 20 3B 28 43 2C 41 29 20 43 4F 44 45 2E 0D | ;(C,A) CODE..| 00000F10: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 | LDA #000 | 00000F20: 20 20 3B 4D 41 41 4C 20 38 2C 20 49 4E 0D 20 20 | ;MAAL 8, IN. | 00000F30: 20 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 20 | ROL A | 00000F40: 3B 28 41 29 28 32 29 2E 0D 20 20 20 20 20 20 52 |;(A)(2).. R| 00000F50: 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 52 4F |OL 002. RO| 00000F60: 4C 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 |L A. ROL | 00000F70: 30 30 32 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 |002. ROL A| 00000F80: 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 30 32 0D |. ROL 002.| 00000F90: 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 | ROL A. | 00000FA0: 20 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 41 | TAX. LDA| 00000FB0: 20 20 30 30 32 20 20 20 20 3B 41 44 52 45 53 20 | 002 ;ADRES | 00000FC0: 56 41 4E 0D 20 20 20 20 20 20 41 44 43 20 20 32 |VAN. ADC 2| 00000FD0: 35 33 20 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D |53 ;KARAKTER-| 00000FE0: 52 41 4D 0D 20 20 20 20 20 20 53 54 41 20 20 32 |RAM. STA 2| 00000FF0: 34 39 20 20 20 20 3B 45 52 42 49 4A 20 45 4E 20 |49 ;ERBIJ EN | 00001000: 49 4E 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 |IN. TXA | 00001010: 20 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 2E | ;(250,249).| 00001020: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 34 0D |. ADC 254.| 00001030: 20 20 20 20 20 20 53 54 41 20 20 32 35 30 0D 20 | STA 250. | 00001040: 20 20 20 20 20 4C 44 59 20 23 30 30 37 20 20 20 | LDY #007 | 00001050: 20 3B 54 52 41 4E 53 50 4F 52 54 20 4E 41 41 52 | ;TRANSPORT NAAR| 00001060: 0D 54 52 41 31 20 20 4C 44 41 20 28 32 34 39 29 |.TRA1 LDA (249)| 00001070: 2C 59 20 3B 28 38 32 30 29 2E 2E 28 38 32 37 29 |,Y ;(820)..(827)| 00001080: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 38 |.. STA 008| 00001090: 32 30 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 |20,Y. DEY. | 000010A0: 20 20 20 20 20 42 50 4C 20 20 54 52 41 31 0D 20 | BPL TRA1. | 000010B0: 20 20 20 20 20 4C 44 59 20 23 30 30 37 20 20 20 | LDY #007 | 000010C0: 20 3B 54 52 41 4E 53 50 4F 53 49 54 49 45 0D 54 | ;TRANSPOSITIE.T| 000010D0: 52 41 32 20 20 4C 44 58 20 23 30 30 37 20 20 20 |RA2 LDX #007 | 000010E0: 20 3B 45 4E 20 4F 55 54 50 55 54 2E 0D 54 52 41 | ;EN OUTPUT..TRA| 000010F0: 33 20 20 52 4F 4C 20 20 30 30 38 32 30 2C 58 0D |3 ROL 00820,X.| 00001100: 20 20 20 20 20 20 52 4F 52 20 20 41 0D 20 20 20 | ROR A. | 00001110: 20 20 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C | DEX. BPL| 00001120: 20 20 54 52 41 33 0D 20 20 20 20 20 20 4A 53 52 | TRA3. JSR| 00001130: 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 4F 55 | 65490 ;*CHROU| 00001140: 54 2A 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 |T*. DEY. | 00001150: 20 20 20 42 50 4C 20 20 54 52 41 32 0D 20 20 20 | BPL TRA2. | 00001160: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00001170: 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 52 2E 0D |NAAR HOOFDPRGR..| 00001180: 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 46 2C | .BYTE $FF,| 00001190: 24 46 46 2C 24 46 46 2C 24 46 46 0D 20 20 20 20 |$FF,$FF,$FF. | 000011A0: 20 20 2E 45 4E 44 0D | .END. |
;.; PROGRAMMA : LORDUP ..; BRONCODE
: LORDUP.ASM ..; OBJECTCODE : LORD
UP.OBJ ..; DISK : DEMO-2..; TAA
L : ASSEMBLER C64..; DATUM
: 27 NOV. 1992..; PROGRAMMEUR : J.H.V
AN RIJN..;.; DIT SUBPROGRAMMA DUMPT OP D
E.; PRINTER STAR LC-20 KARAKTERS.; UIT H
ET SCHERM IN LOW-RESOLU-.; TION-MODE. DE
TEKENS WORDEN.; GEHAALD UIT EEN KARAKTE
R-RAM.; MET MOST-SIGNIFICANT ADRES IN.;
GEHEUGENADRES 00681..; PICA-MARGE IN 006
82..;.;=================================
.;.; DECIM HEXA SYMBL FUNCTIE.;.; 49152
C000 HPIN PRINT LOWRESO-.;
LUT.AF SCHERM..;.;. *=49152
.;.HPIN LDA 53272 ;LETTER-. STA
247 ;SOORT.. LDA #001 ;OPEN
FILE 1.. LDX #004 ;PRINTER..
LDY #000. JSR 65466 ;*SETLFS*.
LDA #000. JSR 65469 ;*SETNAM
*. JSR 65472 ;* OPEN *. LDX
#001 ;FILE 1.. JSR 65481 ;*CHK
OUT*. LDA #024 ;BUFFER LEEG..
JSR 65490 ;*CHROUT*. LDA #027
;PRINTER. LDX #065 ;INSTELLEN
OP. LDY #008 ;REGEL 8/72 IN..
JSR LAXY ;VERTICAAL AL. LDX
#027 ;72 STIP/INCH.. LDY #080
;ZET OP PICA.. JSR LXY. LDA
#027. LDX #085 ;ZET OP PRINT IN.
LDY #001 ;EEN RICHTING.. J
SR LAXY. LDA 00681 ;BEGINADRES V
AN. STA 254 ;KARAKTER-RAM.
LDA #000 ;IN (254,253).. STA 2
53 ;BEGINADRES VAN. LDA 00648
;SCHERMGEHEUGEN. STA 168 ;EN VA
N BEGIN. LDA #000 ;VAN REGEL.
STA 167 ;IN (168,167).. LDA
#024 ;REGELAFTELLER. STA 248
;24-00 IN (248)..HPI10 LDY #000 ;ZOE
K BEGIN VAN.HPI11 LDA (167),Y ;NIET-BLAN
K GE-. CMP #032 ;DEELTE V.REGEL.
. BNE HPI21 ;EEN SPATIE? JA:.
INY ;EEN POS.VERDER.. CPY
#040 ;EIND V.REGEL:. BCC HPI11
;REGEL IS LEEG.. BCS HPI12 ;AND
ERS REG.VOL..HPI21 STY 170 ;POS.VAN
EERSTE. LDY #040 ;NIETBLANKE KAR
..HPI31 DEY ;ZOEK VANAF EIND.
LDA (167),Y ;VAN REGEL NAAR. CMP
#032 ;MEEST RECHTSE. BEQ HPI31
;NIETBLANKE KAR.. INY ;EE
N N/RECHTS.. STY 171. SEC.
TYA ;BEPAAL AANTAL. SBC
170 ;NIETBLANKE KAR.. STA 251
;INCL.TUSSEN-. CLC ;SPAT
IES.. LDA #000 ;DAT AANTAL * 8..
ROL 251. ROL A. ROL 2
51 ;PRODUCT. ROL A ;IN (25
2,251).. ROL 251. ROL A.
STA 252. LDA 170 ;TEL PICAMA
RGE. ADC 00682 ;BIJ BEGINMARGE..
TAY ;ZET SOM IN (Y)..
LDA #027 ;ZET TOTALE. LDX #108
;PICAMARGE OP. JSR LAXY ;PRINT
ER.. LDX #042 ;PRINTER GRAF.OP.
LDY #004 ;80 PUNTEN/INCH..
JSR LAXY ;GRAF.BYTES:. LDX 251
;AANTAL LAAG EN. LDY 252 ;AA
NTAL HOOG.. JSR LXY. LDY 170
;BEGINPOSITIE..HPI3 STY 169 ;ZE
T IN (169).. LDA 247 ;LETTERSOO
RT-BIT. LSR A ;SCHUIVEN NAAR.
LSR A ;CARRY.. LDA (167
),Y ;CODE.. JSR ROPU ;TEKEN PRIN
TEN.. LDY 169 ;VOLGENDE POSIT..
INY. CPY 171 ;<40? JA:TER
UG.. BCC HPI3 ;NEE: DOE.HPI12 LD
A #010 ;REGELVERZET.. JSR 65490
;*CHROUT*. CLC ;OPHOGEN A
DRES. LDA #040 ;VAN SCHERM.
ADC 167 ;MET 40.. STA 167.
LDA #000. ADC 168. STA 16
8. DEC 248 ;AFTELLEN VAN.
BPL HPI10 ;DE REGELS.. LDX #027
;UITGETELD:. LDY #064 ;HERZET
PRINTER.. JSR LXY. LDA #001
;SLUIT FILE 1.. JSR 65475 ;* CL
OSE*. JSR 65511 ;* CLALL*. R
TS ;NAAR HOOFDPRGR..LAXY STA 0
02 ;RED (A).. JSR 65490 ;*CHRO
UT*.LXY TXA ;(X)=>(A).. J
SR 65490 ;*CHROUT*. TYA ;
(Y)=>(A).. JSR 65490 ;*CHROUT*.
LDA 002 ;HERSTEL (A).. RTS
;NAAR HOOFDPRGR..ROPU STA 002
;(C,A) CODE.. LDA #000 ;MAAL
8, IN. ROL A ;(A)(2).. R
OL 002. ROL A. ROL 002.
ROL A. ROL 002. ROL A.
TAX. LDA 002 ;ADRES VAN.
ADC 253 ;KARAKTER-RAM. STA 2
49 ;ERBIJ EN IN. TXA ;(2
50,249).. ADC 254. STA 250.
LDY #007 ;TRANSPORT NAAR.TRA1 L
DA (249),Y ;(820)..(827).. STA 008
20,Y. DEY. BPL TRA1. LDY
#007 ;TRANSPOSITIE.TRA2 LDX #007
;EN OUTPUT..TRA3 ROL 00820,X. RO
R A. DEX. BPL TRA3. JSR
65490 ;*CHROUT*. DEY. BPL
TRA2. RTS ;NAAR HOOFDPRGR..
.BYTE $FF,$FF,$FF,$FF. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL