IBM-COPY#.ASS
FILE INFORMATION
FILENAME(S): IBM-COPY#.ASS
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 21:28:19
APPEARS ON: 1 disk(s)
FILE HASH
cfa5941a4a4ba7594a60b61dfc60963f15ab4ed54e0aa70fc5e22fd1cce53284
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN D 64007 | IBM-COPY#.ASS | PRG | DuncanTwain | 30 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 3B 22 20 48 41 52 44 2D 43 4F |.."...;" HARD-CO|
00000010: 50 59 20 48 49 52 45 53 20 53 43 52 45 45 4E 20 |PY HIRES SCREEN |
00000020: 54 4F 00 3C 08 14 00 3B 22 20 53 54 41 52 20 53 |TO.<...;" STAR S|
00000030: 47 2F 31 30 20 50 52 49 4E 54 45 52 00 42 08 1E |G/10 PRINTER.B..|
00000040: 00 3B 00 56 08 64 00 46 49 4C 45 20 20 20 20 45 |.;.V.d.FILE E|
00000050: 51 55 20 31 32 37 00 68 08 6E 00 44 45 56 49 43 |QU 127.h.n.DEVIC|
00000060: 45 20 20 45 51 55 20 34 00 7B 08 78 00 45 53 43 |E EQU 4.{.x.ESC|
00000070: 41 50 45 20 20 45 51 55 20 32 37 00 8E 08 82 00 |APE EQU 27.....|
00000080: 4C 46 20 20 20 20 20 20 45 51 55 20 31 30 00 A4 |LF EQU 10..|
00000090: 08 8C 00 53 45 54 4C 46 53 20 20 45 51 55 20 24 |...SETLFS EQU $|
000000A0: 46 46 42 41 00 BA 08 96 00 53 45 54 4E 41 4D 20 |FFBA.....SETNAM |
000000B0: 20 45 51 55 20 24 46 46 42 44 00 D0 08 A0 00 4F | EQU $FFBD.....O|
000000C0: 50 45 4E 20 20 20 20 45 51 55 20 24 46 46 43 30 |PEN EQU $FFC0|
000000D0: 00 E6 08 AA 00 43 48 4B 4F 55 54 20 20 45 51 55 |.....CHKOUT EQU|
000000E0: 20 24 45 31 31 38 00 FC 08 B4 00 43 48 52 4F 55 | $E118.....CHROU|
000000F0: 54 20 20 45 51 55 20 24 46 46 44 32 00 12 09 BE |T EQU $FFD2....|
00000100: 00 43 4C 4F 53 45 20 20 20 45 51 55 20 24 46 46 |.CLOSE EQU $FF|
00000110: 43 33 00 28 09 C8 00 43 4C 52 43 48 4E 20 20 45 |C3.(...CLRCHN E|
00000120: 51 55 20 24 46 46 43 43 00 3E 09 D2 00 4D 41 50 |QU $FFCC.>...MAP|
00000130: 20 20 20 20 20 45 51 55 20 24 45 30 30 30 00 52 | EQU $E000.R|
00000140: 09 DC 00 56 45 43 20 20 20 20 20 45 51 55 20 24 |...VEC EQU $|
00000150: 46 42 00 66 09 E1 00 53 54 41 52 54 20 20 20 45 |FB.f...START E|
00000160: 51 55 20 24 46 44 00 7C 09 E6 00 52 45 47 45 4C |QU $FD.|...REGEL|
00000170: 20 20 20 45 51 55 20 24 30 33 33 43 00 92 09 F0 | EQU $033C....|
00000180: 00 42 59 54 45 20 20 20 20 45 51 55 20 24 30 33 |.BYTE EQU $03|
00000190: 33 44 00 A8 09 FA 00 52 59 20 20 20 20 20 20 45 |3D.....RY E|
000001A0: 51 55 20 24 30 33 33 45 00 BE 09 FF 00 4E 49 42 |QU $033E.....NIB|
000001B0: 42 4C 45 20 20 45 51 55 20 24 30 33 33 46 00 C4 |BLE EQU $033F..|
000001C0: 09 04 01 3B 00 D1 09 E8 03 B0 47 20 24 43 46 30 |...;......G $CF0|
000001D0: 30 00 E2 09 F2 03 4A 4D 50 20 48 41 52 44 43 4F |0.....JMP HARDCO|
000001E0: 50 59 00 F1 09 FC 03 52 41 55 4D 20 4D 45 4D 20 |PY.....RAUM MEM |
000001F0: 34 00 05 0A 10 04 3B 22 20 4F 50 45 4E 20 50 52 |4.....;" OPEN PR|
00000200: 49 4E 54 45 52 00 1C 0A 1A 04 48 41 52 44 43 4F |INTER.....HARDCO|
00000210: 50 59 20 4C 44 41 20 23 46 49 4C 45 00 2C 0A 24 |PY LDA #FILE.,.$|
00000220: 04 4C 44 58 20 23 44 45 56 49 43 45 00 39 0A 2E |.LDX #DEVICE.9..|
00000230: 04 4C 44 59 20 23 24 46 46 00 48 0A 38 04 4A 53 |.LDY #$FF.H.8.JS|
00000240: 52 20 53 45 54 4C 46 53 00 53 0A 42 04 4C 44 41 |R SETLFS.S.B.LDA|
00000250: 20 23 30 00 62 0A 4C 04 4A 53 52 20 53 45 54 4E | #0.b.L.JSR SETN|
00000260: 41 4D 00 6F 0A 56 04 4A 53 52 20 4F 50 45 4E 00 |AM.o.V.JSR OPEN.|
00000270: 88 0A 60 04 3B 22 20 4F 55 54 50 55 54 20 54 4F |..`.;" OUTPUT TO|
00000280: 20 50 52 49 4E 54 45 52 00 96 0A 6A 04 4C 44 58 | PRINTER...j.LDX|
00000290: 20 23 46 49 4C 45 00 A5 0A 74 04 4A 53 52 20 43 | #FILE...t.JSR C|
000002A0: 48 4B 4F 55 54 00 C0 0A 7E 04 3B 22 20 4C 49 4E |HKOUT...~.;" LIN|
000002B0: 45 46 45 45 44 20 3D 20 31 2F 39 20 49 4E 43 48 |EFEED = 1/9 INCH|
000002C0: 00 D0 0A 88 04 4C 44 41 20 23 45 53 43 41 50 45 |.....LDA #ESCAPE|
000002D0: 00 DF 0A 92 04 4A 53 52 20 43 48 52 4F 55 54 00 |.....JSR CHROUT.|
000002E0: EB 0A 9C 04 4C 44 41 20 23 35 31 00 FA 0A A6 04 |....LDA #51.....|
000002F0: 4A 53 52 20 43 48 52 4F 55 54 00 06 0B B0 04 4C |JSR CHROUT.....L|
00000300: 44 41 20 23 32 34 00 15 0B BA 04 4A 53 52 20 43 |DA #24.....JSR C|
00000310: 48 52 4F 55 54 00 26 0B C4 04 3B 22 20 56 45 43 |HROUT.&...;" VEC|
00000320: 20 3D 20 4D 41 50 00 34 0B CE 04 4C 44 41 20 23 | = MAP.4...LDA #|
00000330: B3 4D 41 50 00 40 0B D8 04 53 54 41 20 56 45 43 |.MAP.@...STA VEC|
00000340: 00 4E 0B DD 04 53 54 41 20 53 54 41 52 54 00 5C |.N...STA START.\|
00000350: 0B E2 04 4C 44 41 20 23 B1 4D 41 50 00 6A 0B EC |...LDA #.MAP.j..|
00000360: 04 53 54 41 20 56 45 43 AA 31 00 7A 0B F1 04 53 |.STA VEC.1.z...S|
00000370: 54 41 20 53 54 41 52 54 AA 31 00 97 0B F6 04 3B |TA START.1.....;|
00000380: 22 20 46 4F 52 20 52 45 47 45 4C 3D 32 35 20 44 |" FOR REGEL=25 D|
00000390: 4F 57 4E 54 4F 20 31 00 A3 0B 00 05 4C 44 41 20 |OWNTO 1.....LDA |
000003A0: 23 32 35 00 B1 0B 0A 05 53 54 41 20 52 45 47 45 |#25.....STA REGE|
000003B0: 4C 00 CE 0B 15 05 3B 22 20 46 4F 52 20 4E 49 42 |L.....;" FOR NIB|
000003C0: 42 4C 45 3D 32 20 44 4F 57 4E 54 4F 20 31 00 DE |BLE=2 DOWNTO 1..|
000003D0: 0B 16 05 4C 55 53 30 20 4C 44 41 20 23 32 00 ED |...LUS0 LDA #2..|
000003E0: 0B 17 05 53 54 41 20 4E 49 42 42 4C 45 00 10 0C |...STA NIBBLE...|
000003F0: 1E 05 3B 22 20 5A 45 54 20 50 52 49 4E 54 45 52 |..;" ZET PRINTER|
00000400: 20 49 4E 20 47 52 41 46 49 43 53 20 4D 4F 44 45 | IN GRAFICS MODE|
00000410: 00 25 0C 28 05 4C 41 42 31 20 4C 44 41 20 23 45 |.%.(.LAB1 LDA #E|
00000420: 53 43 41 50 45 00 34 0C 32 05 4A 53 52 20 43 48 |SCAPE.4.2.JSR CH|
00000430: 52 4F 55 54 00 40 0C 3C 05 4C 44 41 20 23 34 32 |ROUT.@.<.LDA #42|
00000440: 00 4F 0C 46 05 4A 53 52 20 43 48 52 4F 55 54 00 |.O.F.JSR CHROUT.|
00000450: 5A 0C 50 05 4C 44 41 20 23 35 00 69 0C 5A 05 4A |Z.P.LDA #5.i.Z.J|
00000460: 53 52 20 43 48 52 4F 55 54 00 77 0C 64 05 4C 44 |SR CHROUT.w.d.LD|
00000470: 41 20 23 B3 35 31 32 00 86 0C 6E 05 4A 53 52 20 |A #.512...n.JSR |
00000480: 43 48 52 4F 55 54 00 94 0C 78 05 4C 44 41 20 23 |CHROUT...x.LDA #|
00000490: B1 35 31 32 00 A3 0C 82 05 4A 53 52 20 43 48 52 |.512.....JSR CHR|
000004A0: 4F 55 54 00 C2 0C 8C 05 3B 22 20 3C 45 53 43 3E |OUT.....;" <ESC>|
000004B0: 20 2A 20 35 20 35 31 32 20 3D 20 50 4C 4F 54 54 | * 5 512 = PLOTT|
000004C0: 45 52 00 D8 0C 96 05 3B 22 20 46 4F 52 20 52 59 |ER.....;" FOR RY|
000004D0: 3D 30 20 54 4F 20 33 31 00 E4 0C A0 05 4C 44 41 |=0 TO 31.....LDA|
000004E0: 20 23 33 31 00 EF 0C AA 05 53 54 41 20 52 59 00 | #31.....STA RY.|
000004F0: 0B 0D B4 05 4C 55 53 31 20 53 45 49 3B 20 22 4E |....LUS1 SEI; "N|
00000500: 4F 20 49 4E 54 45 52 52 55 50 54 00 1A 0D B9 05 |O INTERRUPT.....|
00000510: 4A 53 52 20 53 57 49 54 43 48 00 32 0D BE 05 3B |JSR SWITCH.2...;|
00000520: 22 20 46 4F 52 20 59 3D 33 20 44 4F 57 4E 54 4F |" FOR Y=3 DOWNTO|
00000530: 20 30 00 3D 0D C8 05 4C 44 59 20 23 33 00 52 0D | 0.=...LDY #3.R.|
00000540: D2 05 4C 55 53 32 20 4C 44 41 20 28 56 45 43 29 |..LUS2 LDA (VEC)|
00000550: 2C 59 00 61 0D DC 05 53 54 41 20 52 41 55 4D 2C |,Y.a...STA RAUM,|
00000560: 59 00 69 0D E6 05 44 45 59 00 76 0D F0 05 42 50 |Y.i...DEY.v...BP|
00000570: 4C 20 4C 55 53 32 00 85 0D FA 05 4A 53 52 20 53 |L LUS2.....JSR S|
00000580: 57 49 54 43 48 00 8D 0D FF 05 43 4C 49 00 A5 0D |WITCH.....CLI...|
00000590: 04 06 3B 22 20 46 4F 52 20 59 3D 37 20 44 4F 57 |..;" FOR Y=7 DOW|
000005A0: 4E 54 4F 20 30 00 B0 0D 0E 06 4C 44 59 20 23 37 |NTO 0.....LDY #7|
000005B0: 00 C0 0D 18 06 4C 55 53 33 20 4C 44 41 20 23 30 |.....LUS3 LDA #0|
000005C0: 00 CD 0D 22 06 53 54 41 20 42 59 54 45 00 E5 0D |...".STA BYTE...|
000005D0: 2C 06 3B 22 20 46 4F 52 20 58 3D 33 20 44 4F 57 |,.;" FOR X=3 DOW|
000005E0: 4E 54 4F 20 30 00 F0 0D 36 06 4C 44 58 20 23 33 |NTO 0...6.LDX #3|
000005F0: 00 04 0E 40 06 4C 55 53 34 20 41 53 4C 20 52 41 |...@.LUS4 ASL RA|
00000600: 55 4D 2C 58 00 11 0E 4A 06 42 43 43 20 4C 41 42 |UM,X...J.BCC LAB|
00000610: 30 00 24 0E 54 06 4C 44 41 20 23 25 30 30 30 30 |0.$.T.LDA #%0000|
00000620: 30 30 31 31 00 30 0E 5E 06 44 46 42 20 24 32 43 |0011.0.^.DFB $2C|
00000630: 00 40 0E 68 06 4C 41 42 30 20 4C 44 41 20 23 30 |.@.h.LAB0 LDA #0|
00000640: 00 48 0E 72 06 4C 53 52 00 54 0E 7C 06 52 B0 20 |.H.r.LSR.T.|.R. |
00000650: 42 59 54 45 00 5C 0E 86 06 4C 53 52 00 68 0E 90 |BYTE.\...LSR.h..|
00000660: 06 52 B0 20 42 59 54 45 00 70 0E AE 06 44 45 58 |.R. BYTE.p...DEX|
00000670: 00 7D 0E B8 06 42 50 4C 20 4C 55 53 34 00 91 0E |.}...BPL LUS4...|
00000680: C2 06 3B 22 20 56 45 52 5A 45 4E 44 20 42 59 54 |..;" VERZEND BYT|
00000690: 45 00 9E 0E CC 06 4C 44 41 20 42 59 54 45 00 AD |E.....LDA BYTE..|
000006A0: 0E D6 06 4A 53 52 20 43 48 52 4F 55 54 00 BA 0E |...JSR CHROUT...|
000006B0: D8 06 4C 44 41 20 42 59 54 45 00 C9 0E DA 06 4A |..LDA BYTE.....J|
000006C0: 53 52 20 43 48 52 4F 55 54 00 D1 0E E0 06 44 45 |SR CHROUT.....DE|
000006D0: 59 00 DE 0E EA 06 42 50 4C 20 4C 55 53 33 00 F0 |Y.....BPL LUS3..|
000006E0: 0E F4 06 3B 22 20 56 45 43 3A 3D 56 45 43 2B 38 |...;" VEC:=VEC+8|
000006F0: 00 FB 0E FE 06 4C 44 41 20 23 38 00 03 0F 08 07 |.....LDA #8.....|
00000700: 43 4C 43 00 0F 0F 12 07 41 44 43 20 56 45 43 00 |CLC.....ADC VEC.|
00000710: 1B 0F 1C 07 53 54 41 20 56 45 43 00 26 0F 26 07 |....STA VEC.&.&.|
00000720: 4C 44 41 20 23 30 00 34 0F 30 07 41 44 43 20 56 |LDA #0.4.0.ADC V|
00000730: 45 43 AA 31 00 42 0F 3A 07 53 54 41 20 56 45 43 |EC.1.B.:.STA VEC|
00000740: AA 31 00 4D 0F 44 07 44 45 43 20 52 59 00 5A 0F |.1.M.D.DEC RY.Z.|
00000750: 4E 07 42 50 4C 20 4C 55 53 31 00 6B 0F 58 07 3B |N.BPL LUS1.k.X.;|
00000760: 22 20 4C 49 4E 45 20 46 45 45 44 00 77 0F 62 07 |" LINE FEED.w.b.|
00000770: 4C 44 41 20 23 4C 46 00 86 0F 6C 07 4A 53 52 20 |LDA #LF...l.JSR |
00000780: 43 48 52 4F 55 54 00 95 0F 76 07 44 45 43 20 4E |CHROUT...v.DEC N|
00000790: 49 42 42 4C 45 00 A2 0F 80 07 42 45 51 20 4C 41 |IBBLE.....BEQ LA|
000007A0: 42 32 00 B0 0F 8A 07 4C 44 41 20 53 54 41 52 54 |B2.....LDA START|
000007B0: 00 B8 0F 94 07 43 4C 43 00 C3 0F 99 07 41 44 43 |.....CLC.....ADC|
000007C0: 20 23 34 00 CF 0F 9E 07 53 54 41 20 56 45 43 00 | #4.....STA VEC.|
000007D0: DF 0F A3 07 4C 44 41 20 53 54 41 52 54 AA 31 00 |....LDA START.1.|
000007E0: EA 0F A8 07 41 44 43 20 23 30 00 F8 0F AD 07 53 |....ADC #0.....S|
000007F0: 54 41 20 56 45 43 AA 31 00 13 10 B2 07 4A 4D 50 |TA VEC.1.....JMP|
00000800: 20 4C 41 42 31 3B 20 22 4E 45 58 54 20 4E 49 42 | LAB1; "NEXT NIB|
00000810: 42 4C 45 00 2D 10 BC 07 4C 41 42 32 20 4E 4F 50 |BLE.-...LAB2 NOP|
00000820: 3B 20 22 4E 45 58 54 20 52 45 47 45 4C 00 3B 10 |; "NEXT REGEL.;.|
00000830: D0 07 4C 44 41 20 53 54 41 52 54 00 43 10 DA 07 |..LDA START.C...|
00000840: 43 4C 43 00 51 10 E4 07 41 44 43 20 23 B3 33 32 |CLC.Q...ADC #.32|
00000850: 30 00 5D 10 EE 07 53 54 41 20 56 45 43 00 6B 10 |0.]...STA VEC.k.|
00000860: F3 07 53 54 41 20 53 54 41 52 54 00 7B 10 F8 07 |..STA START.{...|
00000870: 4C 44 41 20 53 54 41 52 54 AA 31 00 89 10 02 08 |LDA START.1.....|
00000880: 41 44 43 20 23 B1 33 32 30 00 97 10 0C 08 53 54 |ADC #.320.....ST|
00000890: 41 20 56 45 43 AA 31 00 A7 10 11 08 53 54 41 20 |A VEC.1.....STA |
000008A0: 53 54 41 52 54 AA 31 00 B5 10 16 08 44 45 43 20 |START.1.....DEC |
000008B0: 52 45 47 45 4C 00 C2 10 20 08 42 45 51 20 45 49 |REGEL... .BEQ EI|
000008C0: 4E 44 00 CF 10 2A 08 4A 4D 50 20 4C 55 53 30 00 |ND...*.JMP LUS0.|
000008D0: E4 10 34 08 3B 22 20 52 45 53 45 54 20 50 52 49 |..4.;" RESET PRI|
000008E0: 4E 54 45 52 00 F9 10 3E 08 45 49 4E 44 20 4C 44 |NTER...>.EIND LD|
000008F0: 41 20 23 45 53 43 41 50 45 00 08 11 48 08 4A 53 |A #ESCAPE...H.JS|
00000900: 52 20 43 48 52 4F 55 54 00 14 11 52 08 4C 44 41 |R CHROUT...R.LDA|
00000910: 20 23 36 34 00 23 11 5C 08 4A 53 52 20 43 48 52 | #64.#.\.JSR CHR|
00000920: 4F 55 54 00 43 11 66 08 3B 22 20 4E 4F 52 4D 41 |OUT.C.f.;" NORMA|
00000930: 4C 45 20 4F 55 54 50 55 54 20 4F 4E 20 53 43 52 |LE OUTPUT ON SCR|
00000940: 45 45 4E 00 52 11 70 08 4A 53 52 20 43 4C 52 43 |EEN.R.p.JSR CLRC|
00000950: 48 4E 00 60 11 7A 08 4C 44 41 20 23 46 49 4C 45 |HN.`.z.LDA #FILE|
00000960: 00 6E 11 84 08 4A 53 52 20 43 4C 4F 53 45 00 76 |.n...JSR CLOSE.v|
00000970: 11 8E 08 52 54 53 00 7C 11 98 08 3B 00 A2 11 A2 |...RTS.|...;....|
00000980: 08 53 57 49 54 43 48 20 4C 44 41 20 31 3B 22 20 |.SWITCH LDA 1;" |
00000990: 4C 45 45 53 54 20 4F 4E 44 45 52 20 4B 45 52 4E |LEEST ONDER KERN|
000009A0: 45 4C 00 AC 11 B6 08 45 B0 20 23 32 00 B6 11 C0 |EL.....E. #2....|
000009B0: 08 53 54 41 20 31 00 BE 11 CA 08 52 54 53 00 C4 |.STA 1.....RTS..|
000009C0: 11 D4 08 3B 00 CC 11 DE 08 53 54 50 00 D8 11 E8 |...;.....STP....|
000009D0: 08 41 B2 35 37 33 34 34 00 E8 11 F2 08 81 20 49 |.A.57344...... I|
000009E0: B2 30 20 A4 20 33 31 39 00 00 12 FC 08 20 20 97 |.0 . 319..... .|
000009F0: 20 28 41 AA 49 29 2C 28 49 20 AF 20 32 35 35 29 | (A.I),(I . 255)|
00000A00: 00 08 12 06 09 82 20 49 00 0E 12 10 09 80 00 00 |...... I........|
00000A10: 00 65 |.e |
.."...;" HARD-COPY HIRES SCREEN TO.<...;
" STAR SG/10 PRINTER.B...;.V.D.FILE E
QU 127.H.N.DEVICE EQU 4.{.X.ESCAPE EQU
27.....LF EQU 10.....SETLFS EQU $
FFBA.....SETNAM EQU $FFBD.P. .OPEN E
QU $FFC0.....CHKOUT EQU $E118.....CHROU
T EQU $FFD2.....CLOSE EQU $FFC3.(.H.C
LRCHN EQU $FFCC.>.R.MAP EQU $E000.R
...VEC EQU $FB.F...START EQU $FD.|
...REGEL EQU $033C.....BYTE EQU $03
3D.....RY EQU $033E.....NIBBLE EQU
$033F.D...;.Q....G $CF00.....JMP HARDCO
PY.....RAUM MEM 4.....;" OPEN PRINTER...
..HARDCOPY LDA #FILE.,.$.LDX #DEVICE.9..
.LDY #$FF.H.8.JSR SETLFS.S.B.LDA #0.B.L.
JSR SETNAM.O.V.JSR OPEN...`.;" OUTPUT TO
PRINTER...J.LDX #FILE...T.JSR CHKOUT...
~.;" LINEFEED = 1/9 INCH.P...LDA #ESCAPE
.....JSR CHROUT.....LDA #51.....JSR CHRO
UT.....LDA #24.....JSR CHROUT.&.D.;" VEC
= MAP.4.N.LDA #.MAP.@.X.STA VEC.N...STA
START.\...LDA #.MAP.J...STA VEC.1.Z...S
TA START.1.....;" FOR REGEL=25 DOWNTO 1.
....LDA #25.....STA REGEL.N...;" FOR NIB
BLE=2 DOWNTO 1.....LUS0 LDA #2.....STA N
IBBLE.....;" ZET PRINTER IN GRAFICS MODE
.%.(.LAB1 LDA #ESCAPE.4.2.JSR CHROUT.@.<
.LDA #42.O.F.JSR CHROUT.Z.P.LDA #5.I.Z.J
SR CHROUT.W.D.LDA #.512...N.JSR CHROUT..
.X.LDA #.512.....JSR CHROUT.B...;" <ESC>
* 5 512 = PLOTTER.X...;" FOR RY=0 TO 31
... .LDA #31.....STA RY.....LUS1 SEI; "N
O INTERRUPT.....JSR SWITCH.2...;" FOR Y=
3 DOWNTO 0.=.H.LDY #3.R.R.LUS2 LDA (VEC)
,Y.A...STA RAUM,Y.I...DEY.V...BPL LUS2..
...JSR SWITCH.....CLI.....;" FOR Y=7 DOW
NTO 0.....LDY #7.....LUS3 LDA #0.M.".STA
BYTE...,.;" FOR X=3 DOWNTO 0...6.LDX #3
...@.LUS4 ASL RAUM,X...J.BCC LAB0.$.T.LD
A #%00000011.0.^.DFB $2C.@.H.LAB0 LDA #0
.H.R.LSR.T.|.R. BYTE.\...LSR.H...R. BYTE
.P...DEX.}...BPL LUS4...B.;" VERZEND BYT
E...L.LDA BYTE...V.JSR CHROUT...X.LDA BY
TE.I.Z.JSR CHROUT.Q...DEY.....BPL LUS3..
...;" VEC:=VEC+8.....LDA #8.....CLC.....
ADC VEC.....STA VEC.&.&.LDA #0.4.0.ADC V
EC.1.B.:.STA VEC.1.M.D.DEC RY.Z.N.BPL LU
S1.K.X.;" LINE FEED.W.B.LDA #LF...L.JSR
CHROUT...V.DEC NIBBLE.....BEQ LAB2.....L
DA START.....CLC.C...ADC #4.O...STA VEC.
....LDA START.1.....ADC #0.....STA VEC.1
.....JMP LAB1; "NEXT NIBBLE.-...LAB2 NOP
; "NEXT REGEL.;.P.LDA START.C.Z.CLC.Q...
ADC #.320.]...STA VEC.K...STA START.{...
LDA START.1.....ADC #.320.....STA VEC.1.
....STA START.1.....DEC REGEL.B. .BEQ EI
ND.O.*.JMP LUS0...4.;" RESET PRINTER...>
.EIND LDA #ESCAPE...H.JSR CHROUT...R.LDA
#64.#.\.JSR CHROUT.C.F.;" NORMALE OUTPU
T ON SCREEN.R.P.JSR CLRCHN.`.Z.LDA #FILE
.N...JSR CLOSE.V...RTS.|...;.....SWITCH
LDA 1;" LEEST ONDER KERNEL.....E. #2....
.STA 1...J.RTS.D.T.;.L...STP.X...A.57344
...... I.0 . 319..... . (A.I),(I . 255)
...... I.........E
> CLICK IMAGE PREVIEW FOR FULL MODAL