Appendix B— UT62 Monitor Program Listing
8428
8429
8429
8429
8429
8429
8429
8429
8429
8429
8429
8429
842A
842C
842E
8430
8432
8434
8436
8436
8438
843A
843C
843E
8440
8440
8442
8443
8443
8446
8448
8448
844A
844B
844D
844D
844F
8432
8454
8457
8459
845C
845E
8461
8463
8463
8465
8465
8467
8468
846A
846B
846D
846D
8470
8472
8472
8473
8474
8474
75
D5;
0899 EXITM:
SEP R5
0900
0901
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0902
. .
MOVE ROUTINE
0903
. ,
COPIES A BLOCK OF MEMORY FORM ONE CONTINUOUS AREA
0904
. .
TO ANOTHER CONTINUOUS AREA IN MEMORY. THERE IS NO
0905
. .
RESTRICTION AS TO THE DIRECTION OF THE MOVE AND THE
0906
. .
AREAS MAY OVERLAP.
0907
. .
REG USED:
SRC, DEST, CHAR, & CNT
0908
# * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0909
E2;
0910 USRMOV: SEX SP
8B52;
0911
GLO SRC;STR SP
..T E S T THE RELATIVE POSITION
8DF7;
0912
GLO DEST;SM
..O F SOURCE & DESTINATION
3A36;
0913
BNZ DIRECT
..NOT EQUALI
9B52;
0914
GHI SRC;STR SP
..RETURN IF THEY ARE EQUAL
9D77;
0915
GHI DEST;SMB
3 2 7 2 ;
0916
BZ USRBYE
..E X IT TO CALLER
>
0917
8B52;
0918 DIRECT: GLO SRC;STR SP
. .ELSE TEST FOR UP OR DOWN
8DF7;
0919
GLO DEST;SM
..DIRECTION OF THE MOVE
9B52;
0920
GHI SRC;STR SP
9D77;
0921
GHI DEST;SMB
334D;
0922
BDF MOVUP
j
0923
0B5D;
0924 MOVDN:
LDN SRC;STR DEST
. .DO THE MOVE DOWN AND
8A;
0925
GLO CNT
..AND CHECK IF DONE
3A48;
0926
BNZ MOVDNl
9A;
0927
GHI CNT
3 2 7 2 ;
0928
BZ USRBYE
..E X IT TO CALLER
»
0929
lB lD ;
0930 MOVDNl: INC SRC; INC DEST
..ADJUST THE POINTERS
2A;
0931
DEC CNT
..REDUCE THE BYTE COUNT
3 0 4 0 ;
0932
BR MOVDN
. .FINISHED
9
0933
8A52;
0934 MOVUP:
GLO
CNT;STR SP
..S E T THE POINTERS TO THE
8BF4AB;
0935
GLO SRC;ADD;PLO SRC
..T O P OF MOVE AREAS
9A52;
0936
GHI CNT;STR SP
9B74BB;
0937
GHI SRC;ADC;PHI SRC
8A52;
0938
GLO CNT;STR SP
8DF4AD;
0939
GLO DEST;ADD;PLO DEST
9A52;
0940
GHI CNT;STR SP
9D74BD;
0941
GHI DEST;ADC;PHI DEST
3B65;
0942
BNF UP
>
0943
3 0 7 3 ;
0944 ERRGO:
BR 1
..E X IT DF=1 IF OVERFLOW
>
0945
0B5D;
0946 UP:
LDN SRC;STR DEST
..D O THE MOVE UP
8A;
0947
GLO CNT
..AND CHECK IF DONE
3A6D;
0948
BNZ UP1
9A;
0949
GHI CNT
3 2 7 2 ;
0950
BZ USRBYE
..E X IT TO CALLER
>
0951
2B2D2A;
0952 UP1:
DEC SRC;DEC DEST;DEC CNT..ADJUST THE POINTERS
3 0 6 5 ;
0953
BR UP
>
0954
F 6 ;
0955 USRBYE: SHR
..S E T DF=0 IF A[FFFF
D5;
0956
SEP R5
..E X IT TO CALLER
y
0957
J
0958 ##* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *