Advertisement
MI03.PRN
• MIO BOARD CRI INITIALISATION PROGRAMS
;ADDRESS DEFINITIONS FOR MIO BOARD CONFIGURED
; AS DEFINED IN MIO USER GUIDE - SECTION 1.2
0042
SIO
0041 =
PIO
0 043 =
CNT
0040 -
CRI
00FF =
SSPT
=
BASA
3100
BASE
3000
M
3600 =
BUFR
3600 3
STACK
; SYNC RECOGNITION PROGRAM - FINDS INITIAL SYNC
;AND THEN SETS ALL SENSE LIGHTS FOR EACH SYNC
; BYTE THEREAFTER.
;SENSE SWITCHES TO ZERO AND LOOKS FOR SYNC AGAIN.
3000
3000 3E60
SYNR:
3002 D343
3004 AF
3005 2F
3006 D3FF
3008 D843
SYNR1:
3 OQA ES04
3 00C CA0330
3 OOF DB40
3 o n D6E6
3013 C20030
3 016 D3FF
3013 3E20
301A □343
3 01C C30830
( SYNC GENERATION PROGRAM - WRITES SYNC BYTE CONTINUOUS!
3 OIF 3E10
SYNG :
3021 0343
3023 3EE6
SYNG2
3025 D340
3027 DB43
- SYNG1
3029 E604
3G2B CA2730
302E C32330
;BOOTSTRAP PROGRAM FOR TARBELL CODE
3031 210031
BOOT:
3034 3E60
3036 D343
3038 0843
BOOTl
303A E604
3 03C CA3830
3 0 3 F
DB40
3041 FSE6
3043 C23830
3046 3E20
3048 0343
304A □843
BOOT2:
3 04C E604
3 04E CA4A30
APPENDIX C
EOO 423
EQO 419
EQU 43H
EQO 40K
;SENSE LIGHTS AND SWITCHES
EQO 0FF9
EQU 3100H
EQO 3000H
EQO 360OH
EQO 3600H
IF A SYNC BYTE IS MISSED SETS SENSE
ORG BASB
MVI A,50H
;ENABLE READ AND READY BY BIT
OOT CNT
XRA A
CMA
(FOR PROPER LIGHTS
;CLEAR LIGHTS
OOT SSPT
CNT
;WAIT FOR READY
AN I 4
JZ SYNR1
; SEE IF SYNC BYTE
IN CRI
SOI 0E6H
JNZ SYNR
;IF NOT, RELOOP
OOT SSPT
;YES SET LIGHTS TO ONES
MVI A ,20H
(SET TO READ BYTES
OUT CNT
JMP SYNRl
;GO LOOK AT NEXT BYTE
MVI A r10H
;SET WRITE ENABLE
OUT CNT
MVI A,0E6H
(OUTPUT SYNC CHAR
OOT CRI
IN CNT
(WAIT TIL READY AGAIN
AN I 4
JZ SYNG1
JMP SYNG2
;THEN DC ANOTHER
LX I H ,BASA
;GET STARTING ADDRESS
MVI A , 5 0 H
;SET READ AND READY BY BIT
OOT CNT
IN CNT
(LOOK FOR SYNC CHAR
AN I 4
JZ BOOTl
IN CRI
(GET CHAR
CPI 0E6H
JNZ BOOTl
MVI A ,20H
;GO TO BYTE
OOT CNT
IN CNT
(WAIT FOR BYTE
ANI 4
JZ BOOT 2
? - aGE 1
Advertisement
