HIRDUM.ASM
FILE INFORMATION
FILENAME(S): HIRDUM.ASM
FILE TYPE(S): SEQ
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
309517d621921becaf5420f12c9323b4823a95f5def84789f39b85e8e95cab8c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | HIRDUM.ASM | SEQ | DuncanTwain | 7 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 32 30 30 30 | *=32000| 00000010: 0D 48 52 49 4E 20 20 4C 44 41 20 23 30 30 31 20 |.HRIN LDA #001 | 00000020: 20 20 20 3B 4F 50 45 4E 20 46 49 4C 45 20 31 2E | ;OPEN FILE 1.| 00000030: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 34 20 |. LDX #004 | 00000040: 20 20 20 3B 50 52 49 4E 54 45 52 2E 0D 20 20 20 | ;PRINTER.. | 00000050: 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 | LDY #000. | 00000060: 20 20 4A 53 52 20 20 36 35 34 36 36 20 20 3B 2A | JSR 65466 ;*| 00000070: 53 45 54 4C 46 53 2A 0D 20 20 20 20 20 20 4C 44 |SETLFS*. LD| 00000080: 41 20 23 30 30 30 0D 20 20 20 20 20 20 4A 53 52 |A #000. JSR| 00000090: 20 20 36 35 34 36 39 20 20 3B 2A 53 45 54 4E 41 | 65469 ;*SETNA| 000000A0: 4D 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |M*. JSR 65| 000000B0: 34 37 32 20 20 3B 2A 20 4F 50 45 4E 20 2A 0D 20 |472 ;* OPEN *. | 000000C0: 20 20 20 20 20 4C 44 58 20 23 30 30 31 20 20 20 | LDX #001 | 000000D0: 20 3B 46 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 | ;FILE 1.. | 000000E0: 4A 53 52 20 20 36 35 34 38 31 20 20 3B 2A 43 48 |JSR 65481 ;*CH| 000000F0: 4B 4F 55 54 2A 0D 20 20 20 20 20 20 4C 44 41 20 |KOUT*. LDA | 00000100: 23 24 31 38 20 20 20 20 3B 42 55 46 46 45 52 20 |#$18 ;BUFFER | 00000110: 4C 45 45 47 2E 0D 20 20 20 20 20 20 4A 53 52 20 |LEEG.. JSR | 00000120: 20 36 35 34 39 30 0D 20 20 20 20 20 20 4C 44 41 | 65490. LDA| 00000130: 20 23 24 31 42 20 20 20 20 3B 50 52 49 4E 54 45 | #$1B ;PRINTE| 00000140: 52 0D 20 20 20 20 20 20 4C 44 58 20 23 24 34 31 |R. LDX #$41| 00000150: 20 20 20 20 3B 49 4E 53 54 45 4C 4C 45 4E 20 4F | ;INSTELLEN O| 00000160: 50 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 38 |P. LDY #$08| 00000170: 20 20 20 20 3B 52 45 47 45 4C 20 38 2F 37 32 20 | ;REGEL 8/72 | 00000180: 49 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C |IN.. JSR L| 00000190: 41 58 59 0D 20 20 20 20 20 20 4C 44 58 20 23 24 |AXY. LDX #$| 000001A0: 35 35 20 20 20 20 3B 45 45 4E 52 49 43 48 54 49 |55 ;EENRICHTI| 000001B0: 4E 47 0D 20 20 20 20 20 20 4C 44 59 20 23 24 30 |NG. LDY #$0| 000001C0: 31 20 20 20 20 3B 50 52 49 4E 54 45 4E 2E 0D 20 |1 ;PRINTEN.. | 000001D0: 20 20 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 | JSR LAXY. | 000001E0: 20 20 20 20 20 4C 44 58 20 23 24 34 44 20 20 20 | LDX #$4D | 000001F0: 20 3B 4B 41 4E 54 4C 49 4A 4E 20 32 30 2E 0D 20 | ;KANTLIJN 20.. | 00000200: 20 20 20 20 20 4C 44 59 20 23 24 31 34 0D 20 20 | LDY #$14. | 00000210: 20 20 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 | JSR LAXY. | 00000220: 20 20 20 20 4C 44 41 20 20 30 30 36 38 31 20 20 | LDA 00681 | 00000230: 3B 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E 0D |;BEGINADRES VAN.| 00000240: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 20 20 | STA 254 | 00000250: 20 20 3B 48 49 52 45 53 2D 53 43 48 45 52 4D 2E | ;HIRES-SCHERM.| 00000260: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D |. LDA #000.| 00000270: 20 20 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 | STA 253. | 00000280: 20 20 20 20 20 4C 44 41 20 23 30 32 34 20 20 20 | LDA #024 | 00000290: 20 3B 52 45 47 45 4C 41 46 54 45 4C 4C 45 52 2E | ;REGELAFTELLER.| 000002A0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 39 37 0D |. STA 097.| 000002B0: 48 50 49 32 20 20 4C 44 41 20 23 24 31 42 20 20 |HPI2 LDA #$1B | 000002C0: 20 20 3B 4B 4F 50 20 56 41 4E 20 52 45 47 45 4C | ;KOP VAN REGEL| 000002D0: 3A 0D 20 20 20 20 20 20 4C 44 58 20 23 24 36 37 |:. LDX #$67| 000002E0: 20 20 20 20 3B 49 4E 53 54 45 4C 4C 45 4E 0D 20 | ;INSTELLEN. | 000002F0: 20 20 20 20 20 4C 44 59 20 23 24 30 35 20 20 20 | LDY #$05 | 00000300: 20 3B 50 52 49 4E 54 45 52 20 4F 50 0D 20 20 20 | ;PRINTER OP. | 00000310: 20 20 20 4A 53 52 20 20 4C 41 58 59 20 20 20 3B | JSR LAXY ;| 00000320: 47 52 41 46 49 53 43 48 2E 0D 20 20 20 20 20 20 |GRAFISCH.. | 00000330: 4C 44 58 20 23 24 34 30 20 20 20 20 3B 41 41 4E |LDX #$40 ;AAN| 00000340: 54 2E 47 52 41 46 49 53 43 48 45 0D 20 20 20 20 |T.GRAFISCHE. | 00000350: 20 20 4C 44 59 20 23 24 30 31 20 20 20 20 3B 42 | LDY #$01 ;B| 00000360: 59 54 45 53 20 3D 20 33 32 30 2E 0D 20 20 20 20 |YTES = 320.. | 00000370: 20 20 4A 53 52 20 20 4C 58 59 0D 20 20 20 20 20 | JSR LXY. | 00000380: 20 4A 53 52 20 20 52 4F 50 55 20 20 20 3B 52 45 | JSR ROPU ;RE| 00000390: 47 45 4C 20 50 52 49 4E 54 45 4E 2E 0D 20 20 20 |GEL PRINTEN.. | 000003A0: 20 20 20 4C 44 41 20 23 30 31 30 20 20 20 20 3B | LDA #010 ;| 000003B0: 52 45 47 45 4C 56 45 52 5A 45 54 2E 0D 20 20 20 |REGELVERZET.. | 000003C0: 20 20 20 4A 53 52 20 20 36 35 34 39 30 0D 20 20 | JSR 65490. | 000003D0: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 000003E0: 3B 4F 50 48 4F 47 45 4E 20 41 44 52 45 53 0D 20 |;OPHOGEN ADRES. | 000003F0: 20 20 20 20 20 4C 44 41 20 20 32 35 33 20 20 20 | LDA 253 | 00000400: 20 3B 56 41 4E 20 52 45 47 45 4C 20 4D 45 54 0D | ;VAN REGEL MET.| 00000410: 20 20 20 20 20 20 41 44 43 20 23 30 36 34 20 20 | ADC #064 | 00000420: 20 20 3B 33 32 30 2E 0D 20 20 20 20 20 20 53 54 | ;320.. ST| 00000430: 41 20 20 32 35 33 0D 20 20 20 20 20 20 4C 44 41 |A 253. LDA| 00000440: 20 20 32 35 34 0D 20 20 20 20 20 20 41 44 43 20 | 254. ADC | 00000450: 23 30 30 31 0D 20 20 20 20 20 20 53 54 41 20 20 |#001. STA | 00000460: 32 35 34 0D 20 20 20 20 20 20 44 45 43 20 20 30 |254. DEC 0| 00000470: 39 37 20 20 20 20 3B 41 46 54 45 4C 4C 45 4E 20 |97 ;AFTELLEN | 00000480: 56 41 4E 0D 20 20 20 20 20 20 42 50 4C 20 20 48 |VAN. BPL H| 00000490: 50 49 32 20 20 20 3B 52 45 47 45 4C 53 2E 0D 20 |PI2 ;REGELS.. | 000004A0: 20 20 20 20 20 4C 44 58 20 23 24 31 42 20 20 20 | LDX #$1B | 000004B0: 20 3B 48 45 52 5A 45 54 20 50 52 49 4E 54 45 52 | ;HERZET PRINTER| 000004C0: 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 24 34 30 |.. LDY #$40| 000004D0: 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 58 59 0D |. JSR LXY.| 000004E0: 20 20 20 20 20 20 4C 44 41 20 23 30 30 31 20 20 | LDA #001 | 000004F0: 20 20 3B 53 4C 55 49 54 20 46 49 4C 45 20 31 2E | ;SLUIT FILE 1.| 00000500: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 |. JSR 6547| 00000510: 35 20 20 3B 2A 20 43 4C 4F 53 45 2A 0D 20 20 20 |5 ;* CLOSE*. | 00000520: 20 20 20 4A 53 52 20 20 36 35 35 31 31 20 20 3B | JSR 65511 ;| 00000530: 2A 20 43 4C 41 4C 4C 2A 0D 20 20 20 20 20 20 52 |* CLALL*. R| 00000540: 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 |TS ;NAAR| 00000550: 20 48 4F 4F 46 44 50 52 47 52 2E 0D 4C 41 58 59 | HOOFDPRGR..LAXY| 00000560: 20 20 53 54 41 20 20 30 30 32 20 20 20 20 3B 52 | STA 002 ;R| 00000570: 45 44 20 28 41 29 2E 0D 20 20 20 20 20 20 4A 53 |ED (A).. JS| 00000580: 52 20 20 36 35 34 39 30 20 20 3B 28 41 29 20 4F |R 65490 ;(A) O| 00000590: 55 54 50 55 54 2E 0D 4C 58 59 20 20 20 54 58 41 |UTPUT..LXY TXA| 000005A0: 20 20 20 20 20 20 20 20 20 3B 28 58 29 3D 3E 28 | ;(X)=>(| 000005B0: 41 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |A).. JSR 6| 000005C0: 35 34 39 30 20 20 3B 28 41 29 20 4F 55 54 50 55 |5490 ;(A) OUTPU| 000005D0: 54 2E 0D 20 20 20 20 20 20 54 59 41 20 20 20 20 |T.. TYA | 000005E0: 20 20 20 20 20 3B 28 59 29 3D 3E 28 41 29 2E 0D | ;(Y)=>(A)..| 000005F0: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 | JSR 65490| 00000600: 20 20 3B 28 41 29 20 4F 55 54 50 55 54 2E 0D 20 | ;(A) OUTPUT.. | 00000610: 20 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 20 | LDA 002 | 00000620: 20 3B 48 45 52 53 54 45 4C 20 28 41 29 2E 0D 20 | ;HERSTEL (A).. | 00000630: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000640: 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 52 | ;NAAR HOOFDPRGR| 00000650: 2E 0D 52 4F 50 55 20 20 4C 44 41 20 20 32 35 33 |..ROPU LDA 253| 00000660: 20 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 0D | ;BEGINADRES.| 00000670: 20 20 20 20 20 20 53 54 41 20 20 31 30 31 20 20 | STA 101 | 00000680: 20 20 3B 56 41 4E 20 52 45 47 45 4C 2E 0D 20 20 | ;VAN REGEL.. | 00000690: 20 20 20 20 4C 44 41 20 20 32 35 34 0D 20 20 20 | LDA 254. | 000006A0: 20 20 20 53 54 41 20 20 31 30 32 0D 20 20 20 20 | STA 102. | 000006B0: 20 20 4C 44 41 20 23 30 33 39 20 20 20 20 3B 50 | LDA #039 ;P| 000006C0: 4F 53 49 54 49 45 0D 20 20 20 20 20 20 53 54 41 |OSITIE. STA| 000006D0: 20 20 31 30 30 20 20 20 20 3B 41 46 54 45 4C 2E | 100 ;AFTEL.| 000006E0: 0D 52 4F 50 31 20 20 4C 44 41 20 20 35 36 33 33 |.ROP1 LDA 5633| 000006F0: 34 20 20 3B 47 45 45 4E 20 54 49 4D 45 52 2D 0D |4 ;GEEN TIMER-.| 00000700: 20 20 20 20 20 20 41 4E 44 20 23 32 35 34 20 20 | AND #254 | 00000710: 20 20 3B 49 4E 54 45 52 52 55 50 54 53 2E 0D 20 | ;INTERRUPTS.. | 00000720: 20 20 20 20 20 53 54 41 20 20 35 36 33 33 34 0D | STA 56334.| 00000730: 20 20 20 20 20 20 4C 44 41 20 20 30 30 31 20 20 | LDA 001 | 00000740: 20 20 3B 48 49 52 41 4D 20 4F 50 45 4E 2E 0D 20 | ;HIRAM OPEN.. | 00000750: 20 20 20 20 20 41 4E 44 20 23 32 35 33 0D 20 20 | AND #253. | 00000760: 20 20 20 20 53 54 41 20 20 30 30 31 0D 20 20 20 | STA 001. | 00000770: 20 20 20 4C 44 59 20 23 30 30 37 20 20 20 20 3B | LDY #007 ;| 00000780: 54 52 41 4E 53 50 4F 52 54 20 4E 41 41 52 0D 52 |TRANSPORT NAAR.R| 00000790: 4F 50 32 20 20 4C 44 41 20 28 31 30 31 29 2C 59 |OP2 LDA (101),Y| 000007A0: 20 3B 28 31 30 34 29 2E 2E 28 31 31 31 29 2E 0D | ;(104)..(111)..| 000007B0: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 000007C0: 53 54 58 20 20 31 30 34 2C 59 0D 20 20 20 20 20 |STX 104,Y. | 000007D0: 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEY. BPL | 000007E0: 52 4F 50 32 0D 20 20 20 20 20 20 4C 44 41 20 20 |ROP2. LDA | 000007F0: 30 30 31 20 20 20 20 3B 48 49 52 41 4D 20 44 49 |001 ;HIRAM DI| 00000800: 43 48 54 2E 0D 20 20 20 20 20 20 4F 52 41 20 23 |CHT.. ORA #| 00000810: 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 20 30 |002. STA 0| 00000820: 30 31 0D 20 20 20 20 20 20 4C 44 41 20 20 35 36 |01. LDA 56| 00000830: 33 33 34 20 20 3B 57 45 4C 20 54 49 4D 45 52 2D |334 ;WEL TIMER-| 00000840: 0D 20 20 20 20 20 20 4F 52 41 20 23 30 30 31 20 |. ORA #001 | 00000850: 20 20 20 3B 49 4E 54 45 52 52 55 50 54 53 2E 0D | ;INTERRUPTS..| 00000860: 20 20 20 20 20 20 53 54 41 20 20 35 36 33 33 34 | STA 56334| 00000870: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 37 20 |. LDY #007 | 00000880: 20 20 20 3B 54 52 41 4E 53 50 4F 53 49 54 49 45 | ;TRANSPOSITIE| 00000890: 0D 52 4F 50 33 20 20 4C 44 58 20 23 30 30 37 20 |.ROP3 LDX #007 | 000008A0: 20 20 20 3B 45 4E 20 4F 55 54 50 55 54 2E 0D 52 | ;EN OUTPUT..R| 000008B0: 4F 50 34 20 20 52 4F 4C 20 20 31 30 34 2C 58 0D |OP4 ROL 104,X.| 000008C0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 36 41 0D | .BYTE $6A.| 000008D0: 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 | DEX. | 000008E0: 42 50 4C 20 20 52 4F 50 34 0D 20 20 20 20 20 20 |BPL ROP4. | 000008F0: 4A 53 52 20 20 36 35 34 39 30 0D 20 20 20 20 20 |JSR 65490. | 00000900: 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEY. BPL | 00000910: 52 4F 50 33 0D 20 20 20 20 20 20 43 4C 43 20 20 |ROP3. CLC | 00000920: 20 20 20 20 20 20 20 3B 56 4F 4C 47 45 4E 44 45 | ;VOLGENDE| 00000930: 0D 20 20 20 20 20 20 4C 44 41 20 20 31 30 31 20 |. LDA 101 | 00000940: 20 20 20 3B 50 4F 53 49 54 49 45 2E 0D 20 20 20 | ;POSITIE.. | 00000950: 20 20 20 41 44 43 20 23 30 30 38 0D 20 20 20 20 | ADC #008. | 00000960: 20 20 53 54 41 20 20 31 30 31 0D 20 20 20 20 20 | STA 101. | 00000970: 20 4C 44 41 20 20 31 30 32 0D 20 20 20 20 20 20 | LDA 102. | 00000980: 41 44 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 |ADC #000. S| 00000990: 54 41 20 20 31 30 32 0D 20 20 20 20 20 20 44 45 |TA 102. DE| 000009A0: 43 20 20 31 30 30 20 20 20 20 3B 50 4F 53 49 54 |C 100 ;POSIT| 000009B0: 49 45 0D 20 20 20 20 20 20 42 50 4C 20 20 52 4F |IE. BPL RO| 000009C0: 50 31 20 20 20 3B 41 46 54 45 4C 4C 45 4E 2E 0D |P1 ;AFTELLEN..| 000009D0: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 000009E0: 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 | ;NAAR HOOFDPRG| 000009F0: 52 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |R.. .BYTE $| 00000A00: 46 46 2C 24 46 46 2C 24 46 46 2C 24 46 46 0D 20 |FF,$FF,$FF,$FF. | 00000A10: 20 20 20 20 20 2E 45 4E 44 0D | .END. |
*=32000.HRIN LDA #001 ;OPEN
FILE 1.. LDX #004 ;PRINTER..
LDY #000. JSR 65466 ;*SETLFS*.
LDA #000. JSR 65469 ;*SETNA
M*. JSR 65472 ;* OPEN *. LDX
#001 ;FILE 1.. JSR 65481 ;*CH
KOUT*. LDA #$18 ;BUFFER LEEG..
JSR 65490. LDA #$1B ;PRINTE
R. LDX #$41 ;INSTELLEN OP.
LDY #$08 ;REGEL 8/72 IN.. JSR L
AXY. LDX #$55 ;EENRICHTING.
LDY #$01 ;PRINTEN.. JSR LAXY.
LDX #$4D ;KANTLIJN 20.. LDY
#$14. JSR LAXY. LDA 00681
;BEGINADRES VAN. STA 254 ;HIRES
-SCHERM.. LDA #000. STA 253.
LDA #024 ;REGELAFTELLER.. S
TA 097.HPI2 LDA #$1B ;KOP VAN REGEL
:. LDX #$67 ;INSTELLEN. LDY
#$05 ;PRINTER OP. JSR LAXY ;
GRAFISCH.. LDX #$40 ;AANT.GRAFIS
CHE. LDY #$01 ;BYTES = 320..
JSR LXY. JSR ROPU ;REGEL PRIN
TEN.. LDA #010 ;REGELVERZET..
JSR 65490. CLC ;OPHOGEN
ADRES. LDA 253 ;VAN REGEL MET.
ADC #064 ;320.. STA 253.
LDA 254. ADC #001. STA
254. DEC 097 ;AFTELLEN VAN.
BPL HPI2 ;REGELS.. LDX #$1B
;HERZET PRINTER.. LDY #$40. J
SR LXY. LDA #001 ;SLUIT FILE 1.
. JSR 65475 ;* CLOSE*. JSR
65511 ;* CLALL*. RTS ;NAAR
HOOFDPRGR..LAXY STA 002 ;RED (A)..
JSR 65490 ;(A) OUTPUT..LXY TXA
;(X)=>(A).. JSR 65490 ;(
A) OUTPUT.. TYA ;(Y)=>(A)..
JSR 65490 ;(A) OUTPUT.. LDA
002 ;HERSTEL (A).. RTS
;NAAR HOOFDPRGR..ROPU LDA 253 ;BEG
INADRES. STA 101 ;VAN REGEL..
LDA 254. STA 102. LDA #0
39 ;POSITIE. STA 100 ;AFTEL.
.ROP1 LDA 56334 ;GEEN TIMER-. AN
D #254 ;INTERRUPTS.. STA 56334.
LDA 001 ;HIRAM OPEN.. AND
#253. STA 001. LDY #007 ;
TRANSPORT NAAR.ROP2 LDA (101),Y ;(104).
.(111).. TAX. STX 104,Y.
DEY. BPL ROP2. LDA 001 ;
HIRAM DICHT.. ORA #002. STA 0
01. LDA 56334 ;WEL TIMER-. O
RA #001 ;INTERRUPTS.. STA 56334
. LDY #007 ;TRANSPOSITIE.ROP3 L
DX #007 ;EN OUTPUT..ROP4 ROL 104,X.
.BYTE $6A. DEX. BPL ROP
4. JSR 65490. DEY. BPL
ROP3. CLC ;VOLGENDE. L
DA 101 ;POSITIE.. ADC #008.
STA 101. LDA 102. ADC #000
. STA 102. DEC 100 ;POSIT
IE. BPL ROP1 ;AFTELLEN.. RT
S ;NAAR HOOFDPRGR.. .BYTE $
FF,$FF,$FF,$FF. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL