Table of Contents
Advertisement
84
User Manual for Microboard Computer Development System CDP18S693 & CDP18S694
1428 FOUND:
8798 73;
8799 F 840;
1429
1430
879B 3B9E;
879D FE;
1431
879E
1432
879E 73;
1433 DRBIT:
1434
879F F 80 0 7 3 ;
87A2 30AF;
1433
1436
87A4
1437
87A4
1438
87A4
87A4
1439
87A4
1440
1441
87A4
87A4
1442
1443
87A4
87A6
1444
87A6 46BF;
1443 WRITEX: LDA
87A8 3 2 6 1 ;
1446
1447
87AA D 48590;
87AD 30A6;
1448
87AF
1449
87AF
1430
87AF
1451
1452
87AF
1453
87AF
1454 FIXERR: GHI SP;PH I PTR
87AF 92BC;
1455
87B1 82AC;
87B3 lC lC ;
1456
1457
87B5 lC ;
87B6 D5;
1458
1459
87B7
87B7
1460
87B7
1461
1462 # #**************** * * * * * * * * * * ** ** ** ** *** ** ** ** ** ** ** ** ** *** ** ** ** ** ** *
87B7
1463
87B7
1464 A S C II:
87B7 9 9 ;
1465
87B8 F6F6F6F6A9;
1466
87BD D487C8;
87C0 99FA0F;
1467
1468
87C3 A9;
87C4 D487C8;
1469
1470
87C7 D5;
1471
87C8
1472 ASCIIR: GLO TMPRG3;ADI # 3 0 ;P H I CHAR
87C8 89FC30BF;
87CC FF3A3BD3;
1473
1474
87D0 FC41BF;
87D3 >
1475
87D3 D 48590;
1476 ASC1:
1477
87D6 D5;
87D7
1478
87D7
1479
1480
87D7
87D7
1481
87D7
1482
1483
87D7
87D7
1484
87D7
1485
87D7 6 0 ;
1486 REGSTR: IRX
87D8 72B7;
1487
STXD
LDI DRIVE0
BNF DRBIT
SHL
STXD
LDI 0 ; STXD
BR FIXERR
****************** * * * * * * * * * *** ** ** ** ** ** ** *** ** ** ** ** ** ** ** *** ** ** ***
, .
TAPE WRITE SUBROUTINES
# ******************** * * * * * * * *** ** ** ** ** *** ** ** ** ** ** ** ** *** ** ** ** ** ***
..WRITE IMMEDIATE
ORG #87A6
LINK;PHI CHAR
BZ WRITER
SEP CALL;,A(TWRITE)
BR WRITEX
*********************** ** * * * ** ** *** ** ** ** ** ** ** ** *** ** ** ** ** ** ** ** **
# #
REST OF THE FIND TAPE ROUTINE
*********************** * * * * ** ** ** ** *** ** ** ** ** ** ** ** ** *** ** ** ** ** ** *
GLO SP;PLO PTR
INC PTR;INC PTR
INC PTR
SEP R5
************************* * * ** ** ** ** ** ** *** ** ** ** ** ** ** ** *** ** ** ** **
..ROUTINE TO OUTPUT ASCII BYTE TO TAPE
GHI TMPRG3
SHR;SHR;SHR;SHR;PLO TMPRG3
SEP CALL;,A (A SC IIR)
GHI TMPRG3;ANI #0F
PLO TMPRG3
SEP CALL;,A (ASCIIR)
SEP R5
SMI #3A;BM ASCl ..FO R 0 TO 9
ADI # 4 1 ;PHI CHAR..FOR A TO F
SEP CALL;,A(TWRITE)
SEP R5
a* ********************** * * * * ** ** ** ** ** *** ** ** ** ** ** ** ** ** *** ** ** *
..
REGISTER RESTORE
. .
RESTORES THE REGISTERS SAVED BY REGSAV,
. .
ASSUMES STACK POINTER IS 1 BYTE ABOVE THE
. .
STORED DATA. EXITS POINTING TO A FREE BYTE
#*************************** * ** ** *** ** ** ** ** ** ** ** ** *** ** ** ** ** **
LDXA;PHI TMPRG1
..STORE IT FOR IOCB
. . I F DRIVE 0 SELECTED
..ELSE SET TO 1
..STORE 0 COUNT + DRIVE FOR IOCB
..S E T BLOCK#=0
..NEED TO JUMP OVER THE NEXT ORG
..ONCE AGAIN FOR THE PROM PROGRAMMER
..GET THE IMMEDIATE BYTE AND
..WRITE IT TO TAPE UNTIL GET
. . A 0
..PO IN T PTR TO IOCB AREA
..PO IN T TO HOM E IN IOCB
..DO THE HIGH NIBBLE
..AND THE LOW ONE
Advertisement
Table of Contents
