Appendix B—UT62 Monitor Program Listing
71
82DE 8BFA0F;
0659
GLO SRC;ANI LNECNT
82E l 3AEB;
0660
BNZ SAMELN
..END OF CURRENT LINE?
82E3 D 483F0;
0661
SEP CALL;,A(OSTRNG)
82E6 3B0D00;
0662
, T '; ', C R , 0
82E9 30C5;
0663
BR OUTPUT
82EB
0664
82EB F 6;
0665 SAMELN : SHR
82EC 33D2;
0666
BDF DATOUT
..W ITHIN PAIR
82EE 30CD;
0667
BR
SPCOUT
..E LSE BETWEEN PAIRS
82F0
0668
82F0
0669 .•* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
82F0
0670 . .
READ 1 CHARACTER FROM TAPE AND DF=1 IF HEX
82F0
0671 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
82F0
0672
82F0 D 48542;
0673 RDHEX:
SEP CALL; , A( READT)
82F3 D4816F;
0674
SEP CALL; , A( CKHXE)
82F6 D5;
0675
SEP R5
82F7
0676
82F7
0677 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
82F7
0678 . .
UT62 MOVE COMMAND
82F7
0679 . .
CALLS USRMOV AND REQUESTS SRC&DEST ADDR'S
82F7
0680 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
82F7 D 48303;
0681 MOVE:
SEP CALL; , A( READAD)
..G ET SRC&DEST ADDR'S
82FA D48429;
0682
SEP CALL;,A(USRMOV)
..D O THE MOVE
82FD C 38085;
0683
LBDF ERROR
..ERROR IF OVER FFFF ON MOVE
8300 C 08246;
0684
LBR PRMPT2
. . I F OK,GOTO UT62 PROMPT
8303
0685 ..* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
8303
0686 . .
!SUBROUTINE TO GET THE ADDRESSES FOR OTHER ROUTINES
8303
0687 .* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
8303 D48200;
0688 READAD : SEP CALL;,A(OPTION)
. . DETERMINE THE MODE
8306 FB20;
0689
XRI SPACE
..MUST BE A SPACE
8308 3A60;
0690
BNZ ERRl
..E LSE ERROR
830A ADBD;
0691
PLO ASL;PHI ASL
..CLEAR INPUT REGISTER
830C D487EA;
0692
SEP CALL; , A( READHX)
..IN PU T THE CONSTANT
830F FBOD;
0693
XRI CR
. . 'C R ' TERMINATES
8311 3A 60;
0694
BNZ ERRl
..E LSE ERROR
8313 D5;
0695
SEP R5
8314
8314
8314
8314
8317
8319
831B
831C
831C
831C
831C
831C
831C
83lD
83lD
8 3 lF
8 3 lF
831F
831F
8 3 lF
831F
831F
8 3 lF
D4813B;
FBOD;
3A14;
D5;
D3;
F 8 1 6 ;
0696
0697
0698
0699
0700
0701
0702
0703
0704
0703
0706
0707
0708
0709
0710
0711
0712
0713
0714
0715
0716
0717
0718
#
#*****************************************************
FILLS ASL UNTIL A CARRIAGE RETURN IS ENTERED
READCR: SEP CALL;,A(READAH)
XRI CR
BNZ READCR
SEP R5
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
.. READ A BIT OF DATA FROM TAPE
. .
ENTERED WITH SET P TO BITRDR
**************************************************************
RBYE:
SEP PC
RDBIT:
LDI #16
. . 0 / 1 BIT DISTINGUISH TIMER
**************************************************************
FOR 2 MHZ CRYSTAL
THE TIMING LOOP USED GIVES 22X24US DELAY(528)
TO TEST FO RA 1 /0 TRANSITION DATA FROM TAPE
TYPICALLY HAS A 350/750U S DIFFERENCE. ( 0 / 1 )
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *