Advertisement
IMSAI PAPER TAPE LOADER
;
REV 0
;
T H I S LOADER I S DESIGNED TO LOAD PAPER TAPES IN
;
THE STANDARD OBJECT FORMAT CSEE THE SOFTWARE
;
SECT ION OF THE 8 0 8 0 USER MANUAL) FROM AN ASR 33
;
TELETYPE-.
■ ,
THAT I T MAY BE RUN FROM PROM WITHOUT R EQU IRING
}
A RAM CARD OF IT S OWN.
;
U S IN G THE LOADER:
;
I F
;
BOOTSTRAP SEQUENCE (DOCUMENTED ELSEWHERE),
;
I T
W IL L START IT S E L F U P .
}
START I T AT
;
BY TYPING A « ON THE T E L ET YP E .
;
TO BE LOADED I N THE READER, AND S T R IK E ANY KEY.
;
THE LOADER W IL L START THE READER AUTOMATICALLY.
;
THE LOADER W IL L STOP THE TAPE AND TYPE A "
;
E IT H E R OF TWO CASES:
;
( 1 )
;
;
\
( 2 )
;
;
;
I N EITH ER CASE,
;
A KEY.
0 0 0 0
ORG
FD00
1 X 0 1 0 0
START:
LX I
LX I
FD0 3 2 1 0 0 0 0
FD0 6 19
:
DAD
s l o
FD0 7 D 206 FD
JNC
;
I N I T I A L I Z E
*
' 3EAA
MV I
f d o a
OUT
FD0C D 3 0 3
MV 1
FD0E
3E 90
FD1 0 D 3 0 3
OUT
FD1 2 3EFA
MV I
FD1 A D 30 3
OUT
FD1'5 3 E 1 7
MV I
FD18
D 30 3
OUT
FD1A 3 E2A
MV I
OUT
F D 1 C D 3 0 2
FD1E DB02
IN
IN
FD20
SL2 :
DB0 3
FD2 2 E 602
AN I
FD2A CA20FD
JZ
IN
FD2 7 DB0 2
3E 11
MV I
FD29
FD2B D3 02
OUT
FD2D
1 E0 0
L O O P 1 :
MV I
FD2F
0E 00
MV I
3 / 3 / 7 6
I T
USES NO STACK AND NO LOCAL RAM,
T H I S
LOADER I S
BROUGHT IN W IT H THE
OTHERWISE,
IT S B E G IN N IN G .
I T
W ILL RESPOND
MOUNT THE TAPE
I T
HAS SEEN AN END OF F I L E RECORD.
T H I S CASE,
ZERO W IL L BE DISPLAYED
THE PROGRAMMED OUTPUT L I G H T S .
I T
ENCOUNTERED A BAD RECORD.
AN NQN-ZERO QUANTITY WILL BE DISPLAYED
I N THE PROGRAMMED OUTPUT L I G H T S .
LOADING MAY BE CONTINUED BY S T R IK IN G
OFDOOH
:W A IT ABOUT A SECOND SO A
0 , 1
H, 0
;
PREVIOUS
D
;
HAS TIM E TO STOP THE READER
SLO
S IO BOARD.
A,OAAH
; GET DUMMY MODE BYTE
3
; GET RESET COMMAND
A, 90H
; ISSUE
I T
3
A,OFAH
; IS SUE MODE BYTE TO S IO
3
A, 1 7H
3
; IS SUE COMMAND BYTE
; GET AN ASTERISK
A,
; PR I NT I T
02
02
,• THROW AWAY ANY CHAR IN BUFFER
; GET STATUS
05
; CHECK FOR CHAR READY
02
; KEEP W AITING
SL2
; READ CHAR AND
02
A, 1 1 H
; GET
'X O N '
02
; START READER
E , 0
; CLEAR FLAG
c , o
•
;
CLEAR CHECKSUM
SO
MANUALLY
IN
IN
IN
IN T H IS CASE
1X O F F 1 CHARACTER
IGNOR
CHAR
P G M - 4 Ä
1 2 " - 67
Advertisement
