Table of Contents
Advertisement
User Manual for Microboard Computer Development System CDP18S693 & CDP18S694
82
86A8
1311
86A8
1312 SHIFT:
9 7;
86A9
76B7;
1313
86AB
1314
29;
86AC
D8;
1315
1316
86AD
8 9 ;
86AE
3AA8;
1317
8 7 ;
1318
86B0
86B1
F6;
1319
86B2
CF;
1320
86B3
93AF;
1321
86B5
9F;
1322
86B6
32C3;
1323
86B8
2C2C;
1324
86BA
975C;
1325
86BC
lC lC ;
1326
86BE
F800BF;
1327
1328
86C1
30A1;
86C3
1329
86C3
975A;
1330 BYTE:
1331
86C3
2A;
86C6
8AFBFF;
1332
1333
86C9
3AA1;
86CB
9AFB8C;
1334
86CE
3AA1;
1335
86D0
8FFE;
1336
86D2
3 0 3 2 ;
1337
1338
86D4
1339
86D4
1340
86D4
86D4
1341
1342
86D4
86D4
1343
86D4
D483F0;
1344
0D0A46524F4D20
; 1345
86D7
;
86DE
0 0
1345
F800B7A7;
1346
86DF
86E3
A9;
1347
1348
86E4
BDAD;
86E6
D48314;
1349
9DB7;
1350
86E9
1351
86EB
8DA7;
1352
86ED
F800ADBD;
86F1
D483F0;
1353
0A 544F2000;
1354
86F4
86F9
D48314;
1355
86FC
9DB8;
1356
86FE
8DA8;
1357
18;
1358
8700
8701
D48774;
1359
8704
D487A6;
1360
8707
490D0A00;
1361
1362
870B
D 48752;
870E
8 8 5 2 ;
1363 CKEND:
87F3;
1364
8710
8712
3AlA;
1365
8714
985 2 ;
1366
8716
97F3;
1367
1368
8718
3 2 30;
871A
1369
GHI TMPRG1
SHRC;PHI TMPRGl
DEC BITCNT
SEP BITRDR
GLO BITCNT
BNZ SHIFT
GLO PARITY
SHR
LSDF
GHI PC;PLO FLAG
GHI FLAG
BZ BYTE
DEC PTR;DEC PTR
GHI TMPRGl; STR PTR..WRITE IT TO IOCB
INC PT R ;INC PTR
LDI 0;P H I FLAG
BR STRT1
GHI TMPRGl;STR BUFPTR ..PU T BYTE IN BUFFER
DEC BUFPTR
GLO BUFPTR;XRI #FF
BNZ STRTl
GHI BUFPTR;XRI #8C
BNZ STRTl
GLO FLAG;SHL
BR RESTOR
**************************** ** ** ** ** ** ** ** *** ** ** ** ** ** ** ** ** *** ** *******
COPIES DATA FROM MEMORY TO TAPE
#.*************************************************************************
TPWRIT: SEP CALL;,A(OSTRNG)
,A(CRLF),T'FROM ' , 0
LDI 0 ;P H I SRTADD;PLO SRTADD.. CLEAR THE START ADDRESS
PLO TMPRG3
PHI ASL;PLO ASL
SEP CALL;,A(READCR)
GHI ASL; PHI SRTADD
GLO ASL; PLO SRTADD
LDI 0;PLO ASL;PHI ASL
SEP CALL;,A(OSTRNG)
,L F ,T 'T O ' , 0
SEP CALL;,A(READCR)
GHI ASL;PHI ENDADD
GLO ASL;PLO ENDADD
INC ENDADD
SEP CALL;,A(FINDTP)
SEP CALL;,A(WRITEX)
,T 'I ',A ( C R L F ) ,0
SEP CALL;,A(WRTH)
GLO ENDADD;STR SP
GLO SRTADD;XOR
BNZ WRTD2
GHI ENDADD;STR SP
GHI SRTADD;XOR
BZ FINISH
,.KEEP SHIFTING THE BIT INTO THE MSB
. .POSITION
..ASSEMBLE THE BYTE
..READ PARITY ON LAST PASS
. .FOR NO PARITY ERROR
..ELSE SET PARITY FLAG
. . I S
IT BLOCK # ?
..POINT TO BLOCK #
..PO IN T TO HOM E
..RESET BLK FLAG
..U N TIL BUFFER IS FULL
. . SET/RESET PARITY
TAPE SAVE ROUTINE
. POINT TO BEGINNING OF THE BUFFER
..WRITE AN " I " TO TAPE FOR
. ."INSERT"
.>WRITE THE ADDRESS
. DID W E DO ALL THE ADDRESSES?
Advertisement
Table of Contents
