76 ___ User Manual for Microboard Computer Development System CDP18S693 & CDP18S694
8474
8474
8474
8474
8474
8474
8474
8477
8479
847B
847E
8485
8487
8488
848A
848C
848C
848F
8491
8493
8495
8496
8498
849A
849C
849E
84A0
84A0
84A0
84A0
84A3
84A5
84A7
84A9
84AC
84AE
84B0
84B2
84B2
84B5
84B7
84B9
84BB
84BD
84BF
84BF
84C2
84C4
84C6
84C8
84CA
84CC
84CE
84CE
84D1
84D3
84D5
84D7
84D9
84DC
0959
0960
0961
TAPE LOADER ROUTINE
..LOADS USER MEMORY FROM TAPE, ASSUMES TAPE HAS "M" OR " I " TO
..INDICATE START OF DATA TO BE STORED. "P " FOLLOWED BY AN ADDRESS
0962
0963
0964
..STARTS PROGRAM EXECUTION WITH P=0 AND X=0.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
D 48774;
0965 TPLOAD: SEP CALL;,A(FINDTP)
..SELECT TAPE
9C73;
0966
GHI RC;STXD
8C73;
0967
GLO RC;STXD
D483F0;
0968
SEP CALL;,A(OSTRNG)
0A4C4F4144494E
4 7 0 0 ;
;0 9 6 9
0969
,L F,T'L O A D IN G ',0
12;
0970
INC SP
72AC;
0971
LDXA;PLO RC
02BC;
>
0972
0973
LDN SP;PH I RC
D 48542;
0974 READZ:
SEP CALL; ,A(READT)
..READ 1 A SCII DIGIT
FB50;
0975
XRI T 'P '
..CHECK FOR PROGRAM EXECUTE
32DF;
0976
BZ ADLP
FBlD ;
0977
XRI #lD
..S E T MEMORY?
CE;
0978
LSZ
FB04;
0979
XRI #04
..IN SERT MEMORY?
32A0;
0980
BZ READXl
FB5A;
0981
XRI #5A
..CHECK FOR EOF(DC3)
3 2 F 9 ;
0982
BZ PRMPT4
308C;
0983
BR READZ
>
0984
j
>
0985
0986
..READ THE HEX ADDRESS
D 482F0;
0987 READXl: SEP CALL;,A(RDHEX) ..IGNORE ALL TILL HEX DIGIT
33B2;
0988
BDF READX2
..THEN GET SECOND ONE
FB2E;
0989
XRI #2E
..UNLESS " . " WHICH MEANS COMMENT
3AA0;
0990
BNZ READXl
D 48542;
0991 READXA: SEP CALL;,A(READT)
..THEN IGNORE ALL TILL END OF LINE
FBOD;
0992
XRI CR
3AA9;
0993
BNZ READXA
30A0;
)
0994
0995
BR READXl
D482F0;
0996 READX2: SEP CALL;,A(RDHEX) ..READ NEXT A SCII CHARACTER
33B2;
0997
BDF READX2
. . I F HEX KEEP READING
FB20;
0998
XRI SPACE
..OTHERWISE MUST BE A SPACE
3AE7;
0999
BNZ ERRORX
9DB8;
1000
GHI ASL;PHI ADRPTR
8DA8;
9
1001
1002
GLO ASL;PLO ADRPTR
D482F0;
1003 READX3: SEP CALL;,A(RDHEX) ..READ NEXT A SCII CHARACTER
33CE;
1004
BDF READXB
. . I F HEX THEN I T 'S DATA & NEED ANOTHER
FBOD;
1005
XRI CR
..O R COULD BE END OF LINE
328C;
1006
BZ READZ
..THEN START AGAIN
FB36;
1007
XRI #36
..O R IF " ; " THEN IT IS END OF DATA
32A9;
1008
BZ READXA
..FO R THIS LINE
30BF;
1009
1010
BR READX3
. . CAN ONLY BE MORE DATA
D 482F0;
1011 READXB: SEP CALL;,A(RDHEX) ..READ 2ND ASCII CHARACTER
3BE7;
1012
BNF ERRORX
..BETTER BE A HEX DIGIT
8D58;
1013
GLO ASL;STR ADRPTR
..STORE AT THE SPECIFIED ADDRESS
E8F3;
1014
SEX ADRPTR;XOR
..MAKE SURE THERE WAS RAM THERE
32DC;
1015
BZ WRTOK
D485C5;
i
1016
1017
SEP CALL;,A(NOTRAM)