Home » Personal collection » Commodore disks » disk34a_commodore_world_7.d64 » hires display
hires display
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk34a_commodore_world_7.d64 |
| Filename: | hires display |
| Read OK: | ✔ |
| File size: | 02A4 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
0 POKE 53272,22
1 REM ** HIRES PICTURE DISPLAY
2 REM ** BY RUSS MICHAELS
3 REM ** USE LINES 15-70 IN YOUR OWN
5 PRINT"<clr>🭾RESS 1 TO DISPLAY PICTURE"
6 PRINT"🭾RESS 2 FOR NORMAL DISPLAY"
7 GET A$:IF A$=""THEN 7
8 IF A$="1"THEN GOSUB 15
9 IF A$="2"THEN GOSUB 100
10 GOTO 7
14 REM ** DISPLAY HIRES PICTURE
15 POKE 56576,2 :REM ** BANK
20 POKE 53272,127 :REM ** BITMAP POS
30 POKE 53265,59 :REM ** BITMAP ON
40 POKE 53270,8 :REM ** HIRES MODE ON
50 POKE 53280,0 :REM ** BORDER COLOR
60 POKE 53281,0 :REM ** SCREEN COLOR
70 RETURN
99 REM ** NORMAL COMMODORE DISPLAY
100 POKE 56576,3
110 POKE 53272,20
120 POKE 53265,27
130 POKE 53270,8
140 POKE 53280,14
150 POKE 53281,6
160 RETURN
200 REM ** USE THE APPROPRIATE ROUTINE
210 REM ** IN YOUR OWN PROGRAMS
� 53272,22 / � ** HIRES PICTURE DISPLAY I � ** BY RUSS MICHAELS n � ** USE LINES 15-70 IN YOUR OWN � �"��RESS 1 TO DISPLAY PICTURE" � �"�RESS 2 FOR NORMAL DISPLAY" � � A$:� A$�""� 7 � � A$�"1"� � 15 � � A$�"2"� � 100 � � 7 � ** DISPLAY HIRES PICTURE 0 � 56576,2 :� ** BANK Q � 53272,127 :� ** BITMAP POS q � 53265,59 :� ** BITMAP ON � ( � 53270,8 :� ** HIRES MODE ON � 2 � 53280,0 :� ** BORDER COLOR � < � 53281,0 :� ** SCREEN COLOR � F � c � ** NORMAL COMMODORE DISPLAY d � 56576,3 n � 53272,20 / x � 53265,27 = � � 53270,8 L � � 53280,14 Z � � 53281,6 ` � � � � � ** USE THE APPROPRIATE ROUTINE � � � ** IN YOUR OWN PROGRAMS
PH@@. 53272,22@/HA@. ** hires picture display@iHB@. ** by russ michaels@NHC@. ** use lines 15-70 in your own@.HE@."..ress 1 to display picture"@.HF@.".ress 2 for normal display"@.HG@. a$:. a$."". 7@.HH@. a$."1". . 15@.HI@. a$."2". . 100@.HJ@. 7@UIN@. ** display hires picture@0IO@. 56576,2 :. ** bank@qIT@. 53272,127 :. ** bitmap pos@QI.@. 53265,59 :. ** bitmap on@.I(@. 53270,8 :. ** hires mode on@.I2@. 53280,0 :. ** border color@.I<@. 53281,0 :. ** screen color@.If@.@CJC@. ** normal commodore display@QJD@. 56576,3@ JN@. 53272,20@/JX@. 53265,27@=J.@. 53270,8@lJ.@. 53280,14@zJ.@. 53281,6@.J.@.@.J.@. ** use the appropriate routine@.J.@. ** in your own programs@@@
00000000 10 08 00 00 97 20 35 33 32 37 32 2c 32 32 00 2f |..... 53272,22./| 00000010 08 01 00 8f 20 2a 2a 20 48 49 52 45 53 20 50 49 |.... ** HIRES PI| 00000020 43 54 55 52 45 20 44 49 53 50 4c 41 59 00 49 08 |CTURE DISPLAY.I.| 00000030 02 00 8f 20 2a 2a 20 42 59 20 52 55 53 53 20 4d |... ** BY RUSS M| 00000040 49 43 48 41 45 4c 53 00 6e 08 03 00 8f 20 2a 2a |ICHAELS.n.... **| 00000050 20 55 53 45 20 4c 49 4e 45 53 20 31 35 2d 37 30 | USE LINES 15-70| 00000060 20 49 4e 20 59 4f 55 52 20 4f 57 4e 00 91 08 05 | IN YOUR OWN....| 00000070 00 99 22 93 d0 52 45 53 53 20 31 20 54 4f 20 44 |.."..RESS 1 TO D| 00000080 49 53 50 4c 41 59 20 50 49 43 54 55 52 45 22 00 |ISPLAY PICTURE".| 00000090 b3 08 06 00 99 22 d0 52 45 53 53 20 32 20 46 4f |.....".RESS 2 FO| 000000a0 52 20 4e 4f 52 4d 41 4c 20 44 49 53 50 4c 41 59 |R NORMAL DISPLAY| 000000b0 22 00 c7 08 07 00 a1 20 41 24 3a 8b 20 41 24 b2 |"...... A$:. A$.| 000000c0 22 22 a7 20 37 00 da 08 08 00 8b 20 41 24 b2 22 |"". 7...... A$."| 000000d0 31 22 a7 20 8d 20 31 35 00 ee 08 09 00 8b 20 41 |1". . 15...... A| 000000e0 24 b2 22 32 22 a7 20 8d 20 31 30 30 00 f6 08 0a |$."2". . 100....| 000000f0 00 89 20 37 00 15 09 0e 00 8f 20 2a 2a 20 44 49 |.. 7...... ** DI| 00000100 53 50 4c 41 59 20 48 49 52 45 53 20 50 49 43 54 |SPLAY HIRES PICT| 00000110 55 52 45 00 30 09 0f 00 97 20 35 36 35 37 36 2c |URE.0.... 56576,| 00000120 32 20 20 20 3a 8f 20 2a 2a 20 42 41 4e 4b 00 51 |2 :. ** BANK.Q| 00000130 09 14 00 97 20 35 33 32 37 32 2c 31 32 37 20 3a |.... 53272,127 :| 00000140 8f 20 2a 2a 20 42 49 54 4d 41 50 20 50 4f 53 00 |. ** BITMAP POS.| 00000150 71 09 1e 00 97 20 35 33 32 36 35 2c 35 39 20 20 |q.... 53265,59 | 00000160 3a 8f 20 2a 2a 20 42 49 54 4d 41 50 20 4f 4e 00 |:. ** BITMAP ON.| 00000170 95 09 28 00 97 20 35 33 32 37 30 2c 38 20 20 20 |..(.. 53270,8 | 00000180 3a 8f 20 2a 2a 20 48 49 52 45 53 20 4d 4f 44 45 |:. ** HIRES MODE| 00000190 20 4f 4e 00 b8 09 32 00 97 20 35 33 32 38 30 2c | ON...2.. 53280,| 000001a0 30 20 20 20 3a 8f 20 2a 2a 20 42 4f 52 44 45 52 |0 :. ** BORDER| 000001b0 20 43 4f 4c 4f 52 00 db 09 3c 00 97 20 35 33 32 | COLOR...<.. 532| 000001c0 38 31 2c 30 20 20 20 3a 8f 20 2a 2a 20 53 43 52 |81,0 :. ** SCR| 000001d0 45 45 4e 20 43 4f 4c 4f 52 00 e1 09 46 00 8e 00 |EEN COLOR...F...| 000001e0 03 0a 63 00 8f 20 2a 2a 20 4e 4f 52 4d 41 4c 20 |..c.. ** NORMAL | 000001f0 43 4f 4d 4d 4f 44 4f 52 45 20 44 49 53 50 4c 41 |COMMODORE DISPLA| 00000200 59 00 11 0a 64 00 97 20 35 36 35 37 36 2c 33 00 |Y...d.. 56576,3.| 00000210 20 0a 6e 00 97 20 35 33 32 37 32 2c 32 30 00 2f | .n.. 53272,20./| 00000220 0a 78 00 97 20 35 33 32 36 35 2c 32 37 00 3d 0a |.x.. 53265,27.=.| 00000230 82 00 97 20 35 33 32 37 30 2c 38 00 4c 0a 8c 00 |... 53270,8.L...| 00000240 97 20 35 33 32 38 30 2c 31 34 00 5a 0a 96 00 97 |. 53280,14.Z....| 00000250 20 35 33 32 38 31 2c 36 00 60 0a a0 00 8e 00 85 | 53281,6.`......| 00000260 0a c8 00 8f 20 2a 2a 20 55 53 45 20 54 48 45 20 |.... ** USE THE | 00000270 41 50 50 52 4f 50 52 49 41 54 45 20 52 4f 55 54 |APPROPRIATE ROUT| 00000280 49 4e 45 00 a3 0a d2 00 8f 20 2a 2a 20 49 4e 20 |INE...... ** IN | 00000290 59 4f 55 52 20 4f 57 4e 20 50 52 4f 47 52 41 4d |YOUR OWN PROGRAM| 000002a0 53 00 00 00 |S...| 000002a4
.