Atari 400 Technical Reference Manual page 154

LDA ftPUTCHR
STA ICCOM,X
LDA ftPST
STA ICBAL,X
LDA
ftPST/256
STA ICBAH,X
LDA
ftFLEN
STA ICBLL,X
LDA
#FLEN/256
STA ICBLH,X
JSR CIOV
BMI CERR
SET UP FOR "PUT CHARACTERS.
II
POINT TO START OF APPLIC. PROG.
SET UP
#
OF BYTES TO WRITE.
; WRITE ENTIRE FILE.
; ERROR.
NOW CLOSE THE FILE AFTER SUCCESSFUL WRITE.
CERR
LDA
STA
JSR
BMI
BRK
BRK
ftC LOSE
ICCOM,X
CIOV
CERR
CFILE .BYTE
IIC:",CR
; THIS IS THE CARTRIDGE HEADER
SET UP FOR
If
CLOSE.
II
CLOSE THE FILE.
ERROR.
STOP WHEN DONE.
STOP ON ERROR.
FILE NAME.
*= $BFF9 "AU CARTR IDGE.
INIT RTS
· WORD BOOTB
· BVTE 0,4
· WORD INIT
· END
OPERATING
SYSTEM C016555 -- Section 10
169