2022-03-06 22:28:52 +00:00
|
|
|
|
NEW
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
LDR.START jmp LDR.START1
|
|
|
|
|
LDR.SIG .DA $EEEE
|
|
|
|
|
.DA #MLI.MAXPATH+1
|
|
|
|
|
LDR.STARTUP.LEN .DA #7
|
|
|
|
|
LDR.STARTUP .AS "STARTUP"
|
|
|
|
|
.BS MLI.MAXPATH-7
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
LDR.START1 ldx #$FF
|
|
|
|
|
txs
|
|
|
|
|
sta IO.SETALTZP
|
|
|
|
|
|
|
|
|
|
stx $100
|
|
|
|
|
stx $101
|
|
|
|
|
|
|
|
|
|
sta IO.CLRALTZP
|
|
|
|
|
|
|
|
|
|
sta IO.CLR80DISP
|
|
|
|
|
sta IO.CLR80STORE
|
|
|
|
|
|
|
|
|
|
bit IO.RROMBNK1
|
|
|
|
|
|
|
|
|
|
jsr MON.INIT
|
|
|
|
|
jsr MON.SETVID
|
|
|
|
|
jsr MON.SETKBD
|
|
|
|
|
jsr MON.SETNORM
|
|
|
|
|
jsr MON.HOME
|
|
|
|
|
|
|
|
|
|
stz Ptr1
|
|
|
|
|
stz Ptr2
|
|
|
|
|
|
|
|
|
|
lda /LDR.MAIN.SRC
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta Ptr1+1
|
2022-03-27 12:59:32 +00:00
|
|
|
|
lda /LDR.MAIN.DST
|
|
|
|
|
sta Ptr2+1
|
|
|
|
|
|
2022-03-06 22:28:52 +00:00
|
|
|
|
ldx #$23
|
|
|
|
|
jsr LDR.MoveXpages
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
|
|
|
|
lda /LDR.GP.SRC
|
|
|
|
|
sta Ptr1+1
|
|
|
|
|
lda /LDR.GP.DST
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta Ptr2+1
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
|
|
|
|
ldx #$01
|
2022-03-06 22:28:52 +00:00
|
|
|
|
jsr LDR.MoveXpages
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
|
|
|
|
* lda #$15
|
|
|
|
|
* jsr MON.COUT
|
|
|
|
|
* jsr MON.SETNORM
|
|
|
|
|
* jsr MON.INIT
|
|
|
|
|
* jsr MON.HOME
|
2022-03-15 19:33:19 +00:00
|
|
|
|
|
2022-03-06 22:28:52 +00:00
|
|
|
|
ldx #$17
|
|
|
|
|
|
2022-03-15 19:33:19 +00:00
|
|
|
|
.1 stz MLI.MEMTABL,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
dex
|
2022-03-15 19:33:19 +00:00
|
|
|
|
bne .1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$CF
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MLI.MEMTABL
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$3F
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MLI.MEMTABL+19
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$FF
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MLI.MEMTABL+20
|
|
|
|
|
sta MLI.MEMTABL+21
|
|
|
|
|
sta MLI.MEMTABL+22
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$C3
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MLI.MEMTABL+23
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
|
|
|
|
* lda AS.COLDBOOT
|
|
|
|
|
* cmp #$4C
|
|
|
|
|
* bne .3
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda MLI.MACHID
|
2022-03-27 12:59:32 +00:00
|
|
|
|
and #$30
|
|
|
|
|
cmp #$30 128k Only
|
|
|
|
|
bne .3
|
|
|
|
|
|
|
|
|
|
jsr LDR.ShrinkRAM
|
|
|
|
|
bcs .3
|
|
|
|
|
|
|
|
|
|
bit IO.RRAMWRAMBNK2
|
|
|
|
|
bit IO.RRAMWRAMBNK2
|
|
|
|
|
sta IO.SETALTZP
|
|
|
|
|
|
|
|
|
|
stz Ptr1
|
|
|
|
|
stz Ptr2
|
|
|
|
|
|
|
|
|
|
lda /LDR.AUX.SRC
|
|
|
|
|
sta Ptr1+1
|
|
|
|
|
lda /LDR.AUX.DST
|
|
|
|
|
sta Ptr2+1
|
|
|
|
|
|
|
|
|
|
ldx #$10
|
|
|
|
|
jsr LDR.MoveXpages
|
|
|
|
|
|
|
|
|
|
sta IO.CLRALTZP
|
|
|
|
|
bit IO.RROMBNK2
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
ldx #$03
|
|
|
|
|
|
2022-03-15 19:33:19 +00:00
|
|
|
|
.2 lda LDR.CSWVECT,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta ZP.CSW,x
|
|
|
|
|
dex
|
2022-03-15 19:33:19 +00:00
|
|
|
|
bpl .2
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
jmp AS.COLDBOOT
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.3 ldx #LDR.UNABLE.L-1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
2022-03-15 19:33:19 +00:00
|
|
|
|
.4 lda LDR.UNABLE,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta $628,x
|
|
|
|
|
dex
|
2022-03-15 19:33:19 +00:00
|
|
|
|
bpl .4
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
sta MON.POWERUPBYTE
|
|
|
|
|
sta MON.POWERUP+1
|
|
|
|
|
|
2022-03-15 19:33:19 +00:00
|
|
|
|
bmi *
|
|
|
|
|
*--------------------------------------
|
2022-03-27 12:59:32 +00:00
|
|
|
|
LDR.MoveXpages ldy #0
|
|
|
|
|
|
|
|
|
|
.1 lda (Ptr1),y
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta (Ptr2),y
|
2022-03-27 12:59:32 +00:00
|
|
|
|
iny
|
|
|
|
|
bne .1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
inc Ptr1+1
|
|
|
|
|
inc Ptr2+1
|
|
|
|
|
dex
|
2022-03-27 12:59:32 +00:00
|
|
|
|
bne .1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
L20D3 rts
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
2022-03-06 22:28:52 +00:00
|
|
|
|
LDR.CSW cmp #$DD
|
|
|
|
|
bne L20D3
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda GP.OUTVECT0
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta ZP.CSW
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda GP.OUTVECT0+1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta ZP.CSW+1
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda MLI.DEVNUM
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta LDR.ONLINE.P.DEVNUM
|
|
|
|
|
ldx #$01
|
|
|
|
|
asl
|
|
|
|
|
bcc L20EE
|
|
|
|
|
|
|
|
|
|
inx
|
|
|
|
|
|
|
|
|
|
L20EE stx GP.VDEFDRV
|
|
|
|
|
asl
|
|
|
|
|
rol
|
|
|
|
|
rol
|
|
|
|
|
rol
|
|
|
|
|
and #$07
|
|
|
|
|
sta GP.VDEFSLT
|
|
|
|
|
ldx #$C1
|
|
|
|
|
ldy #$02
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda MLI.SLTBYT
|
2022-03-06 22:28:52 +00:00
|
|
|
|
lsr
|
|
|
|
|
|
|
|
|
|
L2102 lsr
|
|
|
|
|
pha
|
|
|
|
|
bcc L2115
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$00
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta GP.OUTVECT0,y
|
|
|
|
|
sta GP.INVECT0,y
|
|
|
|
|
txa
|
|
|
|
|
sta GP.OUTVECT0+1,y
|
|
|
|
|
sta GP.INVECT0+1,y
|
|
|
|
|
|
|
|
|
|
L2115 iny
|
|
|
|
|
iny
|
|
|
|
|
inx
|
|
|
|
|
pla
|
|
|
|
|
bne L2102
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$96
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta AS.HIMEM+1
|
|
|
|
|
sta AS.STRINGSTART+1
|
|
|
|
|
sta GP.RSHIMEM
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda MLI.PFIXPTR
|
2022-03-06 22:28:52 +00:00
|
|
|
|
beq L214E
|
|
|
|
|
|
|
|
|
|
jsr MLI
|
|
|
|
|
.DA #MLI.C.GETPREFIX
|
|
|
|
|
.DA LDR.GETSETPFX2.P
|
|
|
|
|
bne L218B
|
|
|
|
|
|
|
|
|
|
ldx MLI.PATHBUF
|
2022-03-27 12:59:32 +00:00
|
|
|
|
lda #'/'
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
|
|
|
|
L2136 cmp MLI.PATHBUF,x
|
|
|
|
|
bne L213E
|
|
|
|
|
|
|
|
|
|
inc LDR.PFXLEN
|
|
|
|
|
|
|
|
|
|
L213E dex
|
|
|
|
|
bne L2136
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda LDR.PFXLEN
|
2022-03-06 22:28:52 +00:00
|
|
|
|
cmp #$03
|
|
|
|
|
bcs L216F
|
|
|
|
|
|
|
|
|
|
jsr MLI
|
|
|
|
|
.DA #MLI.C.SETPREFIX
|
|
|
|
|
.DA LDR.GETSETPFX1.P
|
|
|
|
|
|
|
|
|
|
L214E jsr MLI
|
|
|
|
|
.DA #MLI.C.ONLINE
|
|
|
|
|
.DA LDR.ONLINE.P
|
|
|
|
|
bne L218B
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda MLI.PATHBUF+1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
and #$0F
|
|
|
|
|
beq L218B
|
|
|
|
|
|
|
|
|
|
tax
|
|
|
|
|
inx
|
|
|
|
|
stx MLI.PATHBUF
|
2022-03-24 20:24:26 +00:00
|
|
|
|
lda #'/'
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MLI.PATHBUF+1
|
|
|
|
|
jsr MLI
|
|
|
|
|
.DA #MLI.C.SETPREFIX
|
|
|
|
|
.DA LDR.GETSETPFX2.P
|
|
|
|
|
bne L218B
|
|
|
|
|
|
|
|
|
|
L216F jsr MLI
|
|
|
|
|
.DA #MLI.C.GETFILEINFO
|
|
|
|
|
.DA LDR.GFINFO.P
|
|
|
|
|
bne L218B
|
|
|
|
|
|
|
|
|
|
ldx LDR.STARTUP.LEN
|
|
|
|
|
stx LDR.STARTUP.LEN1
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
L217D lda LDR.STARTUP.LEN,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta IO.LINEBUF,x
|
|
|
|
|
dex
|
|
|
|
|
bne L217D
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$AD
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta IO.LINEBUF
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
L218B lda LDR.PFXLEN
|
2022-03-06 22:28:52 +00:00
|
|
|
|
cmp #$03
|
|
|
|
|
bcs L2198
|
|
|
|
|
|
|
|
|
|
jsr MLI
|
|
|
|
|
.DA #MLI.C.SETPREFIX
|
|
|
|
|
.DA LDR.GETSETPFX1.P
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
L2198 lda LDR.STARTUP.LEN1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
bne L21C1
|
|
|
|
|
|
|
|
|
|
jsr LDR.KSW
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
|
|
|
|
ldx #LDR.PRODOSBASIC.L-1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
L21A2 lda LDR.PRODOSBASIC,x
|
2022-03-27 12:59:32 +00:00
|
|
|
|
sta $400+12,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
dex
|
|
|
|
|
bpl L21A2
|
|
|
|
|
|
2022-03-27 12:59:32 +00:00
|
|
|
|
ldx #LDR.COPYRIGHT.L-1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
L21AD lda LDR.COPYRIGHT,x
|
2022-03-27 12:59:32 +00:00
|
|
|
|
sta $480+9,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
dex
|
|
|
|
|
bpl L21AD
|
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$8D
|
2022-03-06 22:28:52 +00:00
|
|
|
|
jsr MON.COUT1
|
|
|
|
|
jsr MON.COUT1
|
|
|
|
|
jsr MON.COUT1
|
|
|
|
|
|
|
|
|
|
L21C1 ldx #$02
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
L21C3 lda LDR.JMP.GP.ENTRY,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta DOS.WARMSTART,x
|
|
|
|
|
sta DOS.COLDSTART,x
|
|
|
|
|
sta MON.USRJMP,x
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda LDR.AMPERSANDJMP,x
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MON.AMPERSANDJMP,x
|
|
|
|
|
dex
|
|
|
|
|
bpl L21C3
|
|
|
|
|
|
2022-03-27 12:59:32 +00:00
|
|
|
|
lda #MON.BREAKV
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MON.BRKVECT
|
2022-03-27 12:59:32 +00:00
|
|
|
|
lda /MON.BREAKV
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MON.BRKVECT+1
|
2022-03-27 12:59:32 +00:00
|
|
|
|
lda #GP.ENTRY
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MON.POWERUP
|
2022-03-27 12:59:32 +00:00
|
|
|
|
lda /GP.ENTRY
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MON.POWERUP+1
|
|
|
|
|
eor #$A5
|
|
|
|
|
sta MON.POWERUPBYTE
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$A5
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta AS.TRCFLG
|
2022-03-27 12:59:32 +00:00
|
|
|
|
|
2022-03-27 21:05:28 +00:00
|
|
|
|
* lda BS.IVERSION
|
|
|
|
|
lda #5
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta MLI.IVERSION
|
|
|
|
|
|
|
|
|
|
LDR.JMP.GP.ENTRY
|
|
|
|
|
jmp GP.ENTRY
|
|
|
|
|
LDR.AMPERSANDJMP
|
|
|
|
|
jmp GP.DOSCMD
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
2022-03-13 12:52:24 +00:00
|
|
|
|
LDR.KSW lda GP.INVECT0
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta ZP.KSW
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda GP.INVECT0+1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
sta ZP.KSW+1
|
|
|
|
|
ldx LDR.STARTUP.LEN
|
|
|
|
|
inx
|
2022-03-13 12:52:24 +00:00
|
|
|
|
lda #$8D
|
2022-03-06 22:28:52 +00:00
|
|
|
|
rts
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
LDR.ShrinkRAM lda MLI.DEVPTRS3D2
|
|
|
|
|
ldx MLI.DEVPTRS3D2+1
|
|
|
|
|
|
|
|
|
|
cmp MLI.DEVPTRS S0D1=NOVEV
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
cpx MLI.DEVPTRS+1 S0D1=NODEV
|
|
|
|
|
beq .8 S3D2=NODEV, nothing to do
|
|
|
|
|
|
|
|
|
|
.1 cmp #$00 $FF00 = ProODS /RAM driver
|
|
|
|
|
bne .8
|
|
|
|
|
|
|
|
|
|
cpx #$FF
|
|
|
|
|
bne .8
|
|
|
|
|
|
|
|
|
|
ldx MLI.DEVCNT
|
|
|
|
|
|
|
|
|
|
.2 lda MLI.DEVLST,x LOOKING FOR $BF
|
|
|
|
|
cmp #$BF
|
|
|
|
|
beq .3
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
.9 sec No $BF device found at S3D2
|
|
|
|
|
rts dont use LC !!!!
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.3 cpx MLI.DEVCNT
|
|
|
|
|
beq .5
|
|
|
|
|
|
|
|
|
|
.4 lda MLI.DEVLST+1,x
|
|
|
|
|
sta MLI.DEVLST,x
|
|
|
|
|
inx
|
|
|
|
|
cpx MLI.DEVCNT
|
|
|
|
|
bne .4
|
|
|
|
|
|
|
|
|
|
ldx MLI.DEVCNT
|
|
|
|
|
|
|
|
|
|
.5 stz MLI.DEVLST,x
|
|
|
|
|
dec MLI.DEVCNT
|
|
|
|
|
|
|
|
|
|
jsr LDR.ONLINE
|
|
|
|
|
|
|
|
|
|
ldx #LDR.ZPCODE.L-1
|
|
|
|
|
|
|
|
|
|
.6 lda LDR.ZPCODE,x
|
|
|
|
|
sta ZPCode,x
|
|
|
|
|
dex
|
|
|
|
|
bpl .6
|
|
|
|
|
|
|
|
|
|
ldx #LDR.RAMSIG.L-1
|
|
|
|
|
|
|
|
|
|
.7 jsr ZPCode
|
|
|
|
|
cmp LDR.RAMSIG,x
|
|
|
|
|
bne .9 Bad signature !!!!
|
2022-03-06 22:28:52 +00:00
|
|
|
|
|
2022-03-27 12:59:32 +00:00
|
|
|
|
dex
|
|
|
|
|
bpl .7
|
|
|
|
|
|
|
|
|
|
dec GP.CISPARE1 Tell BYE to reset that...
|
|
|
|
|
|
|
|
|
|
php
|
|
|
|
|
sei
|
|
|
|
|
|
|
|
|
|
sta IO.SETWRITEAUX
|
|
|
|
|
|
|
|
|
|
stz AUX.RAMSIG
|
|
|
|
|
stz AUX.RAMSIG+1 Set $E000-$FFFF as BLOCK USED
|
|
|
|
|
|
|
|
|
|
sta IO.CLRWRITEAUX
|
|
|
|
|
|
|
|
|
|
plp
|
|
|
|
|
|
|
|
|
|
ldx MLI.DEVCNT
|
|
|
|
|
lda #$BF
|
|
|
|
|
sta MLI.DEVLST,x
|
|
|
|
|
inc MLI.DEVCNT
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
LDR.ONLINE jsr MLI
|
|
|
|
|
.DA #MLI.C.ONLINE
|
|
|
|
|
.DA .1
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.1 .DA #2
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA $1F00
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
LDR.ZPCODE sta IO.SETREADAUX
|
|
|
|
|
lda AUX.RAMSIG,x
|
|
|
|
|
sta IO.CLRREADAUX
|
|
|
|
|
rts
|
|
|
|
|
LDR.ZPCODE.L .EQ *-LDR.ZPCODE
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
LDR.RAMSIG .HS FFFE BITMAP for Blocks $70-$7F (LC $D000-FFFF)
|
|
|
|
|
.HS F3 storage type = F, name length = 3
|
|
|
|
|
.AS "RAM"
|
|
|
|
|
LDR.RAMSIG.L .EQ *-LDR.RAMSIG
|
|
|
|
|
*--------------------------------------
|
2022-03-06 22:28:52 +00:00
|
|
|
|
LDR.CSWVECT .DA LDR.CSW
|
|
|
|
|
LDR.KSWVECT .DA LDR.KSW
|
|
|
|
|
LDR.GFINFO.P .DA #10
|
|
|
|
|
.DA LDR.STARTUP.LEN
|
|
|
|
|
.BS 16
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
2022-03-06 22:28:52 +00:00
|
|
|
|
LDR.GETSETPFX1.P
|
|
|
|
|
.DA #1
|
2022-03-13 12:52:24 +00:00
|
|
|
|
.DA LDR.GETSETPFX1.SLASH
|
2022-03-06 22:28:52 +00:00
|
|
|
|
LDR.GETSETPFX1.SLASH
|
2022-03-13 12:52:24 +00:00
|
|
|
|
.DA #1
|
2022-03-06 22:28:52 +00:00
|
|
|
|
.AS "/"
|
|
|
|
|
LDR.STARTUP.LEN1
|
|
|
|
|
.DA #0
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
LDR.ONLINE.P .DA #2
|
2022-03-06 22:28:52 +00:00
|
|
|
|
LDR.ONLINE.P.DEVNUM
|
|
|
|
|
.DA #$70
|
|
|
|
|
.DA MLI.PATHBUF+1
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
2022-03-06 22:28:52 +00:00
|
|
|
|
LDR.GETSETPFX2.P
|
|
|
|
|
.DA #1
|
|
|
|
|
.DA MLI.PATHBUF
|
|
|
|
|
LDR.PFXLEN .DA #0
|
2022-03-27 12:59:32 +00:00
|
|
|
|
*--------------------------------------
|
2022-03-06 22:28:52 +00:00
|
|
|
|
LDR.UNABLE .AS -"*** UNABLE TO EXECUTE BASIC SYSTEM ***"
|
2022-03-27 12:59:32 +00:00
|
|
|
|
LDR.UNABLE.L .EQ *-LDR.UNABLE
|
|
|
|
|
LDR.PRODOSBASIC .AS -"PRODOS BASIC FX"
|
|
|
|
|
LDR.PRODOSBASIC.L .EQ *-LDR.PRODOSBASIC
|
|
|
|
|
LDR.COPYRIGHT .AS -"COPYRIGHT APPLE 1983-92"
|
|
|
|
|
LDR.COPYRIGHT.L .EQ *-LDR.COPYRIGHT
|
|
|
|
|
|
|
|
|
|
.LIST ON
|
|
|
|
|
LDR.SIZE .EQ *-LDR.START
|
|
|
|
|
.LIST OFF
|
2022-03-06 22:28:52 +00:00
|
|
|
|
.BS $2400-*
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE usr/src/basic.fx/basic.s.ldr
|
|
|
|
|
LOAD usr/src/basic.fx/basic.s
|
|
|
|
|
ASM
|