mirror of https://github.com/mist64/msbasic.git
465 lines
8.9 KiB
ArmAsm
465 lines
8.9 KiB
ArmAsm
.segment "INIT"
|
|
|
|
.ifdef KBD
|
|
FNDLIN2:
|
|
php
|
|
jmp FNDLIN
|
|
.endif
|
|
|
|
; ----------------------------------------------------------------------------
|
|
COLD_START:
|
|
.ifdef KBD
|
|
lda #$81
|
|
sta $03A0
|
|
lda #$FD
|
|
sta $03A1
|
|
lda #$20
|
|
sta $0480
|
|
lda $0352
|
|
sta $04
|
|
lda $0353
|
|
sta $05
|
|
.else
|
|
.ifndef CONFIG_CBM_ALL
|
|
lda #<QT_WRITTEN_BY
|
|
ldy #>QT_WRITTEN_BY
|
|
jsr STROUT
|
|
.endif
|
|
COLD_START2:
|
|
.ifndef CBM2
|
|
ldx #$FF
|
|
stx CURLIN+1
|
|
.endif
|
|
.if INPUTBUFFER >= $0100
|
|
ldx #$FB
|
|
.endif
|
|
txs
|
|
.ifndef CONFIG_CBM_ALL
|
|
lda #<COLD_START2
|
|
ldy #>COLD_START2
|
|
sta GORESTART+1
|
|
sty GORESTART+2
|
|
sta GOSTROUT+1
|
|
sty GOSTROUT+2
|
|
lda #<AYINT
|
|
ldy #>AYINT
|
|
sta GOAYINT
|
|
sty GOAYINT+1
|
|
lda #<GIVAYF
|
|
ldy #>GIVAYF
|
|
sta GOGIVEAYF
|
|
sty GOGIVEAYF+1
|
|
.endif
|
|
lda #$4C
|
|
.ifdef CONFIG_CBM_ALL
|
|
sta JMPADRS
|
|
.endif
|
|
sta GORESTART
|
|
.ifndef CONFIG_CBM_ALL
|
|
sta GOSTROUT
|
|
sta JMPADRS
|
|
.endif
|
|
.if .def(CONFIG_SMALL) || .def(MICROTAN) || .def(APPLE)
|
|
sta USR
|
|
.endif
|
|
|
|
.ifndef KIM
|
|
.ifdef APPLE
|
|
lda #<USR_FUNC
|
|
ldy #>USR_FUNC
|
|
.else
|
|
lda #<IQERR
|
|
ldy #>IQERR
|
|
.endif
|
|
sta USR+1
|
|
sty USR+2
|
|
.endif
|
|
.ifndef CONFIG_CBM_ALL
|
|
.ifdef APPLE
|
|
lda #$28
|
|
.else
|
|
.ifdef MICROTAN
|
|
lda #$50
|
|
.else
|
|
lda #$48
|
|
.endif
|
|
.endif
|
|
sta Z17
|
|
.ifdef APPLE
|
|
lda #$0E
|
|
.else
|
|
lda #$38
|
|
.endif
|
|
sta Z18
|
|
.endif
|
|
.ifdef CBM2
|
|
lda #$28
|
|
sta $0F
|
|
lda #$1E
|
|
sta $10
|
|
.endif
|
|
.endif /* KBD */
|
|
|
|
.ifdef CONFIG_SMALL
|
|
.ifdef KBD
|
|
ldx #GENERIC_CHRGET_END-GENERIC_CHRGET+4
|
|
.else
|
|
ldx #GENERIC_CHRGET_END-GENERIC_CHRGET
|
|
.endif
|
|
.else
|
|
ldx #GENERIC_CHRGET_END-GENERIC_CHRGET-1 ; XXX
|
|
.endif
|
|
L4098:
|
|
lda GENERIC_CHRGET-1,x
|
|
sta STRNG2+1,x
|
|
dex
|
|
bne L4098
|
|
.ifdef CONFIG_2
|
|
lda #$03
|
|
sta DSCLEN
|
|
.endif
|
|
.ifndef KBD
|
|
txa
|
|
sta SHIFTSIGNEXT
|
|
.ifdef CONFIG_CBM_ALL
|
|
sta Z03
|
|
.endif
|
|
sta LASTPT+1
|
|
.if .defined(CONFIG_NULL) || .defined(CONFIG_PRINTNULLS)
|
|
sta Z15
|
|
.endif
|
|
.ifndef CONFIG_11
|
|
sta POSX
|
|
.endif
|
|
pha
|
|
sta Z14
|
|
.ifdef CBM2
|
|
inx
|
|
stx $01FD
|
|
stx $01FC
|
|
.else
|
|
.ifndef MICROTAN
|
|
lda #$03
|
|
sta DSCLEN
|
|
.endif
|
|
.ifndef CONFIG_11
|
|
lda #$2C
|
|
sta LINNUM+1
|
|
.endif
|
|
jsr CRDO
|
|
.endif
|
|
.ifdef APPLE
|
|
lda #$01
|
|
sta $01FD
|
|
sta $01FC
|
|
.endif
|
|
ldx #TEMPST
|
|
stx TEMPPT
|
|
.ifndef CONFIG_CBM_ALL
|
|
lda #<QT_MEMORY_SIZE
|
|
ldy #>QT_MEMORY_SIZE
|
|
jsr STROUT
|
|
.ifdef APPLE
|
|
jsr INLINX
|
|
.else
|
|
jsr NXIN
|
|
.endif
|
|
stx TXTPTR
|
|
sty TXTPTR+1
|
|
jsr CHRGET
|
|
cmp #$41
|
|
beq COLD_START
|
|
tay
|
|
bne L40EE
|
|
.endif
|
|
.ifndef CBM2
|
|
lda #<RAMSTART2
|
|
.endif
|
|
ldy #>RAMSTART2
|
|
.ifdef CONFIG_2
|
|
sta TXTTAB
|
|
sty TXTTAB+1
|
|
.endif
|
|
sta LINNUM
|
|
sty LINNUM+1
|
|
.ifdef CBM2
|
|
tay
|
|
.else
|
|
ldy #$00
|
|
.endif
|
|
L40D7:
|
|
inc LINNUM
|
|
bne L40DD
|
|
inc LINNUM+1
|
|
.ifdef CBM1
|
|
lda $09
|
|
cmp #$80
|
|
beq L40FA
|
|
.endif
|
|
.ifdef CBM2
|
|
bmi L40FA
|
|
.endif
|
|
L40DD:
|
|
.ifdef CONFIG_2
|
|
lda #$55
|
|
.else
|
|
lda #$92
|
|
.endif
|
|
sta (LINNUM),y
|
|
cmp (LINNUM),y
|
|
bne L40FA
|
|
asl a
|
|
sta (LINNUM),y
|
|
cmp (LINNUM),y
|
|
.ifdef CONFIG_CBM_ALL
|
|
beq L40D7
|
|
.else
|
|
.ifdef CONFIG_SMALL
|
|
beq L40D7
|
|
bne L40FA
|
|
.else
|
|
bne L40FA
|
|
beq L40D7
|
|
.endif
|
|
L40EE:
|
|
jsr CHRGOT
|
|
jsr LINGET
|
|
tay
|
|
beq L40FA
|
|
jmp SYNERR
|
|
.endif
|
|
L40FA:
|
|
lda LINNUM
|
|
ldy LINNUM+1
|
|
sta MEMSIZ
|
|
sty MEMSIZ+1
|
|
.ifndef MICROTAN
|
|
sta FRETOP
|
|
sty FRETOP+1
|
|
.endif
|
|
L4106:
|
|
.ifndef CONFIG_CBM_ALL
|
|
.ifdef APPLE
|
|
lda #$FF
|
|
jmp L2829
|
|
.word STROUT ; PATCH!
|
|
jsr NXIN
|
|
.else
|
|
lda #<QT_TERMINAL_WIDTH
|
|
ldy #>QT_TERMINAL_WIDTH
|
|
jsr STROUT
|
|
jsr NXIN
|
|
.endif
|
|
stx TXTPTR
|
|
sty TXTPTR+1
|
|
jsr CHRGET
|
|
tay
|
|
beq L4136
|
|
jsr LINGET
|
|
lda LINNUM+1
|
|
bne L4106
|
|
lda LINNUM
|
|
cmp #$10
|
|
bcc L4106
|
|
L2829:
|
|
sta Z17
|
|
L4129:
|
|
sbc #$0E
|
|
bcs L4129
|
|
eor #$FF
|
|
sbc #$0C
|
|
clc
|
|
adc Z17
|
|
sta Z18
|
|
L4136:
|
|
.endif
|
|
.ifdef KIM /* RAM? */
|
|
lda #<QT_WANT
|
|
ldy #>QT_WANT
|
|
jsr STROUT
|
|
jsr NXIN
|
|
stx TXTPTR
|
|
sty TXTPTR+1
|
|
jsr CHRGET
|
|
ldx #<RAMSTART1
|
|
ldy #>RAMSTART1
|
|
cmp #'Y'
|
|
beq L4183
|
|
cmp #'A'
|
|
beq L4157
|
|
cmp #'N'
|
|
bne L4136
|
|
L4157:
|
|
ldx #<IQERR
|
|
ldy #>IQERR
|
|
stx UNFNC+26
|
|
sty UNFNC+26+1
|
|
ldx #<ATN
|
|
ldy #>ATN
|
|
cmp #'A'
|
|
beq L4183
|
|
ldx #<IQERR
|
|
ldy #>IQERR
|
|
stx UNFNC+20
|
|
sty UNFNC+20+1
|
|
stx UNFNC+20+1+3
|
|
sty UNFNC+20+1+3+1
|
|
stx UNFNC+20+1+1
|
|
sty UNFNC+20+1+1+1
|
|
ldx #<SIN_COS_TAN_ATN
|
|
ldy #>SIN_COS_TAN_ATN
|
|
L4183:
|
|
.else
|
|
ldx #<RAMSTART2
|
|
ldy #>RAMSTART2
|
|
.endif
|
|
stx TXTTAB
|
|
sty TXTTAB+1
|
|
ldy #$00
|
|
tya
|
|
sta (TXTTAB),y
|
|
inc TXTTAB
|
|
.ifndef CBM2
|
|
bne L4192
|
|
inc TXTTAB+1
|
|
L4192:
|
|
.endif
|
|
.if CONFIG_SCRTCH_ORDER = 1
|
|
jsr SCRTCH
|
|
.endif
|
|
lda TXTTAB
|
|
ldy TXTTAB+1
|
|
jsr REASON
|
|
.ifdef CBM2
|
|
lda #<QT_BASIC
|
|
ldy #>QT_BASIC
|
|
jsr STROUT
|
|
.else
|
|
jsr CRDO
|
|
.endif
|
|
lda MEMSIZ
|
|
sec
|
|
sbc TXTTAB
|
|
tax
|
|
lda MEMSIZ+1
|
|
sbc TXTTAB+1
|
|
jsr LINPRT
|
|
lda #<QT_BYTES_FREE
|
|
ldy #>QT_BYTES_FREE
|
|
jsr STROUT
|
|
.if CONFIG_SCRTCH_ORDER = 2
|
|
jsr SCRTCH
|
|
.endif
|
|
.ifdef CONFIG_CBM_ALL
|
|
jmp RESTART
|
|
.else
|
|
lda #<STROUT
|
|
ldy #>STROUT
|
|
sta GOSTROUT+1
|
|
sty GOSTROUT+2
|
|
.if CONFIG_SCRTCH_ORDER = 3
|
|
jsr SCRTCH
|
|
.endif
|
|
lda #<RESTART
|
|
ldy #>RESTART
|
|
sta GORESTART+1
|
|
sty GORESTART+2
|
|
jmp (GORESTART+1)
|
|
.endif
|
|
|
|
.if .def(KIM) || .def(OSI)
|
|
QT_WANT:
|
|
.byte "WANT SIN-COS-TAN-ATN"
|
|
.byte $00
|
|
.endif
|
|
QT_WRITTEN_BY:
|
|
.ifndef CONFIG_CBM_ALL
|
|
.ifdef APPLE
|
|
asc80 "COPYRIGHT 1977 BY MICROSOFT CO"
|
|
.byte $0D,$00
|
|
.else
|
|
.byte $0D,$0A,$0C
|
|
.ifdef CONFIG_SMALL
|
|
.byte "WRITTEN BY RICHARD W. WEILAND."
|
|
.else
|
|
.byte "WRITTEN BY WEILAND & GATES"
|
|
.endif
|
|
.byte $0D,$0A,$00
|
|
.endif
|
|
QT_MEMORY_SIZE:
|
|
.byte "MEMORY SIZE"
|
|
.byte $00
|
|
QT_TERMINAL_WIDTH:
|
|
.byte "TERMINAL WIDTH"
|
|
.byte $00
|
|
.endif
|
|
QT_BYTES_FREE:
|
|
.byte " BYTES FREE"
|
|
.ifdef CBM1
|
|
.elseif .def(CBM2)
|
|
.byte $0D,$00
|
|
.elseif .def(APPLE)
|
|
.byte $00
|
|
.else
|
|
.byte $0D,$0A,$0D,$0A
|
|
.endif
|
|
QT_BASIC:
|
|
.ifdef OSI
|
|
.byte "OSI 6502 BASIC VERSION 1.0 REV 3.2"
|
|
.endif
|
|
.ifdef KIM
|
|
.byte "MOS TECH 6502 BASIC V1.1"
|
|
.endif
|
|
.ifdef MICROTAN
|
|
.byte "MICROTAN BASIC"
|
|
.endif
|
|
.ifdef CBM1
|
|
.byte $13
|
|
.byte "*** COMMODORE BASIC ***"
|
|
.byte $11,$11,$11,$00
|
|
.endif
|
|
.ifdef CBM2
|
|
.byte "### COMMODORE BASIC ###"
|
|
.byte $0D,$0D,$00
|
|
.endif
|
|
.ifdef APPLE
|
|
.byte $0A,$0D,$0A
|
|
.byte "APPLE BASIC V1.1"
|
|
.endif
|
|
.ifndef CONFIG_CBM_ALL
|
|
.byte $0D,$0A
|
|
.ifdef MICROTAN
|
|
.byte "(C) 1980 MICROSOFT" ; E1F2 28 43 29 20 31 39 38 30 (C) 1980
|
|
.else
|
|
.byte "COPYRIGHT 1977 BY MICROSOFT CO."
|
|
.endif
|
|
.byte $0D,$0A,$00
|
|
.endif
|
|
.endif /* KBD */
|
|
|
|
.segment "EXTRA"
|
|
|
|
.ifdef OSI
|
|
.include "osi_extra.s"
|
|
.endif
|
|
|
|
.ifdef KIM
|
|
.include "kim_extra.s"
|
|
.endif
|
|
|
|
.ifdef CONFIG_CBM1_PATCHES
|
|
.include "cbm1_patches.s"
|
|
.endif
|
|
|
|
|
|
.ifdef KBD
|
|
.include "kbd_extra.s"
|
|
.endif
|
|
|
|
.ifdef APPLE
|
|
.include "apple_extra.s"
|
|
.endif
|
|
|
|
.ifdef MICROTAN
|
|
.include "microtan_extra.s"
|
|
.endif |