LOWCASE LIST V3

00000000: 01 04 0F 04 64 00 97 35  39 34 36 38 2C 31 32 00  |....d..59468,12.|
00000010: 59 04 69 00 8F 20 41 44  41 50 54 45 44 20 42 59  |Y.i.. ADAPTED BY|
00000020: 20 44 41 56 49 44 20 4D  41 4C 4D 42 45 52 47 20  | DAVID MALMBERG |
00000030: 46 52 4F 4D 20 41 4E 20  41 53 53 45 4D 42 4C 59  |FROM AN ASSEMBLY|
00000040: 20 4C 49 53 54 49 4E 47  20 49 4E 20 54 48 45 20  | LISTING IN THE |
00000050: 4A 55 4E 45 20 31 39 38  30 00 7F 04 6A 00 8F 20  |JUNE 1980...j.. |
00000060: 49 53 53 55 45 20 4F 46  20 4D 49 43 52 4F 2D 54  |ISSUE OF MICRO-T|
00000070: 48 45 20 36 35 30 32 20  4A 4F 55 52 4E 41 4C 00  |HE 6502 JOURNAL.|
00000080: A3 04 6C 00 8F 20 46 55  52 54 48 45 52 20 41 44  |..l.. FURTHER AD|
00000090: 41 50 54 45 44 20 46 4F  52 20 42 41 53 49 43 20  |APTED FOR BASIC |
000000A0: 34 2E 30 00 C0 04 6D 00  8F 20 20 20 20 20 20 20  |4.0...m..       |
000000B0: 42 59 20 44 41 56 49 44  20 41 2E 20 48 4F 4F 4B  |BY DAVID A. HOOK|
000000C0: 00 E5 04 6E 00 99 22 93  20 20 20 20 20 20 20 20  |...n..".        |
000000D0: 20 12 4C 4F 57 45 52 20  43 41 53 45 20 4C 49 53  | .LOWER CASE LIS|
000000E0: 54 45 52 92 22 00 09 05  6F 00 99 22 20 20 20 20  |TER."...o.."    |
000000F0: 20 20 20 42 59 20 52 45  56 2E 20 4A 41 4D 45 53  |   BY REV. JAMES|
00000100: 20 53 54 52 41 53 4D 41  22 00 38 05 70 00 99 22  | STRASMA".8.p.."|
00000110: 11 11 54 48 49 53 20 50  52 4F 47 52 41 4D 20 4C  |..THIS PROGRAM L|
00000120: 4F 41 44 53 20 41 20 4D  41 43 48 49 4E 45 20 4C  |OADS A MACHINE L|
00000130: 41 4E 47 55 41 47 45 22  00 64 05 71 00 99 22 52  |ANGUAGE".d.q.."R|
00000140: 4F 55 54 49 4E 45 20 49  4E 54 4F 20 54 48 45 20  |OUTINE INTO THE |
00000150: 32 4E 44 20 43 41 53 53  45 54 54 45 20 42 55 46  |2ND CASSETTE BUF|
00000160: 46 45 52 22 00 93 05 72  00 99 22 54 48 41 54 20  |FER"...r.."THAT |
00000170: 57 49 4C 4C 20 41 55 54  4F 4D 41 54 49 43 41 4C  |WILL AUTOMATICAL|
00000180: 4C 59 20 46 4F 52 4D 41  54 20 4C 4F 57 45 52 20  |LY FORMAT LOWER |
00000190: 41 53 22 00 C0 05 73 00  99 22 57 45 4C 4C 20 41  |AS"...s.."WELL A|
000001A0: 53 20 55 50 50 45 52 20  43 41 53 45 20 4C 45 54  |S UPPER CASE LET|
000001B0: 54 45 52 53 20 54 4F 20  54 48 45 20 50 45 54 22  |TERS TO THE PET"|
000001C0: 00 EE 05 74 00 99 22 50  52 49 4E 54 45 52 53 2E  |...t.."PRINTERS.|
000001D0: 20 20 54 48 49 53 20 46  49 58 45 53 20 41 20 27  |  THIS FIXES A '|
000001E0: 42 55 47 27 20 54 48 41  54 20 48 41 44 22 00 1D  |BUG' THAT HAD"..|
000001F0: 06 75 00 99 22 55 50 50  45 52 20 43 41 53 45 20  |.u.."UPPER CASE |
00000200: 50 52 49 4E 54 20 41 53  20 47 52 41 50 48 49 43  |PRINT AS GRAPHIC|
00000210: 20 43 48 41 52 41 43 54  45 52 53 2E 22 00 45 06  | CHARACTERS.".E.|
00000220: 76 00 99 22 54 48 49 53  20 52 4F 55 54 49 4E 45  |v.."THIS ROUTINE|
00000230: 20 41 4C 53 4F 20 41 4C  4C 4F 57 53 20 50 52 49  | ALSO ALLOWS PRI|
00000240: 4E 54 45 52 22 00 72 06  77 00 99 22 43 4F 4E 54  |NTER".r.w.."CONT|
00000250: 52 4F 4C 20 43 48 41 52  41 43 54 45 52 53 20 54  |ROL CHARACTERS T|
00000260: 48 41 54 20 48 41 50 50  45 4E 20 54 4F 20 42 45  |HAT HAPPEN TO BE|
00000270: 20 22 00 A1 06 78 00 99  22 49 4E 20 54 48 45 20  | "...x.."IN THE |
00000280: 4C 49 53 54 49 4E 47 20  4E 4F 54 20 54 4F 20 43  |LISTING NOT TO C|
00000290: 41 55 53 45 20 54 48 45  20 50 52 49 4E 54 45 52  |AUSE THE PRINTER|
000002A0: 22 00 CF 06 79 00 99 22  54 4F 20 42 45 48 41 56  |"...y.."TO BEHAV|
000002B0: 45 20 53 54 52 41 4E 47  45 4C 59 2E 20 20 54 48  |E STRANGELY.  TH|
000002C0: 45 20 52 4F 55 54 49 4E  45 20 57 49 4C 4C 22 00  |E ROUTINE WILL".|
000002D0: EC 06 7A 00 99 22 57 4F  52 4B 20 57 49 54 48 20  |..z.."WORK WITH |
000002E0: 45 49 54 48 45 52 20 52  4F 4D 2E 22 00 19 07 7B  |EITHER ROM."...{|
000002F0: 00 99 22 54 4F 20 55 53  45 20 54 48 45 20 52 4F  |.."TO USE THE RO|
00000300: 55 54 49 4E 45 2C 20 4C  4F 41 44 20 54 48 45 20  |UTINE, LOAD THE |
00000310: 50 52 4F 47 52 41 4D 20  22 00 44 07 7C 00 99 22  |PROGRAM ".D.|.."|
00000320: 59 4F 55 20 57 49 53 48  20 54 4F 20 50 52 49 4E  |YOU WISH TO PRIN|
00000330: 54 2C 20 54 48 45 4E 20  47 49 56 45 20 54 48 45  |T, THEN GIVE THE|
00000340: 53 45 20 22 00 5C 07 7D  00 99 22 44 49 52 45 43  |SE ".\.}.."DIREC|
00000350: 54 20 43 4F 4D 4D 41 4E  44 53 3A 22 00 74 07 7E  |T COMMANDS:".t.~|
00000360: 00 99 22 20 20 20 20 4F  50 45 4E 34 2C 34 3A 43  |.."    OPEN4,4:C|
00000370: 4D 44 34 22 00 88 07 7F  00 99 22 20 20 20 20 53  |MD4"......"    S|
00000380: 59 53 28 38 32 36 29 22  00 A2 07 80 00 99 22 20  |YS(826)"......" |
00000390: 20 20 20 50 52 49 4E 54  23 34 3A 43 4C 4F 53 45  |   PRINT#4:CLOSE|
000003A0: 34 22 00 C3 07 C8 00 81  20 49 B2 20 38 32 36 20  |4"...... I. 826 |
000003B0: A4 20 39 38 30 20 3A 87  44 43 3A 97 49 2C 44 43  |. 980 :.DC:.I,DC|
000003C0: 3A 82 49 00 E6 07 D2 00  83 31 36 39 2C 30 2C 31  |:.I......169,0,1|
000003D0: 33 33 2C 31 37 2C 31 33  33 2C 31 38 2C 33 32 2C  |33,17,133,18,32,|
000003E0: 34 34 2C 31 39 37 00 0A  08 DC 00 83 31 30 34 2C  |44,197......104,|
000003F0: 31 30 34 2C 31 36 30 2C  31 2C 31 33 32 2C 39 2C  |104,160,1,132,9,|
00000400: 31 37 37 2C 39 32 2C 32  34 30 00 2C 08 E6 00 83  |177,92,240.,....|
00000410: 37 30 2C 33 32 2C 32 32  35 2C 32 35 35 2C 33 32  |70,32,225,255,32|
00000420: 2C 32 32 36 2C 32 30 31  2C 32 30 30 00 4F 08 F0  |,226,201,200.O..|
00000430: 00 83 31 37 37 2C 39 32  2C 31 37 30 2C 32 30 30  |..177,92,170,200|
00000440: 2C 31 37 37 2C 39 32 2C  32 30 31 2C 32 35 35 00  |,177,92,201,255.|
00000450: 73 08 FA 00 83 32 30 38  2C 34 2C 32 32 34 2C 32  |s....208,4,224,2|
00000460: 35 35 2C 32 34 30 2C 34  39 2C 31 33 32 2C 37 30  |55,240,49,132,70|
00000470: 2C 33 32 00 95 08 04 01  83 32 31 37 2C 32 32 30  |,32......217,220|
00000480: 2C 31 36 39 2C 31 37 2C  33 32 2C 36 39 2C 32 30  |,169,17,32,69,20|
00000490: 32 2C 31 36 39 00 B8 08  0E 01 83 33 32 2C 31 36  |2,169......32,16|
000004A0: 34 2C 37 30 2C 34 31 2C  32 35 35 2C 33 32 2C 31  |4,70,41,255,32,1|
000004B0: 39 34 2C 33 2C 32 30 31  00 DD 08 18 01 83 33 34  |94,3,201......34|
000004C0: 2C 32 30 38 2C 36 2C 31  36 35 2C 39 2C 37 33 2C  |,208,6,165,9,73,|
000004D0: 32 35 35 2C 31 33 33 2C  39 2C 32 30 30 00 FF 08  |255,133,9,200...|
000004E0: 22 01 83 32 34 30 2C 31  37 2C 31 37 37 2C 39 32  |"..240,17,177,92|
000004F0: 2C 32 30 38 2C 31 36 2C  31 36 38 2C 31 37 37 00  |,208,16,168,177.|
00000500: 21 09 2C 01 83 39 32 2C  31 37 30 2C 32 30 30 2C  |!.,..92,170,200,|
00000510: 31 37 37 2C 39 32 2C 31  33 34 2C 39 32 2C 31 33  |177,92,134,92,13|
00000520: 33 00 43 09 36 01 83 39  33 2C 32 30 38 2C 31 37  |3.C.6..93,208,17|
00000530: 38 2C 37 36 2C 31 33 37  2C 31 39 35 2C 31 36 2C  |8,76,137,195,16,|
00000540: 32 31 38 00 67 09 40 01  83 32 30 31 2C 32 35 35  |218.g.@..201,255|
00000550: 2C 32 34 30 2C 32 31 34  2C 33 36 2C 39 2C 34 38  |,240,214,36,9,48|
00000560: 2C 32 31 30 2C 35 36 00  8B 09 4A 01 83 32 33 33  |,210,56...J..233|
00000570: 2C 31 32 37 2C 31 37 30  2C 31 33 32 2C 37 30 2C  |,127,170,132,70,|
00000580: 31 36 30 2C 32 35 35 2C  32 30 32 00 AD 09 54 01  |160,255,202...T.|
00000590: 83 32 34 30 2C 38 2C 32  30 30 2C 31 38 35 2C 31  |.240,8,200,185,1|
000005A0: 34 36 2C 31 39 32 2C 31  36 2C 32 35 30 00 D1 09  |46,192,16,250...|
000005B0: 5E 01 83 34 38 2C 32 34  35 2C 32 30 30 2C 31 38  |^..48,245,200,18|
000005C0: 35 2C 31 34 36 2C 31 39  32 2C 34 38 2C 35 2C 33  |5,146,192,48,5,3|
000005D0: 32 00 F4 09 68 01 83 36  39 2C 32 30 32 2C 32 30  |2...h..69,202,20|
000005E0: 38 2C 32 34 35 2C 37 33  2C 31 32 38 2C 32 30 38  |8,245,73,128,208|
000005F0: 2C 31 37 32 00 18 0A 72  01 83 37 32 2C 39 2C 31  |,172...r..72,9,1|
00000600: 39 32 2C 32 30 31 2C 32  31 39 2C 31 34 34 2C 38  |92,201,219,144,8|
00000610: 2C 32 30 31 2C 32 32 34  00 3A 0A 7C 01 83 31 36  |,201,224.:.|..16|
00000620: 2C 34 2C 31 30 34 2C 37  33 2C 31 32 38 2C 37 32  |,4,104,73,128,72|
00000630: 2C 31 30 34 2C 37 36 2C  36 39 00 43 0A 86 01 83  |,104,76,69.C....|
00000640: 32 30 32 00 55 0A 90 01  8B C2 28 35 30 30 30 33  |202.U.....(50003|
00000650: 29 A7 35 30 30 00 6E 0A  95 01 8F 20 46 49 58 45  |).500.n.... FIXE|
00000660: 53 20 46 4F 52 20 4F 4C  44 20 52 4F 4D 53 00 7A  |S FOR OLD ROMS.z|
00000670: 0A 9A 01 81 49 B2 31 A4  31 30 00 83 0A 9F 01 87  |....I.1.10......|
00000680: 4A 2C 58 00 99 0A A4 01  81 4B B2 31 A4 4A 3A 87  |J,X......K.1.J:.|
00000690: 59 3A 97 59 2C 58 3A 82  4B 00 A2 0A A9 01 82 49  |Y:.Y,X:.K......I|
000006A0: 3A 80 00 BC 0A AE 01 83  34 2C 39 36 2C 38 34 30  |:.......4,96,840|
000006B0: 2C 38 39 30 2C 38 39 34  2C 39 32 35 00 C9 0A B3  |,890,894,925....|
000006C0: 01 83 31 2C 38 2C 38 32  39 00 D6 0A B8 01 83 31  |..1,8,829......1|
000006D0: 2C 39 2C 38 33 31 00 E4  0A BD 01 83 31 2C 33 34  |,9,831......1,34|
000006E0: 2C 38 33 33 00 FA 0A C2  01 83 33 2C 37 33 2C 38  |,833......3,73,8|
000006F0: 37 34 2C 39 35 34 2C 39  37 39 00 11 0B C7 01 83  |74,954,979......|
00000700: 33 2C 31 35 32 2C 38 36  37 2C 38 37 39 2C 39 33  |3,152,867,879,93|
00000710: 33 00 3C 0B CC 01 83 38  2C 31 37 34 2C 38 34 32  |3.<....8,174,842|
00000720: 2C 38 35 33 2C 38 35 37  2C 38 39 39 2C 39 30 34  |,853,857,899,904|
00000730: 2C 39 30 38 2C 39 31 30  2C 39 31 32 00 4B 0B D1  |,908,910,912.K..|
00000740: 01 83 31 2C 31 33 39 2C  39 31 36 00 5A 0B D6 01  |..1,139,916.Z...|
00000750: 83 31 2C 31 35 39 2C 38  36 39 00 69 0B DB 01 83  |.1,159,869.i....|
00000760: 31 2C 32 31 30 2C 38 34  39 00 81 0B F4 01 8F 20  |1,210,849...... |
00000770: 42 41 53 49 43 20 34 2E  30 20 43 48 41 4E 47 45  |BASIC 4.0 CHANGE|
00000780: 53 00 93 0B F9 01 8B C2  28 35 30 30 30 33 29 B2  |S.......(50003).|
00000790: 31 A7 80 00 A4 0B FB 01  81 49 B2 31 A4 34 34 3A  |1........I.1.44:|
000007A0: 87 59 3A 82 00 B0 0B FE  01 81 49 B2 31 A4 31 32  |.Y:.......I.1.12|
000007B0: 00 B9 0B 08 02 87 4A 2C  58 00 CF 0B 12 02 81 4B  |......J,X......K|
000007C0: B2 31 A4 4A 3A 87 59 3A  97 59 2C 58 3A 82 4B 00  |.1.J:.Y:.Y,X:.K.|
000007D0: D6 0B 1C 02 82 49 00 E5  0B 26 02 83 31 2C 31 36  |.....I...&..1,16|
000007E0: 33 2C 38 33 33 00 F4 0B  30 02 83 31 2C 31 38 31  |3,833...0..1,181|
000007F0: 2C 38 33 34 00 0A 0C 3A  02 83 33 2C 37 30 2C 38  |,834...:..3,70,8|
00000800: 37 34 2C 39 35 34 2C 39  37 39 00 21 0C 44 02 83  |74,954,979.!.D..|
00000810: 33 2C 31 38 37 2C 38 37  35 2C 39 35 35 2C 39 38  |3,187,875,955,98|
00000820: 30 00 30 0C 4E 02 83 31  2C 32 35 35 2C 39 31 36  |0.0.N..1,255,916|
00000830: 00 3F 0C 58 02 83 31 2C  31 37 39 2C 39 31 37 00  |.?.X..1,179,917.|
00000840: 4E 0C 62 02 83 31 2C 31  33 31 2C 38 36 39 00 5D  |N.b..1,131,869.]|
00000850: 0C 6C 02 83 31 2C 32 30  37 2C 38 37 30 00 6C 0C  |.l..1,207,870.l.|
00000860: 76 02 83 31 2C 32 32 33  2C 38 34 39 00 7B 0C 80  |v..1,223,849.{..|
00000870: 02 83 31 2C 31 38 36 2C  38 35 30 00 8E 0C 8A 02  |..1,186,850.....|
00000880: 83 32 2C 31 37 38 2C 39  34 31 2C 39 34 39 00 A1  |.2,178,941,949..|
00000890: 0C 94 02 83 32 2C 31 37  36 2C 39 34 32 2C 39 35  |....2,176,942,95|
000008A0: 30 00 00 00                                       |0...            |

....D..59468,12.Y.I.. ADAPTED BY DAVID M
ALMBERG FROM AN ASSEMBLY LISTING IN THE 
JUNE 1980..J.. ISSUE OF MICRO-THE 6502 
JOURNAL...L.. FURTHER ADAPTED FOR BASIC 
4.0...M..       BY DAVID A. HOOK...N..".
         .LOWER CASE LISTER."...O.."    
   BY REV. JAMES STRASMA".8.P.."..THIS P
ROGRAM LOADS A MACHINE LANGUAGE".D.Q.."R
OUTINE INTO THE 2ND CASSETTE BUFFER"...R
.."THAT WILL AUTOMATICALLY FORMAT LOWER 
AS"...S.."WELL AS UPPER CASE LETTERS TO 
THE PET"...T.."PRINTERS.  THIS FIXES A '
BUG' THAT HAD"...U.."UPPER CASE PRINT AS
 GRAPHIC CHARACTERS.".E.V.."THIS ROUTINE
 ALSO ALLOWS PRINTER".R.W.."CONTROL CHAR
ACTERS THAT HAPPEN TO BE "...X.."IN THE 
LISTING NOT TO CAUSE THE PRINTER".O.Y.."
TO BEHAVE STRANGELY.  THE ROUTINE WILL".
..Z.."WORK WITH EITHER ROM."...{.."TO US
E THE ROUTINE, LOAD THE PROGRAM ".D.|.."
YOU WISH TO PRINT, THEN GIVE THESE ".\.}
.."DIRECT COMMANDS:".T.~.."    OPEN4,4:C
MD4"....."    SYS(826)"......"    PRINT
#4:CLOSE4".C.H.. I. 826 . 980 :.DC:.I,DC
:.I...R..169,0,133,17,133,18,32,44,197..
....104,104,160,1,132,9,177,92,240.,....
70,32,225,255,32,226,201,200.O....177,92
,170,200,177,92,201,255.S....208,4,224,2
55,240,49,132,70,32......217,220,169,17,
32,69,202,169......32,164,70,41,255,32,1
94,3,201......34,208,6,165,9,73,255,133,
9,200..."..240,17,177,92,208,16,168,177.
!.,..92,170,200,177,92,134,92,133.C.6..9
3,208,178,76,137,195,16,218.G.@..201,255
,240,214,36,9,48,210,56...J..233,127,170
,132,70,160,255,202...T..240,8,200,185,1
46,192,16,250.Q.^..48,245,200,185,146,19
2,48,5,32...H..69,202,208,245,73,128,208
,172...R..72,9,192,201,219,144,8,201,224
.:.|..16,4,104,73,128,72,104,76,69.C....
202.U....B(50003).500.N.... FIXES FOR OL
D ROMS.Z....I.1.10......J,X......K.1.J:.
Y:.Y,X:.K......I:.......4,96,840,890,894
,925.I....1,8,829.V....1,9,831......1,34
,833...B..3,73,874,954,979...G..3,152,86
7,879,933.<.L..8,174,842,853,857,899,904
,908,910,912.K.Q..1,139,916.Z.V..1,159,8
69.I....1,210,849...... BASIC 4.0 CHANGE
S......B(50003).1........I.1.44:.Y:.....
..I.1.12......J,X.O....K.1.J:.Y:.Y,X:.K.
V....I...&..1,163,833...0..1,181,834...:
..3,70,874,954,979.!.D..3,187,875,955,98
0.0.N..1,255,916.?.X..1,179,917.N.B..1,1
31,869.].L..1,207,870.L.V..1,223,849.{..
..1,186,850......2,178,941,949......2,17
6,942,950...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL