Radio Shack TRS-80 Operation Manual page 104

Computer Graphics Operation Manual
- - - - - - - - - - T R S - B O
® - - - - - - - - - -
Subroutines
Error exits
EGRPH
;
BOMB
;AII done. Return to caller.
;Go get next graphics byte
;Write disk record
;Go fill buffer for next record
;Required Command Parameter Not Found
;Next row. Set X to zero
;Status
=
graphics, waits, no incs
;Return if file not open
;Print "ERROR nn" message
;Go close file
A,47
A, (OPNFLG)
A
NZ
DE,DCBEE
4428H
8~H
8lH
82H
83H
~
(X) ,A
A, (YPOS)
A
(YPOS) ,A
(Y) ,A
NGRPH
DE
DE,DCBEE
4439H
DE
NZ,BOMB
B,C
NXTREC
(EFLAG) ,A
B,A
A,39
8
EXIT
CLOSE
A,,eFFH
(STATUS) ,A
IY
BC
DE
HL
A, (EFLAG)
~
LD
OUT
LD
INC
LD
OUT
DJNZ
PUSH
LD
CALL
POP
JR
LD
DJNZ
CALL
LD
OUT
POP
POP
POP
POP
LD
CP
RET
LD
LD
LD
RST
JP
LD
OR
RET
LD
JP
EQU
EQU
EQU
EQU
DEFB
;
EXIT
.
,
ERROR
;
CLOSE
;
X
Y
GRAPH
STATUS
EFLAG
~5~
~51
~52
~53
~54
~55
~56
~57
~58
~59
~6~
~61
~62
~63
~64
~65
~66
~67
~68
~69
~7~
~71
~72
~73
~74
;
~75
~76
~77
~78
~79
~8~
~81
~82
;
~83
~84
;
~85
~86
~87
~88
~89
~9~
~91
~92
~93
~94
~95
~96
~97
~98
- - - - - - - - - l I a d I 8 I 1 1 a e l l - - - - - - - - -
-74-