00000000: 01 04 37 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..7.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 35 20 |SACTOR VOLUME 5 |
00000020: 49 53 53 55 45 20 30 34 20 20 20 20 20 20 20 20 |ISSUE 04 |
00000030: 50 41 47 45 20 31 36 00 57 04 64 00 8F 2A 2A 2A |PAGE 16.W.d..***|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 00 77 04 6E 00 8F 2A 20 50 |*******.w.n..* P|
00000060: 52 49 4E 54 20 4C 41 52 47 45 20 43 48 41 52 41 |RINT LARGE CHARA|
00000070: 43 54 45 52 53 20 2A 00 97 04 78 00 8F 2A 20 54 |CTERS *...x..* T|
00000080: 52 41 4E 53 41 43 54 4F 52 20 4D 41 47 41 5A 49 |RANSACTOR MAGAZI|
00000090: 4E 45 20 20 20 20 2A 00 B7 04 82 00 8F 2A 20 57 |NE *......* W|
000000A0: 52 49 54 54 45 4E 20 53 45 50 27 38 34 20 20 2D |RITTEN SEP'84 -|
000000B0: 43 5A 20 20 20 20 2A 00 D7 04 8C 00 8F 2A 2A 2A |CZ *......***|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 00 DD 04 96 00 3A 00 E3 04 |*******.....:...|
000000E0: A0 00 3A 00 00 05 AA 00 81 20 49 B2 30 A4 37 3A |..:...... I.0.7:|
000000F0: 45 28 49 29 B2 32 AE 28 37 AB 49 29 3A 82 20 49 |E(I).2.(7.I):. I|
00000100: 00 06 05 B4 00 3A 00 0F 05 BE 00 99 22 93 22 00 |.....:......".".|
00000110: 24 05 C8 00 81 20 4C 4F 4F 50 B2 30 20 A4 20 31 |$.... LOOP.0 . 1|
00000120: 20 A9 20 30 00 45 05 D2 00 3A 20 85 22 43 48 41 | . 0.E...: ."CHA|
00000130: 52 41 43 54 45 52 20 53 45 54 20 28 30 2D 37 29 |RACTER SET (0-7)|
00000140: 22 3B 53 45 54 00 65 05 DC 00 3A 20 85 22 20 20 |";SET.e...: ." |
00000150: 20 20 20 20 20 20 20 20 43 48 41 52 41 43 54 45 | CHARACTE|
00000160: 52 22 3B 43 24 00 72 05 E6 00 3A 20 99 22 93 22 |R";C$.r...: ."."|
00000170: 43 24 00 92 05 F0 00 3A 20 43 50 B2 C2 28 31 30 |C$.....: CP..(10|
00000180: 32 34 29 AC 38 3A 20 8F 2A 20 43 48 41 52 20 23 |24).8: .* CHAR #|
00000190: 20 2A 00 B3 05 FA 00 3A 20 52 4F 4D B2 31 33 AC | *.....: ROM.13.|
000001A0: 34 30 39 36 20 AA 20 53 45 54 AC 35 31 32 20 AA |4096 . SET.512 .|
000001B0: 20 43 50 00 BB 05 04 01 3A 20 99 00 D9 05 0E 01 | CP.....: ......|
000001C0: 3A 20 8D 20 33 33 30 3A 20 8F 2A 20 50 52 49 4E |: . 330: .* PRIN|
000001D0: 54 20 49 4D 41 47 45 20 2A 00 E1 05 18 01 3A 20 |T IMAGE *.....: |
000001E0: 99 00 EC 05 22 01 82 20 4C 4F 4F 50 00 F2 05 2C |....".. LOOP...,|
000001F0: 01 3A 00 F8 05 36 01 3A 00 0A 06 40 01 AB 53 55 |.:...6.:...@..SU|
00000200: 42 52 4F 55 54 49 4E 45 53 3A 00 27 06 4A 01 8F |BROUTINES:.'.J..|
00000210: 2A 20 54 52 41 4E 53 4C 41 54 45 20 52 4F 4D 20 |* TRANSLATE ROM |
00000220: 49 4D 41 47 45 20 2A 00 35 06 54 01 81 20 49 B2 |IMAGE *.5.T.. I.|
00000230: 30 20 A4 20 37 00 4D 06 5E 01 8D 34 36 30 20 27 |0 . 7.M.^..460 '|
00000240: AC 20 43 48 41 52 20 52 4F 4D 20 49 4E 00 5F 06 |. CHAR ROM IN._.|
00000250: 68 01 4C 49 4E 45 B2 C2 28 52 4F 4D AA 49 29 00 |h.LINE..(ROM.I).|
00000260: 72 06 72 01 8D 35 34 30 20 27 AC 20 49 AD 4F 20 |r.r..540 '. I.O |
00000270: 49 4E 00 80 06 7C 01 81 20 4A B2 30 20 A4 20 37 |IN...|.. J.0 . 7|
00000280: 00 A2 06 86 01 44 49 53 50 B2 31 3A 8B 20 4C 49 |.....DISP.1:. LI|
00000290: 4E 45 20 AF 20 45 28 4A 29 20 A7 20 44 49 53 50 |NE . E(J) . DISP|
000002A0: B2 32 00 C2 06 90 01 8F 2A 20 53 50 41 43 45 20 |.2......* SPACE |
000002B0: 46 4F 52 20 30 2C 20 27 2A 27 20 46 4F 52 20 31 |FOR 0, '*' FOR 1|
000002C0: 20 2A 00 D8 06 9A 01 99 20 CA 28 22 20 2A 22 2C | *...... .(" *",|
000002D0: 44 49 53 50 2C 31 29 3B 00 E6 06 A4 01 82 20 4A |DISP,1);...... J|
000002E0: 3A 99 3A 82 20 49 00 EC 06 AE 01 8E 00 F2 06 B8 |:.:. I..........|
000002F0: 01 3A 00 F8 06 C2 01 3A 00 14 07 CC 01 8F 2A 20 |.:.....:......* |
00000300: 53 57 49 54 43 48 20 43 48 41 52 20 52 4F 4D 20 |SWITCH CHAR ROM |
00000310: 49 4E 20 2A 00 2D 07 D6 01 97 20 35 36 33 33 34 |IN *.-.... 56334|
00000320: 2C C2 28 35 36 33 33 34 29 AF 32 35 34 00 4A 07 |,.(56334).254.J.|
00000330: E0 01 8F 2A 20 54 55 52 4E 20 49 4E 54 45 52 52 |...* TURN INTERR|
00000340: 55 50 54 53 20 4F 46 46 20 2A 00 5A 07 EA 01 97 |UPTS OFF *.Z....|
00000350: 31 2C C2 28 31 29 AF 32 35 31 00 7C 07 F4 01 8F |1,.(1).251.|....|
00000360: 2A 20 45 4E 41 42 4C 45 20 43 48 41 52 41 43 54 |* ENABLE CHARACT|
00000370: 45 52 20 53 45 54 20 52 4F 4D 20 2A 00 82 07 FE |ER SET ROM *....|
00000380: 01 8E 00 88 07 08 02 3A 00 8E 07 12 02 3A 00 A5 |.......:.....:..|
00000390: 07 1C 02 8F 2A 20 52 45 2D 45 4E 41 42 4C 45 20 |....* RE-ENABLE |
000003A0: 49 2F 4F 20 2A 00 B4 07 26 02 97 20 31 2C C2 28 |I/O *...&.. 1,.(|
000003B0: 31 29 B0 34 00 D0 07 30 02 8F 2A 20 54 55 52 4E |1).4...0..* TURN|
000003C0: 20 49 4E 54 45 52 52 55 50 54 53 20 4F 4E 20 2A | INTERRUPTS ON *|
000003D0: 00 E7 07 3A 02 97 20 35 36 33 33 34 2C C2 28 35 |...:.. 56334,.(5|
000003E0: 36 33 33 34 29 B0 31 00 FE 07 44 02 8F 2A 20 52 |6334).1...D..* R|
000003F0: 45 2D 45 4E 41 42 4C 45 20 49 2F 4F 20 2A 00 04 |E-ENABLE I/O *..|
00000400: 08 4E 02 8E 00 00 00 |.N..... |
..7.... THE TRANSACTOR VOLUME 5 ISSUE 04
PAGE 16.W.D..*******************
*******.W.N..* PRINT LARGE CHARACTERS *.
..X..* TRANSACTOR MAGAZINE *......* W
RITTEN SEP'84 -CZ *.W....***********
***************.....:... .:...... I.0.7:
E(I).2.(7.I):. I.....:......".".$.H.. LO
OP.0 . 1 . 0.E.R.: ."CHARACTER SET (0-7)
";SET.E...: ." CHARACTER";C$.R.
..: ."."C$.....: CP.B(1024).8: .* CHAR #
*.....: ROM.13.4096 . SET.512 . CP.....
: ..Y...: . 330: .* PRINT IMAGE *.....:
....".. LOOP...,.:...6.:...@..SUBROUTINE
S:.'.J..* TRANSLATE ROM IMAGE *.5.T.. I.
0 . 7.M.^..460 '. CHAR ROM IN._.H.LINE.B
(ROM.I).R.R..540 '. I.O IN...|.. J.0 . 7
.....DISP.1:. LINE . E(J) . DISP.2.B....
* SPACE FOR 0, '*' FOR 1 *.X.... J(" *",
DISP,1);...... J:.:. I...........:...B.:
...L..* SWITCH CHAR ROM IN *.-.V.. 56334
,B(56334).254.J....* TURN INTERRUPTS OFF
*.Z....1,B(1).251.|....* ENABLE CHARACT
ER SET ROM *...........:.....:......* RE
-ENABLE I/O *...&.. 1,B(1).4.P.0..* TURN
INTERRUPTS ON *...:.. 56334,B(56334).1.
..D..* RE-ENABLE I/O *...N.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL