HIRDUS.ASM
FILE INFORMATION
FILENAME(S): HIRDUS.ASM
FILE TYPE(S): SEQ
FILE SIZE: 6.6K
FIRST SEEN: 2025-11-30 21:27:02
APPEARS ON: 1 disk(s)
FILE HASH
49032bffeab7a505dda5e477c04852286a7d1ea8cba1b11f536c221727c9fc8e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLERBRON | HIRDUS.ASM | SEQ | DuncanTwain | 13 | 3 | 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 48 49 52 44 55 53 20 2E 0D 3B 20 42 52 |: HIRDUS ..; BR| 00000020: 4F 4E 43 4F 44 45 20 20 20 20 3A 20 20 48 49 52 |ONCODE : HIR| 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 48 49 52 44 |ECTCODE : HIRD| 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 31 30 20 4F |UM : 10 O| 000000B0: 43 54 2E 31 39 39 31 2E 0D 3B 20 50 52 4F 47 52 |CT.1991..; PROGR| 000000C0: 41 4D 4D 45 55 52 20 3A 20 20 4A 2E 48 2E 56 41 |AMMEUR : J.H.VA| 000000D0: 4E 20 52 49 4A 4E 2E 0D 3B 0D 3B 20 44 49 54 20 |N RIJN..;.; DIT | 000000E0: 53 55 42 50 52 4F 47 52 41 4D 4D 41 20 44 55 4D |SUBPROGRAMMA DUM| 000000F0: 50 54 20 4F 50 20 44 45 0D 3B 20 50 52 49 4E 54 |PT OP DE.; PRINT| 00000100: 45 52 20 53 54 41 52 20 53 47 2D 31 30 20 46 49 |ER STAR SG-10 FI| 00000110: 47 55 52 45 4E 20 55 49 54 0D 3B 20 48 45 54 20 |GUREN UIT.; HET | 00000120: 53 43 48 45 52 4D 20 49 4E 20 48 49 47 48 2D 52 |SCHERM IN HIGH-R| 00000130: 45 53 4F 4C 55 54 49 4F 4E 2D 0D 3B 20 4D 4F 44 |ESOLUTION-.; MOD| 00000140: 45 2E 20 44 45 20 47 52 41 46 49 53 48 45 20 49 |E. DE GRAFISHE I| 00000150: 4E 46 4F 52 4D 41 54 49 45 0D 3B 20 57 4F 52 44 |NFORMATIE.; WORD| 00000160: 54 20 47 45 48 41 41 4C 44 20 55 49 54 20 48 45 |T GEHAALD UIT HE| 00000170: 54 20 48 49 2D 52 45 53 2D 0D 3B 20 53 43 48 45 |T HI-RES-.; SCHE| 00000180: 52 4D 20 4D 45 54 20 4D 4F 53 54 2D 53 49 47 4E |RM MET MOST-SIGN| 00000190: 49 46 49 43 41 4E 54 0D 3B 20 41 44 52 45 53 20 |IFICANT.; ADRES | 000001A0: 49 4E 20 47 45 48 45 55 47 45 4E 41 44 52 45 53 |IN GEHEUGENADRES| 000001B0: 20 30 30 36 38 31 2E 0D 3B 20 44 45 20 4D 41 52 | 00681..; DE MAR| 000001C0: 47 45 20 28 31 32 2F 49 4E 43 48 29 20 49 4E 20 |GE (12/INCH) IN | 000001D0: 20 30 30 36 38 32 2E 0D 3B 0D 3B 3D 3D 3D 3D 3D | 00682..;.;=====| 000001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 3B 0D 3B |============.;.;| 00000200: 20 44 45 43 49 4D 20 48 45 58 41 20 53 59 4D 42 | DECIM HEXA SYMB| 00000210: 4C 20 46 55 4E 43 54 49 45 0D 3B 0D 3B 20 34 39 |L FUNCTIE.;.; 49| 00000220: 31 35 32 20 43 30 30 30 20 4B 50 52 49 4E 20 50 |152 C000 KPRIN P| 00000230: 52 49 4E 54 20 4C 4F 57 52 45 53 4F 2D 0D 3B 20 |RINT LOWRESO-.; | 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250: 20 4C 55 54 2E 41 46 20 53 43 48 45 52 4D 2E 0D | LUT.AF SCHERM..| 00000260: 3B 0D 3B 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 |;.;. *=3| 00000270: 32 30 30 30 0D 3B 0D 4B 50 52 49 4E 20 4C 44 41 |2000.;.KPRIN LDA| 00000280: 20 23 30 30 31 20 20 20 20 3B 4F 50 45 4E 20 46 | #001 ;OPEN F| 00000290: 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 4C 44 58 |ILE 1.. LDX| 000002A0: 20 23 30 30 34 20 20 20 20 3B 50 52 49 4E 54 45 | #004 ;PRINTE| 000002B0: 52 20 3D 20 34 2E 0D 20 20 20 20 20 20 4C 44 59 |R = 4.. LDY| 000002C0: 20 23 30 30 30 20 20 20 20 3B 53 45 43 2E 41 44 | #000 ;SEC.AD| 000002D0: 52 2E 3D 20 30 2E 0D 20 20 20 20 20 20 4A 53 52 |R.= 0.. JSR| 000002E0: 20 20 36 35 34 36 36 20 20 3B 2A 53 45 54 4C 46 | 65466 ;*SETLF| 000002F0: 53 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |S*. LDA #00| 00000300: 30 20 20 20 20 3B 4E 41 41 4D 4C 4F 4F 53 2E 0D |0 ;NAAMLOOS..| 00000310: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 36 39 | JSR 65469| 00000320: 20 20 3B 2A 53 45 54 4E 41 4D 2A 0D 20 20 20 20 | ;*SETNAM*. | 00000330: 20 20 4A 53 52 20 20 36 35 34 37 32 20 20 3B 2A | JSR 65472 ;*| 00000340: 20 4F 50 45 4E 20 2A 0D 20 20 20 20 20 20 4C 44 | OPEN *. LD| 00000350: 58 20 23 30 30 31 20 20 20 20 3B 46 49 4C 45 20 |X #001 ;FILE | 00000360: 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |1.. JSR 65| 00000370: 34 38 31 20 20 3B 2A 43 48 4B 4F 55 54 2A 0D 20 |481 ;*CHKOUT*. | 00000380: 20 20 20 20 20 4C 44 41 20 23 30 32 34 20 20 20 | LDA #024 | 00000390: 20 3B 42 55 46 46 45 52 20 4C 45 45 47 2E 0D 20 | ;BUFFER LEEG.. | 000003A0: 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 | JSR 65490 | 000003B0: 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 20 20 20 20 | ;*CHROUT*. | 000003C0: 20 4C 44 41 20 23 30 32 37 20 20 20 20 3B 52 45 | LDA #027 ;RE| 000003D0: 47 45 4C 20 38 2F 37 32 20 49 4E 2E 0D 20 20 20 |GEL 8/72 IN.. | 000003E0: 20 20 20 4C 44 58 20 23 30 36 35 0D 20 20 20 20 | LDX #065. | 000003F0: 20 20 4C 44 59 20 23 30 30 38 0D 20 20 20 20 20 | LDY #008. | 00000400: 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 20 20 20 | JSR LAXY. | 00000410: 20 4C 44 58 20 23 30 36 36 20 20 20 20 3B 4B 4F | LDX #066 ;KO| 00000420: 4C 4F 4D 20 37 32 2F 49 4E 43 48 2E 0D 20 20 20 |LOM 72/INCH.. | 00000430: 20 20 20 4C 44 59 20 23 30 30 32 0D 20 20 20 20 | LDY #002. | 00000440: 20 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 20 20 | JSR LAXY. | 00000450: 20 20 4C 44 58 20 23 30 38 35 20 20 20 20 3B 45 | LDX #085 ;E| 00000460: 45 4E 52 49 43 48 54 49 4E 47 2E 0D 20 20 20 20 |ENRICHTING.. | 00000470: 20 20 4C 44 59 20 23 30 30 31 0D 20 20 20 20 20 | LDY #001. | 00000480: 20 4A 53 52 20 20 4C 41 58 59 0D 20 20 20 20 20 | JSR LAXY. | 00000490: 20 4C 44 41 20 20 35 36 33 33 34 20 20 3B 47 45 | LDA 56334 ;GE| 000004A0: 45 4E 20 54 49 4D 45 52 2D 0D 20 20 20 20 20 20 |EN TIMER-. | 000004B0: 41 4E 44 20 23 32 35 34 20 20 20 20 3B 49 4E 54 |AND #254 ;INT| 000004C0: 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 53 |ERRUPTS.. S| 000004D0: 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 |TA 56334. | 000004E0: 4C 44 41 20 20 30 30 36 38 31 20 20 3B 42 45 47 |LDA 00681 ;BEG| 000004F0: 49 4E 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 |INADRES VAN. | 00000500: 20 20 53 54 41 20 20 32 35 34 20 20 20 20 3B 48 | STA 254 ;H| 00000510: 49 2D 52 45 53 2D 53 43 48 45 52 4D 0D 20 20 20 |I-RES-SCHERM. | 00000520: 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 3B | LDA #000 ;| 00000530: 49 4E 20 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 |IN (254,253).. | 00000540: 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 | STA 253. | 00000550: 20 20 20 4C 44 41 20 20 30 30 36 34 38 20 20 3B | LDA 00648 ;| 00000560: 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E 0D 20 |BEGINADRES VAN. | 00000570: 20 20 20 20 20 53 54 41 20 20 31 36 38 20 20 20 | STA 168 | 00000580: 20 3B 54 55 53 53 45 4E 42 55 46 46 45 52 0D 20 | ;TUSSENBUFFER. | 00000590: 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 | LDA #000 | 000005A0: 20 3B 49 4E 20 28 31 36 38 2C 31 36 37 29 2E 0D | ;IN (168,167)..| 000005B0: 20 20 20 20 20 20 53 54 41 20 20 31 36 37 0D 20 | STA 167. | 000005C0: 20 20 20 20 20 4C 44 41 20 23 30 32 34 20 20 20 | LDA #024 | 000005D0: 20 3B 52 45 47 45 4C 41 46 54 45 4C 4C 45 52 0D | ;REGELAFTELLER.| 000005E0: 20 20 20 20 20 20 53 54 41 20 20 32 34 38 20 20 | STA 248 | 000005F0: 20 20 3B 32 34 2D 30 30 20 49 4E 20 28 32 34 38 | ;24-00 IN (248| 00000600: 29 2E 0D 4B 50 52 49 31 20 4A 53 52 20 20 48 49 |)..KPRI1 JSR HI| 00000610: 42 55 20 20 20 3B 42 55 46 46 45 52 20 56 55 4C |BU ;BUFFER VUL| 00000620: 4C 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |LEN.. JSR | 00000630: 4C 41 46 54 20 20 20 3B 45 45 52 53 54 56 2E 4C |LAFT ;EERSTV.L| 00000640: 45 45 47 0D 20 20 20 20 20 20 4C 44 41 20 20 31 |EEG. LDA 1| 00000650: 37 31 20 20 20 20 3B 41 43 48 54 54 41 4C 20 4C |71 ;ACHTTAL L| 00000660: 49 4E 4B 53 2E 0D 20 20 20 20 20 20 42 45 51 20 |INKS.. BEQ | 00000670: 20 4B 50 52 49 39 20 20 3B 4C 45 45 47 3A 52 45 | KPRI9 ;LEEG:RE| 00000680: 47 45 4C 56 45 52 5A 2E 0D 20 20 20 20 20 20 4A |GELVERZ.. J| 00000690: 53 52 20 20 45 4F 50 54 20 20 20 3B 45 45 52 53 |SR EOPT ;EERS| 000006A0: 54 56 4F 4C 47 45 4E 44 0D 20 20 20 20 20 20 20 |TVOLGEND. | 000006B0: 20 20 20 20 20 20 20 20 20 20 20 3B 4E 49 45 54 | ;NIET| 000006C0: 4C 45 45 47 0D 20 20 20 20 20 20 20 20 20 20 20 |LEEG. | 000006D0: 20 20 20 20 20 20 20 3B 41 43 48 54 54 41 4C 20 | ;ACHTTAL | 000006E0: 4C 49 4E 4B 53 2E 0D 20 20 20 20 20 20 4A 53 52 |LINKS.. JSR| 000006F0: 20 20 45 4C 4D 41 20 20 20 3B 45 4C 49 54 45 4D | ELMA ;ELITEM| 00000700: 41 52 47 45 2E 0D 20 20 20 20 20 20 53 45 43 20 |ARGE.. SEC | 00000710: 20 20 20 20 20 20 20 20 3B 42 45 50 41 41 4C 20 | ;BEPAAL | 00000720: 41 41 4E 54 41 4C 0D 20 20 20 20 20 20 4C 44 41 |AANTAL. LDA| 00000730: 20 20 31 37 31 20 20 20 20 3B 4E 49 45 54 4C 45 | 171 ;NIETLE| 00000740: 47 45 20 41 43 48 54 2D 0D 20 20 20 20 20 20 53 |GE ACHT-. S| 00000750: 42 43 20 20 31 37 30 20 20 20 20 3B 54 41 4C 4C |BC 170 ;TALL| 00000760: 45 4E 20 49 4E 43 4C 55 53 2E 0D 20 20 20 20 20 |EN INCLUS.. | 00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 55 | ;TU| 00000780: 53 53 45 4E 47 45 4C 45 47 45 4E 0D 20 20 20 20 |SSENGELEGEN. | 00000790: 20 20 54 41 59 20 20 20 20 20 20 20 20 20 3B 4C | TAY ;L| 000007A0: 45 47 45 20 41 43 48 54 54 41 4C 4C 2E 0D 20 20 |EGE ACHTTALL.. | 000007B0: 20 20 20 20 4A 53 52 20 20 41 43 54 59 20 20 20 | JSR ACTY | 000007C0: 3B 44 41 54 20 41 41 4E 54 41 4C 20 2A 20 38 2E |;DAT AANTAL * 8.| 000007D0: 0D 20 20 20 20 20 20 53 54 58 20 20 32 35 32 20 |. STX 252 | 000007E0: 20 20 20 3B 50 52 4F 44 55 43 54 20 28 58 2C 32 | ;PRODUCT (X,2| 000007F0: 29 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 32 |). LDA 002| 00000800: 20 20 20 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 | ;IN (252,251| 00000810: 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |).. STA 25| 00000820: 31 0D 20 20 20 20 20 20 4C 44 41 20 20 31 36 39 |1. LDA 169| 00000830: 20 20 20 20 3B 54 45 4C 20 4D 41 52 47 45 20 4F | ;TEL MARGE O| 00000840: 50 0D 20 20 20 20 20 20 41 44 43 20 20 30 30 36 |P. ADC 006| 00000850: 38 32 20 20 3B 42 49 4A 20 42 45 47 49 4E 4D 41 |82 ;BIJ BEGINMA| 00000860: 52 47 45 2E 0D 20 20 20 20 20 20 54 41 59 20 20 |RGE.. TAY | 00000870: 20 20 20 20 20 20 20 3B 5A 45 54 20 53 4F 4D 20 | ;ZET SOM | 00000880: 49 4E 20 28 59 29 2E 0D 20 20 20 20 20 20 4C 44 |IN (Y).. LD| 00000890: 41 20 23 30 32 37 20 20 20 20 3B 5A 45 54 20 54 |A #027 ;ZET T| 000008A0: 4F 54 41 4C 45 0D 20 20 20 20 20 20 4C 44 58 20 |OTALE. LDX | 000008B0: 23 30 37 37 20 20 20 20 3B 4D 41 52 47 45 20 4F |#077 ;MARGE O| 000008C0: 50 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 41 58 |P. JSR LAX| 000008D0: 59 20 20 20 3B 50 52 49 4E 54 45 52 2E 0D 20 20 |Y ;PRINTER.. | 000008E0: 20 20 20 20 4C 44 58 20 23 31 30 33 20 20 20 20 | LDX #103 | 000008F0: 3B 50 52 49 4E 54 45 52 20 47 52 41 46 2E 4F 50 |;PRINTER GRAF.OP| 00000900: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 35 20 |. LDY #005 | 00000910: 20 20 20 3B 37 32 20 50 55 4E 54 45 4E 2F 49 4E | ;72 PUNTEN/IN| 00000920: 43 48 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C |CH.. JSR L| 00000930: 41 58 59 20 20 20 3B 47 52 41 46 2E 42 59 54 45 |AXY ;GRAF.BYTE| 00000940: 53 3A 0D 20 20 20 20 20 20 4C 44 58 20 20 32 35 |S:. LDX 25| 00000950: 31 20 20 20 20 3B 41 41 4E 54 41 4C 20 4C 41 41 |1 ;AANTAL LAA| 00000960: 47 20 45 4E 0D 20 20 20 20 20 20 4C 44 59 20 20 |G EN. LDY | 00000970: 32 35 32 20 20 20 20 3B 41 41 4E 54 41 4C 20 48 |252 ;AANTAL H| 00000980: 4F 4F 47 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |OOG.. JSR | 00000990: 4C 58 59 0D 20 20 20 20 20 20 4C 44 59 20 20 31 |LXY. LDY 1| 000009A0: 37 30 20 20 20 20 3B 42 45 47 49 4E 50 4F 53 49 |70 ;BEGINPOSI| 000009B0: 54 49 45 2E 0D 4B 50 52 49 35 20 4A 53 52 20 20 |TIE..KPRI5 JSR | 000009C0: 52 4F 50 55 20 20 20 3B 50 52 49 4E 54 20 41 43 |ROPU ;PRINT AC| 000009D0: 48 54 54 41 4C 2E 0D 20 20 20 20 20 20 20 20 20 |HTTAL.. | 000009E0: 20 20 20 20 20 20 20 20 20 3B 28 59 29 20 4F 4E | ;(Y) ON| 000009F0: 56 45 52 4C 45 54 2E 0D 20 20 20 20 20 20 49 4E |VERLET.. IN| 00000A00: 59 20 20 20 20 20 20 20 20 20 3B 56 4F 4C 47 45 |Y ;VOLGE| 00000A10: 4E 44 45 0D 20 20 20 20 20 20 43 50 59 20 20 31 |NDE. CPY 1| 00000A20: 37 31 20 20 20 20 3B 50 4F 53 49 54 49 45 2E 0D |71 ;POSITIE..| 00000A30: 20 20 20 20 20 20 42 43 43 20 20 4B 50 52 49 35 | BCC KPRI5| 00000A40: 20 20 3B 45 49 4E 44 20 56 41 4E 20 52 45 47 45 | ;EIND VAN REGE| 00000A50: 4C 3A 0D 4B 50 52 49 39 20 4C 44 41 20 23 30 31 |L:.KPRI9 LDA #01| 00000A60: 30 20 20 20 20 3B 52 45 47 45 4C 56 45 52 5A 45 |0 ;REGELVERZE| 00000A70: 54 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |T.. JSR 65| 00000A80: 34 39 30 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 20 |490 ;*CHROUT*. | 00000A90: 20 20 20 20 20 44 45 43 20 20 32 34 38 20 20 20 | DEC 248 | 00000AA0: 20 3B 41 46 54 45 4C 4C 45 4E 20 56 41 4E 0D 20 | ;AFTELLEN VAN. | 00000AB0: 20 20 20 20 20 42 50 4C 20 20 4B 50 52 49 31 20 | BPL KPRI1 | 00000AC0: 20 3B 44 45 20 52 45 47 45 4C 53 2E 0D 20 20 20 | ;DE REGELS.. | 00000AD0: 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 20 3B | LDA 56334 ;| 00000AE0: 57 45 4C 20 54 49 4D 45 52 2D 0D 20 20 20 20 20 |WEL TIMER-. | 00000AF0: 20 4F 52 41 20 23 30 30 31 20 20 20 20 3B 49 4E | ORA #001 ;IN| 00000B00: 54 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 |TERRUPTS.. | 00000B10: 53 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 |STA 56334. | 00000B20: 20 4C 44 58 20 23 30 32 37 20 20 20 20 3B 4E 41 | LDX #027 ;NA| 00000B30: 20 44 45 20 4C 41 41 54 53 54 45 3A 0D 20 20 20 | DE LAATSTE:. | 00000B40: 20 20 20 4C 44 59 20 23 30 36 34 20 20 20 20 3B | LDY #064 ;| 00000B50: 48 45 52 5A 45 54 20 44 45 0D 20 20 20 20 20 20 |HERZET DE. | 00000B60: 4A 53 52 20 20 4C 58 59 20 20 20 20 3B 50 52 49 |JSR LXY ;PRI| 00000B70: 4E 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 41 20 |NTER.. LDA | 00000B80: 23 30 30 31 20 20 20 20 3B 53 4C 55 49 54 20 46 |#001 ;SLUIT F| 00000B90: 49 4C 45 20 31 2E 0D 20 20 20 20 20 20 4A 53 52 |ILE 1.. JSR| 00000BA0: 20 20 36 35 34 37 35 20 20 3B 2A 20 43 4C 4F 53 | 65475 ;* CLOS| 00000BB0: 45 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |E*. JSR 65| 00000BC0: 35 31 31 20 20 3B 2A 20 43 4C 41 4C 4C 2A 0D 20 |511 ;* CLALL*. | 00000BD0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000BE0: 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 52 | ;NAAR HOOFDPRGR| 00000BF0: 2E 0D 3B 0D 4C 41 58 59 20 20 53 54 41 20 20 30 |..;.LAXY STA 0| 00000C00: 30 32 20 20 20 20 3B 52 45 44 20 28 41 29 2E 0D |02 ;RED (A)..| 00000C10: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 | JSR 65490| 00000C20: 20 20 3B 2A 43 48 52 4F 55 54 2A 0D 3B 0D 4C 58 | ;*CHROUT*.;.LX| 00000C30: 59 20 20 20 54 58 41 20 20 20 20 20 20 20 20 20 |Y TXA | 00000C40: 3B 28 58 29 3D 3E 28 41 29 2E 0D 20 20 20 20 20 |;(X)=>(A).. | 00000C50: 20 4A 53 52 20 20 36 35 34 39 30 20 20 3B 2A 43 | JSR 65490 ;*C| 00000C60: 48 52 4F 55 54 2A 0D 20 20 20 20 20 20 54 59 41 |HROUT*. TYA| 00000C70: 20 20 20 20 20 20 20 20 20 3B 28 59 29 3D 3E 28 | ;(Y)=>(| 00000C80: 41 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |A).. JSR 6| 00000C90: 35 34 39 30 20 20 3B 2A 43 48 52 4F 55 54 2A 0D |5490 ;*CHROUT*.| 00000CA0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 | LDA 002 | 00000CB0: 20 20 3B 48 45 52 53 54 45 4C 20 28 41 29 2E 0D | ;HERSTEL (A)..| 00000CC0: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS | 00000CD0: 20 20 3B 4E 41 41 52 20 48 4F 4F 46 44 50 52 47 | ;NAAR HOOFDPRG| 00000CE0: 52 2E 0D 3B 0D 3B 20 38 20 2A 20 28 59 29 20 3D |R..;.; 8 * (Y) =| 00000CF0: 3E 20 28 58 2C 32 29 2E 0D 3B 0D 41 43 54 59 20 |> (X,2)..;.ACTY | 00000D00: 20 53 54 59 20 20 30 30 32 0D 20 20 20 20 20 20 | STY 002. | 00000D10: 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |CLC. LDA #0| 00000D20: 30 30 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 30 |00. ROL 00| 00000D30: 32 0D 20 20 20 20 20 20 52 4F 4C 20 20 41 0D 20 |2. ROL A. | 00000D40: 20 20 20 20 20 52 4F 4C 20 20 30 30 32 0D 20 20 | ROL 002. | 00000D50: 20 20 20 20 52 4F 4C 20 20 41 0D 20 20 20 20 20 | ROL A. | 00000D60: 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 | ROL 002. | 00000D70: 52 4F 4C 20 20 41 0D 20 20 20 20 20 20 54 41 58 |ROL A. TAX| 00000D80: 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B 20 48 |. RTS.;.; H| 00000D90: 49 52 45 53 2D 3E 42 55 46 46 45 52 2E 0D 3B 20 |IRES->BUFFER..; | 00000DA0: 54 45 20 56 4F 52 45 4E 3A 0D 3B 20 20 52 45 47 |TE VOREN:.; REG| 00000DB0: 45 4C 41 44 52 45 53 20 28 32 35 34 2C 32 35 33 |ELADRES (254,253| 00000DC0: 29 2E 0D 3B 20 42 55 46 46 45 52 41 44 52 45 53 |)..; BUFFERADRES| 00000DD0: 20 28 31 36 38 2C 31 36 37 29 2E 0D 3B 0D 3B 20 | (168,167)..;.; | 00000DE0: 4E 41 20 41 41 4E 52 4F 45 50 20 52 45 47 45 4C |NA AANROEP REGEL| 00000DF0: 41 44 52 45 53 0D 3B 20 4F 50 47 45 48 4F 4F 47 |ADRES.; OPGEHOOG| 00000E00: 44 20 4D 45 54 20 33 32 30 2E 0D 3B 0D 48 49 42 |D MET 320..;.HIB| 00000E10: 55 20 20 4C 44 41 20 20 31 36 37 20 20 20 20 3B |U LDA 167 ;| 00000E20: 42 55 46 46 45 52 41 44 52 45 53 0D 20 20 20 20 |BUFFERADRES. | 00000E30: 20 20 53 54 41 20 20 31 36 39 20 20 20 20 3B 56 | STA 169 ;V| 00000E40: 4F 4F 52 20 54 52 41 4E 53 50 4F 52 54 2E 0D 20 |OOR TRANSPORT.. | 00000E50: 20 20 20 20 20 4C 44 41 20 20 31 36 38 0D 20 20 | LDA 168. | 00000E60: 20 20 20 20 53 54 41 20 20 31 37 30 0D 20 20 20 | STA 170. | 00000E70: 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 20 3B | LDA 001 ;| 00000E80: 48 49 52 41 4D 20 41 41 4E 2E 0D 20 20 20 20 20 |HIRAM AAN.. | 00000E90: 20 41 4E 44 20 23 32 35 33 0D 20 20 20 20 20 20 | AND #253. | 00000EA0: 53 54 41 20 20 30 30 31 0D 20 20 20 20 20 20 4C |STA 001. L| 00000EB0: 44 58 20 23 30 33 39 20 20 20 20 3B 41 46 54 45 |DX #039 ;AFTE| 00000EC0: 4C 20 4B 4F 4C 4F 4D 2E 0D 48 49 42 57 20 20 4C |L KOLOM..HIBW L| 00000ED0: 44 59 20 23 30 30 37 20 20 20 20 3B 41 46 54 45 |DY #007 ;AFTE| 00000EE0: 4C 20 42 59 54 45 53 2E 0D 48 49 42 59 20 20 4C |L BYTES..HIBY L| 00000EF0: 44 41 20 28 32 35 33 29 2C 59 20 3B 54 52 41 4E |DA (253),Y ;TRAN| 00000F00: 53 50 4F 52 54 2E 0D 20 20 20 20 20 20 53 54 41 |SPORT.. STA| 00000F10: 20 28 31 36 39 29 2C 59 0D 20 20 20 20 20 20 44 | (169),Y. D| 00000F20: 45 59 20 20 20 20 20 20 20 20 20 3B 37 2E 2E 30 |EY ;7..0| 00000F30: 20 41 46 54 45 4C 2E 0D 20 20 20 20 20 20 42 50 | AFTEL.. BP| 00000F40: 4C 20 20 48 49 42 59 0D 20 20 20 20 20 20 43 4C |L HIBY. CL| 00000F50: 43 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 33 |C. LDA 253| 00000F60: 20 20 20 20 3B 48 41 41 4C 41 44 52 45 53 0D 20 | ;HAALADRES. | 00000F70: 20 20 20 20 20 41 44 43 20 23 30 30 38 20 20 20 | ADC #008 | 00000F80: 20 3B 4F 50 48 4F 47 45 4E 20 4D 45 54 20 38 2E | ;OPHOGEN MET 8.| 00000F90: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 0D |. STA 253.| 00000FA0: 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 0D 20 | LDA 254. | 00000FB0: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. | 00000FC0: 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 | STA 254. | 00000FD0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 | CLC. LDA| 00000FE0: 20 20 31 36 39 20 20 20 20 3B 42 52 45 4E 47 41 | 169 ;BRENGA| 00000FF0: 44 52 45 53 0D 20 20 20 20 20 20 41 44 43 20 23 |DRES. ADC #| 00001000: 30 30 38 20 20 20 20 3B 4F 50 48 4F 47 45 4E 20 |008 ;OPHOGEN | 00001010: 4D 45 54 20 38 2E 0D 20 20 20 20 20 20 53 54 41 |MET 8.. STA| 00001020: 20 20 31 36 39 0D 20 20 20 20 20 20 4C 44 41 20 | 169. LDA | 00001030: 20 31 37 30 0D 20 20 20 20 20 20 41 44 43 20 23 | 170. ADC #| 00001040: 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 31 |000. STA 1| 00001050: 37 30 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 |70. DEX. | 00001060: 20 20 20 42 50 4C 20 20 48 49 42 57 0D 20 20 20 | BPL HIBW. | 00001070: 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 20 3B | LDA 001 ;| 00001080: 48 49 52 41 4D 20 55 49 54 2E 0D 20 20 20 20 20 |HIRAM UIT.. | 00001090: 20 4F 52 41 20 23 30 30 32 0D 20 20 20 20 20 20 | ORA #002. | 000010A0: 53 54 41 20 20 30 30 31 0D 20 20 20 20 20 20 52 |STA 001. R| 000010B0: 54 53 0D 3B 0D 3B 20 54 45 53 54 20 4F 50 20 45 |TS.;.; TEST OP E| 000010C0: 45 52 53 54 56 4F 4C 47 45 4E 44 20 4C 45 45 47 |ERSTVOLGEND LEEG| 000010D0: 0D 3B 20 41 43 48 54 54 41 4C 20 4E 41 20 4C 41 |.; ACHTTAL NA LA| 000010E0: 41 54 53 54 20 4E 49 45 54 4C 45 45 47 0D 3B 20 |ATST NIETLEEG.; | 000010F0: 41 43 48 54 54 41 4C 20 49 4E 20 44 45 20 42 55 |ACHTTAL IN DE BU| 00001100: 46 46 45 52 2E 0D 3B 20 44 45 20 50 4F 53 49 54 |FFER..; DE POSIT| 00001110: 49 45 20 44 41 41 52 56 41 4E 20 4B 4F 4D 54 20 |IE DAARVAN KOMT | 00001120: 49 4E 20 31 37 31 2E 0D 3B 20 28 31 37 31 29 3D |IN 171..; (171)=| 00001130: 30 30 3A 20 52 45 47 45 4C 20 4C 45 45 47 2E 0D |00: REGEL LEEG..| 00001140: 3B 0D 4C 41 46 54 20 20 4C 44 59 20 23 30 34 30 |;.LAFT LDY #040| 00001150: 20 20 20 20 3B 41 46 54 45 4C 20 4B 4F 4C 4F 4D | ;AFTEL KOLOM| 00001160: 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |.. LDA #000| 00001170: 0D 20 20 20 20 20 20 53 54 41 20 20 31 37 31 0D |. STA 171.| 00001180: 20 20 20 20 20 20 42 45 51 20 20 4C 41 46 32 0D | BEQ LAF2.| 00001190: 4C 41 46 31 20 20 4A 53 52 20 20 42 41 43 54 20 |LAF1 JSR BACT | 000011A0: 20 20 3B 43 48 45 43 4B 20 41 43 48 54 54 41 4C | ;CHECK ACHTTAL| 000011B0: 2E 0D 20 20 20 20 20 20 43 50 58 20 23 30 30 30 |.. CPX #000| 000011C0: 20 20 20 20 3B 41 43 48 54 54 41 4C 20 4C 45 45 | ;ACHTTAL LEE| 000011D0: 47 3F 0D 20 20 20 20 20 20 42 45 51 20 20 4C 41 |G?. BEQ LA| 000011E0: 46 32 20 20 20 3B 4A 41 3A 44 4F 4F 52 47 41 41 |F2 ;JA:DOORGAA| 000011F0: 4E 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 |N.. INY | 00001200: 20 20 20 20 20 3B 4E 45 45 4E 3A 50 4F 53 49 54 | ;NEEN:POSIT| 00001210: 49 45 0D 20 20 20 20 20 20 53 54 59 20 20 31 37 |IE. STY 17| 00001220: 31 20 20 20 20 3B 56 41 4E 20 45 45 52 53 54 56 |1 ;VAN EERSTV| 00001230: 4F 4C 47 2E 0D 20 20 20 20 20 20 52 54 53 20 20 |OLG.. RTS | 00001240: 20 20 20 20 20 20 20 3B 4C 45 45 47 20 41 43 48 | ;LEEG ACH| 00001250: 54 54 41 4C 0D 4C 41 46 32 20 20 44 45 59 20 20 |TTAL.LAF2 DEY | 00001260: 20 20 20 20 20 20 20 3B 41 43 48 54 45 52 41 41 | ;ACHTERAA| 00001270: 4E 2E 0D 20 20 20 20 20 20 42 50 4C 20 20 4C 41 |N.. BPL LA| 00001280: 46 31 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B |F1. RTS.;.;| 00001290: 20 54 45 53 54 20 4F 50 20 45 45 52 53 54 56 4F | TEST OP EERSTVO| 000012A0: 4C 47 45 4E 44 20 4E 49 45 54 4C 45 45 47 0D 3B |LGEND NIETLEEG.;| 000012B0: 20 41 43 48 54 54 41 4C 20 4E 41 20 45 45 52 53 | ACHTTAL NA EERS| 000012C0: 54 45 20 4C 45 47 45 0D 3B 20 41 43 48 54 54 41 |TE LEGE.; ACHTTA| 000012D0: 4C 4C 45 4E 20 49 4E 20 44 45 20 42 55 46 46 45 |LLEN IN DE BUFFE| 000012E0: 52 2E 0D 3B 20 44 45 20 50 4F 53 49 54 49 45 20 |R..; DE POSITIE | 000012F0: 44 41 41 52 56 41 4E 20 4B 4F 4D 54 20 49 4E 20 |DAARVAN KOMT IN | 00001300: 31 37 30 2E 0D 3B 20 28 31 37 30 29 3D 34 30 3A |170..; (170)=40:| 00001310: 20 52 45 47 45 4C 20 4C 45 45 47 2E 0D 3B 0D 45 | REGEL LEEG..;.E| 00001320: 4F 50 54 20 20 4C 44 59 20 23 30 30 30 20 20 20 |OPT LDY #000 | 00001330: 20 3B 50 4F 45 54 53 20 41 43 48 54 54 41 4C 2D | ;POETS ACHTTAL-| 00001340: 0D 20 20 20 20 20 20 42 45 51 20 20 45 4F 50 32 |. BEQ EOP2| 00001350: 20 20 20 3B 54 45 4C 4C 45 52 2E 0D 45 4F 50 31 | ;TELLER..EOP1| 00001360: 20 20 4A 53 52 20 20 42 41 43 54 20 20 20 3B 43 | JSR BACT ;C| 00001370: 48 45 43 4B 20 41 43 48 54 54 41 4C 0D 20 20 20 |HECK ACHTTAL. | 00001380: 20 20 20 43 50 58 20 23 30 30 30 20 20 20 20 3B | CPX #000 ;| 00001390: 56 41 4E 20 42 55 46 46 45 52 2E 0D 20 20 20 20 |VAN BUFFER.. | 000013A0: 20 20 42 4E 45 20 20 45 4F 50 33 20 20 20 3B 4C | BNE EOP3 ;L| 000013B0: 45 45 47 3A 50 4F 53 49 54 49 45 0D 20 20 20 20 |EEG:POSITIE. | 000013C0: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 45 | INY ;E| 000013D0: 45 4E 20 56 45 52 44 45 52 2E 0D 45 4F 50 32 20 |EN VERDER..EOP2 | 000013E0: 20 43 50 59 20 23 30 34 30 20 20 20 20 3B 45 49 | CPY #040 ;EI| 000013F0: 4E 44 20 56 2E 52 45 47 45 4C 3F 0D 20 20 20 20 |ND V.REGEL?. | 00001400: 20 20 42 43 43 20 20 45 4F 50 31 20 20 20 3B 4E | BCC EOP1 ;N| 00001410: 45 45 3A 54 45 52 55 47 2E 0D 45 4F 50 33 20 20 |EE:TERUG..EOP3 | 00001420: 53 54 59 20 20 31 37 30 20 20 20 20 3B 5A 45 54 |STY 170 ;ZET| 00001430: 20 50 4F 53 49 54 49 45 2E 0D 20 20 20 20 20 20 | POSITIE.. | 00001440: 52 54 53 20 20 20 20 20 20 20 20 20 3B 34 30 3D |RTS ;40=| 00001450: 52 45 47 45 4C 20 4C 45 45 47 2E 0D 3B 0D 3B 20 |REGEL LEEG..;.; | 00001460: 42 45 52 45 4B 45 4E 45 4E 20 56 41 4E 20 45 4C |BEREKENEN VAN EL| 00001470: 49 54 45 4D 41 52 47 45 20 55 49 54 20 44 45 0D |ITEMARGE UIT DE.| 00001480: 3B 20 50 4F 53 49 54 49 45 20 56 41 4E 20 48 45 |; POSITIE VAN HE| 00001490: 54 20 45 45 52 53 54 45 20 4E 49 45 54 42 4C 41 |T EERSTE NIETBLA| 000014A0: 4E 2D 0D 3B 20 4B 45 20 41 43 48 54 54 41 4C 20 |N-.; KE ACHTTAL | 000014B0: 49 4E 20 44 45 20 42 55 46 46 45 52 2E 0D 3B 20 |IN DE BUFFER..; | 000014C0: 50 4F 53 49 54 49 45 3A 20 20 20 20 28 31 37 30 |POSITIE: (170| 000014D0: 29 20 2D 2D 3E 20 44 52 49 45 56 4F 55 44 2E 0D |) --> DRIEVOUD..| 000014E0: 3B 20 45 4C 49 54 45 4D 41 52 47 45 3A 20 28 31 |; ELITEMARGE: (1| 000014F0: 36 39 29 2E 0D 3B 0D 45 4C 4D 41 20 20 4C 44 59 |69)..;.ELMA LDY| 00001500: 20 20 31 37 30 0D 20 20 20 20 20 20 4C 44 58 20 | 170. LDX | 00001510: 23 30 30 30 0D 20 20 20 20 20 20 42 45 51 20 20 |#000. BEQ | 00001520: 45 4C 4D 32 0D 45 4C 4D 31 20 20 49 4E 58 0D 20 |ELM2.ELM1 INX. | 00001530: 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 49 | INX. I| 00001540: 4E 58 0D 20 20 20 20 20 20 49 4E 58 0D 20 20 20 |NX. INX. | 00001550: 20 20 20 44 45 59 0D 20 20 20 20 20 20 44 45 59 | DEY. DEY| 00001560: 0D 20 20 20 20 20 20 44 45 59 0D 45 4C 4D 32 20 |. DEY.ELM2 | 00001570: 20 43 50 59 20 23 30 30 33 0D 20 20 20 20 20 20 | CPY #003. | 00001580: 42 43 53 20 20 45 4C 4D 31 0D 20 20 20 20 20 20 |BCS ELM1. | 00001590: 42 43 43 20 20 45 4C 4D 34 0D 45 4C 4D 33 20 20 |BCC ELM4.ELM3 | 000015A0: 44 45 43 20 20 31 37 30 0D 20 20 20 20 20 20 44 |DEC 170. D| 000015B0: 45 59 0D 45 4C 4D 34 20 20 43 50 59 20 23 30 30 |EY.ELM4 CPY #00| 000015C0: 30 0D 20 20 20 20 20 20 42 4E 45 20 20 45 4C 4D |0. BNE ELM| 000015D0: 33 0D 20 20 20 20 20 20 53 54 58 20 20 31 36 39 |3. STX 169| 000015E0: 0D 20 20 20 20 20 20 52 54 53 0D 3B 0D 3B 20 42 |. RTS.;.; B| 000015F0: 55 46 46 45 52 2D 41 43 48 54 54 41 4C 20 4C 45 |UFFER-ACHTTAL LE| 00001600: 45 47 3F 0D 3B 20 4A 41 3A 20 28 58 29 3D 30 2E |EG?.; JA: (X)=0.| 00001610: 20 4E 45 45 3A 28 58 29 3D 31 2E 0D 3B 0D 42 41 | NEE:(X)=1..;.BA| 00001620: 43 54 20 20 54 59 41 0D 20 20 20 20 20 20 50 48 |CT TYA. PH| 00001630: 41 0D 20 20 20 20 20 20 4A 53 52 20 20 41 43 54 |A. JSR ACT| 00001640: 59 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 |Y. CLC. | 00001650: 20 20 4C 44 41 20 20 30 30 32 0D 20 20 20 20 20 | LDA 002. | 00001660: 20 41 44 43 20 20 31 36 37 0D 20 20 20 20 20 20 | ADC 167. | 00001670: 53 54 41 20 20 31 36 39 0D 20 20 20 20 20 20 54 |STA 169. T| 00001680: 58 41 0D 20 20 20 20 20 20 41 44 43 20 20 31 36 |XA. ADC 16| 00001690: 38 0D 20 20 20 20 20 20 53 54 41 20 20 31 37 30 |8. STA 170| 000016A0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 0D |. LDX #000.| 000016B0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 37 0D 42 | LDY #007.B| 000016C0: 41 43 31 20 20 4C 44 41 20 28 31 36 39 29 2C 59 |AC1 LDA (169),Y| 000016D0: 0D 20 20 20 20 20 20 42 45 51 20 20 42 41 43 32 |. BEQ BAC2| 000016E0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 0D |. LDX #001.| 000016F0: 42 41 43 32 20 20 44 45 59 0D 20 20 20 20 20 20 |BAC2 DEY. | 00001700: 42 50 4C 20 20 42 41 43 31 0D 20 20 20 20 20 20 |BPL BAC1. | 00001710: 50 4C 41 0D 20 20 20 20 20 20 54 41 59 0D 20 20 |PLA. TAY. | 00001720: 20 20 20 20 52 54 53 0D 3B 0D 3B 20 50 52 49 4E | RTS.;.; PRIN| 00001730: 54 20 41 43 48 54 54 41 4C 20 55 49 54 20 56 41 |T ACHTTAL UIT VA| 00001740: 4E 20 4B 4F 4C 4F 4D 20 28 59 29 2E 0D 3B 0D 52 |N KOLOM (Y)..;.R| 00001750: 4F 50 55 20 20 54 59 41 20 20 20 20 20 20 20 20 |OPU TYA | 00001760: 20 3B 52 45 44 20 28 59 29 2E 0D 20 20 20 20 20 | ;RED (Y).. | 00001770: 20 50 48 41 20 20 20 20 20 20 20 20 20 3B 28 59 | PHA ;(Y| 00001780: 29 20 4D 41 41 4C 20 38 0D 20 20 20 20 20 20 4A |) MAAL 8. J| 00001790: 53 52 20 20 41 43 54 59 20 20 20 3B 49 4E 20 28 |SR ACTY ;IN (| 000017A0: 58 2C 32 29 2E 0D 20 20 20 20 20 20 43 4C 43 20 |X,2).. CLC | 000017B0: 20 20 20 20 20 20 20 20 3B 54 45 4C 20 48 45 54 | ;TEL HET| 000017C0: 20 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 4C 44 | BEGIN-. LD| 000017D0: 41 20 20 30 30 32 20 20 20 20 3B 41 44 52 45 53 |A 002 ;ADRES| 000017E0: 20 56 41 4E 20 42 55 46 2D 0D 20 20 20 20 20 20 | VAN BUF-. | 000017F0: 41 44 43 20 20 31 36 37 20 20 20 20 3B 46 45 52 |ADC 167 ;FER| 00001800: 20 45 52 42 49 4A 20 45 4E 0D 20 20 20 20 20 20 | ERBIJ EN. | 00001810: 53 54 41 20 20 32 34 39 20 20 20 20 3B 49 4E 20 |STA 249 ;IN | 00001820: 28 32 35 30 2C 32 34 39 29 2E 0D 20 20 20 20 20 |(250,249).. | 00001830: 20 54 58 41 0D 20 20 20 20 20 20 41 44 43 20 20 | TXA. ADC | 00001840: 31 36 38 0D 20 20 20 20 20 20 53 54 41 20 20 32 |168. STA 2| 00001850: 35 30 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |50. LDY #00| 00001860: 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 52 54 20 |7 ;TRANSPORT | 00001870: 4E 41 41 52 0D 52 4F 50 31 20 20 4C 44 41 20 28 |NAAR.ROP1 LDA (| 00001880: 32 34 39 29 2C 59 20 3B 28 38 32 30 29 2E 2E 28 |249),Y ;(820)..(| 00001890: 38 32 37 29 2E 0D 20 20 20 20 20 20 53 54 41 20 |827).. STA | 000018A0: 20 30 30 38 32 30 2C 59 0D 20 20 20 20 20 20 44 | 00820,Y. D| 000018B0: 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 52 4F |EY. BPL RO| 000018C0: 50 31 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |P1. LDY #00| 000018D0: 37 20 20 20 20 3B 54 52 41 4E 53 50 4F 53 49 54 |7 ;TRANSPOSIT| 000018E0: 49 45 0D 52 4F 50 32 20 20 4C 44 58 20 23 30 30 |IE.ROP2 LDX #00| 000018F0: 37 20 20 20 20 3B 45 4E 20 4F 55 54 50 55 54 2E |7 ;EN OUTPUT.| 00001900: 0D 52 4F 50 33 20 20 52 4F 4C 20 20 30 30 38 32 |.ROP3 ROL 0082| 00001910: 30 2C 58 0D 20 20 20 20 20 20 52 4F 52 20 20 41 |0,X. ROR A| 00001920: 20 20 20 20 20 20 3B 56 4F 52 4D 20 49 4E 20 28 | ;VORM IN (| 00001930: 41 29 0D 20 20 20 20 20 20 44 45 58 20 20 20 20 |A). DEX | 00001940: 20 20 20 20 20 3B 42 49 54 20 56 4F 4F 52 20 42 | ;BIT VOOR B| 00001950: 49 54 0D 20 20 20 20 20 20 42 50 4C 20 20 52 4F |IT. BPL RO| 00001960: 50 33 20 20 20 3B 44 45 20 4F 55 54 50 55 54 42 |P3 ;DE OUTPUTB| 00001970: 59 54 45 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |YTE.. JSR | 00001980: 36 35 34 39 30 20 20 3B 2A 43 48 52 4F 55 54 2A |65490 ;*CHROUT*| 00001990: 0D 20 20 20 20 20 20 44 45 59 20 20 20 20 20 20 |. DEY | 000019A0: 20 20 20 3B 54 45 4C 20 49 4E 50 55 54 2D 0D 20 | ;TEL INPUT-. | 000019B0: 20 20 20 20 20 42 50 4C 20 20 52 4F 50 32 20 20 | BPL ROP2 | 000019C0: 20 3B 42 49 54 53 20 41 46 2E 0D 20 20 20 20 20 | ;BITS AF.. | 000019D0: 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B 4B 4C | PLA ;KL| 000019E0: 41 41 52 3A 0D 20 20 20 20 20 20 54 41 59 20 20 |AAR:. TAY | 000019F0: 20 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C 20 | ;HERSTEL | 00001A00: 28 59 29 2E 0D 20 20 20 20 20 20 52 54 53 0D 3B |(Y).. RTS.;| 00001A10: 0D 20 20 20 20 20 20 2E 44 42 59 54 45 20 24 46 |. .DBYTE $F| 00001A20: 46 46 46 2C 24 46 46 46 46 0D 20 20 20 20 20 20 |FFF,$FFFF. | 00001A30: 2E 44 42 59 54 45 20 24 46 46 46 46 2C 24 46 46 |.DBYTE $FFFF,$FF| 00001A40: 46 46 0D 3B 0D 20 20 20 20 20 20 2E 45 4E 44 0D |FF.;. .END.|
;.; PROGRAMMA : HIRDUS ..; BRONCODE
: HIRDUS.ASM ..; OBJECTCODE : HIRD
US.OBJ ..; DISK : ASSEMBLERBRON
..; TAAL : ASSEMBLER C64..; DAT
UM : 10 OCT.1991..; PROGRAMMEUR :
J.H.VAN RIJN..;.; DIT SUBPROGRAMMA DUM
PT OP DE.; PRINTER STAR SG-10 FIGUREN UI
T.; HET SCHERM IN HIGH-RESOLUTION-.; MOD
E. DE GRAFISHE INFORMATIE.; WORDT GEHAAL
D UIT HET HI-RES-.; SCHERM MET MOST-SIGN
IFICANT.; ADRES IN GEHEUGENADRES 00681..
; DE MARGE (12/INCH) IN 00682..;.;=====
============================.;.; DECIM H
EXA SYMBL FUNCTIE.;.; 49152 C000 KPRIN P
RINT LOWRESO-.; LUT.AF
SCHERM..;.;. *=32000.;.KPRIN LDA
#001 ;OPEN FILE 1.. LDX #004
;PRINTER = 4.. LDY #000 ;SEC.AD
R.= 0.. JSR 65466 ;*SETLFS*.
LDA #000 ;NAAMLOOS.. JSR 65469
;*SETNAM*. JSR 65472 ;* OPEN *.
LDX #001 ;FILE 1.. JSR 65
481 ;*CHKOUT*. LDA #024 ;BUFFER
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 ;E
ENRICHTING.. LDY #001. JSR LA
XY. LDA 56334 ;GEEN TIMER-.
AND #254 ;INTERRUPTS.. STA 5633
4. LDA 00681 ;BEGINADRES VAN.
STA 254 ;HI-RES-SCHERM. LDA #
000 ;IN (254,253).. STA 253.
LDA 00648 ;BEGINADRES VAN. STA
168 ;TUSSENBUFFER. LDA #000
;IN (168,167).. STA 167. LDA
#024 ;REGELAFTELLER. STA 248
;24-00 IN (248)..KPRI1 JSR HIBU ;BU
FFER VULLEN.. JSR LAFT ;EERSTV.L
EEG. LDA 171 ;ACHTTAL LINKS..
BEQ KPRI9 ;LEEG:REGELVERZ.. J
SR EOPT ;EERSTVOLGEND.
;NIETLEEG. ;ACHTTAL
LINKS.. JSR ELMA ;ELITEMARGE..
SEC ;BEPAAL AANTAL. LDA
171 ;NIETLEGE ACHT-. SBC 170
;TALLEN INCLUS.. ;TU
SSENGELEGEN. TAY ;LEGE ACHT
TALL.. JSR ACTY ;DAT AANTAL * 8.
. STX 252 ;PRODUCT (X,2).
LDA 002 ;IN (252,251).. STA 25
1. LDA 169 ;TEL MARGE OP.
ADC 00682 ;BIJ BEGINMARGE.. TAY
;ZET SOM IN (Y).. LDA #027
;ZET TOTALE. LDX #077 ;MARGE O
P. JSR LAXY ;PRINTER.. LDX
#103 ;PRINTER GRAF.OP. LDY #005
;72 PUNTEN/INCH.. JSR LAXY ;G
RAF.BYTES:. LDX 251 ;AANTAL LAA
G EN. LDY 252 ;AANTAL HOOG..
JSR LXY. LDY 170 ;BEGINPOSI
TIE..KPRI5 JSR ROPU ;PRINT ACHTTAL..
;(Y) ONVERLET.. IN
Y ;VOLGENDE. CPY 171 ;P
OSITIE.. BCC KPRI5 ;EIND VAN REGE
L:.KPRI9 LDA #010 ;REGELVERZET..
JSR 65490 ;*CHROUT*. DEC 248
;AFTELLEN VAN. BPL KPRI1 ;DE REG
ELS.. LDA 56334 ;WEL TIMER-.
ORA #001 ;INTERRUPTS.. STA 563
34. LDX #027 ;NA DE LAATSTE:.
LDY #064 ;HERZET DE. JSR LXY
;PRINTER.. LDA #001 ;SLUIT F
ILE 1.. JSR 65475 ;* CLOSE*.
JSR 65511 ;* CLALL*. RTS
;NAAR HOOFDPRGR..;.LAXY STA 002 ;R
ED (A).. JSR 65490 ;*CHROUT*.;.LX
Y TXA ;(X)=>(A).. JSR 65
490 ;*CHROUT*. TYA ;(Y)=>(
A).. JSR 65490 ;*CHROUT*. LD
A 002 ;HERSTEL (A).. RTS
;NAAR HOOFDPRGR..;.; 8 * (Y) => (X,2).
.;.ACTY STY 002. CLC. LDA #0
00. ROL 002. ROL A. ROL
002. ROL A. ROL 002.
ROL A. TAX. RTS.;.; HIRES->BU
FFER..; TE VOREN:.; REGELADRES (254,253
)..; BUFFERADRES (168,167)..;.; NA AANRO
EP REGELADRES.; OPGEHOOGD MET 320..;.HIB
U LDA 167 ;BUFFERADRES. STA 1
69 ;VOOR TRANSPORT.. LDA 168.
STA 170. LDA 001 ;HIRAM AA
N.. AND #253. STA 001. L
DX #039 ;AFTEL KOLOM..HIBW LDY #007
;AFTEL BYTES..HIBY LDA (253),Y ;TRAN
SPORT.. STA (169),Y. DEY
;7..0 AFTEL.. BPL HIBY. CL
C. LDA 253 ;HAALADRES. ADC
#008 ;OPHOGEN MET 8.. STA 253.
LDA 254. ADC #000. STA
254. CLC. LDA 169 ;BRENGA
DRES. ADC #008 ;OPHOGEN MET 8..
STA 169. LDA 170. ADC #
000. STA 170. DEX. BPL
HIBW. LDA 001 ;HIRAM UIT..
ORA #002. STA 001. RTS.;.; T
EST OP EERSTVOLGEND LEEG.; ACHTTAL NA LA
ATST NIETLEEG.; ACHTTAL IN DE BUFFER..;
DE POSITIE DAARVAN KOMT IN 171..; (171)=
00: REGEL LEEG..;.LAFT LDY #040 ;AFT
EL KOLOM.. LDA #000. STA 171.
BEQ LAF2.LAF1 JSR BACT ;CHECK
ACHTTAL.. CPX #000 ;ACHTTAL LEE
G?. BEQ LAF2 ;JA:DOORGAAN..
INY ;NEEN:POSITIE. STY 17
1 ;VAN EERSTVOLG.. RTS ;
LEEG ACHTTAL.LAF2 DEY ;ACHTERAA
N.. BPL LAF1. RTS.;.; TEST OP
EERSTVOLGEND NIETLEEG.; ACHTTAL NA EERS
TE LEGE.; ACHTTALLEN IN DE BUFFER..; DE
POSITIE DAARVAN KOMT IN 170..; (170)=40:
REGEL LEEG..;.EOPT LDY #000 ;POETS
ACHTTAL-. BEQ EOP2 ;TELLER..EOP1
JSR BACT ;CHECK ACHTTAL. CPX #
000 ;VAN BUFFER.. BNE EOP3 ;L
EEG:POSITIE. INY ;EEN VERDE
R..EOP2 CPY #040 ;EIND V.REGEL?.
BCC EOP1 ;NEE:TERUG..EOP3 STY 170
;ZET POSITIE.. RTS ;40=
REGEL LEEG..;.; BEREKENEN VAN ELITEMARGE
UIT DE.; POSITIE VAN HET EERSTE NIETBLA
N-.; KE ACHTTAL IN DE BUFFER..; POSITIE:
(170) --> DRIEVOUD..; ELITEMARGE: (1
69)..;.ELMA LDY 170. LDX #000.
BEQ ELM2.ELM1 INX. INX. I
NX. INX. DEY. DEY. D
EY.ELM2 CPY #003. BCS ELM1.
BCC ELM4.ELM3 DEC 170. DEY.ELM4
CPY #000. BNE ELM3. STX 169
. RTS.;.; BUFFER-ACHTTAL LEEG?.; JA
: (X)=0. NEE:(X)=1..;.BACT TYA. PH
A. JSR ACTY. CLC. LDA 0
02. ADC 167. STA 169. T
XA. ADC 168. STA 170. L
DX #000. LDY #007.BAC1 LDA (169),Y
. BEQ BAC2. LDX #001.BAC2 DE
Y. BPL BAC1. PLA. TAY.
RTS.;.; PRINT ACHTTAL UIT VAN KOLOM
(Y)..;.ROPU TYA ;RED (Y)..
PHA ;(Y) MAAL 8. JSR ACTY
;IN (X,2).. CLC ;TEL HET
BEGIN-. LDA 002 ;ADRES VAN BUF
-. ADC 167 ;FER ERBIJ EN.
STA 249 ;IN (250,249).. TXA.
ADC 168. STA 250. LDY #00
7 ;TRANSPORT NAAR.ROP1 LDA (249),Y ;
(820)..(827).. STA 00820,Y. D
EY. BPL ROP1. LDY #007 ;TR
ANSPOSITIE.ROP2 LDX #007 ;EN OUTPUT.
.ROP3 ROL 00820,X. ROR A ;V
ORM IN (A). DEX ;BIT VOOR B
IT. BPL ROP3 ;DE OUTPUTBYTE..
JSR 65490 ;*CHROUT*. DEY
;TEL INPUT-. BPL ROP2 ;BITS A
F.. PLA ;KLAAR:. TAY
;HERSTEL (Y).. RTS.;. .
DBYTE $FFFF,$FFFF. .DBYTE $FFFF,$FF
FF.;. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL