This commit is contained in:
Antoine Vignau 2023-11-17 22:25:59 +01:00
parent bbd65bd62e
commit 3f68e04eaf
2 changed files with 103 additions and 131 deletions

View File

@ -270,6 +270,101 @@ strRETURN asc 8D
:1000 :1000
*-----------------------------------
* 1400 - CONDITIONS
*-----------------------------------
:1400 lda #1
sta E
:1420 ldx E
lda E$,x
cmp #"."
bne :1430
jmp :1700
:1430 lda #0
sta OK
lda E$+1,x
sec
sbc #"0"
tay
lda tblD2H,y
sta L
lda E$+1,x
sec
sbc #"0"
clc
adc L
sta L
ldx E
lda E$,x
sec
sbc #"A"
asl
tax
jsr (tbl1500,x)
lda OK
cmp #0
bne :1470
jmp :1100
:1470 lda E
clc
adc #3
sta E
jmp :1420
*---------
tbl1500 da :1500,:1510,:1520,:1530,:1540
da :1550,:1560,:1570,:1580
*---------
:1500
*---------
:1510
*---------
:1520
*---------
:1530
*---------
:1540
*---------
:1550
*---------
:1560
*---------
:1570
*---------
:1580 lda N
cmp SALLE
beq :1585
lda #1
sta OK
:1585 rts
*----------------------------------- *-----------------------------------
* 4000 - LES REPONSES * 4000 - LES REPONSES
*----------------------------------- *-----------------------------------
@ -1446,7 +1541,7 @@ A$
asc "5645A16.D49I18M."00 asc "5645A16.D49I18M."00
asc "5543D18E09.D30K."00 asc "5543D18E09.D30K."00
asc "5543D18.P18E09J."00 asc "5543D18.P18E09J."00
asc "574& E AND18F09.D30K."00 asc "574EXPLODEAND18F09.D30K."00
asc "5743D18.P18F09J."00 asc "5743D18.P18F09J."00
asc "1233A24C12.D51K."00 asc "1233A24C12.D51K."00
asc "1233A24C03.D52N."00 asc "1233A24C03.D52N."00
@ -1485,8 +1580,11 @@ C$14 asc ".L."00
BREAK ds 2 BREAK ds 2
C ds 10+1 C ds 10+1
E ds 1
E$ ds 32 ; the longest string
F1 ds 1 F1 ds 1
H ds 1 H ds 1
L ds 1
LX ds 1 LX ds 1
N ds 1 N ds 1
P ds 13+1 P ds 13+1
@ -1496,6 +1594,10 @@ Y1 ds 1
Y2 ds 1 Y2 ds 1
Z ds 1 Z ds 1
*--- The lazy decimal to hexadecimal conversion
tblD2H dfb 0,10,20,30,40,50,60,70,80,90
*----------------------------------- *-----------------------------------
* LES AUTRES FICHIERS * LES AUTRES FICHIERS
*----------------------------------- *-----------------------------------

View File

@ -1,130 +0,0 @@
*--- Electric Duet player
LA025 LDA #$00 ; music is at $4000
STA $1E
LDA #$40
STA $1F
LDA #$01
STA $09
STA $1D
PHA
PHA
PHA
BNE LA04D
LA038 INY
LDA ($1E),Y
STA $09
INY
LDA ($1E),Y
STA $1D
LA042 LDA $1E
CLC
ADC #$03
STA $1E
BCC LA04D
INC $1F
LA04D LDY #$00
LDA ($1E),Y
CMP #$01
BEQ LA038
BCS LA067
PLA
PLA
PLA
LA05A LDX #$49
INY
LDA ($1E),Y
BNE LA063
LDX #$C9
LA063 BIT KBDSTROBE
RTS
LA067 STA $08
JSR LA05A
STX LA0B6
STA $06
LDX $09
LA073 LSR
DEX
BNE LA073
STA LA0AE+1
JSR LA05A
STX LA0EE
STA $07
LDX $1D
LA084 LSR
DEX
BNE LA084
STA LA0E6+1
JSR LA0F6 ; animate
PLA
TAY
PLA
TAX
PLA
BNE LA098
LA095 BIT SPKR
LA098 CMP #$00
BMI LA09F
NOP
BPL LA0A2
LA09F BIT SPKR
LA0A2 STA $4E
BIT KBD
BMI LA063
DEY
BNE LA0AE
BEQ LA0B4
LA0AE CPY #$36
BEQ LA0B6
BNE LA0B8
LA0B4 LDY $06
LA0B6 EOR #$40
LA0B8 BIT $4E
BVC LA0C3
BVS LA0BE
LA0BE BPL LA0C9
NOP
BMI LA0CC
LA0C3 NOP
BMI LA0C9
NOP
BPL LA0CC
LA0C9 CMP SPKR
LA0CC DEC $4F
BNE LA0E1
DEC $08
BNE LA0E1
BVC LA0D9
BIT SPKR
LA0D9 PHA
TXA
PHA
TYA
PHA
JMP LA042
LA0E1 DEX
BNE LA0E6
BEQ LA0EC
LA0E6 CPX #$0C
BEQ LA0EE
BNE LA0F0
LA0EC LDX $07
LA0EE EOR #$80
LA0F0 BVS LA095
NOP
BVC LA098
NOP
LA0F6 STA LA022 ; store AXY
STX LA023
STY LA024
JSR LA114 ; scroll
JSR LA149 ; print
LDA #$26
JSR WAIT
LDA LA022 ; restore
LDX LA023
LDY LA024
RTS