1 *5242 2 005242 7000 NOP /FORCE USE OF GENERALIZED I/O 3 /ASSEMBLE AT 2600 4 /RUNS AT 7600 5 ORIGIN=2600 6 SYSIO=ORIGIN+42 7 8 DTCODE=ORIGIN+151 9 10 /RESIDENT PAGE OF MONITOR (7600-7777 AND BLOCK 0) 11 /DECTAPE VERSION 12 /FUNCTION: SAVE CORE 7200-7577 IN SCRATCH 13 / READS REST OF MONITOR INTO 14 / CORE 7200-7577 JUMPS TO 15 / MONITOR PAGE 2 (7400) 16 *ORIGIN 17 002600 0070 D0070, 70 /CONSTANT ACTS AS NOP 18 002601 4242 JMS SYSIO /SAVE CORE 7200-7377 19 002602 0005 5 20 002603 0005 5 21 002604 7200 7200 22 002605 0000 0 23 002606 7402 HLT 24 002607 4242 JMS SYSIO /SAVE CORE 7400-7577 25 002610 0005 5 26 002611 0006 6 /SCRATCH BLOCK 2 27 002612 7400 7400 28 002613 0000 0 29 002614 7402 HLT 30 002615 4242 JMS SYSIO /READ IN PAGE 1 OF SAVE 31 002616 0003 3 32 002617 0001 1 33 002620 7200 7200 34 002621 0000 DTCORE, 0 35 002622 7402 HLT 36 002623 4242 JMS SYSIO /READ IN MONITOR PAGE 2 37 002624 0003 3 38 002625 0002 2 39 002626 7400 DTSTRT, 7400 40 002627 0000 0 41 002630 7402 HLT 42 002631 5626 JMP I DTSTRT /ENTER MONITOR PAGE 2 43 002632 0000 DTHOLD, 0 44 002633 0000 DTLINK, 0 45 002634 0000 PLINK, 0 46 002635 0000 LNHOLD, 0 47 002636 7400 TD8E0, 7400 48 002637 7404 TD8E1, 7404 /**MUST FOLLOW TD8E0*** 49 002640 4636 JMST8, JMS I TD8E0 50 002641 0700 P700, 700 51 52 /TD8E DECTAPE AS SYSTEM DEVICE 53 *ORIGIN+42 54 002642 0000 DTSYS, 0 /SYSTEM I/O 55 002643 7200 CLA 56 002644 1642 TAD I DTSYS /GET FCN WORD 57 002645 2242 ISZ DTSYS 58 002646 3351 DCA DTCODE 59 002647 1351 TAD DTCODE /FIND FIELD BITS 60 002650 0200 AND D0070 61 002651 3332 DCA ARG1 62 002652 1344 TAD PCDF /SET TRANSFER FIELD CDF'S 63 002653 1332 TAD ARG1 64 002654 3304 DCA XCDF 65 002655 1304 TAD XCDF 66 002656 3337 DCA XCDF1 67 002657 1351 TAD DTCODE /MOVE WRITE BIT TO BIT 0 68 002660 7112 CLL RTR 69 002661 7012 RTR /CLEAR JUNK 70 002662 0356 AND D4000 71 002663 1361 TAD D0100 /WRITE/READ ONLY 1 BLOCK 72 002664 1332 TAD ARG1 /ADD TO FIELD BITS 73 002665 3332 DCA ARG1 74 002666 1642 TAD I DTSYS /GET BLOCK 75 002667 2242 ISZ DTSYS 76 002670 3334 DCA ARG3 77 002671 1642 TAD I DTSYS /GET CORE ADDR 78 002672 2242 ISZ DTSYS /BUMP TO LINK WORD ADDR. 79 002673 3333 DCA ARG2 80 002674 1333 TAD ARG2 /FORM ADDRESS OF 201TH WORD 81 002675 1360 TAD D0200 82 002676 3234 DCA PLINK 83 002677 1242 TAD DTSYS /SAVE LINK WORD ADDR 84 002700 3233 DCA DTLINK 85 002701 1642 TAD I DTSYS /GET LINK WORD 86 002702 2242 ISZ DTSYS /BUMP TO ERROR ADDRESS 87 002703 3235 DCA LNHOLD /SAVE LINK 88 002704 6201 XCDF, CDF 0 /POINT TO TRANSFER FIELD 89 002705 1634 TAD I PLINK /SAVE ENDANGERED WORD 90 002706 3232 DCA DTHOLD 91 002707 1235 TAD LNHOLD /PUT LINK WORD IN XFER FIELD 92 002710 3634 DCA I PLINK 93 002711 6201 CDF 0 /BACK TO FIELD 0 94 002712 1351 TAD DTCODE /IS THIS AN INDIRECT RETURN 95 002713 0357 AND D1000 96 002714 7650 SNA CLA 97 002715 5322 JMP .+5 /NO 98 002716 1642 TAD I DTSYS /YES, ERROR HOLDS RETURN ADDR -1 99 002717 3242 DCA DTSYS 100 002720 7040 CMA /PREPARE TO DUMP LINK AT 7777 101 002721 3233 DCA DTLINK 102 002722 1240 DTTRY, TAD JMST8 /SET UNIT 0 ENTRY 103 002723 3331 DCA .+6 104 002724 1351 TAD DTCODE /GET UNIT CODE 105 002725 0241 AND P700 /ANYTHING BUT 0 IS UNIT 1 106 002726 7640 SZA CLA 107 002727 2331 ISZ .+2 /BUMP TO UNIT 1 ADDRESS 108 002730 6212 CIF 10 109 002731 4636 JMS I TD8E0 110 002732 0000 ARG1, 0 /FUNCT 111 002733 0000 ARG2, 0 /CORE 112 002734 0000 ARG3, 0 /BLOCK 113 002735 7610 SKP CLA /ERROR 114 002736 2242 ISZ DTSYS /OK, BUMP TO NORMAL RETURM 115 002737 6201 XCDF1, CDF 0 /SET XFER FIELD 116 002740 1634 TAD I PLINK /SAVE LINK WORD 117 002741 3235 DCA LNHOLD 118 002742 1232 TAD DTHOLD /RESTORE ENDANGERED WORD 119 002743 3634 DCA I PLINK 120 002744 6201 PCDF, CDF 0 /BACK TO 0 121 002745 1235 TAD LNHOLD /PUT AWAY LINK WORD (OR DUMP AT 7777) 122 002746 3633 DCA I DTLINK 123 002747 5642 JMP I DTSYS 124 *ORIGIN+156 125 002756 4000 D4000, 4000 126 002757 1000 D1000, 1000 127 002760 0200 D0200, 200 128 002761 0100 D0100, 100 129 $ ARG1 2732 ARG2 2733 ARG3 2734 D0070 2600 D0100 2761 D0200 2760 D1000 2757 D4000 2756 DTCODE 2751 DTCORE 2621 unreferenced DTHOLD 2632 DTLINK 2633 DTSTRT 2626 DTSYS 2642 DTTRY 2722 unreferenced JMST8 2640 LNHOLD 2635 ORIGIN 2600 P700 2641 PCDF 2744 PLINK 2634 SYSIO 2642 TD8E0 2636 TD8E1 2637 unreferenced XCDF 2704 XCDF1 2737