|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15872 (0x3e00)
Notes: RCSL-43-GL-8999, RCSL-43-GL-9000
Names: »MUPAR«
└─⟦24ab61a13⟧ Bits:30001810 SG0109 Floppy
└─ ⟦this⟧ »/MUPAR«
0x0000…0020 0d 0a 3b 09 7f 09 7f 09 7f 09 7f 09 7f 09 7f 52 43 53 4c 20 20 3a 20 34 33 2d 47 4c 39 30 30 30 ┆ ; RCSL : 43-GL9000┆ 0x0020…0040 0d 0a 0d 0a 3b 09 7f 09 7f 09 7f 09 7f 09 7f 09 7f 41 55 54 48 45 52 3a 20 4d 4c 4d 0d 0a 0d 0a ┆ ; AUTHER: MLM ┆ 0x0040…0060 3b 09 7f 09 7f 09 7f 09 7f 09 7f 09 7f 45 44 49 54 45 44 3a 20 37 39 2e 30 35 2e 32 33 0d 0a 0d ┆; EDITED: 79.05.23 ┆ 0x0060…0080 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 3b 09 7f 09 7f 09 7f 4d 55 50 41 52 2e 30 32 0d 0a 0d 0a ┆ ; MUPAR.02 ┆ 0x0080…00a0 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 3b 4b 45 59 57 4f 52 44 53 3a 09 7f 52 43 33 36 ┆ ;KEYWORDS: RC36┆ 0x00a0…00c0 30 30 2c 20 4d 4f 4e 49 54 4f 52 2c 20 55 53 45 52 20 53 59 4d 42 4f 4c 53 2e 0d 0a 0d 0a 3b 41 ┆00, MONITOR, USER SYMBOLS. ;A┆ 0x00c0…00e0 42 53 54 52 41 43 54 3a 09 7f 52 43 33 36 30 30 20 4d 4f 4e 49 54 4f 52 20 55 53 45 52 20 53 59 ┆BSTRACT: RC3600 MONITOR USER SY┆ 0x00e0…0100 4d 42 4f 4c 20 44 45 46 49 4e 49 54 49 4f 4e 53 2e 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d ┆MBOL DEFINITIONS. ┆ 0x0100…0120 0a 0d 0a 0d 0a 3b 20 41 53 43 49 49 20 50 41 50 45 52 20 54 41 50 45 3a 20 52 43 53 4c 3a 34 33 ┆ ; ASCII PAPER TAPE: RCSL:43┆ 0x0120…0140 2d 47 4c 38 39 39 39 0d 0a 0c 0d 0a 2e 54 49 54 4c 20 4d 55 50 41 52 0d 0a 2e 52 44 58 20 31 30 ┆-GL8999 .TITL MUPAR .RDX 10┆ 0x0140…0160 0d 0a 3b 20 20 20 2a 2a 2a 2a 2a 2a 20 20 20 46 4f 52 4d 41 54 20 44 45 46 49 4e 49 54 49 4f 4e ┆ ; ****** FORMAT DEFINITION┆ 0x0160…0180 53 20 20 20 2a 2a 2a 2a 2a 2a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆S ****** ┆ 0x0180…01a0 20 20 3b 20 49 54 45 4d 3a 0d 0a 2e 44 55 53 52 20 4e 45 58 54 3d 20 30 20 20 20 20 20 20 20 20 ┆ ; ITEM: .DUSR NEXT= 0 ┆ 0x01a0…01c0 20 3b 20 20 20 4e 45 58 54 20 49 54 45 4d 20 49 4e 20 41 20 51 55 45 55 45 20 4f 46 20 49 54 45 ┆ ; NEXT ITEM IN A QUEUE OF ITE┆ 0x01c0…01e0 4d 53 0d 0a 2e 44 55 53 52 20 50 52 45 56 3d 20 4e 45 58 54 2b 31 20 20 20 20 3b 20 20 20 50 52 ┆MS .DUSR PREV= NEXT+1 ; PR┆ 0x01e0…0200 45 56 49 4f 55 53 20 49 54 45 4d 20 49 4e 20 41 20 51 55 45 55 45 20 4f 46 20 49 54 45 4d 53 0d ┆EVIOUS ITEM IN A QUEUE OF ITEMS ┆ 0x0200…0220 0a 2e 44 55 53 52 20 43 48 41 49 4e 3d 50 52 45 56 2b 31 20 20 20 20 3b 20 20 20 4e 45 58 54 20 ┆ .DUSR CHAIN=PREV+1 ; NEXT ┆ 0x0220…0240 49 54 45 4d 20 49 4e 20 41 20 43 48 41 49 4e 20 4f 46 20 49 54 45 4d 53 0d 0a 2e 44 55 53 52 20 ┆ITEM IN A CHAIN OF ITEMS .DUSR ┆ 0x0240…0260 53 49 5a 45 3d 20 43 48 41 49 4e 2b 31 20 20 20 3b 20 20 20 53 49 5a 45 20 4f 46 20 54 48 45 20 ┆SIZE= CHAIN+1 ; SIZE OF THE ┆ 0x0260…0280 49 54 45 4d 0d 0a 2e 44 55 53 52 20 4e 41 4d 45 3d 20 53 49 5a 45 2b 31 20 20 20 20 3b 20 20 20 ┆ITEM .DUSR NAME= SIZE+1 ; ┆ 0x0280…02a0 4e 41 4d 45 20 4f 46 20 54 48 45 20 49 54 45 4d 20 28 54 48 52 45 45 20 57 4f 52 44 53 29 0d 0a ┆NAME OF THE ITEM (THREE WORDS) ┆ 0x02a0…02c0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 50 52 4f 43 45 53 ┆ ; PROCES┆ 0x02c0…02e0 53 20 44 45 53 43 52 49 50 54 4f 52 3a 0d 0a 3b 20 20 20 20 20 4e 45 58 54 20 20 20 20 20 20 20 ┆S DESCRIPTOR: ; NEXT ┆ 0x02e0…0300 20 20 20 20 20 3b 20 20 20 4e 45 58 54 20 50 52 4f 43 45 53 53 20 49 4e 20 41 20 51 55 45 55 45 ┆ ; NEXT PROCESS IN A QUEUE┆ 0x0300…0320 20 4f 46 20 50 52 4f 43 45 53 53 45 53 0d 0a 3b 20 20 20 20 20 50 52 45 56 20 20 20 20 20 20 20 ┆ OF PROCESSES ; PREV ┆ 0x0320…0340 20 20 20 20 20 3b 20 20 20 50 52 45 56 49 4f 55 53 20 50 52 4f 43 45 53 53 20 49 4e 20 41 20 51 ┆ ; PREVIOUS PROCESS IN A Q┆ 0x0340…0360 55 45 55 45 20 4f 46 20 50 52 4f 43 45 53 53 45 53 0d 0a 3b 20 20 20 20 20 43 48 41 49 4e 20 20 ┆UEUE OF PROCESSES ; CHAIN ┆ 0x0360…0380 20 20 20 20 20 20 20 20 20 3b 20 20 20 4e 45 58 54 20 50 52 4f 43 45 53 53 20 49 4e 20 54 48 45 ┆ ; NEXT PROCESS IN THE┆ 0x0380…03a0 20 50 52 4f 43 45 53 53 20 43 48 41 49 4e 0d 0a 3b 20 20 20 20 20 53 49 5a 45 20 20 20 20 20 20 ┆ PROCESS CHAIN ; SIZE ┆ 0x03a0…03c0 20 20 20 20 20 20 3b 20 20 20 53 49 5a 45 20 4f 46 20 54 48 45 20 50 52 4f 43 45 53 53 20 44 45 ┆ ; SIZE OF THE PROCESS DE┆ 0x03c0…03e0 53 43 52 49 50 54 4f 52 0d 0a 3b 20 20 20 20 20 4e 41 4d 45 20 20 20 20 20 20 20 20 20 20 20 20 ┆SCRIPTOR ; NAME ┆ 0x03e0…0400 3b 20 20 20 4e 41 4d 45 20 4f 46 20 54 48 45 20 50 52 4f 43 45 53 53 20 28 54 48 52 45 45 20 57 ┆; NAME OF THE PROCESS (THREE W┆ 0x0400…0420 4f 52 44 53 29 0d 0a 2e 44 55 53 52 20 45 56 45 4e 54 3d 4e 41 4d 45 2b 33 20 20 20 20 3b 20 20 ┆ORDS) .DUSR EVENT=NAME+3 ; ┆ 0x0420…0440 20 45 56 45 4e 54 20 51 55 45 55 45 20 48 45 41 44 20 28 54 57 4f 20 57 4f 52 44 53 29 0d 0a 2e ┆ EVENT QUEUE HEAD (TWO WORDS) .┆ 0x0440…0460 44 55 53 52 20 42 55 46 46 45 3d 45 56 45 4e 54 2b 32 20 20 20 3b 20 20 20 46 52 45 45 20 4d 45 ┆DUSR BUFFE=EVENT+2 ; FREE ME┆ 0x0460…0480 53 53 41 47 45 20 42 55 46 46 45 52 20 43 48 41 49 4e 20 48 45 41 44 0d 0a 2e 44 55 53 52 20 50 ┆SSAGE BUFFER CHAIN HEAD .DUSR P┆ 0x0480…04a0 52 4f 47 3d 20 42 55 46 46 45 2b 31 20 20 20 3b 20 20 20 50 52 4f 47 52 41 4d 20 41 44 44 52 45 ┆ROG= BUFFE+1 ; PROGRAM ADDRE┆ 0x04a0…04c0 53 53 0d 0a 2e 44 55 53 52 20 53 54 41 54 45 3d 50 52 4f 47 2b 31 20 20 20 20 3b 20 20 20 53 54 ┆SS .DUSR STATE=PROG+1 ; ST┆ 0x04c0…04e0 41 54 45 20 4f 46 20 50 52 4f 43 45 53 53 0d 0a 2e 44 55 53 52 20 54 49 4d 45 52 3d 53 54 41 54 ┆ATE OF PROCESS .DUSR TIMER=STAT┆ 0x04e0…0500 45 2b 31 20 20 20 3b 20 20 20 54 49 4d 45 52 20 43 4f 55 4e 54 0d 0a 2e 44 55 53 52 20 50 52 49 ┆E+1 ; TIMER COUNT .DUSR PRI┆ 0x0500…0520 4f 52 3d 54 49 4d 45 52 2b 31 20 20 20 3b 20 20 20 50 52 49 4f 52 49 54 59 0d 0a 2e 44 55 53 52 ┆OR=TIMER+1 ; PRIORITY .DUSR┆ 0x0520…0540 20 42 52 45 41 44 3d 50 52 49 4f 52 2b 31 20 20 20 3b 20 20 20 42 52 45 41 4b 20 41 44 44 52 45 ┆ BREAD=PRIOR+1 ; BREAK ADDRE┆ 0x0540…0560 53 53 0d 0a 2e 44 55 53 52 20 41 43 30 3d 20 20 42 52 45 41 44 2b 31 20 20 20 3b 20 20 20 53 41 ┆SS .DUSR AC0= BREAD+1 ; SA┆ 0x0560…0580 56 45 44 20 41 43 30 0d 0a 2e 44 55 53 52 20 41 43 31 3d 20 20 41 43 30 2b 31 20 20 20 20 20 3b ┆VED AC0 .DUSR AC1= AC0+1 ;┆ 0x0580…05a0 20 20 20 53 41 56 45 44 20 41 43 31 0d 0a 2e 44 55 53 52 20 41 43 32 3d 20 20 41 43 31 2b 31 20 ┆ SAVED AC1 .DUSR AC2= AC1+1 ┆ 0x05a0…05c0 20 20 20 20 3b 20 20 20 53 41 56 45 44 20 41 43 32 0d 0a 2e 44 55 53 52 20 41 43 33 3d 20 20 41 ┆ ; SAVED AC2 .DUSR AC3= A┆ 0x05c0…05e0 43 32 2b 31 20 20 20 20 20 3b 20 20 20 53 41 56 45 44 20 41 43 33 0d 0a 2e 44 55 53 52 20 50 53 ┆C2+1 ; SAVED AC3 .DUSR PS┆ 0x05e0…0600 57 3d 20 20 41 43 33 2b 31 20 20 20 20 20 3b 20 20 20 50 53 57 20 28 50 52 4f 43 45 53 53 20 53 ┆W= AC3+1 ; PSW (PROCESS S┆ 0x0600…0620 54 41 54 55 53 20 57 4f 52 44 29 0d 0a 2e 44 55 53 52 20 53 41 56 45 3d 20 50 53 57 2b 31 20 20 ┆TATUS WORD) .DUSR SAVE= PSW+1 ┆ 0x0620…0640 20 20 20 3b 20 20 20 53 41 56 45 44 20 4c 49 4e 4b 0d 0a 2e 44 55 53 52 20 4f 3d 20 20 20 20 53 ┆ ; SAVED LINK .DUSR O= S┆ 0x0640…0660 41 56 45 2b 31 20 20 20 20 3b 20 4f 50 54 49 4f 4e 41 4c 20 57 4f 52 44 53 3a 0d 0a 0d 0a 3b 20 ┆AVE+1 ; OPTIONAL WORDS: ; ┆ 0x0660…0680 49 4e 54 45 52 50 52 45 54 45 52 20 50 52 4f 43 45 53 53 45 53 0d 0a 2e 44 55 53 52 20 53 41 56 ┆INTERPRETER PROCESSES .DUSR SAV┆ 0x0680…06a0 45 31 3d 4f 20 20 20 20 20 20 20 20 20 3b 20 57 4f 52 4b 20 4c 4f 43 2e 0d 0a 2e 44 55 53 52 20 ┆E1=O ; WORK LOC. .DUSR ┆ 0x06a0…06c0 53 41 56 45 32 3d 53 41 56 45 31 2b 31 20 20 20 3b 20 20 2d 0d 0a 2e 44 55 53 52 20 53 41 56 45 ┆SAVE2=SAVE1+1 ; - .DUSR SAVE┆ 0x06c0…06e0 33 3d 53 41 56 45 32 2b 31 20 20 20 3b 20 20 2d 0d 0a 2e 44 55 53 52 20 53 41 56 45 34 3d 53 41 ┆3=SAVE2+1 ; - .DUSR SAVE4=SA┆ 0x06e0…0700 56 45 33 2b 31 20 20 20 3b 20 20 2d 0d 0a 2e 44 55 53 52 20 53 41 56 45 35 3d 53 41 56 45 34 2b ┆VE3+1 ; - .DUSR SAVE5=SAVE4+┆ 0x0700…0720 31 20 20 20 3b 20 20 2d 0d 0a 2e 44 55 53 52 20 52 3d 20 20 20 20 53 41 56 45 35 2b 31 20 20 20 ┆1 ; - .DUSR R= SAVE5+1 ┆ 0x0720…0740 3b 20 50 53 45 55 44 4f 20 41 43 43 55 4d 4f 4c 41 54 4f 52 0d 0a 2e 44 55 53 52 20 50 43 3d 20 ┆; PSEUDO ACCUMOLATOR .DUSR PC= ┆ 0x0740…0760 20 20 52 2b 31 20 20 20 20 20 20 20 3b 20 50 53 45 55 44 4f 20 50 43 0d 0a 2e 44 55 53 52 20 4f ┆ R+1 ; PSEUDO PC .DUSR O┆ 0x0760…0780 50 3d 20 20 20 50 43 2b 31 20 20 20 20 20 20 3b 20 4f 50 45 52 41 54 4f 52 20 4d 45 53 53 41 47 ┆P= PC+1 ; OPERATOR MESSAG┆ 0x0780…07a0 45 0d 0a 2e 44 55 53 52 20 2e 4f 50 45 52 3d 4f 50 2b 31 20 20 20 20 20 20 3b 20 4f 50 45 52 41 ┆E .DUSR .OPER=OP+1 ; OPERA┆ 0x07a0…07c0 54 4f 52 20 4e 41 4d 45 20 41 44 44 52 45 53 53 0d 0a 2e 44 55 53 52 20 5a 4e 3d 2e 4f 50 45 52 ┆TOR NAME ADDRESS .DUSR ZN=.OPER┆ 0x07c0…07e0 2b 34 20 20 20 20 20 20 3b 20 46 49 52 53 54 20 46 49 4c 45 20 44 45 53 43 52 2e 20 45 4e 54 52 ┆+4 ; FIRST FILE DESCR. ENTR┆ 0x07e0…0800 59 20 41 44 44 52 45 53 53 0d 0a 0d 0a 3b 20 44 52 49 56 45 52 20 50 52 4f 43 45 53 53 45 53 0d ┆Y ADDRESS ; DRIVER PROCESSES ┆ 0x0800…0820 0a 2e 44 55 53 52 20 42 55 46 3d 20 20 4f 20 20 20 20 20 20 20 20 20 3b 20 20 20 53 41 56 45 44 ┆ .DUSR BUF= O ; SAVED┆ 0x0820…0840 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 0d 0a 2e 44 55 53 52 20 41 ┆ MESSAGE BUFFER ADDRESS .DUSR A┆ 0x0840…0860 44 44 52 45 3d 42 55 46 2b 31 20 20 20 20 20 3b 20 20 20 43 55 52 52 45 4e 54 20 56 41 4c 55 45 ┆DDRE=BUF+1 ; CURRENT VALUE┆ 0x0860…0880 20 4f 46 20 41 44 44 52 45 53 53 0d 0a 2e 44 55 53 52 20 43 4f 55 4e 54 3d 41 44 44 52 45 2b 31 ┆ OF ADDRESS .DUSR COUNT=ADDRE+1┆ 0x0880…08a0 20 20 20 3b 20 20 20 43 55 52 52 45 4e 54 20 56 41 4c 55 45 20 4f 46 20 43 4f 55 4e 54 0d 0a 2e ┆ ; CURRENT VALUE OF COUNT .┆ 0x08a0…08c0 44 55 53 52 20 52 45 53 45 52 3d 43 4f 55 4e 54 2b 31 20 20 20 3b 20 20 20 52 45 53 45 52 56 45 ┆DUSR RESER=COUNT+1 ; RESERVE┆ 0x08c0…08e0 52 0d 0a 2e 44 55 53 52 20 43 4f 4e 56 54 3d 52 45 53 45 52 2b 31 20 20 20 3b 20 20 20 43 4f 4e ┆R .DUSR CONVT=RESER+1 ; CON┆ 0x08e0…0900 56 45 52 53 49 4f 4e 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 0d 0a 2e 44 55 53 52 20 43 4c 49 ┆VERSION TABLE ADDRESS .DUSR CLI┆ 0x0900…0920 4e 54 3d 43 4f 4e 56 54 2b 31 20 20 20 3b 20 20 20 43 4c 45 41 52 20 44 45 56 49 43 45 20 49 4e ┆NT=CONVT+1 ; CLEAR DEVICE IN┆ 0x0920…0940 54 45 52 52 55 50 54 0d 0a 0d 0a 0d 0a 0d 0a 0c 0d 0a 3b 20 43 4f 52 4f 55 54 49 4e 45 20 50 52 ┆TERRUPT ; COROUTINE PR┆ 0x0940…0960 4f 43 45 53 53 45 53 0d 0a 2e 44 55 53 52 20 43 43 4f 52 4f 55 54 3d 5a 4e 20 20 20 20 20 20 3b ┆OCESSES .DUSR CCOROUT=ZN ;┆ 0x0960…0980 20 43 55 52 52 45 4e 54 20 43 4f 52 4f 55 54 49 4e 45 0d 0a 2e 44 55 53 52 20 4c 41 54 49 4d 45 ┆ CURRENT COROUTINE .DUSR LATIME┆ 0x0980…09a0 3d 43 43 4f 52 4f 2b 31 20 20 3b 20 4c 41 54 45 53 54 20 41 43 54 49 56 41 54 49 4f 4e 20 54 49 ┆=CCORO+1 ; LATEST ACTIVATION TI┆ 0x09a0…09c0 4d 45 0d 0a 2e 44 55 53 52 20 48 41 43 54 49 56 45 3d 4c 41 54 49 4d 2b 31 20 3b 20 48 45 41 44 ┆ME .DUSR HACTIVE=LATIM+1 ; HEAD┆ 0x09c0…09e0 20 4f 46 20 41 43 54 49 56 45 20 51 55 45 55 45 0d 0a 2e 44 55 53 52 20 48 41 4e 53 57 45 52 3d ┆ OF ACTIVE QUEUE .DUSR HANSWER=┆ 0x09e0…0a00 48 41 43 54 49 2b 31 20 3b 20 48 45 41 44 20 4f 46 20 41 4e 53 57 45 52 20 51 55 45 55 45 0d 0a ┆HACTI+1 ; HEAD OF ANSWER QUEUE ┆ 0x0a00…0a20 2e 44 55 53 52 20 48 44 45 4c 41 59 3d 48 41 4e 53 57 2b 31 20 20 3b 20 48 45 41 44 20 4f 46 20 ┆.DUSR HDELAY=HANSW+1 ; HEAD OF ┆ 0x0a20…0a40 44 45 4c 41 59 20 51 55 45 55 45 0d 0a 2e 44 55 53 52 20 54 52 45 54 55 52 4e 3d 48 44 45 4c 41 ┆DELAY QUEUE .DUSR TRETURN=HDELA┆ 0x0a40…0a60 2b 31 20 3b 20 52 45 54 55 52 4e 20 46 52 4f 4d 20 54 45 53 54 0d 0a 2e 44 55 53 52 20 54 52 45 ┆+1 ; RETURN FROM TEST .DUSR TRE┆ 0x0a60…0a80 43 4f 52 44 3d 54 52 45 54 55 2b 31 20 3b 20 54 45 53 54 20 52 45 43 4f 52 44 20 53 54 41 52 54 ┆CORD=TRETU+1 ; TEST RECORD START┆ 0x0a80…0aa0 0d 0a 2e 44 55 53 52 20 43 44 45 56 49 43 45 3d 20 54 52 45 43 4f 2b 31 3b 20 44 45 56 49 43 45 ┆ .DUSR CDEVICE= TRECO+1; DEVICE┆ 0x0aa0…0ac0 20 4e 55 4d 42 45 52 0d 0a 2e 44 55 53 52 20 4d 53 45 4d 3d 43 44 45 56 49 43 2b 31 20 20 20 3b ┆ NUMBER .DUSR MSEM=CDEVIC+1 ;┆ 0x0ac0…0ae0 20 4d 45 53 53 41 47 45 20 53 45 4d 0d 0a 2e 44 55 53 52 20 4d 43 4f 52 4f 55 54 3d 4d 53 45 4d ┆ MESSAGE SEM .DUSR MCOROUT=MSEM┆ 0x0ae0…0b00 2b 31 20 20 3b 20 4d 45 53 53 41 47 45 20 43 4f 52 4f 55 54 49 4e 45 0d 0a 2e 44 55 53 52 20 43 ┆+1 ; MESSAGE COROUTINE .DUSR C┆ 0x0b00…0b20 55 44 45 58 3d 4d 43 4f 52 4f 55 54 2b 31 20 3b 20 55 53 45 52 20 44 45 46 49 4e 45 44 20 45 58 ┆UDEX=MCOROUT+1 ; USER DEFINED EX┆ 0x0b20…0b40 49 54 0d 0a 2e 44 55 53 52 20 43 42 55 46 46 45 52 3d 43 55 44 45 58 2b 31 20 3b 20 43 4f 52 4f ┆IT .DUSR CBUFFER=CUDEX+1 ; CORO┆ 0x0b40…0b60 55 54 49 4e 45 20 42 55 46 46 45 52 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UTINE BUFFER ┆ 0x0b60…0b80 20 20 20 20 20 20 3b 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 3a 0d 0a 3b 20 20 20 20 20 4e ┆ ; MESSAGE BUFFER: ; N┆ 0x0b80…0ba0 45 58 54 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 4e 45 58 54 20 42 55 46 46 45 52 20 49 ┆EXT ; NEXT BUFFER I┆ 0x0ba0…0bc0 4e 20 41 20 51 55 45 55 45 20 4f 46 20 42 55 46 46 45 52 53 0d 0a 3b 20 20 20 20 20 50 52 45 56 ┆N A QUEUE OF BUFFERS ; PREV┆ 0x0bc0…0be0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 50 52 45 56 49 4f 55 53 20 42 55 46 46 45 52 20 ┆ ; PREVIOUS BUFFER ┆ 0x0be0…0c00 49 4e 20 41 20 51 55 45 55 45 20 4f 46 20 42 55 46 46 45 52 53 0d 0a 3b 20 20 20 20 20 43 48 41 ┆IN A QUEUE OF BUFFERS ; CHA┆ 0x0c00…0c20 49 4e 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 4e 45 58 54 20 42 55 46 46 45 52 20 49 4e 20 ┆IN ; NEXT BUFFER IN ┆ 0x0c20…0c40 41 20 43 48 41 49 4e 20 4f 46 20 42 55 46 46 45 52 53 0d 0a 3b 20 20 20 20 20 53 49 5a 45 20 20 ┆A CHAIN OF BUFFERS ; SIZE ┆ 0x0c40…0c60 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 53 49 5a 45 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 ┆ ; SIZE OF THE MESSAG┆ 0x0c60…0c80 45 20 42 55 46 46 45 52 0d 0a 2e 44 55 53 52 20 53 45 4e 44 45 3d 53 49 5a 45 2b 31 20 20 20 20 ┆E BUFFER .DUSR SENDE=SIZE+1 ┆ 0x0c80…0ca0 3b 20 20 20 53 45 4e 44 45 52 20 50 52 4f 43 45 53 53 20 44 45 53 43 52 49 50 54 4f 52 0d 0a 2e ┆; SENDER PROCESS DESCRIPTOR .┆ 0x0ca0…0cc0 44 55 53 52 20 52 45 43 45 49 3d 53 45 4e 44 45 2b 31 20 20 20 3b 20 20 20 52 45 43 45 49 56 45 ┆DUSR RECEI=SENDE+1 ; RECEIVE┆ 0x0cc0…0ce0 52 20 50 41 52 41 4d 45 54 45 52 0d 0a 2e 44 55 53 52 20 4d 45 53 53 30 3d 52 45 43 45 49 2b 31 ┆R PARAMETER .DUSR MESS0=RECEI+1┆ 0x0ce0…0d00 20 20 20 3b 20 20 20 30 2e 4d 45 53 53 41 47 45 0d 0a 2e 44 55 53 52 20 4d 45 53 53 31 3d 4d 45 ┆ ; 0.MESSAGE .DUSR MESS1=ME┆ 0x0d00…0d20 53 53 30 2b 31 20 20 20 3b 20 20 20 31 2e 4d 45 53 53 41 47 45 0d 0a 2e 44 55 53 52 20 4d 45 53 ┆SS0+1 ; 1.MESSAGE .DUSR MES┆ 0x0d20…0d40 53 32 3d 4d 45 53 53 31 2b 31 20 20 20 3b 20 20 20 32 2e 4d 45 53 53 41 47 45 0d 0a 2e 44 55 53 ┆S2=MESS1+1 ; 2.MESSAGE .DUS┆ 0x0d40…0d60 52 20 4d 45 53 53 33 3d 4d 45 53 53 32 2b 31 20 20 20 3b 20 20 20 33 2e 4d 45 53 53 41 47 45 0d ┆R MESS3=MESS2+1 ; 3.MESSAGE ┆ 0x0d60…0d80 0a 2e 44 55 53 52 20 42 53 49 5a 45 3d 4d 45 53 53 33 2b 31 20 20 20 3b 20 20 20 53 49 5a 45 20 ┆ .DUSR BSIZE=MESS3+1 ; SIZE ┆ 0x0d80…0da0 4f 46 20 4d 45 53 53 41 47 45 20 42 55 46 46 45 52 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆OF MESSAGE BUFFER ┆ 0x0da0…0dc0 20 20 20 20 20 20 20 20 20 20 20 3b 20 50 52 4f 47 52 41 4d 20 44 45 53 43 52 49 50 54 4f 52 3a ┆ ; PROGRAM DESCRIPTOR:┆ 0x0dc0…0de0 0d 0a 2e 44 55 53 52 20 50 53 50 45 43 3d 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 53 50 45 43 ┆ .DUSR PSPEC=0 ; SPEC┆ 0x0de0…0e00 49 46 49 43 41 54 49 4f 4e 20 4f 46 20 50 52 4f 47 52 41 4d 3a 0d 0a 20 20 20 20 20 20 20 20 20 ┆IFICATION OF PROGRAM: ┆ 0x0e00…0e20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 42 30 3a 20 4f 57 4e 0d 0a 20 20 20 20 20 ┆ ; B0: OWN ┆ 0x0e20…0e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 42 31 3a 20 52 45 45 4e 54 52 ┆ ; B1: REENTR┆ 0x0e40…0e60 41 4e 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 ┆ANT ; ┆ 0x0e60…0e80 42 32 3a 20 50 41 47 45 20 5a 45 52 4f 20 55 53 45 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆B2: PAGE ZERO USER ┆ 0x0e80…0ea0 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 42 33 3a 20 52 45 53 45 52 56 41 42 4c 45 0d 0a 20 ┆ ; B3: RESERVABLE ┆ 0x0ea0…0ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 42 28 38 3a 31 35 ┆ ; B(8:15┆ 0x0ec0…0ee0 29 20 50 52 4f 43 45 53 53 20 43 4f 55 4e 54 0d 0a 2e 44 55 53 52 20 50 53 54 41 52 3d 50 53 50 ┆) PROCESS COUNT .DUSR PSTAR=PSP┆ 0x0ee0…0f00 45 43 2b 31 20 20 20 3b 20 20 20 53 54 41 52 54 20 41 44 44 52 45 53 53 0d 0a 3b 20 20 20 20 20 ┆EC+1 ; START ADDRESS ; ┆ 0x0f00…0f20 43 48 41 49 4e 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 4e 45 58 54 20 50 52 4f 47 52 41 4d ┆CHAIN ; NEXT PROGRAM┆ 0x0f20…0f40 20 49 4e 20 41 20 43 48 41 49 4e 20 4f 46 20 50 52 4f 47 52 41 4d 53 0d 0a 3b 20 20 20 20 20 53 ┆ IN A CHAIN OF PROGRAMS ; S┆ 0x0f40…0f60 49 5a 45 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 53 49 5a 45 20 4f 46 20 54 48 45 20 50 ┆IZE ; SIZE OF THE P┆ 0x0f60…0f80 52 4f 47 52 41 4d 20 41 52 45 41 0d 0a 3b 20 20 20 20 20 4e 41 4d 45 20 20 20 20 20 20 20 20 20 ┆ROGRAM AREA ; NAME ┆ 0x0f80…0fa0 20 20 20 3b 20 20 20 4e 41 4d 45 20 4f 46 20 54 48 45 20 50 52 4f 47 52 41 4d 20 28 54 48 52 45 ┆ ; NAME OF THE PROGRAM (THRE┆ 0x0fa0…0fc0 45 20 57 4f 52 44 53 29 0d 0a 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E WORDS) ; ┆ 0x0fc0…0fe0 20 20 3b 20 43 4f 52 4f 55 54 49 4e 45 20 44 45 53 43 52 49 50 54 4f 52 3a 0d 0a 2e 44 55 53 52 ┆ ; COROUTINE DESCRIPTOR: .DUSR┆ 0x0fe0…1000 20 43 49 44 45 4e 54 3d 4e 45 58 54 2d 31 20 20 20 3b 20 20 20 49 44 45 4e 54 49 46 49 43 41 54 ┆ CIDENT=NEXT-1 ; IDENTIFICAT┆ 0x1000…1020 49 4f 4e 0d 0a 2e 44 55 53 52 20 4f 50 4d 41 53 4b 3d 43 49 44 45 4e 54 2d 31 20 3b 20 57 41 49 ┆ION .DUSR OPMASK=CIDENT-1 ; WAI┆ 0x1020…1040 54 20 4d 41 53 4b 0d 0a 3b 20 20 20 20 20 4e 45 58 54 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆T MASK ; NEXT ; ┆ 0x1040…1060 20 20 4c 49 4e 4b 20 54 4f 20 4e 45 58 54 20 43 4f 52 4f 55 54 49 4e 45 0d 0a 2e 44 55 53 52 20 ┆ LINK TO NEXT COROUTINE .DUSR ┆ 0x1060…1080 43 45 58 49 54 3d 4e 45 58 54 2b 31 20 20 20 20 3b 20 20 20 53 41 56 45 44 20 45 58 49 54 20 41 ┆CEXIT=NEXT+1 ; SAVED EXIT A┆ 0x1080…10a0 44 44 52 45 53 53 0d 0a 2e 44 55 53 52 20 43 4c 41 54 4f 50 3d 43 45 58 49 54 2b 31 20 20 3b 20 ┆DDRESS .DUSR CLATOP=CEXIT+1 ; ┆ 0x10a0…10c0 20 20 53 41 56 45 44 20 4f 50 45 52 41 54 49 4f 4e 0d 0a 2e 44 55 53 52 20 43 52 45 54 55 52 3d ┆ SAVED OPERATION .DUSR CRETUR=┆ 0x10c0…10e0 43 4c 41 54 4f 2b 31 20 20 3b 20 20 20 53 41 56 45 44 20 52 45 54 55 52 4e 0d 0a 2e 44 55 53 52 ┆CLATO+1 ; SAVED RETURN .DUSR┆ 0x10e0…1100 20 43 41 43 31 53 3d 43 52 45 54 55 2b 31 20 20 20 3b 20 20 20 53 41 56 45 44 20 41 43 31 0d 0a ┆ CAC1S=CRETU+1 ; SAVED AC1 ┆ 0x1100…1120 0d 0a 2e 44 55 53 52 20 54 4c 45 4e 47 54 48 3d 33 30 20 20 20 20 20 20 3b 20 4c 45 4e 47 54 48 ┆ .DUSR TLENGTH=30 ; LENGTH┆ 0x1120…1140 20 4f 46 20 54 45 53 54 20 52 45 43 4f 52 44 0d 0a 0d 0a 0d 0a 0c 20 20 20 20 20 20 20 20 20 20 ┆ OF TEST RECORD ┆ 0x1140…1160 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 5a 4f 4e 45 20 44 45 53 43 52 49 50 54 4f 52 3a 0d 0a ┆ ; ZONE DESCRIPTOR: ┆ 0x1160…1180 2e 44 55 53 52 20 5a 4e 41 4d 45 3d 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 4e 41 4d 45 20 28 ┆.DUSR ZNAME=0 ; NAME (┆ 0x1180…11a0 54 48 52 45 45 20 57 4f 52 44 53 29 0d 0a 3b 20 20 20 20 20 53 49 5a 45 20 20 20 20 20 20 20 20 ┆THREE WORDS) ; SIZE ┆ 0x11a0…11c0 20 20 20 20 3b 20 20 20 53 49 5a 45 20 4f 46 20 54 48 45 20 5a 4f 4e 45 20 44 45 53 43 52 49 50 ┆ ; SIZE OF THE ZONE DESCRIP┆ 0x11c0…11e0 54 4f 52 0d 0a 2e 44 55 53 52 20 5a 4d 4f 44 45 3d 53 49 5a 45 2b 31 20 20 20 20 3b 20 20 20 4d ┆TOR .DUSR ZMODE=SIZE+1 ; M┆ 0x11e0…1200 4f 44 45 20 4f 46 20 4f 50 45 52 41 54 49 4f 4e 0d 0a 2e 44 55 53 52 20 5a 4b 49 4e 44 3d 5a 4d ┆ODE OF OPERATION .DUSR ZKIND=ZM┆ 0x1200…1220 4f 44 45 2b 31 20 20 20 3b 20 20 20 4b 49 4e 44 20 4f 46 20 44 4f 43 55 4d 45 4e 54 0d 0a 2e 44 ┆ODE+1 ; KIND OF DOCUMENT .D┆ 0x1220…1240 55 53 52 20 5a 4d 41 53 4b 3d 5a 4b 49 4e 44 2b 31 20 20 20 3b 20 20 20 4d 41 53 4b 20 46 4f 52 ┆USR ZMASK=ZKIND+1 ; MASK FOR┆ 0x1240…1260 20 47 49 56 45 20 55 50 0d 0a 2e 44 55 53 52 20 5a 47 49 56 45 3d 5a 4d 41 53 4b 2b 31 20 20 20 ┆ GIVE UP .DUSR ZGIVE=ZMASK+1 ┆ 0x1260…1280 3b 20 20 20 47 49 56 45 20 55 50 20 41 44 44 52 45 53 53 0d 0a 2e 44 55 53 52 20 5a 46 49 4c 45 ┆; GIVE UP ADDRESS .DUSR ZFILE┆ 0x1280…12a0 3d 5a 47 49 56 45 2b 31 20 20 20 3b 20 20 20 46 49 4c 45 20 43 4f 55 4e 54 0d 0a 2e 44 55 53 52 ┆=ZGIVE+1 ; FILE COUNT .DUSR┆ 0x12a0…12c0 20 5a 42 4c 4f 43 3d 5a 46 49 4c 45 2b 31 20 20 20 3b 20 20 20 42 4c 4f 43 4b 20 43 4f 55 4e 54 ┆ ZBLOC=ZFILE+1 ; BLOCK COUNT┆ 0x12c0…12e0 0d 0a 2e 44 55 53 52 20 5a 43 4f 4e 56 3d 5a 42 4c 4f 43 2b 31 20 20 20 3b 20 20 20 43 4f 4e 56 ┆ .DUSR ZCONV=ZBLOC+1 ; CONV┆ 0x12e0…1300 45 52 53 49 4f 4e 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 0d 0a 2e 44 55 53 52 20 5a 42 55 46 ┆ERSION TABLE ADDRESS .DUSR ZBUF┆ 0x1300…1320 46 3d 5a 43 4f 4e 56 2b 31 20 20 20 3b 20 20 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 0d 0a ┆F=ZCONV+1 ; BUFFER ADDRESS ┆ 0x1320…1340 2e 44 55 53 52 20 5a 53 49 5a 45 3d 5a 42 55 46 46 2b 31 20 20 20 3b 20 20 20 53 49 5a 45 20 4f ┆.DUSR ZSIZE=ZBUFF+1 ; SIZE O┆ 0x1340…1360 46 20 42 55 46 46 45 52 0d 0a 2e 44 55 53 52 20 5a 46 4f 52 4d 3d 5a 53 49 5a 45 2b 31 20 20 20 ┆F BUFFER .DUSR ZFORM=ZSIZE+1 ┆ 0x1360…1380 3b 20 20 20 46 4f 52 4d 41 54 20 4f 46 20 52 45 43 4f 52 44 0d 0a 2e 44 55 53 52 20 5a 4c 45 4e ┆; FORMAT OF RECORD .DUSR ZLEN┆ 0x1380…13a0 47 3d 5a 46 4f 52 4d 2b 31 20 20 20 3b 20 20 20 4c 45 4e 47 54 48 20 4f 46 20 52 45 43 4f 52 44 ┆G=ZFORM+1 ; LENGTH OF RECORD┆ 0x13a0…13c0 0d 0a 2e 44 55 53 52 20 5a 46 49 52 53 3d 5a 4c 45 4e 47 2b 31 20 20 20 3b 20 20 20 46 49 52 53 ┆ .DUSR ZFIRS=ZLENG+1 ; FIRS┆ 0x13c0…13e0 54 20 4f 46 20 52 45 43 4f 52 44 20 28 42 59 54 45 20 41 44 44 52 45 53 53 29 0d 0a 2e 44 55 53 ┆T OF RECORD (BYTE ADDRESS) .DUS┆ 0x13e0…1400 52 20 5a 54 4f 50 3d 20 5a 46 49 52 53 2b 31 20 20 20 3b 20 20 20 54 4f 50 20 4f 46 20 52 45 43 ┆R ZTOP= ZFIRS+1 ; TOP OF REC┆ 0x1400…1420 4f 52 44 20 28 42 59 54 45 20 41 44 44 52 45 53 53 29 0d 0a 2e 44 55 53 52 20 5a 55 53 45 44 3d ┆ORD (BYTE ADDRESS) .DUSR ZUSED=┆ 0x1420…1440 5a 54 4f 50 2b 31 20 20 20 20 3b 20 20 20 55 53 45 44 20 53 48 41 52 45 0d 0a 2e 44 55 53 52 20 ┆ZTOP+1 ; USED SHARE .DUSR ┆ 0x1440…1460 5a 53 48 41 52 3d 5a 55 53 45 44 2b 31 20 20 20 3b 20 20 20 53 48 41 52 45 20 4c 45 4e 47 54 48 ┆ZSHAR=ZUSED+1 ; SHARE LENGTH┆ 0x1460…1480 20 28 49 4e 20 42 59 54 45 53 29 0d 0a 2e 44 55 53 52 20 5a 52 45 4d 3d 20 5a 53 48 41 52 2b 31 ┆ (IN BYTES) .DUSR ZREM= ZSHAR+1┆ 0x1480…14a0 20 20 20 3b 20 20 20 52 45 4d 41 49 4e 49 4e 47 20 42 59 54 45 53 20 49 4e 20 53 48 41 52 45 0d ┆ ; REMAINING BYTES IN SHARE ┆ 0x14a0…14c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 55 58 49 4c 4c 49 ┆ ; AUXILLI┆ 0x14c0…14e0 41 52 59 20 57 4f 52 44 53 3a 0d 0a 2e 44 55 53 52 20 5a 30 3d 20 20 20 5a 52 45 4d 2b 31 20 20 ┆ARY WORDS: .DUSR Z0= ZREM+1 ┆ 0x14e0…1500 20 20 3b 20 20 20 41 55 58 20 30 0d 0a 2e 44 55 53 52 20 5a 31 3d 20 20 20 5a 30 2b 31 20 20 20 ┆ ; AUX 0 .DUSR Z1= Z0+1 ┆ 0x1500…1520 20 20 20 3b 20 20 20 41 55 58 20 31 0d 0a 2e 44 55 53 52 20 5a 32 3d 20 20 20 5a 31 2b 31 20 20 ┆ ; AUX 1 .DUSR Z2= Z1+1 ┆ 0x1520…1540 20 20 20 20 3b 20 20 20 41 55 58 20 32 0d 0a 2e 44 55 53 52 20 5a 33 3d 20 20 20 5a 32 2b 31 20 ┆ ; AUX 2 .DUSR Z3= Z2+1 ┆ 0x1540…1560 20 20 20 20 20 3b 20 20 20 41 55 58 20 33 0d 0a 2e 44 55 53 52 20 5a 34 3d 20 20 20 5a 33 2b 31 ┆ ; AUX 3 .DUSR Z4= Z3+1┆ 0x1560…1580 20 20 20 20 20 20 3b 20 20 20 41 55 58 20 34 0d 0a 2e 44 55 53 52 20 5a 35 3d 20 20 20 5a 34 2b ┆ ; AUX 4 .DUSR Z5= Z4+┆ 0x1580…15a0 31 20 20 20 20 20 20 3b 20 20 20 41 55 58 20 35 0d 0a 2e 44 55 53 52 20 5a 41 55 58 3d 20 36 20 ┆1 ; AUX 5 .DUSR ZAUX= 6 ┆ 0x15a0…15c0 20 20 20 20 20 20 20 20 3b 20 20 20 4e 55 4d 42 45 52 20 4f 46 20 41 55 58 49 4c 4c 49 41 52 59 ┆ ; NUMBER OF AUXILLIARY┆ 0x15c0…15e0 20 57 4f 52 44 53 0d 0a 2e 44 55 53 52 20 5a 3d 20 20 20 20 5a 30 2b 5a 41 55 58 20 20 20 3b 20 ┆ WORDS .DUSR Z= Z0+ZAUX ; ┆ 0x15e0…1600 4f 50 54 49 4f 4e 41 4c 20 57 4f 52 44 53 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPTIONAL WORDS: ┆ 0x1600…1620 20 20 20 20 20 20 20 20 20 3b 20 53 48 41 52 45 20 44 45 53 43 52 49 50 54 4f 52 3a 0d 0a 2e 44 ┆ ; SHARE DESCRIPTOR: .D┆ 0x1620…1640 55 53 52 20 53 4f 50 45 52 3d 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 4f 50 45 52 41 54 49 4f ┆USR SOPER=0 ; OPERATIO┆ 0x1640…1660 4e 20 28 30 2e 4d 45 53 53 41 47 45 29 0d 0a 2e 44 55 53 52 20 53 43 4f 55 4e 3d 53 4f 50 45 52 ┆N (0.MESSAGE) .DUSR SCOUN=SOPER┆ 0x1660…1680 2b 31 20 20 20 3b 20 20 20 43 4f 55 4e 54 20 28 31 2e 4d 45 53 53 41 47 45 29 0d 0a 2e 44 55 53 ┆+1 ; COUNT (1.MESSAGE) .DUS┆ 0x1680…16a0 52 20 53 41 44 44 52 3d 53 43 4f 55 4e 2b 31 20 20 20 3b 20 20 20 41 44 44 52 45 53 53 20 28 32 ┆R SADDR=SCOUN+1 ; ADDRESS (2┆ 0x16a0…16c0 2e 4d 45 53 53 41 47 45 29 0d 0a 2e 44 55 53 52 20 53 53 50 45 43 3d 53 41 44 44 52 2b 31 20 20 ┆.MESSAGE) .DUSR SSPEC=SADDR+1 ┆ 0x16c0…16e0 20 3b 20 20 20 53 50 45 43 49 41 4c 20 28 33 2e 4d 45 53 53 41 47 45 29 0d 0a 2e 44 55 53 52 20 ┆ ; SPECIAL (3.MESSAGE) .DUSR ┆ 0x16e0…1700 53 4e 45 58 54 3d 53 53 50 45 43 2b 31 20 20 20 3b 20 20 20 4e 45 58 54 20 53 48 41 52 45 0d 0a ┆SNEXT=SSPEC+1 ; NEXT SHARE ┆ 0x1700…1720 2e 44 55 53 52 20 53 53 54 41 54 3d 53 4e 45 58 54 2b 31 20 20 20 3b 20 20 20 53 54 41 54 45 20 ┆.DUSR SSTAT=SNEXT+1 ; STATE ┆ 0x1720…1740 4f 46 20 53 48 41 52 45 0d 0a 2e 44 55 53 52 20 53 46 49 52 53 3d 53 53 54 41 54 2b 31 20 20 20 ┆OF SHARE .DUSR SFIRS=SSTAT+1 ┆ 0x1740…1760 3b 20 20 20 46 49 52 53 54 20 53 48 41 52 45 44 20 28 42 59 54 45 20 41 44 44 52 45 53 53 29 0d ┆; FIRST SHARED (BYTE ADDRESS) ┆ 0x1760…1780 0a 2e 44 55 53 52 20 53 53 49 5a 45 3d 53 46 49 52 53 2b 31 20 20 20 3b 20 20 20 53 49 5a 45 20 ┆ .DUSR SSIZE=SFIRS+1 ; SIZE ┆ 0x1780…17a0 4f 46 20 53 48 41 52 45 20 44 45 53 43 52 49 50 54 4f 52 0d 0a 0d 0a 3b 20 20 20 2a 2a 2a 2a 2a ┆OF SHARE DESCRIPTOR ; *****┆ 0x17a0…17c0 2a 20 20 20 45 4e 44 20 4f 46 20 46 4f 52 4d 41 54 20 44 45 46 49 4e 49 54 49 4f 4e 53 20 20 20 ┆* END OF FORMAT DEFINITIONS ┆ 0x17c0…17e0 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 0d 0a 0d 0a 0c 3b 20 20 20 2a 2a 2a 2a 2a 2a 20 20 20 4d 4f 4e 49 ┆****** ; ****** MONI┆ 0x17e0…1800 54 4f 52 20 46 55 4e 43 54 49 4f 4e 20 45 4e 54 52 49 45 53 20 20 20 2a 2a 2a 2a 2a 2a 0d 0a 0d ┆TOR FUNCTION ENTRIES ****** ┆ 0x1800…1820 0a 20 2e 4c 4f 43 20 32 0d 0a 0d 0a 2e 44 55 53 52 20 57 41 49 54 3d 20 20 20 20 20 20 20 20 20 ┆ .LOC 2 .DUSR WAIT= ┆ 0x1820…1840 20 20 20 4a 53 52 40 20 20 20 2e 0d 0a 2e 44 55 53 52 20 57 41 49 54 49 4e 54 45 52 52 55 50 54 ┆ JSR@ . .DUSR WAITINTERRUPT┆ 0x1840…1860 3d 20 20 20 4a 53 52 40 20 20 20 2e 2b 31 0d 0a 2e 44 55 53 52 20 53 45 4e 44 4d 45 53 53 41 47 ┆= JSR@ .+1 .DUSR SENDMESSAG┆ 0x1860…1880 45 3d 20 20 20 20 20 4a 53 52 40 20 20 20 2e 2b 32 0d 0a 2e 44 55 53 52 20 57 41 49 54 41 4e 53 ┆E= JSR@ .+2 .DUSR WAITANS┆ 0x1880…18a0 57 45 52 3d 20 20 20 20 20 20 4a 53 52 40 20 20 20 2e 2b 33 0d 0a 2e 44 55 53 52 20 57 41 49 54 ┆WER= JSR@ .+3 .DUSR WAIT┆ 0x18a0…18c0 45 56 45 4e 54 3d 20 20 20 20 20 20 20 4a 53 52 40 20 20 20 2e 2b 34 0d 0a 2e 44 55 53 52 20 53 ┆EVENT= JSR@ .+4 .DUSR S┆ 0x18c0…18e0 45 4e 44 41 4e 53 57 45 52 3d 20 20 20 20 20 20 4a 53 52 40 20 20 20 2e 2b 35 0d 0a 2e 44 55 53 ┆ENDANSWER= JSR@ .+5 .DUS┆ 0x18e0…1900 52 20 53 45 41 52 43 48 49 54 45 4d 3d 20 20 20 20 20 20 4a 53 52 40 20 20 20 2e 2b 36 0d 0a 2e ┆R SEARCHITEM= JSR@ .+6 .┆ 0x1900…1920 44 55 53 52 20 43 4c 45 41 4e 50 52 4f 43 45 53 53 3d 20 20 20 20 4a 53 52 40 20 20 20 2e 2b 37 ┆DUSR CLEANPROCESS= JSR@ .+7┆ […truncated at 200 lines…]