https://wiki.theretrowagon.com/w/index.php?action=history&feed=atom&title=Miob.asm
Miob.asm - Revision history
2026-05-22T13:54:00Z
Revision history for this page on the wiki
MediaWiki 1.30.0
https://wiki.theretrowagon.com/w/index.php?title=Miob.asm&diff=968&oldid=prev
Jeffa: Initial creation
2018-08-10T04:36:47Z
<p>Initial creation</p>
<p><b>New page</b></p><div><syntaxhighlight lang="text" g="" style="max-height:10em; overflow:auto"> <br />
;MIO BOARD CRI INITIALIZATION PROGRAMS <br />
;ADDRESS DEFINITIONS FOR MIO BOARD CONFIGURE') <br />
;AS DEFINED IN MIO USER GUIDE - SECTION 1.2<br />
SIC EQU 42S<br />
PIO EOU 419<br />
CNT ECU 43H<br />
CRI EQU 409<br />
SSPT EQU OFFS . ;SENSE LIGHTS AND SWITCHES<br />
RASA SOU 31009<br />
BASH EQU 3000H<br />
BUFR EQU 3600H<br />
STACK EQU 36009<br />
;SYNC RECOGNITION PROGRAM - FINDS INITIAL SYNC <br />
;AND THEN SETS ALL SENSE LIGHTS FOR EACH SYNC<br />
;BYTE THEREAFTER. IF A SYNC BYTE IS MISSED SETS SENSE <br />
;SENSE SWITCHES TO ZERO AND LOOKS FOR SYNC AGAIN.<br />
CRC BASS<br />
SYNR: MVI A,609<br />
OUT CNT ;ENABLE READ AND READY BY SIT<br />
XRA A<br />
CNA ;FOR PROPER LIGHTS <br />
OUT SSPT ;CLEAR LIGHTS<br />
SYNR1: IAN CNT ;WAIT FOR READY<br />
ANI 4<br />
JZ SYNR1 <br />
IN CRI ;SEE IF SYNC BYTE<br />
SUI 0E6H<br />
JNZ SYNR ;IF NOT, RELCOP<br />
OUT SSPT ;YES SET LIGHTS TO ONES <br />
MVI A,200 ;SET TO READ BYTES<br />
OUT CNT<br />
JMP SYNR1 ;GO LOOK AT NEXT BYTE<br />
;SYNC GENERATION PROGRAM- WRITES SYNC BYTE CONTINUOUSLY<br />
SYNC: MVI A,10H ;SET WRITE ENABLE<br />
OUT CNT<br />
SYNG2: MVI A,0E6H ;OUTPUT SYNC CHAR <br />
OUT CRI<br />
SYNG1: IN CNT ;WAIT TIL READY AGAIN<br />
AN/ 4<br />
JZ SYNG1 <br />
JMP SYNG2 ;THEN DC ANOTHER<br />
;BOOTSTRAP PROGRAM FOR TARBELL CODE<br />
BOOT: LXI H,BASA ;GET STARTING ADDRESS<br />
MVI A,60H ;SET READ AND READY BY BIT<br />
OUT CNT<br />
BOOT': IN CNT ;LOOK FOR SYNC CHAR<br />
ANT 4<br />
J2 pool,'<br />
IN CBI ;GET CHAR<br />
CPI OE‘i<br />
JNZ 900T1<br />
MVI A,20H ;GO TO BYTE<br />
OCT CNT<br />
BOOT2: IN CNT ;WAIT FOR BYTE<br />
ANI 4<br />
JZ BOOT2<br />
<br />
</syntaxhighlight ></div>
Jeffa