_ORIGIN EQU $2000
IOCB0  EQU $0
ICHID  EQU $0340
ICDNO  EQU ICHID+1
ICCOM  EQU ICDNO+1
ICSTA  EQU ICCOM+1
ICBAL  EQU ICSTA+1
ICBAH  EQU ICBAL+1
ICPTL  EQU ICBAH+1
ICPTH  EQU ICPTL+1
ICBLL  EQU ICPTH+1
ICBLH  EQU ICBLL+1
ICAX1  EQU ICBLH+1
ICAX2  EQU ICAX1+1
OPEN   EQU $03
GETREC EQU $05
GETCHR EQU $07
PUTCHR EQU $0B
PUTREC EQU $09
CLOSE  EQU $0C
OREAD  EQU $04
OWRITE EQU $08
CIOV   EQU $E456  ;CIO ENTRY POINT
PORTB  EQU $D301
NMIEN  EQU $D40E
BOOTFL EQU $09
APPMHI EQU $0E
RAMTOP EQU $6A
MEMTOP EQU $2E5
COLDST EQU $0244
       DW  $FFFF
       DW  $481
       DW  END-1
       ORG $481
       ASC 'D8:D1:D1:'
GO     LDA  #$FF
       STA  PORTB
       LDX  #IOCB0
       LDA  #CLOSE
       STA  ICCOM,X
       JSR  CIOV
       LDX  #IOCB0
       LDA  #>$C000
       STA  MEMTOP
       LDA  #<$C000
       STA  MEMTOP+1
       LDA  #>$BC00
       STA  APPMHI
       LDA  #<$BC00
       STA  APPMHI+1
       LDA  #$C0
       STA  RAMTOP
       LDA  #OPEN
       STA  ICCOM,X
       LDA  #>DEF.FILN
       STA  ICBAL,X
       LDA  #<DEF.FILN
       STA  ICBAH,X
       LDA  #0
       STA  ICAX2,X
       LDA  #$C
       STA  ICAX1,X
       JSR  CIOV
       JMP  _ORIGIN+6
DEF.FILN ASC  'E:'
       DB   $9B
END    EQU *
       DW  $FFFF
       DW  $2E0
       DW  $2E1
       DW  GO