home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 183
/
183.d81
/
a.rad
< prev
next >
Wrap
Text File
|
2022-08-26
|
2KB
|
258 lines
dsk @:rad
nol
device = 9
! = $0801
{CBM-A}{SHIFT-*}{CBM-S}
wrd p,1
byt $9e,"2061",0
p
wrd
ldy #breakEnd-break-1
a2
lda breakBlock,y
sta break,y
dey
cpy #$ff
bne a2
lda #<endBlock
sta $fe
lda #>endBlock
sta $ff
ldx #<bootBlock
ldy #>bootBlock
jsr save
lda $d0bc
bmi noSuper
sta 53370
noSuper
jmp break
save
stx $fc
sty $fd
lda #name0-name
ldx #<name
ldy #>name
jsr $ffbd
lda #3
ldx #device
tay
jsr $ffba
jsr $ffc0
ldx #3
jsr $ffc9
lda #<boot
jsr $ffd2
lda #>boot
jsr $ffd2
ldy #0
a1
lda ($fc),y
jsr $ffd2
inc $fc
bne a0
inc $fd
a0
lda $fc
cmp $fe
bne a1
lda $fd
cmp $ff
bne a1
lda #3
jsr $ffc3
jmp $ffcc
name
byt "@:rad warrior,p,w"
name0
{CBM-Z}{SHIFT-*}{CBM-X}
breakBlock
! = $0334
break
{CBM-A}{SHIFT-*}{CBM-S}
lda #0
jsr $ff90
jsr load
first
jsr $05fd
ldx #<$4000
ldy #>$4000
jsr save
jsr load
lda #>second-1
sta $686d
lda #<second-1
sta $6870
jmp $67e9
second
ldx #0
stx $fe
stx $ff
ldy #>$d000
jsr save
lda #<$d000
sta $fe
lda #>$d000
sta $ff
ldx #<$06a0
ldy #>$06a0
jsr save
jmp $8009
{$de}{$de}{$de} save
stx $fc
sty $fd
lda #name0-name
ldx #<name
ldy #>name
jsr $ffbd
lda #3
ldx #device
tay
jsr $ffba
jsr $ffc0
ldx #3
jsr $ffc9
lda $fc
jsr $ffd2
lda $fd
jsr $ffd2
ldy #0
a1
sei
sty 1
lda ($fc),y
ldx #$36
stx 1
cli
jsr $ffd2
inc $fc
bne a0
inc $fd
a0
lda $fc
cmp $fe
bne a1
lda $fd
cmp $ff
bne a1
lda #3
jsr $ffc3
inc name+13
rts
load
lda #2
ldx #<boot
ldy #>boot
jsr $ffbd
lda #1
ldx #8
tay
jsr $ffba
lda #0
jsr $ffd5
lda #$4c
sta $061b
jmp $0600
name
byt "@:rad warrior0,p,w"
name0
boot
byt "(*"
{CBM-Z}{SHIFT-*}{CBM-X}
breakEnd
bootBlock = breakBlock - break + breakEnd
! = $010a
boot
{CBM-A}{SHIFT-*}{CBM-S}
lda #6
sta $d020
lda #0
sta $d011
sta $d015
jsr $ff90
lda #1
ldx $ba
tay
jsr $ffba
lda #name0-name
ldx #<name
ldy #>name
jsr $ffbd
lda #0
jsr $ffd5
lda #$60
sta $685b
jsr $68cd
jsr $680b
inc name+11
lda #0
sta $d011
lda #1
ldx $ba
ldy #0
jsr $ffba
lda #0
ldx #<$3000
ldy #>$3000
jsr $ffd5
ldy #0
lda #>$3000
ldx #>$d000
sei
sty 1
sty 2
sta 3
sty 4
stx 5
a1
lda (2),y
sta (4),y
iny
bne a1
inc 3
inc 5
bne a1
lda #$26
sta 1
cli
inc name+11
lda #1
ldx $ba
tay
jsr $ffba
lda #0
jsr $ffd5
inc $8005
lda $d0bc
bmi noSuper
sta 53370
noSuper
jmp $8009
name
byt "rad warrior0"
name0
rpt $f9-name0+boot,2
jmp boot
{CBM-Z}{SHIFT-*}{CBM-X}
bootEnd
endBlock = bootBlock - boot + bootEnd