Loadstar 183/183.d81/a.rad

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