mirror of
https://github.com/Michaelangel007/apple2_printshop_viewer.git
synced 2024-09-13 02:56:15 +00:00
Add to repository
This commit is contained in:
michaelangel007
commit
1860009b6b
69
README.md
Normal file
69
README.md
Normal file
@ -0,0 +1,69 @@
|
||||
# PrintShop / MiniPix Viewer
|
||||
|
||||
![pics/scorpio.png]
|
||||
|
||||
![pics/wizard.png]
|
||||
|
||||
Utility to decode a PrintShop / MiniPix 88x52 monochrome imag written
|
||||
in 6502 assembly language for the Apple \]\[.
|
||||
By default MiniPix are loaded at $5800. File size is 572 ($23C).
|
||||
|
||||
From UseNet this question was asked: PrintShop graphics to DHR?
|
||||
|
||||
I really like this "puzzle" as there are 6 variations:
|
||||
|
||||
a) MiniPixToSrcBufHGR (Over-writes source minipix)
|
||||
b) MiniPixToDstBufHGR (Unpacks to different buffer)
|
||||
c) MiniPixToScreenHGR
|
||||
|
||||
d) MiniPixToSrcBufDHGR (Over-writes source minipix)
|
||||
e) MiniPixToDstBufDHGR (Unpacks to different buffer)
|
||||
f) MiniPixToScreenDHGR
|
||||
|
||||
I was bored this weekend so I whipped up an implementation for:
|
||||
(c) MiniPixToScreenHGR:
|
||||
|
||||
Pros
|
||||
====
|
||||
+ Unpacks directly to the HGR screen
|
||||
+ Doesn't need any secondary buffers
|
||||
+ Source MiniPix image is left untouched
|
||||
+ Image is perfectly centered both horizontally and vertically
|
||||
(If you don't care about perfectly centered horizontally by being shifted
|
||||
over 1 pixel to the left then you can shave off 166 - 157 = 9 bytes. You
|
||||
will also need to fixup the Column2ColorHGR table.)
|
||||
+ Uses correct 2:3 aspect ratio
|
||||
+ Technically, the HGR screen does NOT need to be initialized, however it DOES
|
||||
call HGR @ $F3E2 though to in order to initialize a few zero page variables.
|
||||
|
||||
Meh
|
||||
===
|
||||
o Uses a 7 byte look-up table for pixel doubling
|
||||
|
||||
Cons
|
||||
====
|
||||
- Uses a crap ton of zero page variables -- 16 in total:
|
||||
$1C, $26, $27, $30, $E4 .. $E6, $F7 .. $FF
|
||||
- Requires Applesoft ROM to be banked in as it uses 2 ROM entry points:
|
||||
HGR, HPOSN.
|
||||
- Code size is 152 bytes. (Demo is 166 bytes.)
|
||||
|
||||
|
||||
6000:20 e2 f3 8d 52 c0 a2 58 a0 00 86 f8 84 f7 a9 12
|
||||
6010:85 fc a0 00 84 e4 84 ff a2 34 a5 fc 20 17 f4 a8
|
||||
6020:85 fb 85 fd 18 a5 e5 65 26 85 26 a2 01 86 fe a9
|
||||
6030:01 85 fa b1 f7 85 f9 06 f9 a5 fd b0 05 1d 9f 60
|
||||
6040:85 fd e8 e0 04 f0 04 e0 07 d0 13 84 fb 20 8a 60
|
||||
6050:85 fd a4 fb e6 26 e0 07 d0 04 a2 00 86 fe 06 fa
|
||||
6060:90 d5 c8 84 fb c0 0b 90 c6 a5 fd 20 8a 60 e6 fc
|
||||
6070:e6 ff a6 ff e0 03 d0 a0 18 a9 0b 65 f7 85 f7 90
|
||||
6080:02 e6 f8 a5 fc c9 ae d0 8d 60 48 29 7f a0 00 91
|
||||
6090:26 68 2a a9 00 2a f0 06 e0 04 d0 02 a9 03 60 06
|
||||
60a0:18 60 80 0c 30 c0
|
||||
|
||||
BSAVE MINIPIXVIEWER,A$6000,L$A6
|
||||
|
||||
It expects a PrintShop MiniPix (572 bytes) to be loaded at $5800.
|
||||
|
||||
Demo disk and (Merlin32) assembly source included at:
|
||||
https://github.com/Michaelangel007/apple2_printshop_viewer
|
||||
17
debug.applewin
Normal file
17
debug.applewin
Normal file
@ -0,0 +1,17 @@
|
||||
bload "scorpio.hgr",2000
|
||||
|
||||
bload "scorpio.minipix",5800
|
||||
|
||||
bload "minipixviewer",6000
|
||||
|
||||
sym zSrcPtr = $F7
|
||||
sym zSrcBits = $F9
|
||||
sym zSrcMask = $FA
|
||||
sym zSrcCol = $FB
|
||||
|
||||
sym zDstRow = $FC
|
||||
sym zDstBits = $FD
|
||||
sym zDstColMod7 = $FE
|
||||
sym zDstRowMod3 = $FF
|
||||
|
||||
sym PrintShopSprite = $5800
|
||||
BIN
minipixviewer
Normal file
BIN
minipixviewer
Normal file
Binary file not shown.
BIN
minipixviewer.po
Normal file
BIN
minipixviewer.po
Normal file
Binary file not shown.
237
minipixviewer.s
Normal file
237
minipixviewer.s
Normal file
@ -0,0 +1,237 @@
|
||||
; PrintShop / MiniPix Unpacker and Viewer
|
||||
; Version 5, March 31, 2019
|
||||
; Copyleft Michaelangel007
|
||||
; "Sharing is Caring"
|
||||
|
||||
|
||||
; === Our Zero Page Variables ===
|
||||
|
||||
zSrcPtr = $F7 ; 16-bit pointr to source packed PrintShop graphic
|
||||
zSrcBits = $F9
|
||||
zSrcMask = $FA ; counter 0 .. 7
|
||||
zSrcCol = $FB ; cache of Y reg for lda (zSrcPtr),Y
|
||||
|
||||
zDstPtr = $26 ; 16-bit pointer to dest; GBASL
|
||||
|
||||
zDstRow = $FC
|
||||
zDstBits = $FD
|
||||
zDstColMod7 = $FE
|
||||
zDstRowMod3 = $FF
|
||||
|
||||
|
||||
; === PrintShop ===
|
||||
|
||||
PrintShopSprite = $5800 ; Default load adddress
|
||||
;LEN = 572 ; File size
|
||||
|
||||
; Dimensions
|
||||
W_PIXELS = 88
|
||||
W_BYTES = 88/8 ; Source (Packed) Bytes/Row
|
||||
H_PIXELS = 52
|
||||
|
||||
X_SCALE = 2 ; Not actually used as hard-coded. For reference
|
||||
Y_SCALE = 3
|
||||
|
||||
|
||||
; === Applesoft/Monitor Zero Page Variables ===
|
||||
|
||||
MON_GBAS = $26 ; 16-bit Pointer to HGR scanline
|
||||
|
||||
HGR_COLOR = $E4 ;
|
||||
HGR_HORIZ = $E5 ; X column / 7 = scanline byte offset
|
||||
HGR_PAGE = $E6 ; $20 or $40
|
||||
|
||||
|
||||
; === I/O Softswitches ===
|
||||
|
||||
TXTCLR = $C050 ; Graphics mode
|
||||
TXTSET = $C051
|
||||
|
||||
MIXCLR = $C052 ; Split screen
|
||||
MIXSET = $C053 ; Full screen
|
||||
|
||||
PAGE1 = $C054
|
||||
PAGE2 = $C055
|
||||
|
||||
LORES = $C056
|
||||
HIRES = $C057
|
||||
|
||||
|
||||
; === Applesoft/Monitor ROM ===
|
||||
|
||||
HGR = $F3E2 ; Clear and View HGR with mixed text/graphics
|
||||
HCLR = $F3F2
|
||||
HPOSN = $F411 ; Set GBASL, GBASH, MON.HMASK, HGR.BITS ; uses HGR.PAGE,
|
||||
MOVE.DOWN = $F505 ; Update GBASL, GBASH
|
||||
COLORTBL = $F6F6 ; byte colors[7]
|
||||
HCOLOR = $F6E9
|
||||
|
||||
HOME = $FC58
|
||||
|
||||
; =====================================================================
|
||||
|
||||
ORG $6000
|
||||
|
||||
PrintShopViewer
|
||||
|
||||
jsr HGR
|
||||
sta MIXCLR ; Full screen
|
||||
|
||||
ldx #>PrintShopSprite
|
||||
ldy #<PrintShopSprite
|
||||
stx zSrcPtr+1
|
||||
sty zSrcPtr+0
|
||||
|
||||
; Src PS 2x is 88 * 2x scaling = 176 pixels
|
||||
; Dstr HGR screen is 40 columns * 7 px/col = 280 pixels
|
||||
; =====================================================================
|
||||
|
||||
; Horz Centering:
|
||||
; = (280 - W_PIXELS*X_SCALE)/2
|
||||
; = (280 - 88*2)/2
|
||||
; = 52 px/col
|
||||
; = 52 px / 7px/col
|
||||
; = 7.42... = scanline offset
|
||||
;
|
||||
; 52 px mod 7 px/byte
|
||||
; = 52 mod 7
|
||||
; = 3
|
||||
CENTER_X = 52
|
||||
X_MOD_7 = 1 ; Since each pixel is doubled we need to divide (52 mod 7) / 2
|
||||
|
||||
; Vert Centering:
|
||||
; = (192 - H_PIXELS*Y_SCALE)/2
|
||||
; = (192 - 52*3)/2
|
||||
; = (192 - 156) / 2
|
||||
; = 18
|
||||
CENTER_Y = {192 - {H_PIXELS*Y_SCALE}}/2
|
||||
|
||||
; DEBUG -- Same x,y as PrintShop Graphic Editor
|
||||
;CENTER_Y = 23
|
||||
;CENTER_X = 0
|
||||
|
||||
|
||||
; Image will be centered on screen
|
||||
; HGR does NOT need to be cleared to black as we set each byte to zero
|
||||
; ==========
|
||||
UnpackToScreenHGR
|
||||
lda #CENTER_Y ; y = 18
|
||||
sta zDstRow
|
||||
ldy #0 ; HPOSN: column = Y,X
|
||||
sty HGR_COLOR ; 0 = Black
|
||||
|
||||
:NextTripleY
|
||||
sty zDstRowMod3 ; Do y scaling
|
||||
|
||||
:NextSrcRow
|
||||
ldx #CENTER_X ; HPOSN: column = y,X
|
||||
lda zDstRow ; HPOSN: row = A
|
||||
jsr HPOSN + 6 ; We don't use HGR.X .. HGR.Y @ $E0 .. $E2
|
||||
tay ; on exit A = HGR.COLOR = 0 @ $F450
|
||||
sta zSrcCol ; Y = zSrcCol
|
||||
sta zDstBits
|
||||
|
||||
clc ; GBAS points to start of scanline
|
||||
lda HGR_HORIZ ; Take X column into account
|
||||
adc zDstPtr
|
||||
sta zDstPtr
|
||||
|
||||
ldx #X_MOD_7 ; LDX Can be optimized out if x mod 7 is 0
|
||||
stx zDstColMod7 ;
|
||||
|
||||
:NextSrcByte
|
||||
lda #1 ; Unpack 8 bits since source = monochrome 8 bits/pix
|
||||
sta zSrcMask
|
||||
|
||||
lda (zSrcPtr),y ; Loop Invariant: Y = zSrcCol
|
||||
sta zSrcBits
|
||||
|
||||
:UnpackSrcBits ; same source byte
|
||||
asl zSrcBits
|
||||
lda zDstBits
|
||||
bcs :PutOne
|
||||
:PutZero ; 0 = white
|
||||
ora Column2ColorHGR,X
|
||||
sta zDstBits
|
||||
:PutOne ; 1 = black
|
||||
; nothing to do since zDstBits initialized to zero
|
||||
inx
|
||||
cpx #4
|
||||
beq :NextDstByte
|
||||
cpx #7
|
||||
bne :SameDstByte
|
||||
|
||||
:NextDstByte
|
||||
sty zSrcCol ; 65C02: PHY
|
||||
jsr PutHgrByte
|
||||
sta zDstBits
|
||||
ldy zSrcCol ; 65C02: PLY
|
||||
|
||||
inc zDstPtr + 0
|
||||
cpx #7
|
||||
bne :SameDstByte
|
||||
ldx #0
|
||||
stx zDstColMod7
|
||||
|
||||
:SameDstByte
|
||||
asl zSrcMask
|
||||
bcc :UnpackSrcBits ; After 8 loops
|
||||
|
||||
iny
|
||||
sty zSrcCol
|
||||
cpy #W_BYTES
|
||||
bcc :NextSrcByte
|
||||
|
||||
lda zDstBits ;
|
||||
; ldy #0 ; Need Y=0 for :NextSrcRow --> col = Y,X
|
||||
; sta (zDstPtr),Y ; Need last pixel on this scanline
|
||||
jsr PutHgrByte
|
||||
|
||||
; Repeat each src line 3 times
|
||||
inc zDstRow
|
||||
inc zDstRowMod3
|
||||
ldx zDstRowMod3
|
||||
cpx #3
|
||||
bne :NextSrcRow ; Y = 0 --> col = Y,X
|
||||
|
||||
clc ; Move to next linear source row
|
||||
lda #W_BYTES
|
||||
adc zSrcPtr + 0
|
||||
sta zSrcPtr + 0
|
||||
bcc :SameSrcPage
|
||||
:NextSrcPage
|
||||
inc zSrcPtr + 1
|
||||
:SameSrcPage
|
||||
|
||||
lda zDstRow
|
||||
cmp #H_PIXELS*Y_SCALE + CENTER_Y
|
||||
bne :NextTripleY
|
||||
:Done
|
||||
rts
|
||||
|
||||
PutHgrByte
|
||||
pha ; Save High Bit
|
||||
and #$7f ; HGR = 7 bits/pixel as we don't want half-pixels
|
||||
ldy #0 ; Need Y=0 for :NextSrcRow --> col = Y,X
|
||||
sta (zDstPtr),Y ; Need last pixel on this scanline
|
||||
pla ; Restore High Bit
|
||||
rol ; C = Bit 7 propogate
|
||||
lda #0 ; into next dst byte bit 0
|
||||
rol
|
||||
beq :NoCarry ; if we have high bit crossing even into odd column
|
||||
cpx #4
|
||||
bne :NoCarry
|
||||
lda #3 ; then we also need to the bottom 2 bits
|
||||
:NoCarry
|
||||
rts
|
||||
|
||||
; Single Pixel to Double Pixel
|
||||
Column2ColorHGR
|
||||
|
||||
DB %00000110 ; [0] = $06 Even Column
|
||||
DB %00011000 ; [1] = $18
|
||||
DB %01100000 ; [2] = $60
|
||||
DB %10000000 ; [3] = $80
|
||||
DB %00001100 ; [4] = $0C Odd Column
|
||||
DB %00110000 ; [5] = $30
|
||||
DB %11000000 ; [6] = $C0
|
||||
242
minipixviewer_Output.txt
Normal file
242
minipixviewer_Output.txt
Normal file
@ -0,0 +1,242 @@
|
||||
------+---------------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
||||
------+---------------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
1 | 1 minipixviewer.s 1 | Comment | 11 | | 0 | 00/8000 | ; PrintShop / MiniPix Unpacker and Viewer
|
||||
2 | 1 minipixviewer.s 2 | Comment | 11 | | 0 | 00/8000 | ; Version 5, March 31, 2019
|
||||
3 | 1 minipixviewer.s 3 | Comment | 11 | | 0 | 00/8000 | ; Copyleft Michaelangel007
|
||||
4 | 1 minipixviewer.s 4 | Comment | 11 | | 0 | 00/8000 | ; "Sharing is Caring"
|
||||
5 | 1 minipixviewer.s 5 | Empty | 11 | | 0 | 00/8000 |
|
||||
6 | 1 minipixviewer.s 6 | Empty | 11 | | 0 | 00/8000 |
|
||||
7 | 1 minipixviewer.s 7 | Comment | 11 | | 0 | 00/8000 | ; === Our Zero Page Variables ===
|
||||
8 | 1 minipixviewer.s 8 | Empty | 11 | | 0 | 00/8000 |
|
||||
9 | 1 minipixviewer.s 9 | Equivalence | 11 | | 0 | 00/8000 | zSrcPtr = $F7 ; 16-bit pointr to source packed PrintShop graphic
|
||||
10 | 1 minipixviewer.s 10 | Equivalence | 11 | | 0 | 00/8000 | zSrcBits = $F9
|
||||
11 | 1 minipixviewer.s 11 | Equivalence | 11 | | 0 | 00/8000 | zSrcMask = $FA ; counter 0 .. 7
|
||||
12 | 1 minipixviewer.s 12 | Equivalence | 11 | | 0 | 00/8000 | zSrcCol = $FB ; cache of Y reg for lda (zSrcPtr),Y
|
||||
13 | 1 minipixviewer.s 13 | Empty | 11 | | 0 | 00/8000 |
|
||||
14 | 1 minipixviewer.s 14 | Equivalence | 11 | | 0 | 00/8000 | zDstPtr = $26 ; 16-bit pointer to dest; GBASL
|
||||
15 | 1 minipixviewer.s 15 | Empty | 11 | | 0 | 00/8000 |
|
||||
16 | 1 minipixviewer.s 16 | Equivalence | 11 | | 0 | 00/8000 | zDstRow = $FC
|
||||
17 | 1 minipixviewer.s 17 | Equivalence | 11 | | 0 | 00/8000 | zDstBits = $FD
|
||||
18 | 1 minipixviewer.s 18 | Equivalence | 11 | | 0 | 00/8000 | zDstColMod7 = $FE
|
||||
19 | 1 minipixviewer.s 19 | Equivalence | 11 | | 0 | 00/8000 | zDstRowMod3 = $FF
|
||||
20 | 1 minipixviewer.s 20 | Empty | 11 | | 0 | 00/8000 |
|
||||
21 | 1 minipixviewer.s 21 | Empty | 11 | | 0 | 00/8000 |
|
||||
22 | 1 minipixviewer.s 22 | Comment | 11 | | 0 | 00/8000 | ; === PrintShop ===
|
||||
23 | 1 minipixviewer.s 23 | Empty | 11 | | 0 | 00/8000 |
|
||||
24 | 1 minipixviewer.s 24 | Equivalence | 11 | | 0 | 00/8000 | PrintShopSprite = $5800 ; Default load adddress
|
||||
25 | 1 minipixviewer.s 25 | Comment | 11 | | 0 | 00/8000 | ;LEN = 572 ; File size
|
||||
26 | 1 minipixviewer.s 26 | Empty | 11 | | 0 | 00/8000 |
|
||||
27 | 1 minipixviewer.s 27 | Comment | 11 | | 0 | 00/8000 | ; Dimensions
|
||||
28 | 1 minipixviewer.s 28 | Equivalence | 11 | | 0 | 00/8000 | W_PIXELS = 88
|
||||
29 | 1 minipixviewer.s 29 | Equivalence | 11 | | 0 | 00/8000 | W_BYTES = 88/8 ; Source (Packed) Bytes/Row
|
||||
30 | 1 minipixviewer.s 30 | Equivalence | 11 | | 0 | 00/8000 | H_PIXELS = 52
|
||||
31 | 1 minipixviewer.s 31 | Empty | 11 | | 0 | 00/8000 |
|
||||
32 | 1 minipixviewer.s 32 | Equivalence | 11 | | 0 | 00/8000 | X_SCALE = 2 ; Not actually used as hard-coded. For reference
|
||||
33 | 1 minipixviewer.s 33 | Equivalence | 11 | | 0 | 00/8000 | Y_SCALE = 3
|
||||
34 | 1 minipixviewer.s 34 | Empty | 11 | | 0 | 00/8000 |
|
||||
35 | 1 minipixviewer.s 35 | Empty | 11 | | 0 | 00/8000 |
|
||||
36 | 1 minipixviewer.s 36 | Comment | 11 | | 0 | 00/8000 | ; === Applesoft/Monitor Zero Page Variables ===
|
||||
37 | 1 minipixviewer.s 37 | Empty | 11 | | 0 | 00/8000 |
|
||||
38 | 1 minipixviewer.s 38 | Equivalence | 11 | | 0 | 00/8000 | MON_GBAS = $26 ; 16-bit Pointer to HGR scanline
|
||||
39 | 1 minipixviewer.s 39 | Empty | 11 | | 0 | 00/8000 |
|
||||
40 | 1 minipixviewer.s 40 | Equivalence | 11 | | 0 | 00/8000 | HGR_COLOR = $E4 ;
|
||||
41 | 1 minipixviewer.s 41 | Equivalence | 11 | | 0 | 00/8000 | HGR_HORIZ = $E5 ; X column / 7 = scanline byte offset
|
||||
42 | 1 minipixviewer.s 42 | Equivalence | 11 | | 0 | 00/8000 | HGR_PAGE = $E6 ; $20 or $40
|
||||
43 | 1 minipixviewer.s 43 | Empty | 11 | | 0 | 00/8000 |
|
||||
44 | 1 minipixviewer.s 44 | Empty | 11 | | 0 | 00/8000 |
|
||||
45 | 1 minipixviewer.s 45 | Comment | 11 | | 0 | 00/8000 | ; === I/O Softswitches ===
|
||||
46 | 1 minipixviewer.s 46 | Empty | 11 | | 0 | 00/8000 |
|
||||
47 | 1 minipixviewer.s 47 | Equivalence | 11 | | 0 | 00/8000 | TXTCLR = $C050 ; Graphics mode
|
||||
48 | 1 minipixviewer.s 48 | Equivalence | 11 | | 0 | 00/8000 | TXTSET = $C051
|
||||
49 | 1 minipixviewer.s 49 | Empty | 11 | | 0 | 00/8000 |
|
||||
50 | 1 minipixviewer.s 50 | Equivalence | 11 | | 0 | 00/8000 | MIXCLR = $C052 ; Split screen
|
||||
51 | 1 minipixviewer.s 51 | Equivalence | 11 | | 0 | 00/8000 | MIXSET = $C053 ; Full screen
|
||||
52 | 1 minipixviewer.s 52 | Empty | 11 | | 0 | 00/8000 |
|
||||
53 | 1 minipixviewer.s 53 | Equivalence | 11 | | 0 | 00/8000 | PAGE1 = $C054
|
||||
54 | 1 minipixviewer.s 54 | Equivalence | 11 | | 0 | 00/8000 | PAGE2 = $C055
|
||||
55 | 1 minipixviewer.s 55 | Empty | 11 | | 0 | 00/8000 |
|
||||
56 | 1 minipixviewer.s 56 | Equivalence | 11 | | 0 | 00/8000 | LORES = $C056
|
||||
57 | 1 minipixviewer.s 57 | Equivalence | 11 | | 0 | 00/8000 | HIRES = $C057
|
||||
58 | 1 minipixviewer.s 58 | Empty | 11 | | 0 | 00/8000 |
|
||||
59 | 1 minipixviewer.s 59 | Empty | 11 | | 0 | 00/8000 |
|
||||
60 | 1 minipixviewer.s 60 | Comment | 11 | | 0 | 00/8000 | ; === Applesoft/Monitor ROM ===
|
||||
61 | 1 minipixviewer.s 61 | Empty | 11 | | 0 | 00/8000 |
|
||||
62 | 1 minipixviewer.s 62 | Equivalence | 11 | | 0 | 00/8000 | HGR = $F3E2 ; Clear and View HGR with mixed text/graphics
|
||||
63 | 1 minipixviewer.s 63 | Equivalence | 11 | | 0 | 00/8000 | HCLR = $F3F2
|
||||
64 | 1 minipixviewer.s 64 | Equivalence | 11 | | 0 | 00/8000 | HPOSN = $F411 ; Set GBASL, GBASH, MON.HMASK, HGR.BITS ; uses HGR.PAGE,
|
||||
65 | 1 minipixviewer.s 65 | Equivalence | 11 | | 0 | 00/8000 | MOVE.DOWN = $F505 ; Update GBASL, GBASH
|
||||
66 | 1 minipixviewer.s 66 | Equivalence | 11 | | 0 | 00/8000 | COLORTBL = $F6F6 ; byte colors[7]
|
||||
67 | 1 minipixviewer.s 67 | Equivalence | 11 | | 0 | 00/8000 | HCOLOR = $F6E9
|
||||
68 | 1 minipixviewer.s 68 | Empty | 11 | | 0 | 00/8000 |
|
||||
69 | 1 minipixviewer.s 69 | Equivalence | 11 | | 0 | 00/8000 | HOME = $FC58
|
||||
70 | 1 minipixviewer.s 70 | Empty | 11 | | 0 | 00/8000 |
|
||||
71 | 1 minipixviewer.s 71 | Comment | 11 | | 0 | 00/8000 | ; =====================================================================
|
||||
72 | 1 minipixviewer.s 72 | Empty | 11 | | 0 | 00/8000 |
|
||||
73 | 1 minipixviewer.s 73 | Directive | 11 | | 0 | 00/8000 | ORG $6000
|
||||
74 | 1 minipixviewer.s 74 | Empty | 11 | | 0 | 00/6000 |
|
||||
75 | 1 minipixviewer.s 75 | Empty | 11 | | 0 | 00/6000 | PrintShopViewer
|
||||
76 | 1 minipixviewer.s 76 | Empty | 11 | | 0 | 00/6000 |
|
||||
77 | 1 minipixviewer.s 77 | Code | 11 | | 3 | 00/6000 : 20 E2 F3 | jsr {$F3E2}
|
||||
78 | 1 minipixviewer.s 78 | Code | 11 | | 3 | 00/6003 : 8D 52 C0 | sta {$C052} ; Full screen
|
||||
79 | 1 minipixviewer.s 79 | Empty | 11 | | 0 | 00/6006 |
|
||||
80 | 1 minipixviewer.s 80 | Code | 11 | | 2 | 00/6006 : A2 58 | ldx #>{$5800}
|
||||
81 | 1 minipixviewer.s 81 | Code | 11 | | 2 | 00/6008 : A0 00 | ldy #<{$5800}
|
||||
82 | 1 minipixviewer.s 82 | Code | 11 | | 2 | 00/600A : 86 F8 | stx {$F7}+1
|
||||
83 | 1 minipixviewer.s 83 | Code | 11 | | 2 | 00/600C : 84 F7 | sty {$F7}+0
|
||||
84 | 1 minipixviewer.s 84 | Empty | 11 | | 0 | 00/600E |
|
||||
85 | 1 minipixviewer.s 85 | Comment | 11 | | 0 | 00/600E | ; Src PS 2x is 88 * 2x scaling = 176 pixels
|
||||
86 | 1 minipixviewer.s 86 | Comment | 11 | | 0 | 00/600E | ; Dstr HGR screen is 40 columns * 7 px/col = 280 pixels
|
||||
87 | 1 minipixviewer.s 87 | Comment | 11 | | 0 | 00/600E | ; =====================================================================
|
||||
88 | 1 minipixviewer.s 88 | Empty | 11 | | 0 | 00/600E |
|
||||
89 | 1 minipixviewer.s 89 | Comment | 11 | | 0 | 00/600E | ; Horz Centering:
|
||||
90 | 1 minipixviewer.s 90 | Comment | 11 | | 0 | 00/600E | ; = (280 - W_PIXELS*X_SCALE)/2
|
||||
91 | 1 minipixviewer.s 91 | Comment | 11 | | 0 | 00/600E | ; = (280 - 88*2)/2
|
||||
92 | 1 minipixviewer.s 92 | Comment | 11 | | 0 | 00/600E | ; = 52 px/col
|
||||
93 | 1 minipixviewer.s 93 | Comment | 11 | | 0 | 00/600E | ; = 52 px / 7px/col
|
||||
94 | 1 minipixviewer.s 94 | Comment | 11 | | 0 | 00/600E | ; = 7.42... = scanline offset
|
||||
95 | 1 minipixviewer.s 95 | Comment | 11 | | 0 | 00/600E | ;
|
||||
96 | 1 minipixviewer.s 96 | Comment | 11 | | 0 | 00/600E | ; 52 px mod 7 px/byte
|
||||
97 | 1 minipixviewer.s 97 | Comment | 11 | | 0 | 00/600E | ; = 52 mod 7
|
||||
98 | 1 minipixviewer.s 98 | Comment | 11 | | 0 | 00/600E | ; = 3
|
||||
99 | 1 minipixviewer.s 99 | Equivalence | 11 | | 0 | 00/600E | CENTER_X = 52
|
||||
100 | 1 minipixviewer.s 100 | Equivalence | 11 | | 0 | 00/600E | X_MOD_7 = 1 ; Since each pixel is doubled we need to divide (52 mod 7) / 2
|
||||
101 | 1 minipixviewer.s 101 | Empty | 11 | | 0 | 00/600E |
|
||||
102 | 1 minipixviewer.s 102 | Comment | 11 | | 0 | 00/600E | ; Vert Centering:
|
||||
103 | 1 minipixviewer.s 103 | Comment | 11 | | 0 | 00/600E | ; = (192 - H_PIXELS*Y_SCALE)/2
|
||||
104 | 1 minipixviewer.s 104 | Comment | 11 | | 0 | 00/600E | ; = (192 - 52*3)/2
|
||||
105 | 1 minipixviewer.s 105 | Comment | 11 | | 0 | 00/600E | ; = (192 - 156) / 2
|
||||
106 | 1 minipixviewer.s 106 | Comment | 11 | | 0 | 00/600E | ; = 18
|
||||
107 | 1 minipixviewer.s 107 | Equivalence | 11 | | 0 | 00/600E | CENTER_Y = {192-{{52}*{3}}}/2
|
||||
108 | 1 minipixviewer.s 108 | Empty | 11 | | 0 | 00/600E |
|
||||
109 | 1 minipixviewer.s 109 | Comment | 11 | | 0 | 00/600E | ; DEBUG -- Same x,y as PrintShop Graphic Editor
|
||||
110 | 1 minipixviewer.s 110 | Comment | 11 | | 0 | 00/600E | ;CENTER_Y = 23
|
||||
111 | 1 minipixviewer.s 111 | Comment | 11 | | 0 | 00/600E | ;CENTER_X = 0
|
||||
112 | 1 minipixviewer.s 112 | Empty | 11 | | 0 | 00/600E |
|
||||
113 | 1 minipixviewer.s 113 | Empty | 11 | | 0 | 00/600E |
|
||||
114 | 1 minipixviewer.s 114 | Comment | 11 | | 0 | 00/600E | ; Image will be centered on screen
|
||||
115 | 1 minipixviewer.s 115 | Comment | 11 | | 0 | 00/600E | ; HGR does NOT need to be cleared to black as we set each byte to zero
|
||||
116 | 1 minipixviewer.s 116 | Comment | 11 | | 0 | 00/600E | ; ==========
|
||||
117 | 1 minipixviewer.s 117 | Empty | 11 | | 0 | 00/600E | UnpackToScreenHGR
|
||||
118 | 1 minipixviewer.s 118 | Code | 11 | | 2 | 00/600E : A9 12 | lda #{{192-{{52}*{3}}}/2}; y = 18
|
||||
119 | 1 minipixviewer.s 119 | Code | 11 | | 2 | 00/6010 : 85 FC | sta {$FC}
|
||||
120 | 1 minipixviewer.s 120 | Code | 11 | | 2 | 00/6012 : A0 00 | ldy #0 ; HPOSN: column = Y,X
|
||||
121 | 1 minipixviewer.s 121 | Code | 11 | | 2 | 00/6014 : 84 E4 | sty {$E4} ; 0 = Black
|
||||
122 | 1 minipixviewer.s 122 | Empty | 11 | | 0 | 00/6016 |
|
||||
123 | 1 minipixviewer.s 123 | Empty | 11 | | 0 | 00/6016 | _NextTripleY
|
||||
124 | 1 minipixviewer.s 124 | Code | 11 | | 2 | 00/6016 : 84 FF | sty {$FF} ; Do y scaling
|
||||
125 | 1 minipixviewer.s 125 | Empty | 11 | | 0 | 00/6018 |
|
||||
126 | 1 minipixviewer.s 126 | Empty | 11 | | 0 | 00/6018 | _NextSrcRow
|
||||
127 | 1 minipixviewer.s 127 | Code | 11 | | 2 | 00/6018 : A2 34 | ldx #{52} ; HPOSN: column = y,X
|
||||
128 | 1 minipixviewer.s 128 | Code | 11 | | 2 | 00/601A : A5 FC | lda {$FC} ; HPOSN: row = A
|
||||
129 | 1 minipixviewer.s 129 | Code | 11 | | 3 | 00/601C : 20 17 F4 | jsr {$F411}+6 ; We don't use HGR.X .. HGR.Y @ $E0 .. $E2
|
||||
130 | 1 minipixviewer.s 130 | Code | 11 | | 1 | 00/601F : A8 | tay ; on exit A = HGR.COLOR = 0 @ $F450
|
||||
131 | 1 minipixviewer.s 131 | Code | 11 | | 2 | 00/6020 : 85 FB | sta {$FB} ; Y = zSrcCol
|
||||
132 | 1 minipixviewer.s 132 | Code | 11 | | 2 | 00/6022 : 85 FD | sta {$FD}
|
||||
133 | 1 minipixviewer.s 133 | Empty | 11 | | 0 | 00/6024 |
|
||||
134 | 1 minipixviewer.s 134 | Code | 11 | | 1 | 00/6024 : 18 | clc ; GBAS points to start of scanline
|
||||
135 | 1 minipixviewer.s 135 | Code | 11 | | 2 | 00/6025 : A5 E5 | lda {$E5} ; Take X column into account
|
||||
136 | 1 minipixviewer.s 136 | Code | 11 | | 2 | 00/6027 : 65 26 | adc {$26}
|
||||
137 | 1 minipixviewer.s 137 | Code | 11 | | 2 | 00/6029 : 85 26 | sta {$26}
|
||||
138 | 1 minipixviewer.s 138 | Empty | 11 | | 0 | 00/602B |
|
||||
139 | 1 minipixviewer.s 139 | Code | 11 | | 2 | 00/602B : A2 01 | ldx #{1} ; LDX Can be optimized out if x mod 7 is 0
|
||||
140 | 1 minipixviewer.s 140 | Code | 11 | | 2 | 00/602D : 86 FE | stx {$FE} ;
|
||||
141 | 1 minipixviewer.s 141 | Empty | 11 | | 0 | 00/602F |
|
||||
142 | 1 minipixviewer.s 142 | Empty | 11 | | 0 | 00/602F | _NextSrcByte
|
||||
143 | 1 minipixviewer.s 143 | Code | 11 | | 2 | 00/602F : A9 01 | lda #1 ; Unpack 8 bits since source = monochrome 8 bits/pix
|
||||
144 | 1 minipixviewer.s 144 | Code | 11 | | 2 | 00/6031 : 85 FA | sta {$FA}
|
||||
145 | 1 minipixviewer.s 145 | Empty | 11 | | 0 | 00/6033 |
|
||||
146 | 1 minipixviewer.s 146 | Code | 11 | | 2 | 00/6033 : B1 F7 | lda ({$F7}),y ; Loop Invariant: Y = zSrcCol
|
||||
147 | 1 minipixviewer.s 147 | Code | 11 | | 2 | 00/6035 : 85 F9 | sta {$F9}
|
||||
148 | 1 minipixviewer.s 148 | Empty | 11 | | 0 | 00/6037 |
|
||||
149 | 1 minipixviewer.s 149 | Empty | 11 | | 0 | 00/6037 | _UnpackSrcBits ; same source byte
|
||||
150 | 1 minipixviewer.s 150 | Code | 11 | | 2 | 00/6037 : 06 F9 | asl {$F9}
|
||||
151 | 1 minipixviewer.s 151 | Code | 11 | | 2 | 00/6039 : A5 FD | lda {$FD}
|
||||
152 | 1 minipixviewer.s 152 | Code | 11 | | 2 | 00/603B : B0 05 | bcs _PutOne
|
||||
153 | 1 minipixviewer.s 153 | Empty | 11 | | 0 | 00/603D | _PutZero ; 0 = white
|
||||
154 | 1 minipixviewer.s 154 | Code | 11 | | 3 | 00/603D : 1D 9F 60 | ora Column2ColorHGR,X
|
||||
155 | 1 minipixviewer.s 155 | Code | 11 | | 2 | 00/6040 : 85 FD | sta {$FD}
|
||||
156 | 1 minipixviewer.s 156 | Empty | 11 | | 0 | 00/6042 | _PutOne ; 1 = black
|
||||
157 | 1 minipixviewer.s 157 | Comment | 11 | | 0 | 00/6042 | ; nothing to do since zDstBits initialized to zero
|
||||
158 | 1 minipixviewer.s 158 | Code | 11 | | 1 | 00/6042 : E8 | inx
|
||||
159 | 1 minipixviewer.s 159 | Code | 11 | | 2 | 00/6043 : E0 04 | cpx #4
|
||||
160 | 1 minipixviewer.s 160 | Code | 11 | | 2 | 00/6045 : F0 04 | beq _NextDstByte
|
||||
161 | 1 minipixviewer.s 161 | Code | 11 | | 2 | 00/6047 : E0 07 | cpx #7
|
||||
162 | 1 minipixviewer.s 162 | Code | 11 | | 2 | 00/6049 : D0 13 | bne _SameDstByte
|
||||
163 | 1 minipixviewer.s 163 | Empty | 11 | | 0 | 00/604B |
|
||||
164 | 1 minipixviewer.s 164 | Empty | 11 | | 0 | 00/604B | _NextDstByte
|
||||
165 | 1 minipixviewer.s 165 | Code | 11 | | 2 | 00/604B : 84 FB | sty {$FB} ; 65C02: PHY
|
||||
166 | 1 minipixviewer.s 166 | Code | 11 | | 3 | 00/604D : 20 8A 60 | jsr PutHgrByte
|
||||
167 | 1 minipixviewer.s 167 | Code | 11 | | 2 | 00/6050 : 85 FD | sta {$FD}
|
||||
168 | 1 minipixviewer.s 168 | Code | 11 | | 2 | 00/6052 : A4 FB | ldy {$FB} ; 65C02: PLY
|
||||
169 | 1 minipixviewer.s 169 | Empty | 11 | | 0 | 00/6054 |
|
||||
170 | 1 minipixviewer.s 170 | Code | 11 | | 2 | 00/6054 : E6 26 | inc {$26}+0
|
||||
171 | 1 minipixviewer.s 171 | Code | 11 | | 2 | 00/6056 : E0 07 | cpx #7
|
||||
172 | 1 minipixviewer.s 172 | Code | 11 | | 2 | 00/6058 : D0 04 | bne _SameDstByte
|
||||
173 | 1 minipixviewer.s 173 | Code | 11 | | 2 | 00/605A : A2 00 | ldx #0
|
||||
174 | 1 minipixviewer.s 174 | Code | 11 | | 2 | 00/605C : 86 FE | stx {$FE}
|
||||
175 | 1 minipixviewer.s 175 | Empty | 11 | | 0 | 00/605E |
|
||||
176 | 1 minipixviewer.s 176 | Empty | 11 | | 0 | 00/605E | _SameDstByte
|
||||
177 | 1 minipixviewer.s 177 | Code | 11 | | 2 | 00/605E : 06 FA | asl {$FA}
|
||||
178 | 1 minipixviewer.s 178 | Code | 11 | | 2 | 00/6060 : 90 D5 | bcc _UnpackSrcBits ; After 8 loops
|
||||
179 | 1 minipixviewer.s 179 | Empty | 11 | | 0 | 00/6062 |
|
||||
180 | 1 minipixviewer.s 180 | Code | 11 | | 1 | 00/6062 : C8 | iny
|
||||
181 | 1 minipixviewer.s 181 | Code | 11 | | 2 | 00/6063 : 84 FB | sty {$FB}
|
||||
182 | 1 minipixviewer.s 182 | Code | 11 | | 2 | 00/6065 : C0 0B | cpy #{88/8}
|
||||
183 | 1 minipixviewer.s 183 | Code | 11 | | 2 | 00/6067 : 90 C6 | bcc _NextSrcByte
|
||||
184 | 1 minipixviewer.s 184 | Empty | 11 | | 0 | 00/6069 |
|
||||
185 | 1 minipixviewer.s 185 | Code | 11 | | 2 | 00/6069 : A5 FD | lda {$FD} ;
|
||||
186 | 1 minipixviewer.s 186 | Comment | 11 | | 0 | 00/606B | ; ldy #0 ; Need Y=0 for :NextSrcRow --> col = Y,X
|
||||
187 | 1 minipixviewer.s 187 | Comment | 11 | | 0 | 00/606B | ; sta (zDstPtr),Y ; Need last pixel on this scanline
|
||||
188 | 1 minipixviewer.s 188 | Code | 11 | | 3 | 00/606B : 20 8A 60 | jsr PutHgrByte
|
||||
189 | 1 minipixviewer.s 189 | Empty | 11 | | 0 | 00/606E |
|
||||
190 | 1 minipixviewer.s 190 | Comment | 11 | | 0 | 00/606E | ; Repeat each src line 3 times
|
||||
191 | 1 minipixviewer.s 191 | Code | 11 | | 2 | 00/606E : E6 FC | inc {$FC}
|
||||
192 | 1 minipixviewer.s 192 | Code | 11 | | 2 | 00/6070 : E6 FF | inc {$FF}
|
||||
193 | 1 minipixviewer.s 193 | Code | 11 | | 2 | 00/6072 : A6 FF | ldx {$FF}
|
||||
194 | 1 minipixviewer.s 194 | Code | 11 | | 2 | 00/6074 : E0 03 | cpx #3
|
||||
195 | 1 minipixviewer.s 195 | Code | 11 | | 2 | 00/6076 : D0 A0 | bne _NextSrcRow ; Y = 0 --> col = Y,X
|
||||
196 | 1 minipixviewer.s 196 | Empty | 11 | | 0 | 00/6078 |
|
||||
197 | 1 minipixviewer.s 197 | Code | 11 | | 1 | 00/6078 : 18 | clc ; Move to next linear source row
|
||||
198 | 1 minipixviewer.s 198 | Code | 11 | | 2 | 00/6079 : A9 0B | lda #{88/8}
|
||||
199 | 1 minipixviewer.s 199 | Code | 11 | | 2 | 00/607B : 65 F7 | adc {$F7}+0
|
||||
200 | 1 minipixviewer.s 200 | Code | 11 | | 2 | 00/607D : 85 F7 | sta {$F7}+0
|
||||
201 | 1 minipixviewer.s 201 | Code | 11 | | 2 | 00/607F : 90 02 | bcc _SameSrcPage
|
||||
202 | 1 minipixviewer.s 202 | Empty | 11 | | 0 | 00/6081 | _NextSrcPage
|
||||
203 | 1 minipixviewer.s 203 | Code | 11 | | 2 | 00/6081 : E6 F8 | inc {$F7}+1
|
||||
204 | 1 minipixviewer.s 204 | Empty | 11 | | 0 | 00/6083 | _SameSrcPage
|
||||
205 | 1 minipixviewer.s 205 | Empty | 11 | | 0 | 00/6083 |
|
||||
206 | 1 minipixviewer.s 206 | Code | 11 | | 2 | 00/6083 : A5 FC | lda {$FC}
|
||||
207 | 1 minipixviewer.s 207 | Code | 11 | | 2 | 00/6085 : C9 AE | cmp #{52}*{3}+{{192-{{52}*{3}}}/2}
|
||||
208 | 1 minipixviewer.s 208 | Code | 11 | | 2 | 00/6087 : D0 8D | bne _NextTripleY
|
||||
209 | 1 minipixviewer.s 209 | Empty | 11 | | 0 | 00/6089 | _Done
|
||||
210 | 1 minipixviewer.s 210 | Code | 11 | | 1 | 00/6089 : 60 | rts
|
||||
211 | 1 minipixviewer.s 211 | Empty | 11 | | 0 | 00/608A |
|
||||
212 | 1 minipixviewer.s 212 | Empty | 11 | | 0 | 00/608A | PutHgrByte
|
||||
213 | 1 minipixviewer.s 213 | Code | 11 | | 1 | 00/608A : 48 | pha ; Save High Bit
|
||||
214 | 1 minipixviewer.s 214 | Code | 11 | | 2 | 00/608B : 29 7F | and #$7f ; HGR = 7 bits/pixel as we don't want half-pixels
|
||||
215 | 1 minipixviewer.s 215 | Code | 11 | | 2 | 00/608D : A0 00 | ldy #0 ; Need Y=0 for :NextSrcRow --> col = Y,X
|
||||
216 | 1 minipixviewer.s 216 | Code | 11 | | 2 | 00/608F : 91 26 | sta ({$26}),Y ; Need last pixel on this scanline
|
||||
217 | 1 minipixviewer.s 217 | Code | 11 | | 1 | 00/6091 : 68 | pla ; Restore High Bit
|
||||
218 | 1 minipixviewer.s 218 | Code | 11 | | 1 | 00/6092 : 2A | rol ; C = Bit 7 propogate
|
||||
219 | 1 minipixviewer.s 219 | Code | 11 | | 2 | 00/6093 : A9 00 | lda #0 ; into next dst byte bit 0
|
||||
220 | 1 minipixviewer.s 220 | Code | 11 | | 1 | 00/6095 : 2A | rol
|
||||
221 | 1 minipixviewer.s 221 | Code | 11 | | 2 | 00/6096 : F0 06 | beq _NoCarry ; if we have high bit crossing even into odd column
|
||||
222 | 1 minipixviewer.s 222 | Code | 11 | | 2 | 00/6098 : E0 04 | cpx #4
|
||||
223 | 1 minipixviewer.s 223 | Code | 11 | | 2 | 00/609A : D0 02 | bne _NoCarry
|
||||
224 | 1 minipixviewer.s 224 | Code | 11 | | 2 | 00/609C : A9 03 | lda #3 ; then we also need to the bottom 2 bits
|
||||
225 | 1 minipixviewer.s 225 | Empty | 11 | | 0 | 00/609E | _NoCarry
|
||||
226 | 1 minipixviewer.s 226 | Code | 11 | | 1 | 00/609E : 60 | rts
|
||||
227 | 1 minipixviewer.s 227 | Empty | 11 | | 0 | 00/609F |
|
||||
228 | 1 minipixviewer.s 228 | Comment | 11 | | 0 | 00/609F | ; Single Pixel to Double Pixel
|
||||
229 | 1 minipixviewer.s 229 | Empty | 11 | | 0 | 00/609F | Column2ColorHGR
|
||||
230 | 1 minipixviewer.s 230 | Empty | 11 | | 0 | 00/609F |
|
||||
231 | 1 minipixviewer.s 231 | Data | 11 | | 1 | 00/609F : 06 | DB %00000110 ; [0] = $06 Even Column
|
||||
232 | 1 minipixviewer.s 232 | Data | 11 | | 1 | 00/60A0 : 18 | DB %00011000 ; [1] = $18
|
||||
233 | 1 minipixviewer.s 233 | Data | 11 | | 1 | 00/60A1 : 60 | DB %01100000 ; [2] = $60
|
||||
234 | 1 minipixviewer.s 234 | Data | 11 | | 1 | 00/60A2 : 80 | DB %10000000 ; [3] = $80
|
||||
235 | 1 minipixviewer.s 235 | Data | 11 | | 1 | 00/60A3 : 0C | DB %00001100 ; [4] = $0C Odd Column
|
||||
236 | 1 minipixviewer.s 236 | Data | 11 | | 1 | 00/60A4 : 30 | DB %00110000 ; [5] = $30
|
||||
237 | 1 minipixviewer.s 237 | Data | 11 | | 1 | 00/60A5 : C0 | DB %11000000 ; [6] = $C0
|
||||
238 | 1 minipixviewer.s 238 | Empty | 11 | | 0 | 00/60A6 |
|
||||
------+---------------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
BIN
pics/scorpio.png
Normal file
BIN
pics/scorpio.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 49 KiB |
BIN
pics/wizard.png
Normal file
BIN
pics/wizard.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 39 KiB |
BIN
scorpio.hgr
Normal file
BIN
scorpio.hgr
Normal file
Binary file not shown.
BIN
scorpio.minipix
Normal file
BIN
scorpio.minipix
Normal file
Binary file not shown.
BIN
wizard.minipix
Normal file
BIN
wizard.minipix
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user