;scoff - supercart off ;aycock, 9/87 ; ; *=$5555 ;out of the way ; ; dosvec = $A rtclok = $14 ramtop = $6A statsav = $100 iccom = $342 icbal = $344 icbah = $345 icax1 = $34A basicf = $3F8 cintlk = $3FA crtstat = $AFFF portb = $D301 ossoff = $D508 ciov = $E456 ; ; .byte $60 ;RTS for no re-entry ; ; edev .byte "E:",$9B ;in a safe place ; ; ; START ;THE ENTRY POINT... ; ldx #0 ;close E: lda #12 sta iccom jsr ciov ; lda rtclok ;wait for clock CHK ; to change cmp rtclok beq CHK ; sei ;disable interrupts and lda crtstat ; the supercart sta statsav sta ossoff lda #0 sta cintlk ; lda #1 ;disable builtin basic sta basicf lda portb ora #2 sta portb ; lda #$C0 ;reset ramtop sta ramtop ; cli ;enable interrupts and ldx #0 ; reopen E: lda #3 sta iccom lda #edev & $FF sta icbal lda #edev / $100 sta icbah lda #12 sta icax1 jsr ciov ; jmp (dosvec) ; back to Dos! ; ; INIT VECTOR ; *=$2E2 ; .word START