1 line
94 KiB
Plaintext
1 line
94 KiB
Plaintext
|
***************************************************************
*
* Pick'n Pile //e
* ---------------
*
* Version : Beta
* Conversion : Atreid Concept SA
****************************************************************
list off
gen off
msb off
symbol off
65816 off
65c02 off
keep PnP.Sys
mcopy PnP.Macros
ProDOS gequ $BF00 ;acces au MLI
IOBuffer gequ $Ba00
vbest gequ $800
Codes gequ $860
org $8000
PnP START PnP
lda #0
sta <$50
sta <$52
lda #$20
sta <$51
lda #$80
sta <$53
ldx #0
PnPInstall anop
lda ($50,x)
sta ($52,x)
lda <$50
clc
adc #1
bcs Inc51inst
sta <$50
beq Inc52inst
bne Inc52inst
Inc51inst anop
sta <$50
inc <$51
Inc52Inst anop
lda <$52
clc
adc #1
bcs Inc53inst
sta <$52
beq Inc54Inst
bne Inc54Inst
Inc53inst anop
sta <$52
inc <$53
Inc54Inst anop
lda <$53
cmp #$bf ;borne superieure de la mem
bne PnpInstall
jmp PnpInstalled
PnpInstalled anop
lda $c036 ;cyareg *****************
and #$7f *****************
sta $c036 *****************
tsx ;on sauve s !!!
stx StackPtr
jsr InitPnP
lda #vbestFile ;ptr string
sta GSTemp1
lda #>vbestFile
sta GSTemp1+1
lda #$18 ;taille a lire
sta GSTemp2
lda #$0c
sta GSTemp2+1
lda #vbest ;buffer mem
sta GSTemp3
lda #>vbest
sta GSTemp3+1
jsr LoadFile
lda #Car ;ptr string
sta GSTemp1
lda #>Car
sta GSTemp1+1
lda #0 ;taille a lire
sta GSTemp2
lda #$20
sta GSTemp2+1
lda #0 ;buffer mem
sta GSTemp3
lda #$60
sta GSTemp3+1
jsr LoadFile
jsr EnterCode
lda #Calib ;ptr string
sta GSTemp1
lda #>Calib
sta GSTemp1+1
lda #0 ;taille a lire
sta GSTemp2
lda #$20
sta GSTemp2+1
lda #0 ;buffer mem
sta GSTemp3
lda #$40
sta GSTemp3+1
jsr LoadFile
lda #0
sta GSTemp2
lda #$60
sta GSTemp2+1
lda #CalibStr1
sta GSTemp1
lda #>CalibStr1
sta GSTemp1+1
ldx #10
ldy #73
jsr Texte8
lda #CalibStr2
sta GSTemp1
lda #>CalibStr2
sta GSTemp1+1
ldx #8
ldy #84
jsr Texte8
lda #KeyPick
sta GSTemp1
lda #>KeyPick
sta GSTemp1+1
ldx #25
ldy #167
jsr Texte8
lda #KeyFall
sta GSTemp1
lda #>KeyFall
sta GSTemp1+1
ldx #25
ldy #181
jsr Texte8
lda
|