LORPLO.ASM
FILE INFORMATION
FILENAME(S): LORPLO.ASM
FILE TYPE(S): SEQ
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 21:26:12
APPEARS ON: 1 disk(s)
FILE HASH
f1a1be91df9f0dc6abd6aec0ac7f5e362c878b608a7653e778c1206861f51883
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 2 | LORPLO.ASM | SEQ | DuncanTwain | 24 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000010: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00000020: 20 20 20 20 20 20 3B 50 52 4F 47 52 41 4D 4D 41 | ;PROGRAMMA| 00000030: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000040: 20 20 20 3B 20 20 4C 4F 52 50 4C 4F 2E 41 53 4D | ; LORPLO.ASM| 00000050: 20 20 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 | .. | 00000060: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 | ;. | 00000070: 20 20 20 20 20 20 20 20 20 20 3B 4F 50 20 53 43 | ;OP SC| 00000080: 48 49 4A 46 0D 20 20 20 20 20 20 20 20 20 20 20 |HIJF. | 00000090: 20 20 20 20 20 20 20 3B 20 20 44 45 4D 4F 2D 32 | ; DEMO-2| 000000A0: 20 20 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 | .. | 000000B0: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 | ;. | 000000C0: 20 20 20 20 20 20 20 20 20 20 3B 50 52 4F 47 52 | ;PROGR| 000000D0: 41 4D 4D 45 55 52 0D 20 20 20 20 20 20 20 20 20 |AMMEUR. | 000000E0: 20 20 20 20 20 20 20 20 20 3B 20 20 4A 2E 48 2E | ; J.H.| 000000F0: 56 41 4E 20 52 49 4A 4E 2E 0D 20 20 20 20 20 20 |VAN RIJN.. | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 | ;. | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 3B 20 20 36 20 44 45 43 2E 31 39 39 30 2E 0D 20 |; 6 DEC.1990.. | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 34 39 | ;. *=49| 00000150: 31 35 32 0D 20 20 20 20 20 20 20 20 20 20 20 20 |152. | 00000160: 20 20 20 20 20 20 3B 0D 48 50 49 4E 20 20 4C 44 | ;.HPIN LD| 00000170: 41 20 20 35 33 32 37 32 20 20 3B 4C 45 54 54 45 |A 53272 ;LETTE| 00000180: 52 53 4F 4F 52 54 2E 0D 20 20 20 20 20 20 53 54 |RSOORT.. ST| 00000190: 41 20 20 32 34 37 0D 20 20 20 20 20 20 4C 44 41 |A 247. LDA| 000001A0: 20 23 30 30 31 20 20 20 20 3B 4F 50 45 4E 20 46 | #001 ;OPEN F| 000001B0: 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 4C 44 58 |ILE 1.. LDX| 000001C0: 20 23 30 30 34 20 20 20 20 3B 50 52 49 4E 54 45 | #004 ;PRINTE| 000001D0: 52 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |R.. LDY #00| 000001E0: 30 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |0. JSR 654| 000001F0: 36 36 20 20 3B 2A 53 45 54 4C 46 53 2A 0D 20 20 |66 ;*SETLFS*. | 00000200: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 00000210: 20 20 20 4A 53 52 20 20 36 35 34 36 39 20 20 3B | JSR 65469 ;| 00000220: 2A 53 45 54 4E 41 4D 2A 0D 20 20 20 20 20 20 4A |*SETNAM*. J| 00000230: 53 52 20 20 36 35 34 37 32 20 20 3B 2A 20 4F 50 |SR 65472 ;* OP| 00000240: 45 4E 20 2A 0D 20 20 20 20 20 20 4C 44 58 20 23 |EN *. LDX #| 00000250: 30 30 31 20 20 20 20 3B 46 49 4C 45 20 31 2E 0D |001 ;FILE 1..| 00000260: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 38 31 | JSR 65481| 00000270: 20 20 3B 2A 43 48 4B 4F 55 54 2A 0D 20 20 20 20 | ;*CHKOUT*. | 00000280: 20 20 4C 44 41 20 23 30 32 34 20 20 20 20 3B 42 | LDA #024 ;B| 00000290: 55 46 46 45 52 20 4C 45 45 47 2E 0D 20 20 20 20 |UFFER LEEG.. | 000002A0: 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 3B 2A | JSR 65490 ;*| 000002B0: 43 48 52 4F 55 54 2A 0D 20 20 20 20 20 20 4C 44 |CHROUT*. LD| 000002C0: 41 20 23 30 32 37 20 20 20 20 3B 50 52 49 4E 54 |A #027 ;PRINT| 000002D0: 45 52 0D 20 20 20 20 20 20 4C 44 58 20 23 30 36 |ER. LDX #06| 000002E0: 35 20 20 20 20 3B 49 4E 53 54 45 4C 4C 45 4E 20 |5 ;INSTELLEN | 000002F0: 4F 50 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |OP. LDY #00| 00000300: 38 20 20 20 20 3B 52 45 47 45 4C 20 38 2F 37 32 |8 ;REGEL 8/72| 00000310: 20 49 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 | IN.. JSR | 00000320: 4C 41 58 59 20 20 20 3B 56 45 52 54 49 43 41 41 |LAXY ;VERTICAA| 00000330: 4C 20 41 4C 0D 20 20 20 20 20 20 4C 44 58 20 23 |L AL. LDX #| 00000340: 30 38 35 20 20 20 20 3B 37 32 20 53 54 49 50 2F |085 ;72 STIP/| 00000350: 49 4E 43 48 2E 0D 20 20 20 20 20 20 4C 44 59 20 |INCH.. LDY | 00000360: 23 30 30 31 20 20 20 20 3B 50 52 49 4E 54 45 4E |#001 ;PRINTEN| 00000370: 20 49 4E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C | IN. JSR L| 00000380: 41 58 59 20 20 20 3B 45 45 4E 20 52 49 43 48 54 |AXY ;EEN RICHT| 00000390: 49 4E 47 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |ING.. LDX #| 000003A0: 30 37 37 20 20 20 20 3B 5A 45 54 20 4D 41 52 47 |077 ;ZET MARG| 000003B0: 45 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 32 |E.. LDY #02| 000003C0: 30 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 41 58 |0. JSR LAX| 000003D0: 59 0D 20 20 20 20 20 20 4C 44 41 20 23 32 30 38 |Y. LDA #208| 000003E0: 20 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 20 | ;BEGINADRES | 000003F0: 56 41 4E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |VAN. STA 2| 00000400: 35 34 20 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D |54 ;KARAKTER-| 00000410: 52 4F 4D 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |ROM. LDA #0| 00000420: 30 30 20 20 20 20 3B 49 4E 20 28 32 35 34 2C 32 |00 ;IN (254,2| 00000430: 35 33 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |53).. STA | 00000440: 32 35 33 20 20 20 20 3B 42 45 47 49 4E 41 44 52 |253 ;BEGINADR| 00000450: 45 53 20 56 41 4E 0D 20 20 20 20 20 20 4C 44 41 |ES VAN. LDA| 00000460: 20 20 30 30 36 34 38 20 20 3B 53 43 48 45 52 4D | 00648 ;SCHERM| 00000470: 47 45 48 45 55 47 45 4E 0D 20 20 20 20 20 20 53 |GEHEUGEN. S| 00000480: 54 41 20 20 31 36 38 20 20 20 20 3B 45 4E 20 56 |TA 168 ;EN V| 00000490: 41 4E 20 42 45 47 49 4E 0D 20 20 20 20 20 20 4C |AN BEGIN. L| 000004A0: 44 41 20 23 30 30 30 20 20 20 20 3B 56 41 4E 20 |DA #000 ;VAN | 000004B0: 52 45 47 45 4C 0D 20 20 20 20 20 20 53 54 41 20 |REGEL. STA | 000004C0: 20 31 36 37 20 20 20 20 3B 49 4E 20 28 31 36 38 | 167 ;IN (168| 000004D0: 2C 31 36 37 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,167).. LDA| 000004E0: 20 23 30 32 34 20 20 20 20 3B 52 45 47 45 4C 41 | #024 ;REGELA| 000004F0: 46 54 45 4C 4C 45 52 0D 20 20 20 20 20 20 53 54 |FTELLER. ST| 00000500: 41 20 20 32 34 38 20 20 20 20 3B 32 34 2D 30 30 |A 248 ;24-00| 00000510: 20 49 4E 20 28 32 34 38 29 2E 0D 48 50 49 31 30 | IN (248)..HPI10| 00000520: 20 4C 44 59 20 23 30 34 30 20 20 20 20 3B 5A 4F | LDY #040 ;ZO| 00000530: 45 4B 20 56 41 4E 41 46 20 45 49 4E 44 0D 48 50 |EK VANAF EIND.HP| 00000540: 49 33 31 20 44 45 59 20 20 20 20 20 20 20 20 20 |I31 DEY | 00000550: 3B 56 41 4E 20 52 45 47 45 4C 20 4E 41 41 52 0D |;VAN REGEL NAAR.| 00000560: 20 20 20 20 20 20 42 4D 49 20 20 48 50 49 31 32 | BMI HPI12| 00000570: 20 20 3B 4D 45 45 53 54 20 52 45 43 48 54 53 45 | ;MEEST RECHTSE| 00000580: 0D 20 20 20 20 20 20 4C 44 41 20 28 31 36 37 29 |. LDA (167)| 00000590: 2C 59 20 3B 4E 49 45 54 42 4C 41 4E 4B 20 4B 41 |,Y ;NIETBLANK KA| 000005A0: 52 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 33 |R.. CMP #03| 000005B0: 32 0D 20 20 20 20 20 20 42 45 51 20 20 48 50 49 |2. BEQ HPI| 000005C0: 33 31 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 |31. INY | 000005D0: 20 20 20 20 20 3B 50 4F 53 2E 45 45 4E 20 42 49 | ;POS.EEN BI| 000005E0: 4A 2C 0D 20 20 20 20 20 20 53 54 59 20 20 31 37 |J,. STY 17| 000005F0: 31 20 20 20 20 3B 45 4E 20 49 4E 20 31 37 31 2C |1 ;EN IN 171,| 00000600: 0D 20 20 20 20 20 20 53 54 59 20 20 32 35 31 20 |. STY 251 | 00000610: 20 20 20 3B 45 4E 20 49 4E 20 32 35 31 2E 0D 20 | ;EN IN 251.. | 00000620: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000630: 20 3B 44 41 54 20 41 41 4E 54 41 4C 20 2A 20 38 | ;DAT AANTAL * 8| 00000640: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |.. LDA #000| 00000650: 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 35 31 0D |. ROL 251.| 00000660: 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 | ROL A. | 00000670: 20 20 20 52 4F 4C 20 20 32 35 31 20 20 20 20 3B | ROL 251 ;| 00000680: 50 52 4F 44 55 43 54 0D 20 20 20 20 20 20 52 4F |PRODUCT. RO| 00000690: 4C 20 20 41 20 20 20 20 20 20 3B 49 4E 20 28 32 |L A ;IN (2| 000006A0: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 52 |52,251).. R| 000006B0: 4F 4C 20 20 32 35 31 0D 20 20 20 20 20 20 52 4F |OL 251. RO| 000006C0: 4C 20 20 41 0D 20 20 20 20 20 20 53 54 41 20 20 |L A. STA | 000006D0: 32 35 32 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |252. LDA #0| 000006E0: 32 37 0D 20 20 20 20 20 20 4C 44 58 20 23 31 30 |27. LDX #10| 000006F0: 33 20 20 20 20 3B 50 52 49 4E 54 45 52 20 47 52 |3 ;PRINTER GR| 00000700: 41 46 2E 4F 50 0D 20 20 20 20 20 20 4C 44 59 20 |AF.OP. LDY | 00000710: 23 30 30 35 20 20 20 20 3B 37 32 20 50 55 4E 54 |#005 ;72 PUNT| 00000720: 45 4E 2F 49 4E 43 48 2E 0D 20 20 20 20 20 20 4A |EN/INCH.. J| 00000730: 53 52 20 20 4C 41 58 59 20 20 20 3B 47 52 41 46 |SR LAXY ;GRAF| 00000740: 2E 42 59 54 45 53 3A 0D 20 20 20 20 20 20 4C 44 |.BYTES:. LD| 00000750: 58 20 20 32 35 31 20 20 20 20 3B 41 41 4E 54 41 |X 251 ;AANTA| 00000760: 4C 20 4C 41 41 47 20 45 4E 0D 20 20 20 20 20 20 |L LAAG EN. | 00000770: 4C 44 59 20 20 32 35 32 20 20 20 20 3B 41 41 4E |LDY 252 ;AAN| 00000780: 54 41 4C 20 48 4F 4F 47 2E 0D 20 20 20 20 20 20 |TAL HOOG.. | 00000790: 4A 53 52 20 20 4C 58 59 0D 20 20 20 20 20 20 4C |JSR LXY. L| 000007A0: 44 59 20 23 30 30 30 20 20 20 20 3B 42 45 47 49 |DY #000 ;BEGI| 000007B0: 4E 50 4F 53 2E 3D 30 2E 0D 48 50 49 33 20 20 53 |NPOS.=0..HPI3 S| 000007C0: 54 59 20 20 31 36 39 20 20 20 20 3B 5A 45 54 20 |TY 169 ;ZET | 000007D0: 49 4E 20 28 31 36 39 29 2E 0D 20 20 20 20 20 20 |IN (169).. | 000007E0: 4C 44 41 20 20 32 34 37 20 20 20 20 3B 4C 45 54 |LDA 247 ;LET| 000007F0: 54 45 52 53 4F 4F 52 54 2D 42 49 54 0D 20 20 20 |TERSOORT-BIT. | 00000800: 20 20 20 4C 53 52 20 20 41 20 20 20 20 20 20 3B | LSR A ;| 00000810: 53 43 48 55 49 56 45 4E 20 4E 41 41 52 0D 20 20 |SCHUIVEN NAAR. | 00000820: 20 20 20 20 4C 53 52 20 20 41 20 20 20 20 20 20 | LSR A | 00000830: 3B 43 41 52 52 59 2E 0D 20 20 20 20 20 20 4C 44 |;CARRY.. LD| 00000840: 41 20 28 31 36 37 29 2C 59 20 3B 43 4F 44 45 2E |A (167),Y ;CODE.| 00000850: 0D 20 20 20 20 20 20 4A 53 52 20 20 52 4F 50 55 |. JSR ROPU| 00000860: 20 20 20 3B 54 45 4B 45 4E 20 50 52 49 4E 54 45 | ;TEKEN PRINTE| 00000870: 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 20 31 36 |N.. LDY 16| 00000880: 39 20 20 20 20 3B 56 4F 4C 47 45 4E 44 45 20 50 |9 ;VOLGENDE P| 00000890: 4F 53 49 54 2E 0D 20 20 20 20 20 20 49 4E 59 0D |OSIT.. INY.| 000008A0: 20 20 20 20 20 20 43 50 59 20 20 31 37 31 20 20 | CPY 171 | 000008B0: 20 20 3B 3C 34 30 3F 20 4A 41 3A 54 45 52 55 47 | ;<40? JA:TERUG| 000008C0: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 48 50 49 |.. BCC HPI| 000008D0: 33 20 20 20 3B 4E 45 45 3A 20 44 4F 45 0D 48 50 |3 ;NEE: DOE.HP| 000008E0: 49 31 32 20 4C 44 41 20 23 30 31 30 20 20 20 20 |I12 LDA #010 | 000008F0: 3B 52 45 47 45 4C 56 45 52 5A 45 54 2E 0D 20 20 |;REGELVERZET.. | 00000900: 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 | JSR 65490 | 00000910: 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 20 20 20 20 |;*CHROUT*. | 00000920: 43 4C 43 20 20 20 20 20 20 20 20 20 3B 4F 50 48 |CLC ;OPH| 00000930: 4F 47 45 4E 20 41 44 52 45 53 0D 20 20 20 20 20 |OGEN ADRES. | 00000940: 20 4C 44 41 20 23 30 34 30 20 20 20 20 3B 56 41 | LDA #040 ;VA| 00000950: 4E 20 53 43 48 45 52 4D 0D 20 20 20 20 20 20 41 |N SCHERM. A| 00000960: 44 43 20 20 31 36 37 20 20 20 20 3B 4D 45 54 20 |DC 167 ;MET | 00000970: 34 30 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |40.. STA 1| 00000980: 36 37 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |67. LDA #00| 00000990: 30 0D 20 20 20 20 20 20 41 44 43 20 20 31 36 38 |0. ADC 168| 000009A0: 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 38 0D |. STA 168.| 000009B0: 20 20 20 20 20 20 44 45 43 20 20 32 34 38 20 20 | DEC 248 | 000009C0: 20 20 3B 41 46 54 45 4C 4C 45 4E 20 56 41 4E 0D | ;AFTELLEN VAN.| 000009D0: 20 20 20 20 20 20 42 50 4C 20 20 48 50 49 31 30 | BPL HPI10| 000009E0: 20 20 3B 44 45 20 52 45 47 45 4C 53 2E 0D 20 20 | ;DE REGELS.. | 000009F0: 20 20 20 20 4C 44 58 20 23 30 32 37 20 20 20 20 | LDX #027 | 00000A00: 3B 55 49 54 47 45 54 45 4C 44 3A 0D 20 20 20 20 |;UITGETELD:. | 00000A10: 20 20 4C 44 59 20 23 30 36 34 20 20 20 20 3B 48 | LDY #064 ;H| 00000A20: 45 52 5A 45 54 20 50 52 49 4E 54 45 52 2E 0D 20 |ERZET PRINTER.. | 00000A30: 20 20 20 20 20 4A 53 52 20 20 4C 58 59 0D 20 20 | JSR LXY. | 00000A40: 20 20 20 20 4C 44 41 20 23 30 30 31 20 20 20 20 | LDA #001 | 00000A50: 3B 53 4C 55 49 54 20 46 49 4C 45 20 31 2E 0D 20 |;SLUIT FILE 1.. | 00000A60: 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 35 20 | JSR 65475 | 00000A70: 20 3B 2A 20 43 4C 4F 53 45 2A 0D 20 20 20 20 20 | ;* CLOSE*. | 00000A80: 20 4A 53 52 20 20 36 35 35 31 31 20 20 3B 2A 20 | JSR 65511 ;* | 00000A90: 43 4C 41 4C 4C 2A 0D 20 20 20 20 20 20 52 54 53 |CLALL*. RTS| 00000AA0: 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 | ;NAAR H| 00000AB0: 4F 4F 46 44 50 52 47 52 2E 0D 4C 41 58 59 20 20 |OOFDPRGR..LAXY | 00000AC0: 53 54 41 20 20 30 30 32 20 20 20 20 3B 52 45 44 |STA 002 ;RED| 00000AD0: 20 28 41 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 | (A).. JSR | 00000AE0: 20 36 35 34 39 30 20 20 3B 2A 43 48 52 4F 55 54 | 65490 ;*CHROUT| 00000AF0: 2A 0D 4C 58 59 20 20 20 54 58 41 20 20 20 20 20 |*.LXY TXA | 00000B00: 20 20 20 20 3B 28 58 29 3D 3E 28 41 29 2E 0D 20 | ;(X)=>(A).. | 00000B10: 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 | JSR 65490 | 00000B20: 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 20 20 20 | ;*CHROUT*. | 00000B30: 20 54 59 41 20 20 20 20 20 20 20 20 20 3B 28 59 | TYA ;(Y| 00000B40: 29 3D 3E 28 41 29 2E 0D 20 20 20 20 20 20 4A 53 |)=>(A).. JS| 00000B50: 52 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 4F |R 65490 ;*CHRO| 00000B60: 55 54 2A 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |UT*. LDA 0| 00000B70: 30 32 20 20 20 20 3B 48 45 52 53 54 45 4C 20 28 |02 ;HERSTEL (| 00000B80: 41 29 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 |A).. RTS | 00000B90: 20 20 20 20 20 20 3B 4E 41 41 52 20 48 4F 4F 46 | ;NAAR HOOF| 00000BA0: 44 50 52 47 52 2E 0D 52 4F 50 55 20 20 53 54 41 |DPRGR..ROPU STA| 00000BB0: 20 20 30 30 32 20 20 20 20 3B 28 43 2C 41 29 20 | 002 ;(C,A) | 00000BC0: 43 4F 44 45 2E 0D 20 20 20 20 20 20 4C 44 41 20 |CODE.. LDA | 00000BD0: 23 30 30 30 20 20 20 20 3B 4D 41 41 4C 20 38 2C |#000 ;MAAL 8,| 00000BE0: 20 49 4E 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 | IN. ROL A| 00000BF0: 20 20 20 20 20 20 3B 28 41 29 28 32 29 2E 0D 20 | ;(A)(2).. | 00000C00: 20 20 20 20 20 52 4F 4C 20 20 30 30 32 0D 20 20 | ROL 002. | 00000C10: 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 | ROL A. | 00000C20: 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 | ROL 002. | 00000C30: 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F 4C |ROL A. ROL| 00000C40: 20 20 30 30 32 0D 20 20 20 20 20 20 52 4F 4C 20 | 002. ROL | 00000C50: 20 41 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 | A. TAX. | 00000C60: 20 20 20 4C 44 41 20 20 30 30 32 20 20 20 20 3B | LDA 002 ;| 00000C70: 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 20 |ADRES VAN. | 00000C80: 41 44 43 20 20 32 35 33 20 20 20 20 3B 4B 41 52 |ADC 253 ;KAR| 00000C90: 41 4B 54 45 52 2D 52 4F 4D 0D 20 20 20 20 20 20 |AKTER-ROM. | 00000CA0: 53 54 41 20 20 32 34 39 20 20 20 20 3B 45 52 42 |STA 249 ;ERB| 00000CB0: 49 4A 20 45 4E 20 49 4E 0D 20 20 20 20 20 20 54 |IJ EN IN. T| 00000CC0: 58 41 20 20 20 20 20 20 20 20 20 3B 28 32 35 30 |XA ;(250| 00000CD0: 2C 32 34 39 29 2E 0D 20 20 20 20 20 20 41 44 43 |,249).. ADC| 00000CE0: 20 20 32 35 34 0D 20 20 20 20 20 20 53 54 41 20 | 254. STA | 00000CF0: 20 32 35 30 0D 20 20 20 20 20 20 4C 44 41 20 20 | 250. LDA | 00000D00: 35 36 33 33 34 20 20 3B 47 45 45 4E 20 54 49 4D |56334 ;GEEN TIM| 00000D10: 45 52 2D 0D 20 20 20 20 20 20 41 4E 44 20 23 32 |ER-. AND #2| 00000D20: 35 34 20 20 20 20 3B 49 4E 54 45 52 52 55 50 54 |54 ;INTERRUPT| 00000D30: 53 2E 0D 20 20 20 20 20 20 53 54 41 20 20 35 36 |S.. STA 56| 00000D40: 33 33 34 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |334. LDA 0| 00000D50: 30 31 20 20 20 20 3B 4D 41 41 4B 20 4B 41 52 2E |01 ;MAAK KAR.| 00000D60: 52 4F 4D 0D 20 20 20 20 20 20 41 4E 44 20 23 32 |ROM. AND #2| 00000D70: 35 31 20 20 20 20 3B 4F 50 45 4E 2E 0D 20 20 20 |51 ;OPEN.. | 00000D80: 20 20 20 53 54 41 20 20 30 30 31 0D 20 20 20 20 | STA 001. | 00000D90: 20 20 4C 44 59 20 23 30 30 37 20 20 20 20 3B 54 | LDY #007 ;T| 00000DA0: 52 41 4E 53 50 4F 52 54 20 4E 41 41 52 0D 54 52 |RANSPORT NAAR.TR| 00000DB0: 41 31 20 20 4C 44 41 20 28 32 34 39 29 2C 59 20 |A1 LDA (249),Y | 00000DC0: 3B 28 38 32 30 29 2E 2E 28 38 32 37 29 2E 0D 20 |;(820)..(827).. | 00000DD0: 20 20 20 20 20 53 54 41 20 20 30 30 38 32 30 2C | STA 00820,| 00000DE0: 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 |Y. DEY. | 00000DF0: 20 20 42 50 4C 20 20 54 52 41 31 0D 20 20 20 20 | BPL TRA1. | 00000E00: 20 20 4C 44 41 20 20 30 30 31 20 20 20 20 3B 4D | LDA 001 ;M| 00000E10: 41 41 4B 20 4B 41 52 2E 52 4F 4D 0D 20 20 20 20 |AAK KAR.ROM. | 00000E20: 20 20 4F 52 41 20 23 30 30 34 20 20 20 20 3B 44 | ORA #004 ;D| 00000E30: 49 43 48 54 2E 0D 20 20 20 20 20 20 53 54 41 20 |ICHT.. STA | 00000E40: 20 30 30 31 0D 20 20 20 20 20 20 4C 44 41 20 20 | 001. LDA | 00000E50: 35 36 33 33 34 20 20 3B 57 45 4C 20 54 49 4D 45 |56334 ;WEL TIME| 00000E60: 52 2D 0D 20 20 20 20 20 20 4F 52 41 20 23 30 30 |R-. ORA #00| 00000E70: 31 20 20 20 20 3B 49 4E 54 45 52 52 55 50 54 53 |1 ;INTERRUPTS| 00000E80: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 35 36 33 |.. STA 563| 00000E90: 33 34 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |34. LDY #00| 00000EA0: 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 53 49 54 |7 ;TRANSPOSIT| 00000EB0: 49 45 0D 54 52 41 32 20 20 4C 44 58 20 23 30 30 |IE.TRA2 LDX #00| 00000EC0: 37 20 20 20 20 3B 45 4E 20 4F 55 54 50 55 54 2E |7 ;EN OUTPUT.| 00000ED0: 0D 54 52 41 33 20 20 52 4F 4C 20 20 30 30 38 32 |.TRA3 ROL 0082| 00000EE0: 30 2C 58 0D 20 20 20 20 20 20 52 4F 52 20 20 41 |0,X. ROR A| 00000EF0: 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |. DEX. | 00000F00: 20 42 50 4C 20 20 54 52 41 33 0D 20 20 20 20 20 | BPL TRA3. | 00000F10: 20 4A 53 52 20 20 36 35 34 39 30 20 20 3B 2A 43 | JSR 65490 ;*C| 00000F20: 48 52 4F 55 54 2A 0D 20 20 20 20 20 20 44 45 59 |HROUT*. DEY| 00000F30: 0D 20 20 20 20 20 20 42 50 4C 20 20 54 52 41 32 |. BPL TRA2| 00000F40: 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 |. RTS | 00000F50: 20 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 | ;NAAR HOOFDPR| 00000F60: 47 52 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |GR.. .BYTE | 00000F70: 24 46 46 2C 24 46 46 2C 24 46 46 2C 24 46 46 0D |$FF,$FF,$FF,$FF.| 00000F80: 20 20 20 20 20 20 2E 45 4E 44 0D | .END. |
;. ;P
ROGRAMMA. ; LORPLO.ASM
.. ;.
;OP SCHIJF. ; DEMO-2
.. ;.
;PROGRAMMEUR. ; J.H.
VAN RIJN.. ;.
; 6 DEC.1990..
;. *=49152. ;.
HPIN LDA 53272 ;LETTERSOORT.. ST
A 247. LDA #001 ;OPEN FILE 1..
LDX #004 ;PRINTER.. LDY #00
0. JSR 65466 ;*SETLFS*. LDA
#000. JSR 65469 ;*SETNAM*. J
SR 65472 ;* OPEN *. LDX #001 ;
FILE 1.. JSR 65481 ;*CHKOUT*.
LDA #024 ;BUFFER LEEG.. JSR 6
5490 ;*CHROUT*. LDA #027 ;PRINT
ER. LDX #065 ;INSTELLEN OP.
LDY #008 ;REGEL 8/72 IN.. JSR
LAXY ;VERTICAAL AL. LDX #085 ;
72 STIP/INCH.. LDY #001 ;PRINTEN
IN. JSR LAXY ;EEN RICHTING..
LDX #077 ;ZET MARGE.. LDY #02
0. JSR LAXY. LDA #208 ;BEG
INADRES VAN. STA 254 ;KARAKTER-
ROM. LDA #000 ;IN (254,253)..
STA 253 ;BEGINADRES VAN. LDA
00648 ;SCHERMGEHEUGEN. STA 168
;EN VAN BEGIN. LDA #000 ;VAN
REGEL. STA 167 ;IN (168,167)..
LDA #024 ;REGELAFTELLER. ST
A 248 ;24-00 IN (248)..HPI10 LDY #04
0 ;ZOEK VANAF EIND.HPI31 DEY
;VAN REGEL NAAR. BMI HPI12 ;MEEST
RECHTSE. LDA (167),Y ;NIETBLANK KA
R.. CMP #032. BEQ HPI31.
INY ;POS.EEN BIJ,. STY 17
1 ;EN IN 171,. STY 251 ;EN I
N 251.. CLC ;DAT AANTAL * 8
.. LDA #000. ROL 251. RO
L A. ROL 251 ;PRODUCT. RO
L A ;IN (252,251).. ROL 251.
ROL A. STA 252. LDA #0
27. LDX #103 ;PRINTER GRAF.OP.
LDY #005 ;72 PUNTEN/INCH.. J
SR LAXY ;GRAF.BYTES:. LDX 251
;AANTAL LAAG EN. LDY 252 ;AAN
TAL HOOG.. JSR LXY. LDY #000
;BEGINPOS.=0..HPI3 STY 169 ;ZET
IN (169).. LDA 247 ;LETTERSOORT
-BIT. LSR A ;SCHUIVEN NAAR.
LSR A ;CARRY.. LDA (167),
Y ;CODE.. JSR ROPU ;TEKEN PRINTE
N.. LDY 169 ;VOLGENDE POSIT..
INY. CPY 171 ;<40? JA:TERUG
.. BCC HPI3 ;NEE: DOE.HPI12 LDA
#010 ;REGELVERZET.. JSR 65490
;*CHROUT*. CLC ;OPHOGEN ADR
ES. LDA #040 ;VAN SCHERM. A
DC 167 ;MET 40.. STA 167.
LDA #000. ADC 168. STA 168.
DEC 248 ;AFTELLEN VAN. BP
L HPI10 ;DE REGELS.. LDX #027
;UITGETELD:. LDY #064 ;HERZET PR
INTER.. JSR LXY. LDA #001
;SLUIT FILE 1.. JSR 65475 ;* CLOS
E*. 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 ;*CHROUT*.
LDA 002 ;HERSTEL (A).. RTS
;NAAR HOOFDPRGR..ROPU STA 002
;(C,A) CODE.. LDA #000 ;MAAL 8,
IN. ROL A ;(A)(2).. ROL
002. ROL A. ROL 002.
ROL A. ROL 002. ROL A.
TAX. LDA 002 ;ADRES VAN.
ADC 253 ;KARAKTER-ROM. STA 249
;ERBIJ EN IN. TXA ;(250
,249).. ADC 254. STA 250.
LDA 56334 ;GEEN TIMER-. AND #2
54 ;INTERRUPTS.. STA 56334.
LDA 001 ;MAAK KAR.ROM. AND #2
51 ;OPEN.. STA 001. LDY #0
07 ;TRANSPORT NAAR.TRA1 LDA (249),Y
;(820)..(827).. STA 00820,Y.
DEY. BPL TRA1. LDA 001 ;M
AAK KAR.ROM. ORA #004 ;DICHT..
STA 001. LDA 56334 ;WEL TIME
R-. ORA #001 ;INTERRUPTS..
STA 56334. LDY #007 ;TRANSPOSIT
IE.TRA2 LDX #007 ;EN OUTPUT..TRA3 R
OL 00820,X. ROR 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