LORDUM.ASM
FILE INFORMATION
FILENAME(S): LORDUM.ASM
FILE TYPE(S): SEQ
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:26:12
APPEARS ON: 1 disk(s)
FILE HASH
3f32df6add896edab936ce024550bf02d53a35d4e09b9e3f20130f22142ee8a4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 2 | LORDUM.ASM | SEQ | DuncanTwain | 12 | 0 | 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 44 55 4D 2E 41 53 4D | ; LORDUM.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 41 20 23 |ING.. LDA #| 000003A0: 32 30 38 20 20 20 20 3B 42 45 47 49 4E 41 44 52 |208 ;BEGINADR| 000003B0: 45 53 20 56 41 4E 0D 20 20 20 20 20 20 53 54 41 |ES VAN. STA| 000003C0: 20 20 32 35 34 20 20 20 20 3B 4B 41 52 41 4B 54 | 254 ;KARAKT| 000003D0: 45 52 2D 52 4F 4D 0D 20 20 20 20 20 20 4C 44 41 |ER-ROM. LDA| 000003E0: 20 23 30 30 30 20 20 20 20 3B 49 4E 20 28 32 35 | #000 ;IN (25| 000003F0: 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 53 54 |4,253).. ST| 00000400: 41 20 20 32 35 33 20 20 20 20 3B 42 45 47 49 4E |A 253 ;BEGIN| 00000410: 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 20 |ADRES VAN. | 00000420: 4C 44 41 20 20 30 30 36 34 38 20 20 3B 53 43 48 |LDA 00648 ;SCH| 00000430: 45 52 4D 47 45 48 45 55 47 45 4E 0D 20 20 20 20 |ERMGEHEUGEN. | 00000440: 20 20 53 54 41 20 20 31 36 38 20 20 20 20 3B 45 | STA 168 ;E| 00000450: 4E 20 56 41 4E 20 42 45 47 49 4E 0D 20 20 20 20 |N VAN BEGIN. | 00000460: 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 3B 56 | LDA #000 ;V| 00000470: 41 4E 20 52 45 47 45 4C 0D 20 20 20 20 20 20 53 |AN REGEL. S| 00000480: 54 41 20 20 31 36 37 20 20 20 20 3B 49 4E 20 28 |TA 167 ;IN (| 00000490: 31 36 38 2C 31 36 37 29 2E 0D 20 20 20 20 20 20 |168,167).. | 000004A0: 4C 44 41 20 23 30 32 34 20 20 20 20 3B 52 45 47 |LDA #024 ;REG| 000004B0: 45 4C 41 46 54 45 4C 4C 45 52 0D 20 20 20 20 20 |ELAFTELLER. | 000004C0: 20 53 54 41 20 20 32 34 38 20 20 20 20 3B 32 34 | STA 248 ;24| 000004D0: 2D 30 30 20 49 4E 20 28 32 34 38 29 2E 0D 48 50 |-00 IN (248)..HP| 000004E0: 49 31 30 20 4C 44 59 20 23 30 30 30 20 20 20 20 |I10 LDY #000 | 000004F0: 3B 5A 4F 45 4B 20 42 45 47 49 4E 20 56 41 4E 0D |;ZOEK BEGIN VAN.| 00000500: 48 50 49 31 31 20 4C 44 41 20 28 31 36 37 29 2C |HPI11 LDA (167),| 00000510: 59 20 3B 4E 49 45 54 2D 42 4C 41 4E 4B 20 47 45 |Y ;NIET-BLANK GE| 00000520: 2D 0D 20 20 20 20 20 20 43 4D 50 20 23 30 33 32 |-. CMP #032| 00000530: 20 20 20 20 3B 44 45 45 4C 54 45 20 56 2E 52 45 | ;DEELTE V.RE| 00000540: 47 45 4C 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 |GEL.. BNE | 00000550: 48 50 49 32 31 20 20 3B 45 45 4E 20 53 50 41 54 |HPI21 ;EEN SPAT| 00000560: 49 45 3F 20 4A 41 3A 0D 20 20 20 20 20 20 49 4E |IE? JA:. IN| 00000570: 59 20 20 20 20 20 20 20 20 20 3B 45 45 4E 20 50 |Y ;EEN P| 00000580: 4F 53 2E 56 45 52 44 45 52 2E 0D 20 20 20 20 20 |OS.VERDER.. | 00000590: 20 43 50 59 20 23 30 34 30 20 20 20 20 3B 45 49 | CPY #040 ;EI| 000005A0: 4E 44 20 56 2E 52 45 47 45 4C 3A 0D 20 20 20 20 |ND V.REGEL:. | 000005B0: 20 20 42 43 43 20 20 48 50 49 31 31 20 20 3B 52 | BCC HPI11 ;R| 000005C0: 45 47 45 4C 20 49 53 20 4C 45 45 47 2E 0D 20 20 |EGEL IS LEEG.. | 000005D0: 20 20 20 20 42 43 53 20 20 48 50 49 31 32 20 20 | BCS HPI12 | 000005E0: 3B 41 4E 44 45 52 53 20 52 45 47 2E 56 4F 4C 2E |;ANDERS REG.VOL.| 000005F0: 0D 48 50 49 32 31 20 53 54 59 20 20 31 37 30 20 |.HPI21 STY 170 | 00000600: 20 20 20 3B 50 4F 53 2E 56 41 4E 20 45 45 52 53 | ;POS.VAN EERS| 00000610: 54 45 0D 20 20 20 20 20 20 4C 44 59 20 23 30 34 |TE. LDY #04| 00000620: 30 20 20 20 20 3B 4E 49 45 54 42 4C 41 4E 4B 45 |0 ;NIETBLANKE| 00000630: 20 4B 41 52 2E 0D 48 50 49 33 31 20 44 45 59 20 | KAR..HPI31 DEY | 00000640: 20 20 20 20 20 20 20 20 3B 5A 4F 45 4B 20 56 41 | ;ZOEK VA| 00000650: 4E 41 46 20 45 49 4E 44 0D 20 20 20 20 20 20 4C |NAF EIND. L| 00000660: 44 41 20 28 31 36 37 29 2C 59 20 3B 56 41 4E 20 |DA (167),Y ;VAN | 00000670: 52 45 47 45 4C 20 4E 41 41 52 0D 20 20 20 20 20 |REGEL NAAR. | 00000680: 20 43 4D 50 20 23 30 33 32 20 20 20 20 3B 4D 45 | CMP #032 ;ME| 00000690: 45 53 54 20 52 45 43 48 54 53 45 0D 20 20 20 20 |EST RECHTSE. | 000006A0: 20 20 42 45 51 20 20 48 50 49 33 31 20 20 3B 4E | BEQ HPI31 ;N| 000006B0: 49 45 54 42 4C 41 4E 4B 45 20 4B 41 52 2E 0D 20 |IETBLANKE KAR.. | 000006C0: 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 | INY | 000006D0: 20 3B 45 45 4E 20 4E 2F 52 45 43 48 54 53 2E 0D | ;EEN N/RECHTS..| 000006E0: 20 20 20 20 20 20 53 54 59 20 20 31 37 31 0D 20 | STY 171. | 000006F0: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 54 | SEC. T| 00000700: 59 41 20 20 20 20 20 20 20 20 20 3B 42 45 50 41 |YA ;BEPA| 00000710: 41 4C 20 41 41 4E 54 41 4C 0D 20 20 20 20 20 20 |AL AANTAL. | 00000720: 53 42 43 20 20 31 37 30 20 20 20 20 3B 4E 49 45 |SBC 170 ;NIE| 00000730: 54 42 4C 41 4E 4B 45 20 4B 41 52 2E 0D 20 20 20 |TBLANKE KAR.. | 00000740: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 3B | STA 251 ;| 00000750: 49 4E 43 4C 2E 54 55 53 53 45 4E 2D 0D 20 20 20 |INCL.TUSSEN-. | 00000760: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B | CLC ;| 00000770: 53 50 41 54 49 45 53 2E 0D 20 20 20 20 20 20 4C |SPATIES.. L| 00000780: 44 41 20 23 30 30 30 20 20 20 20 3B 44 41 54 20 |DA #000 ;DAT | 00000790: 41 41 4E 54 41 4C 20 2A 20 38 2E 0D 20 20 20 20 |AANTAL * 8.. | 000007A0: 20 20 52 4F 4C 20 20 32 35 31 0D 20 20 20 20 20 | ROL 251. | 000007B0: 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 52 4F | ROL A. RO| 000007C0: 4C 20 20 32 35 31 20 20 20 20 3B 50 52 4F 44 55 |L 251 ;PRODU| 000007D0: 43 54 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 20 |CT. ROL A | 000007E0: 20 20 20 20 20 3B 49 4E 20 28 32 35 32 2C 32 35 | ;IN (252,25| 000007F0: 31 29 2E 0D 20 20 20 20 20 20 52 4F 4C 20 20 32 |1).. ROL 2| 00000800: 35 31 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D |51. ROL A.| 00000810: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 | STA 252. | 00000820: 20 20 20 20 20 4C 44 41 20 20 31 37 30 20 20 20 | LDA 170 | 00000830: 20 3B 54 45 4C 20 4D 41 52 47 45 20 4F 50 0D 20 | ;TEL MARGE OP. | 00000840: 20 20 20 20 20 41 44 43 20 23 30 32 30 20 20 20 | ADC #020 | 00000850: 20 3B 42 49 4A 20 42 45 47 49 4E 4D 41 52 47 45 | ;BIJ BEGINMARGE| 00000860: 2E 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 |.. TAY | 00000870: 20 20 20 20 3B 5A 45 54 20 53 4F 4D 20 49 4E 20 | ;ZET SOM IN | 00000880: 28 59 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |(Y).. LDA #| 00000890: 30 32 37 20 20 20 20 3B 5A 45 54 20 54 4F 54 41 |027 ;ZET TOTA| 000008A0: 4C 45 0D 20 20 20 20 20 20 4C 44 58 20 23 30 37 |LE. LDX #07| 000008B0: 37 20 20 20 20 3B 4D 41 52 47 45 20 4F 50 0D 20 |7 ;MARGE OP. | 000008C0: 20 20 20 20 20 4A 53 52 20 20 4C 41 58 59 20 20 | JSR LAXY | 000008D0: 20 3B 50 52 49 4E 54 45 52 2E 0D 20 20 20 20 20 | ;PRINTER.. | 000008E0: 20 4C 44 58 20 23 31 30 33 20 20 20 20 3B 50 52 | LDX #103 ;PR| 000008F0: 49 4E 54 45 52 20 47 52 41 46 2E 4F 50 0D 20 20 |INTER GRAF.OP. | 00000900: 20 20 20 20 4C 44 59 20 23 30 30 34 20 20 20 20 | LDY #004 | 00000910: 3B 38 30 20 50 55 4E 54 45 4E 2F 49 4E 43 48 2E |;80 PUNTEN/INCH.| 00000920: 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 41 58 59 |. JSR LAXY| 00000930: 20 20 20 3B 47 52 41 46 2E 42 59 54 45 53 3A 0D | ;GRAF.BYTES:.| 00000940: 20 20 20 20 20 20 4C 44 58 20 20 32 35 31 20 20 | LDX 251 | 00000950: 20 20 3B 41 41 4E 54 41 4C 20 4C 41 41 47 20 45 | ;AANTAL LAAG E| 00000960: 4E 0D 20 20 20 20 20 20 4C 44 59 20 20 32 35 32 |N. LDY 252| 00000970: 20 20 20 20 3B 41 41 4E 54 41 4C 20 48 4F 4F 47 | ;AANTAL HOOG| 00000980: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 58 59 |.. JSR LXY| 00000990: 0D 20 20 20 20 20 20 4C 44 59 20 20 31 37 30 20 |. LDY 170 | 000009A0: 20 20 20 3B 42 45 47 49 4E 50 4F 53 49 54 49 45 | ;BEGINPOSITIE| 000009B0: 2E 0D 48 50 49 33 20 20 53 54 59 20 20 31 36 39 |..HPI3 STY 169| 000009C0: 20 20 20 20 3B 5A 45 54 20 49 4E 20 28 31 36 39 | ;ZET IN (169| 000009D0: 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 34 |).. LDA 24| 000009E0: 37 20 20 20 20 3B 4C 45 54 54 45 52 53 4F 4F 52 |7 ;LETTERSOOR| 000009F0: 54 2D 42 49 54 0D 20 20 20 20 20 20 4C 53 52 20 |T-BIT. LSR | 00000A00: 20 41 20 20 20 20 20 20 3B 53 43 48 55 49 56 45 | A ;SCHUIVE| 00000A10: 4E 20 4E 41 41 52 0D 20 20 20 20 20 20 4C 53 52 |N NAAR. LSR| 00000A20: 20 20 41 20 20 20 20 20 20 3B 43 41 52 52 59 2E | A ;CARRY.| 00000A30: 0D 20 20 20 20 20 20 4C 44 41 20 28 31 36 37 29 |. LDA (167)| 00000A40: 2C 59 20 3B 43 4F 44 45 2E 0D 20 20 20 20 20 20 |,Y ;CODE.. | 00000A50: 4A 53 52 20 20 52 4F 50 55 20 20 20 3B 54 45 4B |JSR ROPU ;TEK| 00000A60: 45 4E 20 50 52 49 4E 54 45 4E 2E 0D 20 20 20 20 |EN PRINTEN.. | 00000A70: 20 20 4C 44 59 20 20 31 36 39 20 20 20 20 3B 56 | LDY 169 ;V| 00000A80: 4F 4C 47 45 4E 44 45 20 50 4F 53 49 54 2E 0D 20 |OLGENDE POSIT.. | 00000A90: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 43 | INY. C| 00000AA0: 50 59 20 20 31 37 31 20 20 20 20 3B 3C 34 30 3F |PY 171 ;<40?| 00000AB0: 20 4A 41 3A 54 45 52 55 47 2E 0D 20 20 20 20 20 | JA:TERUG.. | 00000AC0: 20 42 43 43 20 20 48 50 49 33 20 20 20 3B 4E 45 | BCC HPI3 ;NE| 00000AD0: 45 3A 20 44 4F 45 0D 48 50 49 31 32 20 4C 44 41 |E: DOE.HPI12 LDA| 00000AE0: 20 23 30 31 30 20 20 20 20 3B 52 45 47 45 4C 56 | #010 ;REGELV| 00000AF0: 45 52 5A 45 54 2E 0D 20 20 20 20 20 20 4A 53 52 |ERZET.. JSR| 00000B00: 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 4F 55 | 65490 ;*CHROU| 00000B10: 54 2A 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |T*. CLC | 00000B20: 20 20 20 20 20 3B 4F 50 48 4F 47 45 4E 20 41 44 | ;OPHOGEN AD| 00000B30: 52 45 53 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |RES. LDA #0| 00000B40: 34 30 20 20 20 20 3B 56 41 4E 20 53 43 48 45 52 |40 ;VAN SCHER| 00000B50: 4D 0D 20 20 20 20 20 20 41 44 43 20 20 31 36 37 |M. ADC 167| 00000B60: 20 20 20 20 3B 4D 45 54 20 34 30 2E 0D 20 20 20 | ;MET 40.. | 00000B70: 20 20 20 53 54 41 20 20 31 36 37 0D 20 20 20 20 | STA 167. | 00000B80: 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 | LDA #000. | 00000B90: 20 41 44 43 20 20 31 36 38 0D 20 20 20 20 20 20 | ADC 168. | 00000BA0: 53 54 41 20 20 31 36 38 0D 20 20 20 20 20 20 44 |STA 168. D| 00000BB0: 45 43 20 20 32 34 38 20 20 20 20 3B 41 46 54 45 |EC 248 ;AFTE| 00000BC0: 4C 4C 45 4E 20 56 41 4E 0D 20 20 20 20 20 20 42 |LLEN VAN. B| 00000BD0: 50 4C 20 20 48 50 49 31 30 20 20 3B 44 45 20 52 |PL HPI10 ;DE R| 00000BE0: 45 47 45 4C 53 2E 0D 20 20 20 20 20 20 4C 44 58 |EGELS.. LDX| 00000BF0: 20 23 30 32 37 20 20 20 20 3B 55 49 54 47 45 54 | #027 ;UITGET| 00000C00: 45 4C 44 3A 0D 20 20 20 20 20 20 4C 44 59 20 23 |ELD:. LDY #| 00000C10: 30 36 34 20 20 20 20 3B 48 45 52 5A 45 54 20 50 |064 ;HERZET P| 00000C20: 52 49 4E 54 45 52 2E 0D 20 20 20 20 20 20 4A 53 |RINTER.. JS| 00000C30: 52 20 20 4C 58 59 0D 20 20 20 20 20 20 4C 44 41 |R LXY. LDA| 00000C40: 20 23 30 30 31 20 20 20 20 3B 53 4C 55 49 54 20 | #001 ;SLUIT | 00000C50: 46 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 4A 53 |FILE 1.. JS| 00000C60: 52 20 20 36 35 34 37 35 20 20 3B 2A 20 43 4C 4F |R 65475 ;* CLO| 00000C70: 53 45 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |SE*. JSR 6| 00000C80: 35 35 31 31 20 20 3B 2A 20 43 4C 41 4C 4C 2A 0D |5511 ;* CLALL*.| 00000C90: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000CA0: 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 | ;NAAR HOOFDPRG| 00000CB0: 52 2E 0D 4C 41 58 59 20 20 53 54 41 20 20 30 30 |R..LAXY STA 00| 00000CC0: 32 20 20 20 20 3B 52 45 44 20 28 41 29 2E 0D 20 |2 ;RED (A).. | 00000CD0: 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 | JSR 65490 | 00000CE0: 20 3B 2A 43 48 52 4F 55 54 2A 0D 4C 58 59 20 20 | ;*CHROUT*.LXY | 00000CF0: 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 28 58 | TXA ;(X| 00000D00: 29 3D 3E 28 41 29 2E 0D 20 20 20 20 20 20 4A 53 |)=>(A).. JS| 00000D10: 52 20 20 36 35 34 39 30 20 20 3B 2A 43 48 52 4F |R 65490 ;*CHRO| 00000D20: 55 54 2A 0D 20 20 20 20 20 20 54 59 41 20 20 20 |UT*. TYA | 00000D30: 20 20 20 20 20 20 3B 28 59 29 3D 3E 28 41 29 2E | ;(Y)=>(A).| 00000D40: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 |. JSR 6549| 00000D50: 30 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 20 |0 ;*CHROUT*. | 00000D60: 20 20 20 4C 44 41 20 20 30 30 32 20 20 20 20 3B | LDA 002 ;| 00000D70: 48 45 52 53 54 45 4C 20 28 41 29 2E 0D 20 20 20 |HERSTEL (A).. | 00000D80: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00000D90: 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 52 2E 0D |NAAR HOOFDPRGR..| 00000DA0: 52 4F 50 55 20 20 53 54 41 20 20 30 30 32 20 20 |ROPU STA 002 | 00000DB0: 20 20 3B 28 43 2C 41 29 20 43 4F 44 45 2E 0D 20 | ;(C,A) CODE.. | 00000DC0: 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 | LDA #000 | 00000DD0: 20 3B 4D 41 41 4C 20 38 2C 20 49 4E 0D 20 20 20 | ;MAAL 8, IN. | 00000DE0: 20 20 20 52 4F 4C 20 20 41 20 20 20 20 20 20 3B | ROL A ;| 00000DF0: 28 41 29 28 32 29 2E 0D 20 20 20 20 20 20 52 4F |(A)(2).. RO| 00000E00: 4C 20 20 30 30 32 0D 20 20 20 20 20 20 52 4F 4C |L 002. ROL| 00000E10: 20 20 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 | A. ROL 0| 00000E20: 30 32 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D |02. ROL A.| 00000E30: 20 20 20 20 20 20 52 4F 4C 20 20 30 30 32 0D 20 | ROL 002. | 00000E40: 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 | ROL A. | 00000E50: 20 20 54 41 58 0D 20 20 20 20 20 20 4C 44 41 20 | TAX. LDA | 00000E60: 20 30 30 32 20 20 20 20 3B 41 44 52 45 53 20 56 | 002 ;ADRES V| 00000E70: 41 4E 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 |AN. ADC 25| 00000E80: 33 20 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D 52 |3 ;KARAKTER-R| 00000E90: 4F 4D 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 |OM. STA 24| 00000EA0: 39 20 20 20 20 3B 45 52 42 49 4A 20 45 4E 20 49 |9 ;ERBIJ EN I| 00000EB0: 4E 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 20 |N. TXA | 00000EC0: 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 2E 0D | ;(250,249)..| 00000ED0: 20 20 20 20 20 20 41 44 43 20 20 32 35 34 0D 20 | ADC 254. | 00000EE0: 20 20 20 20 20 53 54 41 20 20 32 35 30 0D 20 20 | STA 250. | 00000EF0: 20 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 | LDA 56334 | 00000F00: 3B 47 45 45 4E 20 54 49 4D 45 52 2D 0D 20 20 20 |;GEEN TIMER-. | 00000F10: 20 20 20 41 4E 44 20 23 32 35 34 20 20 20 20 3B | AND #254 ;| 00000F20: 49 4E 54 45 52 52 55 50 54 53 2E 0D 20 20 20 20 |INTERRUPTS.. | 00000F30: 20 20 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 | STA 56334. | 00000F40: 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 20 3B | LDA 001 ;| 00000F50: 4D 41 41 4B 20 4B 41 52 2E 52 4F 4D 0D 20 20 20 |MAAK KAR.ROM. | 00000F60: 20 20 20 41 4E 44 20 23 32 35 31 20 20 20 20 3B | AND #251 ;| 00000F70: 4F 50 45 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 |OPEN.. STA | 00000F80: 20 30 30 31 0D 20 20 20 20 20 20 4C 44 59 20 23 | 001. LDY #| 00000F90: 30 30 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 52 |007 ;TRANSPOR| 00000FA0: 54 20 4E 41 41 52 0D 54 52 41 31 20 20 4C 44 41 |T NAAR.TRA1 LDA| 00000FB0: 20 28 32 34 39 29 2C 59 20 3B 28 38 32 30 29 2E | (249),Y ;(820).| 00000FC0: 2E 28 38 32 37 29 2E 0D 20 20 20 20 20 20 53 54 |.(827).. ST| 00000FD0: 41 20 20 30 30 38 32 30 2C 59 0D 20 20 20 20 20 |A 00820,Y. | 00000FE0: 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEY. BPL | 00000FF0: 54 52 41 31 0D 20 20 20 20 20 20 4C 44 41 20 20 |TRA1. LDA | 00001000: 30 30 31 20 20 20 20 3B 4D 41 41 4B 20 4B 41 52 |001 ;MAAK KAR| 00001010: 2E 52 4F 4D 0D 20 20 20 20 20 20 4F 52 41 20 23 |.ROM. ORA #| 00001020: 30 30 34 20 20 20 20 3B 44 49 43 48 54 2E 0D 20 |004 ;DICHT.. | 00001030: 20 20 20 20 20 53 54 41 20 20 30 30 31 0D 20 20 | STA 001. | 00001040: 20 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 | LDA 56334 | 00001050: 3B 57 45 4C 20 54 49 4D 45 52 2D 0D 20 20 20 20 |;WEL TIMER-. | 00001060: 20 20 4F 52 41 20 23 30 30 31 20 20 20 20 3B 49 | ORA #001 ;I| 00001070: 4E 54 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 |NTERRUPTS.. | 00001080: 20 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 | STA 56334. | 00001090: 20 20 4C 44 59 20 23 30 30 37 20 20 20 20 3B 54 | LDY #007 ;T| 000010A0: 52 41 4E 53 50 4F 53 49 54 49 45 0D 54 52 41 32 |RANSPOSITIE.TRA2| 000010B0: 20 20 4C 44 58 20 23 30 30 37 20 20 20 20 3B 45 | LDX #007 ;E| 000010C0: 4E 20 4F 55 54 50 55 54 2E 0D 54 52 41 33 20 20 |N OUTPUT..TRA3 | 000010D0: 52 4F 4C 20 20 30 30 38 32 30 2C 58 0D 20 20 20 |ROL 00820,X. | 000010E0: 20 20 20 52 4F 52 20 20 41 0D 20 20 20 20 20 20 | ROR A. | 000010F0: 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 54 |DEX. BPL T| 00001100: 52 41 33 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |RA3. JSR 6| 00001110: 35 34 39 30 20 20 3B 2A 43 48 52 4F 55 54 2A 0D |5490 ;*CHROUT*.| 00001120: 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 | DEY. | 00001130: 42 50 4C 20 20 54 52 41 32 0D 20 20 20 20 20 20 |BPL TRA2. | 00001140: 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 |RTS ;NAA| 00001150: 52 20 48 4F 4F 46 44 50 52 47 52 2E 0D 20 20 20 |R HOOFDPRGR.. | 00001160: 20 20 20 2E 42 59 54 45 20 24 46 46 2C 24 46 46 | .BYTE $FF,$FF| 00001170: 2C 24 46 46 2C 24 46 46 0D 20 20 20 20 20 20 2E |,$FF,$FF. .| 00001180: 45 4E 44 0D |END. |
;. ;P
ROGRAMMA. ; LORDUM.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..
LDA #208 ;BEGINADRES VAN. STA
254 ;KARAKTER-ROM. LDA #000
;IN (254,253).. STA 253 ;BEGIN
ADRES VAN. LDA 00648 ;SCHERMGEHEU
GEN. STA 168 ;EN VAN BEGIN.
LDA #000 ;VAN REGEL. STA 167
;IN (168,167).. LDA #024 ;REG
ELAFTELLER. STA 248 ;24-00 IN (
248)..HPI10 LDY #000 ;ZOEK BEGIN VAN.
HPI11 LDA (167),Y ;NIET-BLANK GE-.
CMP #032 ;DEELTE V.REGEL.. BNE
HPI21 ;EEN SPATIE? JA:. INY
;EEN POS.VERDER.. CPY #040 ;EI
ND V.REGEL:. BCC HPI11 ;REGEL IS
LEEG.. BCS HPI12 ;ANDERS 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 ;ME
EST RECHTSE. BEQ HPI31 ;NIETBLANK
E KAR.. INY ;EEN N/RECHTS..
STY 171. SEC. TYA
;BEPAAL AANTAL. SBC 170 ;NIE
TBLANKE KAR.. STA 251 ;INCL.TUS
SEN-. CLC ;SPATIES.. L
DA #000 ;DAT AANTAL * 8.. ROL 2
51. ROL A. ROL 251 ;PRODU
CT. ROL A ;IN (252,251)..
ROL 251. ROL A. STA 252.
LDA 170 ;TEL MARGE OP. ADC
#020 ;BIJ BEGINMARGE.. TAY
;ZET SOM IN (Y).. LDA #027 ;
ZET TOTALE. LDX #077 ;MARGE OP.
JSR LAXY ;PRINTER.. LDX #10
3 ;PRINTER GRAF.OP. LDY #004
;80 PUNTEN/INCH.. JSR LAXY ;GRAF
.BYTES:. LDX 251 ;AANTAL LAAG E
N. LDY 252 ;AANTAL HOOG..
JSR LXY. LDY 170 ;BEGINPOSITIE
..HPI3 STY 169 ;ZET IN (169)..
LDA 247 ;LETTERSOORT-BIT. LSR
A ;SCHUIVEN NAAR. LSR A
;CARRY.. LDA (167),Y ;CODE..
JSR ROPU ;TEKEN PRINTEN.. LDY 1
69 ;VOLGENDE POSIT.. INY. C
PY 171 ;<40? JA:TERUG.. BCC HP
I3 ;NEE: DOE.HPI12 LDA #010 ;REGELV
ERZET.. JSR 65490 ;*CHROUT*.
CLC ;OPHOGEN ADRES. LDA #0
40 ;VAN SCHERM. ADC 167 ;MET
40.. STA 167. LDA #000.
ADC 168. STA 168. DEC 248
;AFTELLEN VAN. BPL HPI10 ;DE R
EGELS.. LDX #027 ;UITGETELD:.
LDY #064 ;HERZET PRINTER.. JS
R LXY. LDA #001 ;SLUIT FILE 1..
JSR 65475 ;* CLOSE*. JSR 6
5511 ;* CLALL*. RTS ;NAAR
HOOFDPRGR..LAXY STA 002 ;RED (A)..
JSR 65490 ;*CHROUT*.LXY TXA
;(X)=>(A).. JSR 65490 ;*CHRO
UT*. TYA ;(Y)=>(A).. J
SR 65490 ;*CHROUT*. LDA 002 ;
HERSTEL (A).. RTS ;NAAR HOO
FDPRGR..ROPU STA 002 ;(C,A) CODE..
LDA #000 ;MAAL 8, IN. ROL
A ;(A)(2).. ROL 002. ROL
A. ROL 002. ROL A. RO
L 002. ROL A. TAX. LDA
002 ;ADRES VAN. ADC 253 ;KA
RAKTER-ROM. STA 249 ;ERBIJ EN I
N. TXA ;(250,249).. AD
C 254. STA 250. LDA 56334
;GEEN TIMER-. AND #254 ;INTERRUP
TS.. STA 56334. LDA 001 ;
MAAK KAR.ROM. AND #251 ;OPEN..
STA 001. LDY #007 ;TRANSPOR
T NAAR.TRA1 LDA (249),Y ;(820)..(827)..
STA 00820,Y. DEY. BPL
TRA1. LDA 001 ;MAAK KAR.ROM.
ORA #004 ;DICHT.. STA 001.
LDA 56334 ;WEL TIMER-. ORA #0
01 ;INTERRUPTS.. STA 56334.
LDY #007 ;TRANSPOSITIE.TRA2 LDX #0
07 ;EN OUTPUT..TRA3 ROL 00820,X.
ROR A. DEX. BPL TRA3.
JSR 65490 ;*CHROUT*. DEY.
BPL TRA2. RTS ;NAAR HOOFDP
RGR.. .BYTE $FF,$FF,$FF,$FF. .
END.
> CLICK IMAGE PREVIEW FOR FULL MODAL