Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

""COMMAND FILE TO DUMP THE TO11Q"
""DAN DEUFEL"
""LAST EDITED: 16-DEC-81"

""THE FOLLOWING ARE DEVICE TYPE DEFINITIONS:"

""	D.CCTY==1	- DEVICE CODE FOR THE CTY"
""	D.CDL1==2	- DEVICE CODE FOR DL-11"
""	D.CDH0==3	- DEVICE CODE FOR DH-11"
""	D.CDLS==4	- DEVICE CODE FOR DATA LINE SCANNER"
""	D.CLPT==5	- DEVICE CODE FOR LPT"
""	D.CCDR==6	- DEVICE CODE FOR CDR"
""	D.CCLK==7	- DEVICE CODE FOR CLOCK"
""	D.FEPD==10	- PSEUDO DEVICE FOR FE"

"" NOTE: THE FOLLOWING ARE OUTPUT ONLY AND ARE ASSOCIATED WITH ERROR LOGGING"

""	D.CCPU==200	- PSEUDO DEVICE FOR PDP-10 CPU"
""	D.CKLE==201	- KL ERROR PSEUDO DEVICE"
""	D.CDTE==202	- DTE-20 PSEUDO DEVICE"
""	D.CRJP==203	- RJP04/06 PSEUDO DEVICE CODE"
""	D.CDMB==204	- DM-11/BB PSEUDO DEVICE CODE"
""	D.CLOG==205	- ASCII 'PARSER.LOG'"
""	D.CKLN==210	- KLINIK PSEUDO DEVICE"

0<ZZ:
C

""TO11Q::"TO11Q/Q<AA:
%IF EQ AA %EMPTY
%LOOP:


""ADDRESS OF CURRENT NODE::"CAA=""NUMBER OF BYTES IN NODE::"AA+2/Q<EE:
""POINTER TO NEXT NODE::"AA/Q<BB:""FUNCTION::"1BAA+4/Q<CC:
""BLOCK SIZE::"1BAA+5/""DEVICE TYPE::"CAA+6/""DEVICE NUMBER::"1BAA+10/
CC&377<CC:CC-4<DD:
%IF NE DD %CHK3

""LINE/CHARACTER DATA::"1TAA+12/

%GOTO %NEXT1

%CHK3:
CC-3<DD:
%IF NE DD %CHK6
EE-12<WW:

""STRING DATA::"
WW
TAA+12/

%GOTO %NEXT1

%CHK6:
CC-6<DD:
%IF NE DD %CHK13

""SET DEVICE STATUS FUNCTION"

%GOTO %NEXT1

%CHK13:
CC-13<DD:
%IF NE DD %CHK14

""FLUSH DEVICE OUTPUT QUEUE FUNCTION"

%GOTO NEXT1

%CHK14:
CC-14<DD:
%IF NE DD %CHK16
EE-12<WW:

""SEND ALL MESSAGE::"
WW
TAA+12/

%GOTO %NEXT1

%CHK16:
CC-16<DD:
%IF NE DD %CHK20

""DEVICE HANG UP FUNCTION"

%GOTO %NEXT1

%CHK20:
CC-20<DD:
%IF NE DD %CHK21

""XOFF TERMINAL FUNCTION"

%GOTO %NEXT1

%CHK21:
CC-21<DD:
%IF NE DD %CHK22

""XON TERMINAL FUNCTION"

%GOTO %NEXT1

%CHK22:
CC-22<DD:
%IF NE DD %CHK23

""SET TERMINAL SPEED FUNCTION"

%GOTO %NEXT1

%CHK23:
CC-23<DD:
%IF NE DD %CHK25

""SET LINE ALLOCATION FUNCTION"

%GOTO %NEXT1

%CHK25:
CC-25<DD:
%IF NE DD %CHK26

""ACK ALL FUNCTION"

%GOTO %NEXT1

%CHK26:
CC-26<DD:
%IF NE DD %CHK27

""START/STOP LINE FUNCTION"

%GOTO %NEXT1

%CHK27:
CC-27<DD:
%IF NE DD %CHK30

""ENABLE/DISABLE REMOTES FUNCTION"

%GOTO %NEXT1

%CHK30:
CC-30<DD:
%IF NE DD %CHK31

""LOAD LP RAM FUNCTION"

%GOTO %NEXT1

%CHK31:
CC-31<DD:
%IF NE DD %CHK32

""LOAD LP VFU FUNCTION"

%GOTO %NEXT1

%CHK32:
CC-32<DD:
%IF NE DD %CHK34

""SUPPRESS SEND-ALL FUNCTION"

%GOTO %NEXT1

%CHK34:
CC-34<DD:
%IF NE DD %CHK35

""ENABLE/DISABLE CFE XOFF PROCESSING FUNCTION"

%GOTO %NEXT1

%CHK35:
CC-35<DD:
%IF NE DD %NEXT1

""BREAK-THROUGH WRITE FUNCTION"

%GOTO %NEXT1

%NEXT1:
BB<AA:
ZZ+1<ZZ:
%IF NE AA %LOOP


""TOTAL NUMBER OF NODES IN THE TO11Q::"C12RZZ=


%GOTO %END


%EMPTY:


""THE TO11Q IS EMPTY"


%END: