mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +00:00
92 lines
1.4 KiB
Plaintext
92 lines
1.4 KiB
Plaintext
|
NEW
|
|||
|
PREFIX /A2OSX.BUILD
|
|||
|
AUTO 4,1
|
|||
|
.LIST OFF
|
|||
|
*--------------------------------------
|
|||
|
Pak.Out.Init lda #$80
|
|||
|
sta Pak.Out.Mask
|
|||
|
stz Pak.Out.Byte
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
Pak.Out.Close bit Pak.Out.Mask
|
|||
|
bmi .8
|
|||
|
lda Pak.Out.Byte
|
|||
|
jmp Pak.Out.PutByte
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
Pak.Out.PutCA jsr Pak.Out.PutBitC
|
|||
|
bcs Pak.Out.Put.rts
|
|||
|
|
|||
|
Pak.Out.PutA ldy #8
|
|||
|
|
|||
|
.1 asl
|
|||
|
jsr Pak.Out.PutBitC
|
|||
|
bcs Pak.Out.Put.rts
|
|||
|
dey
|
|||
|
bne .1
|
|||
|
|
|||
|
Pak.Out.Put.rts rts
|
|||
|
*--------------------------------------
|
|||
|
Pak.Out.PutBitC pha
|
|||
|
|
|||
|
bcc .1
|
|||
|
lda Pak.Mask
|
|||
|
tsb Pak.Byte
|
|||
|
clc
|
|||
|
|
|||
|
.1 lsr Pak.Mask
|
|||
|
bne .8
|
|||
|
|
|||
|
jsr Pak.Out.PutByte
|
|||
|
bcs .9
|
|||
|
|
|||
|
jsr Pak.Out.Init
|
|||
|
|
|||
|
.8 pla
|
|||
|
* clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 pla
|
|||
|
* sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
Pak.Out.PutByte inc Pak.DstCnt
|
|||
|
bne .1
|
|||
|
inc Pak.DstCnt+1
|
|||
|
beq .9
|
|||
|
|
|||
|
.1 ldx Pak.Pass
|
|||
|
bne .6
|
|||
|
|
|||
|
phx
|
|||
|
tax
|
|||
|
|
|||
|
inc Pak.CntL,x
|
|||
|
bne .2
|
|||
|
|
|||
|
inc Pak.CntH,x
|
|||
|
|
|||
|
.2 plx
|
|||
|
bra .7
|
|||
|
|
|||
|
.6 sta (ZPDstPtr)
|
|||
|
|
|||
|
inc ZPDstPtr
|
|||
|
bne .2
|
|||
|
inc ZPDstPtr+1
|
|||
|
|
|||
|
.7 inc Pak.Stat+S.PAKSTAT.PASS1,x
|
|||
|
bne .8
|
|||
|
inc Pak.Stat+S.PAKSTAT.PASS1+1,x
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
|
|||
|
.9 sec
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
MAN
|
|||
|
SAVE /A2OSX.SRC/LIB/LIBPAK.S.OUT
|
|||
|
ASM
|