| 1 | " S1 |
| 2 | |
| 3 | .. = 0 |
| 4 | t = 0 |
| 5 | orig: |
| 6 | hlt |
| 7 | jmp pibreak |
| 8 | |
| 9 | . = orig+7 |
| 10 | -1 |
| 11 | |
| 12 | . = orig+020 |
| 13 | 1f |
| 14 | iof |
| 15 | dac u.ac |
| 16 | lac 020 |
| 17 | dac 1f |
| 18 | lac 1f-1 |
| 19 | dac 020 |
| 20 | lac u.ac |
| 21 | jmp 1f+1 |
| 22 | 1f |
| 23 | 1: 0 |
| 24 | iof |
| 25 | dac u.ac |
| 26 | lacq |
| 27 | dac u.mq |
| 28 | lac 8 |
| 29 | dac u.rq |
| 30 | lac 9 |
| 31 | dac u.rq+1 |
| 32 | jms copy; 10; u.rq+2; 6 |
| 33 | lac 1b |
| 34 | dac u.rq+8 |
| 35 | -1 |
| 36 | dac .savblk |
| 37 | dac .insys |
| 38 | lac uquant |
| 39 | jms betwen; d0; maxquant |
| 40 | jms swap |
| 41 | ion |
| 42 | -1 |
| 43 | tad u.rq+8 |
| 44 | jms laci |
| 45 | jms betwen; o20001; swn |
| 46 | jmp badcal |
| 47 | tad swp |
| 48 | dac .+1 |
| 49 | jmp .. i |
| 50 | |
| 51 | . = orig+0100 |
| 52 | jmp coldentry |
| 53 | jms halt |
| 54 | |
| 55 | okexit: |
| 56 | dzm u.ac |
| 57 | sysexit: |
| 58 | ion |
| 59 | lac .savblk |
| 60 | sza |
| 61 | jmp 1f |
| 62 | jms copy; sysdata; dskbuf; 64 |
| 63 | cla |
| 64 | jms dskio; 07000 |
| 65 | 1: |
| 66 | dzm .insys |
| 67 | jms chkint |
| 68 | skp |
| 69 | jmp .save |
| 70 | jms copy; u.rq+2; 10; 6 |
| 71 | lac u.rq+1 |
| 72 | dac 9 |
| 73 | lac u.rq |
| 74 | dac 8 |
| 75 | lac u.mq |
| 76 | lmq |
| 77 | lac u.ac |
| 78 | jmp u.rq+8 i |
| 79 | |
| 80 | swap: 0 |
| 81 | ion |
| 82 | 1: |
| 83 | jms lookfor; 3 " out/ready |
| 84 | jmp 1f |
| 85 | jms lookfor; 1 " in/ready |
| 86 | skp |
| 87 | jmp 1b |
| 88 | dzm maxquant |
| 89 | jmp 3f |
| 90 | 1: |
| 91 | dac 9f+t |
| 92 | jms lookfor; 2 " in/notready |
| 93 | jmp 1f |
| 94 | jms lookfor; 1 " in/ready |
| 95 | jmp 1f |
| 96 | jmp 2f |
| 97 | 1: |
| 98 | lac swap |
| 99 | dac u.swapret |
| 100 | iof |
| 101 | lac o200000 |
| 102 | tad u.ulistp i |
| 103 | dac u.ulistp i |
| 104 | ion |
| 105 | jms dskswap; 07000 |
| 106 | lac u.dspbuf |
| 107 | sna |
| 108 | jmp 2f |
| 109 | law dspbuf |
| 110 | jms movdsp |
| 111 | 2: |
| 112 | iof |
| 113 | lac o600000 |
| 114 | tad 9f+t i |
| 115 | dac 9f+t i |
| 116 | ion |
| 117 | jms dskswap; 06000 |
| 118 | lac u.swapret |
| 119 | dac swap |
| 120 | lac o20 |
| 121 | dac maxquant |
| 122 | lac u.dspbuf |
| 123 | sza |
| 124 | jms movdsp |
| 125 | 3: |
| 126 | dzm uquant |
| 127 | iof |
| 128 | jmp swap i |
| 129 | t = t+1 |
| 130 | |
| 131 | swp: |
| 132 | jmp . |
| 133 | .save; .getuid; .open; .read; .write; .creat; .seek; .tell |
| 134 | .close; .link; .unlink; .setuid; .rename; .exit; .time; .intrp |
| 135 | .chdir; .chmod; .chown; badcal; .sysloc; badcal; .capt; .rele |
| 136 | .status; badcal; .smes; .rmes; .fork |
| 137 | swn: |
| 138 | .-swp-1 i |
| 139 | |
| 140 | .intrp: |
| 141 | lac u.ac |
| 142 | dac u.intflg |
| 143 | jmp okexit |
| 144 | |
| 145 | .sysloc: |
| 146 | lac u.ac |
| 147 | and o17777 |
| 148 | jms betwen; d1; locn |
| 149 | jms error |
| 150 | tad locsw |
| 151 | dac .+1 |
| 152 | lac .. |
| 153 | dac u.ac |
| 154 | jmp sysexit |
| 155 | |
| 156 | locsw: |
| 157 | lac . |
| 158 | iget; inode; userdata; sysdata; copy; copyz; betwen; dskrd |
| 159 | dskwr; dskbuf; dpdata; namei; pbsflgs; alloc; free; dspdata |
| 160 | crdata |
| 161 | locn: |
| 162 | .-locsw-1 |
| 163 | |
| 164 | chkint: 0 |
| 165 | lac .insys |
| 166 | sza |
| 167 | jmp chkint i |
| 168 | lac .int1 |
| 169 | sna |
| 170 | jmp 1f |
| 171 | sad u.ofiles+2 |
| 172 | jmp 2f |
| 173 | 1: |
| 174 | lac .int2 |
| 175 | sna |
| 176 | jmp chkint i |
| 177 | sad u.ofiles+2 |
| 178 | skp |
| 179 | jmp chkint i |
| 180 | dzm .int2 |
| 181 | jmp 1f |
| 182 | 2: |
| 183 | dzm .int1 |
| 184 | 1: |
| 185 | lac u.intflg |
| 186 | sza |
| 187 | jmp chkint i |
| 188 | -1 |
| 189 | dac .insys |
| 190 | ion |
| 191 | isz chkint |
| 192 | jmp chkint i |
| 193 | |