home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh93b.d64
/
hamdem1.src
< prev
next >
Wrap
Text File
|
1995-03-30
|
4KB
|
434 lines
:PWS M 2
LDA #<@0
STA @1
LDA #>@0
STA @1+1
/
:ADD M 2
CLC
LDA @0
ADC #<@1
STA @0
LDA @0+1
ADC #>@1
STA @0+1
/
:ADB MF 2
CLC
LDA @0
ADC #<@1
STA @0
BCC ADBC1
INC @0+1
CLC
:ADBC1
/
:SBB MF 2
SEC
LDA @0
SBC #<@1
STA @0
BCS SBBC1
DEC @0+1
:SBBC1
/
:SUB M 2
SEC
LDA @0
SBC #<@1
STA @0
LDA @0+1
SBC #>@1
STA @0+1
/
:DXP M 1
DEX
BPL @0
/
:IXB M 2
INX
CPX #@0
BNE @1
/
:DXN M 1
DEX
BNE @0
/
:IXN M 1
INX
BNE @0
/
:DYP M 1
DEY
BPL @0
/
:IYB M 2
INY
CPY #@0
BNE @1
/
:DYN M 1
DEY
BNE @0
/
:IYN M 1
INY
BNE @0
/
:BAE M 2
CMP #@0
BEQ @1
/
:BAN M 2
CMP #@0
BNE @1
/
:BXE M 2
CPX #@0
BEQ @1
/
:BXN M 2
CPX #@0
BNE @1
/
:BYE M 2
CPY #@0
BEQ @1
/
:BYN M 2
CPY #@0
BNE@@1
/
:LSY M 2
LDA (@0),Y
STA (@1),Y
/
:INW MF 1
INC @0
BNE INWC1
INC @0+1
:INWC1
/
:DEW MF 1
DEC @0
LDA @0
CMP #$FF
BNE DEWC1
DEC @0+1
:DEWC1
/
:R M 0
RTS
/
:COM MF 2 ;IF P1>=P2L THEN SEC
LDA @0+1 ;
CMP @1+1 ;
BEQ MCCS ;
JMP ECOMM ;
:MCCS ;
LDA @0 ;
CMP @1
:ECOMM
/
:MOV M 2
LDA @0
STA @1
/
:PUT M 2
LDA #@0
STA @1
/
:PRT M 1
LDX #<@0
LDY #>@0
JSR PTEXT
/
:LXY M 1
LDX #<@0
LDY #>@0
/
:STCONV=$8C00 ;GRAPHIC DATA
:BMAP=$6000+24
:VR0=$4000+3
:CRB=$8000+3
:CR=$D800+3
:P1L=$61
:P1H=$62
:P2L=$63
:P2H=$64
:P3L=$65
:P3H=$66
:P4L=$67
:P4H=$68
:P5L=$69
:P5H=$6A
:P6L=$6B
:P6H=$6C
:IA=$6D
:CNT1=$6E
:CNT2=$6F
:CNT3=$70
ORG $8400
JSR $C000
LDX #0
STX P2L
STX P3L
PUT >VR0,P2H
PUT >STCONV,P3H
:EPL1
LDY #0
LDA (P3L),Y
BAN $EA,EPC1
INY
LDA (P3L),Y
STA P1H
INY
LDA (P3L),Y
STA P1L
:EPL2
LDA #0
STA (P2L),X
INW P2L
DEW P1L
LDA P1H
BNE EPL2
LDA P1L
BNE EPL2
ADB P3L,2
JMP EPC3
:EPC1
STA (P2L),Y
INW P2L
:EPC3
INW P3L
LDA P3L
BAN $FF,EPL1
LDA P3H
BAN $8F,EPL1
LDX #0
:HUPL
LDA CRB,X
STA CR,X
LDA CRB+256,X
STA CR+256,X
LDA CRB+512,X
STA CR+512,X
LDA CRB+768,X
STA CR+768,X
IXN HUPL
:COP456
LDA #0
STA OFVL
STA OFBL
STA OFBH
:CPL6
PUT 3,CNT2
:CPL5
LDA CNT2
ASL
TAX
CLC
LDA ICSV,X
ADC OFVL
STA P2L
LDA ICSV+1,X
ADC #0
STA P2H
LDA ICSC,X
ADC OFVL
STA P3L
LDA ICSC+1,X
ADC #0
STA P3H
LDA ICSB,X
ADC OFBL
STA P1L
LDA ICSB+1,X
ADC OFBH
STA P1H
JSR COI
DEC CNT2
BPL CPL5
ADB OFBL,64
CLC
LDA OFVL
ADC #8
STA OFVL
CMP #32
BCC CPL6
LDA #$FF
STA $D401+14
LDA #$80
STA $D404+14
:RAL1
LDA #25
STA CNT1
PWS VR0,P1L
PWS CR,P2L
:RAL4
LDY #0
:RAL3
LDX #8
:RAL2
LDA (P1L),Y
JSR GNC
STA (P1L),Y
CLC
LDA P1H
ADC #4
STA P1H
DXN RAL2
SUB P1L,$2000
LDA (P2L),Y
JSR GNC
STA (P2L),Y
IYB 37,RAL3
ADB P1L,40
ADB P2L,40
DEC CNT1
BNE RAL4
JMP RAL1
:GNC
STX CNT3
STA CNT2
LSR
LSR
LSR
LSR
JSR IGT
ASL
ASL
ASL
ASL
STA P3L
LDA CNT2
AND #$F
JSR IGT
ORA P3L
LDX CNT3
R
:IGT
TAX
LDA $D41B
AND #3
BEQ TAB0
BAE 1,TAB1
BAE 2,TAB2
LDA CTAB3,X
R
:TAB0
LDA CTAB0,X
R
:TAB1
LDA CTAB1,X
R
:TAB2
LDA CTAB2,X
R
:COI
PUT 6,CNT1
PWS 320+BMAP,P4L
PWS 40+VR0,P5L
PWS 40+CR,P6L
:CPL4
LDX #8
:CPL3
LDY #7
:CPL1
LSY P4L,P1L
DYP CPL1
LDY #0
LDA #8
STA IA
:CPL2
LSY P5L,P2L
CLC
LDA P5H
ADC #4
STA P5H
LDA P2H
ADC #4
STA P2H
DEC IA
BNE CPL2
LSY P6L,P3L
SUB P5L,$1FFF
SUB P2L,$1FFF
INW P3L
INW P6L
ADB P1L,8
ADB P4L,8
DXN CPL3
ADD P4L,320-64
ADD P1L,320-64
ADD P3L,40-8
ADD P6L,40-8
ADD P5L,40-8
ADD P2L,40-8
DEC CNT1
BEQ *+5
JMP CPL4
RTS
:ICSB
W 01*320+BMAP
W 07*320+BMAP
W 13*320+BMAP
W 19*320+BMAP
:ICSV
W 01*40+VR0
W 07*40+VR0
W 13*40+VR0
W 19*40+VR0
:ICSC
W 01*40+CR
W 07*40+CR
W 13*40+CR
W 19*40+CR
:OFVL B 0
:OFBL B 0
:OFBH B 0
;0 1 2 3 4 5 6 7 8 9 A B C D E F
:CTAB0 B $0,$1,$4,$F,$2,$8,$9,$7,$5,$B,$E,$9,$2,$7,$A,$F
:CTAB1 B $0,$1,$C,$3,$4,$A,$B,$D,$A,$6,$8,$9,$4,$D,$5,$3
:CTAB2 B $0,$1,$4,$F,$C,$5,$6,$7,$E,$B,$5,$6,$2,$7,$8,$3
:CTAB3 B $0,$1,$2,$3,$C,$E,$9,$D,$8,$9,$E,$B,$C,$D,$8,$F