smaller references
This commit is contained in:
parent
f337457b94
commit
42fae5dd39
GPG Key ID:
E34D7BADA3DACC14
|
|
@ -27,13 +27,13 @@ function do_stat {
|
||||||
# 20MB cutoff.
|
# 20MB cutoff.
|
||||||
ss=$(du ref_$1 | cut -f-1)
|
ss=$(du ref_$1 | cut -f-1)
|
||||||
|
|
||||||
bz_stat=$(cat ref_$1 $src | head -c 20000000 | bzip3 -eb $size | wc -c)
|
bz_stat=$(cat ref_$1 $src | head -c 20000000 | bzip3 -cefb $size | wc -c)
|
||||||
bz_ref=$(cat ref_$1 | bzip3 -eb $size | wc -c)
|
bz_ref=$(cat ref_$1 | bzip3 | wc -c)
|
||||||
bz_sim=$(python3 -c "print(1/((($bz_stat - min($bz_ref, $bz3)) / (max($bz_ref, $bz3)))-1))")
|
bz_sim=$(python3 -c "print(100*($bz_stat - min($bz_ref, $bz3)) / (max($bz_ref, $bz3)))")
|
||||||
|
|
||||||
lz_stat=$(cat ref_$1 $src | head -c 20000000 | lz4 -1c | wc -c)
|
lz_stat=$(cat ref_$1 $src | head -c 20000000 | lz4 -1c | wc -c)
|
||||||
lz_ref=$(cat ref_$1 | lz4 -1c | wc -c)
|
lz_ref=$(cat ref_$1 | lz4 -1c | wc -c)
|
||||||
lz_sim=$(python3 -c "print(1000*($ss/$abs)*(1-($lz_stat - min($lz_ref, $lz4)) / (max($lz_ref, $lz4))))")
|
lz_sim=$(python3 -c "print(100*($lz_stat - min($lz_ref, $lz4)) / (max($lz_ref, $lz4)))")
|
||||||
|
|
||||||
echo "BZ3: $bz_sim, LZ4: $lz_sim"
|
echo "BZ3: $bz_sim, LZ4: $lz_sim"
|
||||||
}
|
}
|
||||||
|
|
|
||||||
708
ref_6502
708
ref_6502
|
|
@ -1,706 +1,8 @@
|
||||||
|
ADC AND ASL BCC BCS BEQ BIT BMI BNE BPL BRA BRK BVC BVS
|
||||||
*=$1000
|
CLC CLD CLI CLV CMP CPX CPY DEC DEX DEY EOR INC INX INY
|
||||||
LDA #$00
|
JMP JSR LDA LDX LDY LSR NOP ORA PHA PHP PHX PHY PLA PLP
|
||||||
STA REV
|
PLX PLY ROL ROR RTI RTS SBC SEC SED SEI STA STP STX STY
|
||||||
JSR Init_6551
|
STZ TAX TAY TRB TSB TSX TXA TXS TYA WAI
|
||||||
CHESS CLD
|
|
||||||
LDX #$FF
|
|
||||||
TXS
|
|
||||||
LDX #$C8
|
|
||||||
STX SP2
|
|
||||||
OUT JSR pout
|
|
||||||
JSR KIN
|
|
||||||
CMP #$43
|
|
||||||
BNE NOSET
|
|
||||||
LDX #$1F
|
|
||||||
WHSET LDA SETW,X
|
|
||||||
STA BOARD,X
|
|
||||||
DEX
|
|
||||||
BPL WHSET
|
|
||||||
LDX #$1B
|
|
||||||
STX OMOVE
|
|
||||||
LDA #$CC
|
|
||||||
BNE CLDSP
|
|
||||||
NOSET CMP #$45
|
|
||||||
BNE NOREV
|
|
||||||
JSR REVERSE
|
|
||||||
SEC
|
|
||||||
LDA #$01
|
|
||||||
SBC REV
|
|
||||||
STA REV
|
|
||||||
LDA #$EE
|
|
||||||
BNE CLDSP
|
|
||||||
NOREV CMP #$40
|
|
||||||
BNE NOGO
|
|
||||||
JSR GO
|
|
||||||
CLDSP STA DIS1
|
|
||||||
STA DIS2
|
|
||||||
STA DIS3
|
|
||||||
BNE CHESS
|
|
||||||
NOGO CMP #$0D
|
|
||||||
BNE NOMV
|
|
||||||
JSR MOVE
|
|
||||||
JMP DISP
|
|
||||||
NOMV CMP #$41
|
|
||||||
BEQ DONE
|
|
||||||
JMP INPUT
|
|
||||||
DONE JMP $FF00
|
|
||||||
|
|
||||||
JANUS LDX STATE
|
|
||||||
BMI NOCOUNT
|
|
||||||
COUNTS LDA PIECE
|
|
||||||
BEQ OVER
|
|
||||||
CPX #$08
|
|
||||||
BNE OVER
|
|
||||||
CMP BMAXP
|
|
||||||
BEQ XRT
|
|
||||||
OVER INC MOB,X
|
|
||||||
CMP #$01
|
|
||||||
BNE NOQ
|
|
||||||
INC MOB,X
|
|
||||||
NOQ BVC NOCAP
|
|
||||||
LDY #$0F
|
|
||||||
LDA SQUARE
|
|
||||||
ELOOP CMP BK,Y
|
|
||||||
BEQ FOUN
|
|
||||||
DEY
|
|
||||||
BPL ELOOP
|
|
||||||
FOUN LDA POINTS,Y
|
|
||||||
CMP MAXC,X
|
|
||||||
BCC LESS
|
|
||||||
STY PCAP,X
|
|
||||||
STA MAXC,X
|
|
||||||
LESS CLC
|
|
||||||
PHP
|
|
||||||
ADC CC,X
|
|
||||||
STA CC,X
|
|
||||||
PLP
|
|
||||||
NOCAP CPX #$04
|
|
||||||
BEQ ON4
|
|
||||||
BMI TREE
|
|
||||||
XRT RTS
|
|
||||||
ON4 LDA XMAXC
|
|
||||||
STA WCAP0
|
|
||||||
LDA #$00
|
|
||||||
STA STATE
|
|
||||||
JSR MOVE
|
|
||||||
JSR REVERSE
|
|
||||||
JSR GNMZ
|
|
||||||
JSR REVERSE
|
|
||||||
LDA #$08
|
|
||||||
STA STATE
|
|
||||||
JSR UMOVE
|
|
||||||
JMP STRATGY
|
|
||||||
NOCOUNT CPX #$F9
|
|
||||||
BNE TREE
|
|
||||||
LDA BK
|
|
||||||
CMP SQUARE
|
|
||||||
BNE RETJ
|
|
||||||
LDA #$00
|
|
||||||
STA INCHEK
|
|
||||||
RETJ RTS
|
|
||||||
TREE BVC RETJ
|
|
||||||
LDY #$07
|
|
||||||
LDA SQUARE
|
|
||||||
LOOPX CMP BK,Y
|
|
||||||
BEQ FOUNX
|
|
||||||
DEY
|
|
||||||
BEQ RETJ
|
|
||||||
BPL LOOPX
|
|
||||||
FOUNX LDA POINTS,Y
|
|
||||||
CMP BCAP0,X
|
|
||||||
BCC NOMAX
|
|
||||||
STA BCAP0,X
|
|
||||||
NOMAX DEC STATE
|
|
||||||
LDA #$FB
|
|
||||||
CMP STATE
|
|
||||||
BEQ UPTREE
|
|
||||||
JSR GENRM
|
|
||||||
UPTREE INC STATE
|
|
||||||
RTS
|
|
||||||
INPUT CMP #$08
|
|
||||||
BCS ERROR
|
|
||||||
JSR DISMV
|
|
||||||
DISP LDX #$1F
|
|
||||||
SEARCH LDA BOARD,X
|
|
||||||
CMP DIS2
|
|
||||||
BEQ HERE
|
|
||||||
DEX
|
|
||||||
BPL SEARCH
|
|
||||||
HERE STX DIS1
|
|
||||||
STX PIECE
|
|
||||||
ERROR JMP CHESS
|
|
||||||
GNMZ LDX #$10
|
|
||||||
GNMX LDA #$00
|
|
||||||
CLEAR STA COUNT,X
|
|
||||||
DEX
|
|
||||||
BPL CLEAR
|
|
||||||
GNM LDA #$10
|
|
||||||
STA PIECE
|
|
||||||
NEWP DEC PIECE
|
|
||||||
BPL NEX
|
|
||||||
RTS
|
|
||||||
NEX JSR RESET
|
|
||||||
LDY PIECE
|
|
||||||
LDX #$08
|
|
||||||
STX MOVEN
|
|
||||||
CPY #$08
|
|
||||||
BPL PAWN
|
|
||||||
CPY #$06
|
|
||||||
BPL KNIGHT
|
|
||||||
CPY #$04
|
|
||||||
BPL BISHOP
|
|
||||||
CPY #$01
|
|
||||||
BEQ QUEEN
|
|
||||||
BPL ROOK
|
|
||||||
KING JSR SNGMV
|
|
||||||
BNE KING
|
|
||||||
BEQ NEWP
|
|
||||||
QUEEN JSR LINE
|
|
||||||
BNE QUEEN
|
|
||||||
BEQ NEWP
|
|
||||||
ROOK LDX #$04
|
|
||||||
STX MOVEN
|
|
||||||
AGNR JSR LINE
|
|
||||||
BNE AGNR
|
|
||||||
BEQ NEWP
|
|
||||||
BISHOP JSR LINE
|
|
||||||
LDA MOVEN
|
|
||||||
CMP #$04
|
|
||||||
BNE BISHOP
|
|
||||||
BEQ NEWP
|
|
||||||
KNIGHT LDX #$10
|
|
||||||
STX MOVEN
|
|
||||||
AGNN JSR SNGMV
|
|
||||||
LDA MOVEN
|
|
||||||
CMP #$08
|
|
||||||
BNE AGNN
|
|
||||||
BEQ NEWP
|
|
||||||
PAWN LDX #$06
|
|
||||||
STX MOVEN
|
|
||||||
P1 JSR CMOVE
|
|
||||||
BVC P2
|
|
||||||
BMI P2
|
|
||||||
JSR JANUS
|
|
||||||
P2 JSR RESET
|
|
||||||
DEC MOVEN
|
|
||||||
LDA MOVEN
|
|
||||||
CMP #$05
|
|
||||||
BEQ P1
|
|
||||||
P3 JSR CMOVE
|
|
||||||
BVS NEWP
|
|
||||||
BMI NEWP
|
|
||||||
JSR JANUS
|
|
||||||
LDA SQUARE
|
|
||||||
AND #$F0
|
|
||||||
CMP #$20
|
|
||||||
BEQ P3
|
|
||||||
JMP NEWP
|
|
||||||
SNGMV JSR CMOVE
|
|
||||||
BMI ILL1
|
|
||||||
JSR JANUS
|
|
||||||
ILL1 JSR RESET
|
|
||||||
DEC MOVEN
|
|
||||||
RTS
|
|
||||||
LINE JSR CMOVE
|
|
||||||
BCC OVL
|
|
||||||
BVC LINE
|
|
||||||
OVL BMI ILL
|
|
||||||
PHP
|
|
||||||
JSR JANUS
|
|
||||||
PLP
|
|
||||||
BVC LINE
|
|
||||||
ILL JSR RESET
|
|
||||||
DEC MOVEN
|
|
||||||
RTS
|
|
||||||
REVERSE LDX #$0F
|
|
||||||
ETC SEC
|
|
||||||
LDY BK,X
|
|
||||||
LDA #$77
|
|
||||||
SBC BOARD,X
|
|
||||||
STA BK,X
|
|
||||||
STY BOARD,X
|
|
||||||
SEC
|
|
||||||
LDA #$77
|
|
||||||
SBC BOARD,X
|
|
||||||
STA BOARD,X
|
|
||||||
DEX
|
|
||||||
BPL ETC
|
|
||||||
RTS
|
|
||||||
|
|
||||||
CMOVE LDA SQUARE
|
|
||||||
LDX MOVEN
|
|
||||||
CLC
|
|
||||||
ADC MOVEX,X
|
|
||||||
STA SQUARE
|
|
||||||
AND #$88
|
|
||||||
BNE ILLEGAL
|
|
||||||
LDA SQUARE
|
|
||||||
LDX #$20
|
|
||||||
LOOP DEX
|
|
||||||
BMI NO
|
|
||||||
CMP BOARD,X
|
|
||||||
BNE LOOP
|
|
||||||
CPX #$10
|
|
||||||
BMI ILLEGAL
|
|
||||||
LDA #$7F
|
|
||||||
ADC #$01
|
|
||||||
BVS SPX
|
|
||||||
NO CLV
|
|
||||||
SPX LDA STATE
|
|
||||||
BMI RETL
|
|
||||||
CMP #$08
|
|
||||||
BPL RETL
|
|
||||||
|
|
||||||
CHKCHK PHA
|
|
||||||
PHP
|
|
||||||
LDA #$F9
|
|
||||||
STA STATE
|
|
||||||
STA INCHEK
|
|
||||||
JSR MOVE
|
|
||||||
JSR REVERSE
|
|
||||||
JSR GNM
|
|
||||||
JSR RUM
|
|
||||||
PLP
|
|
||||||
PLA
|
|
||||||
STA STATE
|
|
||||||
LDA INCHEK
|
|
||||||
BMI RETL
|
|
||||||
SEC
|
|
||||||
LDA #$FF
|
|
||||||
RTS
|
|
||||||
RETL CLC
|
|
||||||
LDA #$00
|
|
||||||
RTS
|
|
||||||
ILLEGAL LDA #$FF
|
|
||||||
CLC
|
|
||||||
CLV
|
|
||||||
RTS
|
|
||||||
RESET LDX PIECE
|
|
||||||
LDA BOARD,X
|
|
||||||
STA SQUARE
|
|
||||||
RTS
|
|
||||||
GENRM JSR MOVE
|
|
||||||
GENR2 JSR REVERSE
|
|
||||||
JSR GNM
|
|
||||||
RUM JSR REVERSE
|
|
||||||
UMOVE TSX
|
|
||||||
STX SP1
|
|
||||||
LDX SP2
|
|
||||||
TXS
|
|
||||||
PLA
|
|
||||||
STA MOVEN
|
|
||||||
PLA
|
|
||||||
STA PIECE
|
|
||||||
TAX
|
|
||||||
PLA
|
|
||||||
STA BOARD,X
|
|
||||||
PLA
|
|
||||||
TAX
|
|
||||||
PLA
|
|
||||||
STA SQUARE
|
|
||||||
STA BOARD,X
|
|
||||||
JMP STRV
|
|
||||||
MOVE TSX
|
|
||||||
STX SP1
|
|
||||||
LDX SP2
|
|
||||||
TXS
|
|
||||||
LDA SQUARE
|
|
||||||
PHA
|
|
||||||
TAY
|
|
||||||
LDX #$1F
|
|
||||||
CHECK CMP BOARD,X
|
|
||||||
BEQ TAKE
|
|
||||||
DEX
|
|
||||||
BPL CHECK
|
|
||||||
TAKE LDA #$CC
|
|
||||||
STA BOARD,X
|
|
||||||
TXA
|
|
||||||
PHA
|
|
||||||
LDX PIECE
|
|
||||||
LDA BOARD,X
|
|
||||||
STY BOARD,X
|
|
||||||
PHA
|
|
||||||
TXA
|
|
||||||
PHA
|
|
||||||
LDA MOVEN
|
|
||||||
PHA
|
|
||||||
STRV TSX
|
|
||||||
STX SP2
|
|
||||||
LDX SP1
|
|
||||||
TXS
|
|
||||||
RTS
|
|
||||||
CKMATE LDY BMAXC
|
|
||||||
CPX POINTS
|
|
||||||
BNE NOCHEK
|
|
||||||
LDA #$00
|
|
||||||
BEQ RETV
|
|
||||||
NOCHEK LDX BMOB
|
|
||||||
BNE RETV
|
|
||||||
LDX WMAXP
|
|
||||||
BNE RETV
|
|
||||||
LDA #$FF
|
|
||||||
RETV LDX #$04
|
|
||||||
STX STATE
|
|
||||||
PUSH CMP BESTV
|
|
||||||
BCC RETP
|
|
||||||
BEQ RETP
|
|
||||||
STA BESTV
|
|
||||||
LDA PIECE
|
|
||||||
STA BESTP
|
|
||||||
LDA SQUARE
|
|
||||||
STA BESTM
|
|
||||||
RETP LDA #"."
|
|
||||||
Jmp syschout
|
|
||||||
GO LDX OMOVE
|
|
||||||
BMI NOOPEN
|
|
||||||
LDA DIS3
|
|
||||||
CMP OPNING,X
|
|
||||||
BNE END
|
|
||||||
DEX
|
|
||||||
LDA OPNING,X
|
|
||||||
STA DIS1
|
|
||||||
DEX
|
|
||||||
LDA OPNING,X
|
|
||||||
STA DIS3
|
|
||||||
DEX
|
|
||||||
STX OMOVE
|
|
||||||
BNE MV2
|
|
||||||
END LDA #$FF
|
|
||||||
STA OMOVE
|
|
||||||
NOOPEN LDX #$0C
|
|
||||||
STX STATE
|
|
||||||
STX BESTV
|
|
||||||
LDX #$14
|
|
||||||
JSR GNMX
|
|
||||||
LDX #$04
|
|
||||||
STX STATE
|
|
||||||
JSR GNMZ
|
|
||||||
LDX BESTV
|
|
||||||
CPX #$0F
|
|
||||||
BCC MATE
|
|
||||||
MV2 LDX BESTP
|
|
||||||
LDA BOARD,X
|
|
||||||
STA BESTV
|
|
||||||
STX PIECE
|
|
||||||
LDA BESTM
|
|
||||||
STA SQUARE
|
|
||||||
JSR MOVE
|
|
||||||
JMP CHESS
|
|
||||||
MATE LDA #$FF
|
|
||||||
RTS
|
|
||||||
DISMV LDX #$04
|
|
||||||
DROL ASL DIS3
|
|
||||||
ROL DIS2
|
|
||||||
DEX
|
|
||||||
BNE DROL
|
|
||||||
ORA DIS3
|
|
||||||
STA DIS3
|
|
||||||
STA SQUARE
|
|
||||||
RTS
|
|
||||||
STRATGY CLC
|
|
||||||
LDA #$80
|
|
||||||
ADC WMOB
|
|
||||||
ADC WMAXC
|
|
||||||
ADC WCC
|
|
||||||
ADC WCAP1
|
|
||||||
ADC WCAP2
|
|
||||||
SEC
|
|
||||||
SBC PMAXC
|
|
||||||
SBC PCC
|
|
||||||
SBC BCAP0
|
|
||||||
SBC BCAP1
|
|
||||||
SBC BCAP2
|
|
||||||
SBC PMOB
|
|
||||||
SBC BMOB
|
|
||||||
BCS POS
|
|
||||||
LDA #$00
|
|
||||||
POS LSR
|
|
||||||
CLC
|
|
||||||
ADC #$40
|
|
||||||
ADC WMAXC
|
|
||||||
ADC WCC
|
|
||||||
SEC
|
|
||||||
SBC BMAXC
|
|
||||||
LSR
|
|
||||||
CLC
|
|
||||||
ADC #$90
|
|
||||||
ADC WCAP0
|
|
||||||
ADC WCAP0
|
|
||||||
ADC WCAP0
|
|
||||||
ADC WCAP0
|
|
||||||
ADC WCAP1
|
|
||||||
SEC
|
|
||||||
SBC BMAXC
|
|
||||||
SBC BMAXC
|
|
||||||
SBC BMCC
|
|
||||||
SBC BMCC
|
|
||||||
SBC BCAP1
|
|
||||||
LDX SQUARE
|
|
||||||
CPX #$33
|
|
||||||
BEQ POSN
|
|
||||||
CPX #$34
|
|
||||||
BEQ POSN
|
|
||||||
CPX #$22
|
|
||||||
BEQ POSN
|
|
||||||
CPX #$25
|
|
||||||
BEQ POSN
|
|
||||||
LDX PIECE
|
|
||||||
BEQ NOPOSN
|
|
||||||
LDY BOARD,X
|
|
||||||
CPY #$10
|
|
||||||
BPL NOPOSN
|
|
||||||
POSN CLC
|
|
||||||
ADC #$02
|
|
||||||
NOPOSN JMP CKMATE
|
|
||||||
POUT jsr pout9
|
|
||||||
jsr pout13
|
|
||||||
JSR POUT10
|
|
||||||
LDY #$00
|
|
||||||
JSR POUT5
|
|
||||||
POUT1 lDA #"|"
|
|
||||||
JSR syschout
|
|
||||||
LDX #$1F
|
|
||||||
POUT2 TYA
|
|
||||||
match
|
|
||||||
CMP BOARD,X
|
|
||||||
BEQ POUT4
|
|
||||||
type
|
|
||||||
DEX
|
|
||||||
BPL POUT2
|
|
||||||
tya
|
|
||||||
and #$01
|
|
||||||
sta temp
|
|
||||||
tya
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
lsr
|
|
||||||
and #$01
|
|
||||||
clc
|
|
||||||
adc temp
|
|
||||||
square color
|
|
||||||
and #$01
|
|
||||||
bne pout25
|
|
||||||
lda #"*"
|
|
||||||
.byte $2c
|
|
||||||
POUT25 LDA #$20
|
|
||||||
JSR syschout
|
|
||||||
JSR syschout
|
|
||||||
POUT3 INY
|
|
||||||
TYA
|
|
||||||
AND #$08
|
|
||||||
BEQ POUT1
|
|
||||||
LDA #"|"
|
|
||||||
JSR syschout
|
|
||||||
jsr pout12
|
|
||||||
JSR POUT9
|
|
||||||
JSR POUT5
|
|
||||||
CLC
|
|
||||||
TYA
|
|
||||||
ADC #$08
|
|
||||||
TAY
|
|
||||||
CPY #$80
|
|
||||||
BEQ POUT8
|
|
||||||
BNE POUT1
|
|
||||||
POUT4 LDA REV
|
|
||||||
BEQ POUT41
|
|
||||||
LDA cpl+16,X
|
|
||||||
BNE POUT42
|
|
||||||
POUT41 LDA cpl,x
|
|
||||||
POUT42 JSR syschout
|
|
||||||
lda cph,x
|
|
||||||
jsr syschout
|
|
||||||
BNE POUT3
|
|
||||||
POUT5 TXA
|
|
||||||
PHA
|
|
||||||
LDX #$19
|
|
||||||
LDA #"-"
|
|
||||||
POUT6 JSR syschout
|
|
||||||
DEX
|
|
||||||
BNE POUT6
|
|
||||||
PLA
|
|
||||||
TAX
|
|
||||||
JSR POUT9
|
|
||||||
RTS
|
|
||||||
POUT8 jsr pout10
|
|
||||||
LDA $FB
|
|
||||||
JSR syshexout
|
|
||||||
LDA #$20
|
|
||||||
JSR syschout
|
|
||||||
LDA $FA
|
|
||||||
JSR syshexout
|
|
||||||
LDA #$20
|
|
||||||
JSR syschout
|
|
||||||
LDA $F9
|
|
||||||
JSR syshexout
|
|
||||||
POUT9 LDA #$0D
|
|
||||||
JSR syschout
|
|
||||||
LDA #$0A
|
|
||||||
JSR syschout
|
|
||||||
RTS
|
|
||||||
pout10 ldx #$00
|
|
||||||
POUT11 lda #$20
|
|
||||||
jsr syschout
|
|
||||||
txa
|
|
||||||
jsr syshexout
|
|
||||||
INX
|
|
||||||
CPX #$08
|
|
||||||
BNE POUT11
|
|
||||||
BEQ POUT9
|
|
||||||
POUT12 TYA
|
|
||||||
and #$70
|
|
||||||
JSR syshexout
|
|
||||||
rts
|
|
||||||
Pout13 ldx #$00
|
|
||||||
Pout14 lda banner,x
|
|
||||||
beq POUT15
|
|
||||||
jsr syschout
|
|
||||||
inx
|
|
||||||
bne POUT14
|
|
||||||
POUT15 rts
|
|
||||||
KIN LDA #"?"
|
|
||||||
JSR syschout
|
|
||||||
JSR syskin
|
|
||||||
AND #$4F
|
|
||||||
RTS
|
|
||||||
Init_6551 lda #$1F
|
|
||||||
sta ACIActl
|
|
||||||
lda #$0B
|
|
||||||
dtr active low
|
|
||||||
sta ACIAcmd
|
|
||||||
rts
|
|
||||||
syskin lda ACIASta
|
|
||||||
and #$08
|
|
||||||
beq syskin
|
|
||||||
Lda ACIAdat
|
|
||||||
RTS
|
|
||||||
syschout PHA
|
|
||||||
ACIA_Out1 lda ACIASta
|
|
||||||
and #$10
|
|
||||||
beq ACIA_Out1
|
|
||||||
PLA
|
|
||||||
sta ACIAdat
|
|
||||||
RTS
|
|
||||||
syshexout PHA
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
JSR PrintDig
|
|
||||||
PLA
|
|
||||||
PrintDig PHY
|
|
||||||
AND #$0F
|
|
||||||
TAY
|
|
||||||
LDA Hexdigdata,Y
|
|
||||||
PLY
|
|
||||||
jmp syschout
|
|
||||||
TMP EQU $6
|
|
||||||
WEEKDAY:
|
|
||||||
CPX #3
|
|
||||||
BCS MARCH
|
|
||||||
DEY
|
|
||||||
MARCH EOR #$7F
|
|
||||||
CPY #200
|
|
||||||
ADC MTAB-1,X
|
|
||||||
STA TMP
|
|
||||||
TYA
|
|
||||||
JSR MOD7
|
|
||||||
SBC TMP
|
|
||||||
STA TMP
|
|
||||||
TYA
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
CLC
|
|
||||||
ADC TMP
|
|
||||||
MOD7 ADC #7
|
|
||||||
BCC MOD7
|
|
||||||
RTS
|
|
||||||
AST 32
|
|
||||||
JSR SAVE
|
|
||||||
PLA
|
|
||||||
STA R15L
|
|
||||||
PLA
|
|
||||||
STA R15H
|
|
||||||
SW16B JSR SW16C
|
|
||||||
JMP SW16B
|
|
||||||
SW16C INC R15L
|
|
||||||
BNE SW16D
|
|
||||||
INC R15H
|
|
||||||
SW16D LDA >SET
|
|
||||||
PHA
|
|
||||||
LDY $0
|
|
||||||
LDA (R15L),Y
|
|
||||||
AND $F
|
|
||||||
ASL
|
|
||||||
TAX
|
|
||||||
LSR
|
|
||||||
EOR (R15L),Y
|
|
||||||
BEQ TOBR
|
|
||||||
STX R14H
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
TAY
|
|
||||||
LDA OPTBL-2,Y
|
|
||||||
PHA
|
|
||||||
RTS
|
|
||||||
TOBR INC R15L
|
|
||||||
BNE TOBR2
|
|
||||||
INC R15H
|
|
||||||
TOBR2 LDA BRTBL,X
|
|
||||||
PHA
|
|
||||||
LDA R14H
|
|
||||||
LSR
|
|
||||||
RTS
|
|
||||||
RTNZ PLA
|
|
||||||
PLA
|
|
||||||
JSR RESTORE
|
|
||||||
JMP (R15L)
|
|
||||||
SETZ LDA (R15L),Y
|
|
||||||
STA R0H,X
|
|
||||||
DEY
|
|
||||||
LDA (R15L),Y
|
|
||||||
STA R0L,X
|
|
||||||
TYA
|
|
||||||
SEC
|
|
||||||
ADC R15L
|
|
||||||
STA R15L
|
|
||||||
BCC SET2
|
|
||||||
INC R15H
|
|
||||||
SET2 RTS
|
|
||||||
OPTBL DFB SET-1
|
|
||||||
BRTBL DFB RTN-1
|
|
||||||
DFB LD-1
|
|
||||||
DFB BR-1
|
|
||||||
DFB ST-1
|
|
||||||
DFB BNC-1
|
|
||||||
DFB LDAT-1
|
|
||||||
DFB BC-1
|
|
||||||
DFB STAT-1
|
|
||||||
DFB BP-1
|
|
||||||
DFB LDDAT-1
|
|
||||||
DFB BM-1
|
|
||||||
DFB STDAT-1
|
|
||||||
DFB BZ-1
|
|
||||||
DFB POP-1
|
|
||||||
DFB BNZ-1
|
|
||||||
DFB STPAT-1
|
|
||||||
DFB BM1-1
|
|
||||||
DFB ADD-1
|
|
||||||
DFB BNM1-1
|
|
||||||
DFB SUB-1
|
|
||||||
DFB BK-1
|
|
||||||
DFB POPD-1
|
|
||||||
DFB RS-1
|
|
||||||
DFB CPR-1
|
|
||||||
DFB BS-1
|
|
||||||
DFB INR-1
|
|
||||||
DFB NUL-1
|
|
||||||
DFB DCR-1
|
|
||||||
DFB NUL-1
|
|
||||||
DFB NUL-1
|
|
||||||
DFB NUL-1
|
|
||||||
SET BPL SETZ
|
SET BPL SETZ
|
||||||
LD LDA R0L,X
|
LD LDA R0L,X
|
||||||
BK EQU *-1
|
BK EQU *-1
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user