|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7934 (0x1efe)
Names: »ISHRTC.S«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!ISHRTC.S«
0x0000…0020 4c 49 53 54 20 42 45 47 49 4e 20 4d 4f 44 55 4c 45 0a 50 4d 41 53 4b 3d 23 43 34 31 33 0a 3b 2a ┆LIST BEGIN MODULE PMASK=#C413 ;*┆
0x0020…0040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0040…0060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a ┆******************************* ┆
0x0060…0080 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x0080…00a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x00a0…00c0 2a 0a 3b 20 20 20 20 20 4e 41 4d 45 3a 20 20 20 20 20 20 20 20 49 53 48 5f 52 54 43 20 20 20 20 ┆* ; NAME: ISH_RTC ┆
0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x00e0…0100 20 20 2a 0a 3b 20 20 20 20 20 4e 55 4d 42 45 52 3a 20 20 20 20 20 20 43 46 49 58 2f 36 34 2f 30 ┆ * ; NUMBER: CFIX/64/0┆
0x0100…0120 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆100 ┆
0x0120…0140 20 20 20 20 2a 0a 3b 20 20 20 20 20 43 4f 50 59 52 49 47 48 54 3a 20 20 20 43 48 52 49 53 54 49 ┆ * ; COPYRIGHT: CHRISTI┆
0x0140…0160 41 4e 20 52 4f 56 53 49 4e 47 20 43 4f 52 50 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AN ROVSING CORP. ┆
0x0160…0180 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 20 48 4d 2f 30 34 31 35 38 31 3a 20 20 20 52 45 4c 2e 20 ┆ * ; HM/041581: REL. ┆
0x0180…01a0 30 31 20 20 20 20 20 20 20 20 56 45 52 2e 20 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆01 VER. 01 ┆
0x01a0…01c0 20 20 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ; ┆
0x01c0…01e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01e0…0200 20 20 20 20 20 20 20 20 20 20 2a 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ;*******************┆
0x0200…0220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0220…0240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆************* ;-----------------┆
0x0240…0260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0260…0280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 0c 3b 50 41 47 45 0a 3b ┆---------------------- ; ;PAGE ;┆
0x0280…02a0 0a 3b 20 53 45 54 20 53 32 53 59 53 53 20 50 41 52 41 4d 45 54 45 52 53 0a 3b 0a 3b 2d 2d 2d 2d ┆ ; SET S2SYSS PARAMETERS ; ;----┆
0x02a0…02c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x02e0…0300 2d 2d 2d 0a 4c 4f 43 3d 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 52 45 53 ┆--- LOC= 0 ; RES┆
0x0300…0320 45 54 20 4c 4f 43 41 54 49 4f 4e 20 43 4f 55 4e 54 45 52 0a 58 50 52 4f 47 52 41 4d 3d 20 20 20 ┆ET LOCATION COUNTER XPROGRAM= ┆
0x0320…0340 20 20 54 52 55 45 0a 58 44 41 54 41 3d 20 20 20 20 20 20 20 20 54 52 55 45 0a 4e 4f 4c 49 53 54 ┆ TRUE XDATA= TRUE NOLIST┆
0x0340…0360 0a 24 40 2a 2a 47 45 4e 53 2e 44 2a 53 32 53 59 53 53 0a 24 40 2a 2a 47 45 4e 53 2e 44 2a 58 32 ┆ $@**GENS.D*S2SYSS $@**GENS.D*X2┆
0x0360…0380 49 4f 4e 31 0a 24 40 2a 2a 47 45 4e 53 2e 44 2a 58 32 47 45 4e 31 0a 4d 45 53 53 41 47 45 20 3c ┆ION1 $@**GENS.D*X2GEN1 MESSAGE <┆
0x0380…03a0 3a 49 53 48 4e 41 4d 45 53 2e 4e 3a 3e 0a 24 49 53 48 4e 41 4d 45 53 2e 4e 0a 4c 49 53 54 0a 3b ┆:ISHNAMES.N:> $ISHNAMES.N LIST ;┆
0x03a0…03c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x03e0…0400 2d 2d 2d 2d 2d 2d 2d 0a 3b 0a 3b 20 53 45 54 20 50 52 43 47 45 4e 20 50 41 52 41 4d 45 54 45 52 ┆------- ; ; SET PRCGEN PARAMETER┆
0x0400…0420 53 0a 3b 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆S ; ;---------------------------┆
0x0420…0440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0440…0460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 58 50 47 4e 41 4d 45 30 3d 20 20 20 20 20 3c 3a 49 53 3a ┆------------ XPGNAME0= <:IS:┆
0x0460…0480 3e 0a 58 50 47 4e 41 4d 45 31 3d 20 20 20 20 20 3c 3a 48 52 3a 3e 0a 58 50 47 4e 41 4d 45 32 3d ┆> XPGNAME1= <:HR:> XPGNAME2=┆
0x0480…04a0 20 20 20 20 20 3c 3a 54 43 3a 3e 0a 58 50 52 4f 43 45 53 53 4e 41 4d 45 30 3d 3c 3a 49 53 3a 3e ┆ <:TC:> XPROCESSNAME0=<:IS:>┆
0x04a0…04c0 0a 58 50 52 4f 43 45 53 53 4e 41 4d 45 31 3d 3c 3a 48 52 3a 3e 0a 58 50 52 4f 43 45 53 53 4e 41 ┆ XPROCESSNAME1=<:HR:> XPROCESSNA┆
0x04c0…04e0 4d 45 32 3d 3c 3a 54 43 3a 3e 0a 58 56 45 52 53 49 4f 4e 3d 20 20 20 20 20 31 0a 58 50 47 54 59 ┆ME2=<:TC:> XVERSION= 1 XPGTY┆
0x04e0…0500 50 45 3d 20 20 20 20 20 20 42 4d 52 45 45 4e 54 52 41 4e 54 0a 58 50 52 4c 45 56 45 4c 3d 20 20 ┆PE= BMREENTRANT XPRLEVEL= ┆
0x0500…0520 20 20 20 32 20 20 20 20 20 20 3b 20 20 20 55 53 45 20 4c 45 56 45 4c 20 32 20 53 4f 20 54 48 41 ┆ 2 ; USE LEVEL 2 SO THA┆
0x0520…0540 54 20 53 54 52 45 41 4d 53 20 57 4f 52 4b 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T STREAMS WORK ;----------------┆
0x0540…0560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0560…0580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d ┆---------------------- ;--------┆
0x0580…05a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x05a0…05c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b ┆------------------------------ ;┆
0x05c0…05e0 0a 3b 20 20 20 53 20 49 20 50 20 20 20 52 20 45 20 41 20 4c 2d 54 20 49 20 4d 20 45 2d 43 20 4c ┆ ; S I P R E A L-T I M E-C L┆
0x05e0…0600 20 4f 20 43 20 4b 20 20 20 44 20 41 20 54 20 41 20 42 20 41 20 53 20 45 2e 0a 3b 0a 3b 2d 2d 2d ┆ O C K D A T A B A S E. ; ;---┆
0x0600…0620 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x0640…0660 2d 2d 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--- ┆
0x0660…0680 20 20 20 20 20 20 20 20 20 3b 54 55 4e 49 4e 47 20 50 41 52 41 4d 45 54 45 52 53 3a 0a 20 20 20 ┆ ;TUNING PARAMETERS: ┆
0x0680…06a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06a0…06c0 20 20 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ;-----------------------------┆
0x06c0…06e0 2d 2d 2d 2d 0a 42 55 46 43 4e 54 3a 3d 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---- BUFCNT:=10 ┆
0x06e0…0700 20 20 20 20 20 20 20 20 20 20 3b 20 4e 4f 20 4f 46 20 53 49 4d 55 4c 54 41 4e 4f 55 53 4c 59 20 ┆ ; NO OF SIMULTANOUSLY ┆
0x0700…0720 52 45 51 55 45 53 54 53 2c 0a 49 46 20 42 55 46 43 4e 54 20 45 51 20 30 20 54 48 45 4e 20 55 53 ┆REQUESTS, IF BUFCNT EQ 0 THEN US┆
0x0720…0740 45 20 31 36 20 46 49 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E 16 FI ; ┆
0x0740…0760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 54 48 41 54 20 4d 41 59 ┆ ; THAT MAY┆
0x0760…0780 20 42 45 20 49 4e 20 50 52 4f 47 52 45 53 53 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BE IN PROGRESS. ┆
0x0780…07a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 43 55 52 4c 4f 43 3d 4c ┆ ; CURLOC=L┆
0x07a0…07c0 4f 43 2c 4c 4f 43 3d 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 55 ┆OC,LOC=0 ;BU┆
0x07c0…07e0 46 46 45 52 20 44 45 43 4c 41 52 41 54 49 4f 4e 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FFER DECLARATION: ┆
0x07e0…0800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2d 2d 2d 2d 2d 2d 2d 2d ┆ ;--------┆
0x0800…0820 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 42 4c 49 4e 4b 3a ┆------------------------- BLINK:┆
0x0820…0840 20 20 20 4c 4f 43 3d 4c 4f 43 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ LOC=LOC+1 ;┆
0x0840…0860 20 42 55 46 46 45 52 20 4c 49 4e 4b 0a 42 45 56 45 4e 54 3a 20 20 4c 4f 43 3d 4c 4f 43 2b 31 20 ┆ BUFFER LINK BEVENT: LOC=LOC+1 ┆
0x0860…0880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 4d 4f 53 20 45 56 45 4e 54 0a 42 ┆ ; AMOS EVENT B┆
0x0880…08a0 54 49 4d 45 3a 20 20 20 4c 4f 43 3d 4c 4f 43 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TIME: LOC=LOC+1 ┆
0x08a0…08c0 20 20 20 20 3b 20 54 49 4d 45 20 52 45 51 55 45 53 54 45 44 20 28 31 30 30 20 4d 53 29 0a 42 55 ┆ ; TIME REQUESTED (100 MS) BU┆
0x08c0…08e0 46 53 49 5a 45 3a 20 4c 4f 43 3d 43 55 52 4c 4f 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FSIZE: LOC=CURLOC ┆
0x08e0…0900 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x0900…0920 20 20 20 20 20 20 20 20 20 20 3b 42 55 46 46 45 52 20 51 55 45 55 45 53 3a 0a 20 20 20 20 20 20 ┆ ;BUFFER QUEUES: ┆
0x0920…0940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ ;┆
0x0940…0960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0960…0980 2d 0a 46 51 55 45 55 45 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆- FQUEUE: 0 ┆
0x0980…09a0 20 20 20 20 20 20 20 3b 20 50 4f 4f 4c 20 4f 46 20 46 52 45 45 20 42 55 46 46 45 52 53 0a 4f 51 ┆ ; POOL OF FREE BUFFERS OQ┆
0x09a0…09c0 55 45 55 45 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UEUE: 0 ┆
0x09c0…09e0 20 20 20 3b 20 51 55 45 55 45 20 4f 46 20 4f 43 43 55 50 49 45 44 20 42 55 46 46 45 52 53 0a 20 ┆ ; QUEUE OF OCCUPIED BUFFERS ┆
0x09e0…0a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a00…0a20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆
0x0a20…0a40 20 20 20 20 20 20 20 20 20 20 20 3b 49 53 48 52 54 43 20 57 4f 52 4b 3a 0a 20 20 20 20 20 20 20 ┆ ;ISHRTC WORK: ┆
0x0a40…0a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2d ┆ ;-┆
0x0a60…0a80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0a80…0aa0 0a 43 4d 45 53 42 55 46 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CMESBUF: ┆
0x0aa0…0ac0 20 20 20 20 20 20 3b 20 43 55 52 52 45 4e 54 20 49 4e 42 4f 55 4e 44 20 4d 45 53 53 41 47 45 20 ┆ ; CURRENT INBOUND MESSAGE ┆
0x0ac0…0ae0 42 55 46 46 45 52 0a 43 41 4e 53 57 45 52 3a 20 30 2c 52 45 50 45 41 54 20 34 20 20 20 20 20 20 ┆BUFFER CANSWER: 0,REPEAT 4 ┆
0x0ae0…0b00 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 41 4e 53 57 45 52 20 43 4f 50 49 4c 41 54 49 4f 4e 20 ┆ ; ANSWER COPILATION ┆
0x0b00…0b20 42 55 46 46 45 52 0a 42 55 46 41 52 45 41 3a 20 30 2c 52 45 50 45 41 54 28 42 55 46 53 49 5a 45 ┆BUFFER BUFAREA: 0,REPEAT(BUFSIZE┆
0x0b20…0b40 2a 42 55 46 43 4e 54 2d 31 29 20 20 3b 20 42 55 46 46 45 52 20 41 52 45 41 0a 3b 2d 2d 2d 2d 2d ┆*BUFCNT-1) ; BUFFER AREA ;-----┆
0x0b40…0b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x0b80…0ba0 2d 0a 3b 0c 3b 50 41 47 45 0a 55 53 45 20 50 52 4f 47 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- ; ;PAGE USE PROG ;------------┆
0x0ba0…0bc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0bc0…0be0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 0a 3b 20 50 ┆-------------------------- ; ; P┆
0x0be0…0c00 52 4f 47 52 41 4d 20 22 49 53 48 20 52 45 41 4c 2d 54 49 4d 45 2d 43 4c 4f 43 4b 22 28 49 53 48 ┆ROGRAM "ISH REAL-TIME-CLOCK"(ISH┆
0x0c00…0c20 52 54 43 29 2e 0a 3b 0a 3b 20 4e 41 52 52 41 54 49 56 45 3a 0a 3b 20 49 53 48 52 54 43 20 49 53 ┆RTC). ; ; NARRATIVE: ; ISHRTC IS┆
0x0c20…0c40 20 49 4e 56 4f 4b 45 44 20 42 59 20 41 4d 4f 53 20 4d 45 53 53 41 47 45 53 20 57 49 54 48 20 54 ┆ INVOKED BY AMOS MESSAGES WITH T┆
0x0c40…0c60 48 45 20 46 4f 4c 4f 57 49 4e 47 20 46 4f 52 4d 41 54 3a 0a 3b 20 20 20 20 20 20 20 20 4d 45 53 ┆HE FOLOWING FORMAT: ; MES┆
0x0c60…0c80 53 30 3a 20 20 20 20 20 20 20 43 52 45 53 54 49 4d 20 20 20 20 3b 20 20 20 43 4f 4d 4d 41 4e 44 ┆S0: CRESTIM ; COMMAND┆
0x0c80…0ca0 20 57 4f 52 44 0a 3b 20 20 20 20 20 20 20 20 4d 45 53 53 31 3a 20 20 20 20 20 20 20 54 49 4d 45 ┆ WORD ; MESS1: TIME┆
0x0ca0…0cc0 28 31 30 30 4d 53 29 3b 20 20 20 50 41 52 41 4d 45 54 45 52 0a 3b 20 20 20 20 20 20 20 20 4d 45 ┆(100MS); PARAMETER ; ME┆
0x0cc0…0ce0 53 53 32 2d 34 3a 20 20 20 20 20 44 4f 4e 27 54 20 43 41 52 45 20 3b 0a 3b 0a 3b 20 57 48 45 4e ┆SS2-4: DON'T CARE ; ; ; WHEN┆
0x0ce0…0d00 20 41 20 56 41 4c 49 44 20 52 45 51 55 45 53 54 20 49 53 20 52 45 43 49 45 56 45 44 2c 41 4e 44 ┆ A VALID REQUEST IS RECIEVED,AND┆
0x0d00…0d20 20 49 53 48 52 54 43 20 49 53 20 4e 4f 4e 45 2d 42 55 53 59 2c 49 2e 45 2e 41 20 46 52 45 45 0a ┆ ISHRTC IS NONE-BUSY,I.E.A FREE ┆
0x0d20…0d40 3b 20 42 55 46 46 45 52 20 49 53 20 41 56 41 49 4c 41 42 4c 45 2c 54 48 45 4e 20 54 48 45 20 45 ┆; BUFFER IS AVAILABLE,THEN THE E┆
0x0d40…0d60 56 45 4e 54 20 49 53 20 53 54 4f 52 45 44 2c 41 4e 44 20 41 4e 20 41 4e 53 57 45 52 20 52 45 54 ┆VENT IS STORED,AND AN ANSWER RET┆
0x0d60…0d80 55 52 4e 45 44 0a 3b 20 54 4f 20 53 45 4e 44 45 52 20 57 49 54 48 20 43 4f 4d 50 4c 45 54 49 4f ┆URNED ; TO SENDER WITH COMPLETIO┆
0x0d80…0da0 4e 20 43 4f 44 45 20 27 43 43 4f 4b 27 2c 57 48 45 4e 20 54 48 45 20 54 49 4d 45 20 52 45 51 55 ┆N CODE 'CCOK',WHEN THE TIME REQU┆
0x0da0…0dc0 45 53 54 45 44 20 48 41 53 0a 3b 20 45 58 50 49 52 45 44 2e 0a 3b 20 4f 54 48 45 52 57 49 53 45 ┆ESTED HAS ; EXPIRED. ; OTHERWISE┆
0x0dc0…0de0 20 41 4e 20 43 4f 44 45 20 49 53 20 52 45 54 55 52 4e 45 44 20 54 4f 20 43 41 4c 4c 45 52 20 49 ┆ AN CODE IS RETURNED TO CALLER I┆
0x0de0…0e00 4e 20 4d 45 53 53 30 2c 49 2e 45 2e 3a 0a 3b 20 20 20 20 20 20 20 20 45 43 42 55 53 59 3a 20 20 ┆N MESS0,I.E.: ; ECBUSY: ┆
0x0e00…0e20 20 20 20 20 41 4c 4c 20 42 55 46 46 45 52 53 20 55 53 45 44 0a 3b 20 20 20 20 20 20 20 20 45 43 ┆ ALL BUFFERS USED ; EC┆
0x0e20…0e40 49 4e 56 43 4f 4d 44 3a 20 20 20 49 4e 56 41 4c 49 44 20 43 4f 4d 4d 41 4e 44 20 57 4f 52 44 0a ┆INVCOMD: INVALID COMMAND WORD ┆
0x0e40…0e60 3b 0a 3b 20 43 41 4c 4c 53 20 54 4f 3a 20 20 20 20 53 45 54 43 59 43 4c 45 0a 3b 20 20 20 20 20 ┆; ; CALLS TO: SETCYCLE ; ┆
0x0e60…0e80 20 20 20 20 20 20 20 20 20 57 41 49 54 45 56 45 4e 54 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WAITEVENT ; ┆
0x0e80…0ea0 20 20 53 45 4e 44 41 4e 53 57 45 52 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45 52 4d ┆ SENDANSWER ; TERM┆
0x0ea0…0ec0 49 4e 41 54 45 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆INATE ;-------------------------┆
0x0ec0…0ee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0ee0…0f00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 49 53 48 52 54 43 3a 20 20 20 20 20 20 20 20 20 20 20 ┆------------- ISHRTC: ┆
0x0f00…0f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 49 53 48 52 54 43 ┆ ;BEGIN ISHRTC┆
0x0f20…0f40 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 42 55 46 43 4e 54 20 20 20 20 20 20 20 20 20 20 ┆ MOVC BUFCNT ┆
0x0f40…0f60 20 20 52 30 20 20 3b 20 42 45 47 49 4e 20 49 4e 49 54 49 41 4c 49 5a 45 20 42 55 46 46 45 52 20 ┆ R0 ; BEGIN INITIALIZE BUFFER ┆
0x0f60…0f80 50 4f 4f 4c 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 42 55 46 41 52 45 41 20 20 20 20 20 ┆POOL MOVC BUFAREA ┆
0x0f80…0fa0 20 20 20 20 20 20 52 34 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 46 51 55 45 55 ┆ R4 ; MOVC FQUEU┆
0x0fa0…0fc0 45 20 20 20 20 20 20 20 20 20 20 20 20 52 35 20 20 3b 0a 4c 30 31 30 3a 20 20 20 20 20 20 20 20 ┆E R5 ; L010: ┆
0x0fc0…0fe0 20 20 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 46 4f 52 20 ┆ ; FOR ┆
0x0fe0…1000 4e 3d 31 2c 42 55 46 43 4e 54 20 44 4f 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 ┆N=1,BUFCNT DO MOV ┆
0x1000…1020 20 20 20 20 52 34 20 20 42 4c 49 4e 4b 2e 20 58 35 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f ┆ R4 BLINK. X5 ; MO┆
0x1020…1040 56 20 20 20 20 20 20 20 20 20 20 52 34 20 20 20 20 20 20 20 20 20 52 35 20 20 3b 20 20 20 20 20 ┆V R4 R5 ; ┆
0x1040…1060 4c 49 4e 4b 20 42 55 46 46 45 52 28 4e 29 20 49 4e 54 4f 0a 20 20 20 20 20 20 20 20 20 41 44 44 ┆LINK BUFFER(N) INTO ADD┆
0x1060…1080 43 20 20 42 55 46 53 49 5a 45 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 20 20 46 ┆C BUFSIZE R4 ; F┆
0x1080…10a0 52 45 45 20 51 55 45 55 45 0a 20 20 20 20 20 20 20 20 20 53 4f 42 20 20 20 20 20 20 20 20 20 20 ┆REE QUEUE SOB ┆
0x10a0…10c0 52 30 20 20 4c 30 31 30 20 20 20 20 20 20 20 3b 20 20 20 45 4e 44 44 4f 0a 20 20 20 20 20 20 20 ┆R0 L010 ; ENDDO ┆
0x10c0…10e0 20 20 4d 4f 56 43 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a ┆ MOVC 1 R0 ; ┆
0x10e0…1100 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 53 45 54 43 59 43 4c 45 20 20 20 20 20 20 20 20 20 ┆ MON SETCYCLE ┆
0x1100…1120 20 20 20 20 20 3b 20 20 20 22 53 45 54 5f 43 59 43 4c 45 22 28 31 30 30 4d 53 29 0a 20 20 20 20 ┆ ; "SET_CYCLE"(100MS) ┆
0x1120…1140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1140…1160 20 3b 0a 4c 31 30 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; L100: ┆
0x1160…1180 20 20 20 20 20 20 20 20 3b 20 57 41 49 54 45 56 45 4e 54 3a 0a 20 20 20 20 20 20 20 20 20 4d 4f ┆ ; WAITEVENT: MO┆
0x1180…11a0 56 43 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 44 45 ┆VC 0 R0 ; DE┆
0x11a0…11c0 4c 41 59 3d 50 48 41 53 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 42 4d 4d 53 47 2b 42 ┆LAY=PHASE MOVC BMMSG+B┆
0x11c0…11e0 4d 44 45 4c 41 59 20 20 20 20 20 52 32 20 20 3b 20 20 20 45 56 45 4e 54 3d 4d 53 47 20 4f 52 20 ┆MDELAY R2 ; EVENT=MSG OR ┆
0x11e0…1200 44 45 4c 41 59 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 43 4d 45 53 42 55 46 20 20 20 20 ┆DELAY MOVC CMESBUF ┆
0x1200…1220 20 20 20 20 20 20 20 52 31 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 57 41 49 54 ┆ R1 ; MON WAIT┆
0x1220…1240 45 56 45 4e 54 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 57 41 49 54 45 56 45 4e 54 ┆EVENT ; "WAITEVENT┆
0x1240…1260 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆" ┆
0x1260…1280 20 20 20 20 20 20 20 3b 20 20 20 58 30 3a 52 30 3d 45 56 45 4e 54 54 59 50 45 0a 20 20 20 20 20 ┆ ; X0:R0=EVENTTYPE ┆
0x1280…12a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12a0…12c0 3b 20 43 41 53 45 5f 4f 46 5f 45 56 45 4e 54 54 59 50 45 0a 20 20 20 20 20 20 20 20 20 53 45 51 ┆; CASE_OF_EVENTTYPE SEQ┆
0x12c0…12e0 20 20 20 20 20 20 20 20 20 20 52 30 20 20 42 4e 4d 53 47 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ R0 BNMSG ; ┆
0x12e0…1300 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 32 30 30 20 20 20 20 20 20 20 ┆ JMP L200 ┆
0x1300…1320 3b 20 31 2e 4d 45 53 53 41 47 45 0a 20 20 20 20 20 20 20 20 20 49 4e 45 20 20 20 20 20 20 20 20 ┆; 1.MESSAGE INE ┆
0x1320…1340 20 20 58 31 20 20 43 52 45 53 54 49 4d 20 20 20 20 3b 20 20 20 49 46 20 43 4f 4d 44 3c 3e 52 45 ┆ X1 CRESTIM ; IF COMD<>RE┆
0x1340…1360 53 45 52 56 45 20 54 49 4d 45 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 ┆SERVE TIME THEN JMP ┆
0x1360…1380 20 20 20 20 20 20 20 20 20 20 4c 31 31 30 20 20 20 20 20 20 20 3b 20 20 20 20 20 47 4f 54 4f 20 ┆ L110 ; GOTO ┆
0x1380…13a0 49 4e 56 41 4c 49 44 5f 43 4f 4d 4d 41 4e 44 3a 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 ┆INVALID_COMMAND: MOV ┆
0x13a0…13c0 46 51 55 45 55 45 20 20 20 20 20 20 20 20 20 20 20 20 52 35 20 20 3b 0a 20 20 20 20 20 20 20 20 ┆FQUEUE R5 ; ┆
0x13c0…13e0 20 49 45 51 20 20 20 20 20 20 20 20 20 20 52 35 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆ IEQ R5 0 ; ┆
0x13e0…1400 20 49 46 20 46 52 45 45 5f 51 55 45 55 45 20 45 4d 50 54 59 20 54 48 45 4e 0a 20 20 20 20 20 20 ┆ IF FREE_QUEUE EMPTY THEN ┆
0x1400…1420 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 31 31 32 20 20 20 20 20 20 20 3b ┆ JMP L112 ;┆
0x1420…1440 20 20 20 20 20 47 4f 54 4f 20 42 55 53 59 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 42 4c ┆ GOTO BUSY MOV BL┆
0x1440…1460 49 4e 4b 2e 20 58 35 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d ┆INK. X5 R0 ; M┆
0x1460…1480 4f 56 20 20 20 20 20 20 20 20 20 20 52 30 20 20 46 51 55 45 55 45 20 20 20 20 20 3b 20 20 20 47 ┆OV R0 FQUEUE ; G┆
0x1480…14a0 45 54 20 42 55 46 46 45 52 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 ┆ET BUFFER MOV ┆
0x14a0…14c0 52 32 20 20 42 45 56 45 4e 54 2e 58 35 20 20 3b 20 20 20 53 54 4f 52 45 20 45 56 45 4e 54 20 49 ┆R2 BEVENT.X5 ; STORE EVENT I┆
0x14c0…14e0 4e 20 42 55 46 46 45 52 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 43 4d 45 53 42 55 46 2b 4d ┆N BUFFER MOV CMESBUF+M┆
0x14e0…1500 53 50 41 52 4d 20 20 20 20 20 52 30 20 20 3b 20 20 20 52 45 41 44 20 54 49 4d 45 20 52 45 51 55 ┆SPARM R0 ; READ TIME REQU┆
0x1500…1520 45 53 54 45 44 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 31 20 20 20 20 20 20 20 20 20 20 ┆ESTED ADDC 1 ┆
0x1520…1540 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 4d 41 4b 45 20 50 52 4f 56 49 53 49 4f 4e 53 20 46 ┆ R0 ; MAKE PROVISIONS F┆
0x1540…1560 4f 52 20 5a 45 52 4f 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 30 ┆OR ZERO MOV R0┆
0x1560…1580 20 20 42 54 49 4d 45 2e 20 58 35 20 20 3b 20 20 20 53 41 56 45 20 54 49 4d 45 0a 20 20 20 20 20 ┆ BTIME. X5 ; SAVE TIME ┆
0x1580…15a0 20 20 20 20 4d 4f 56 20 20 20 4f 51 55 45 55 45 20 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 ┆ MOV OQUEUE R4 ┆
0x15a0…15c0 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 34 20 20 42 4c 49 4e ┆; MOV R4 BLIN┆
0x15c0…15e0 4b 2e 20 58 35 20 20 3b 20 20 20 45 4e 51 55 45 55 45 20 42 55 46 46 45 52 20 49 4e 20 4f 51 55 ┆K. X5 ; ENQUEUE BUFFER IN OQU┆
0x15e0…1600 45 55 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 35 20 20 4f 51 ┆EUE MOV R5 OQ┆
0x1600…1620 55 45 55 45 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 ┆UEUE ; JMP ┆
0x1620…1640 20 20 20 20 20 4c 31 30 30 20 20 20 20 20 20 20 3b 20 20 20 47 4f 54 4f 20 57 41 49 54 45 56 45 ┆ L100 ; GOTO WAITEVE┆
0x1640…1660 4e 54 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NT ┆
0x1660…1680 20 20 20 20 20 20 20 20 3b 0a 4c 31 31 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; L110: ┆
0x1680…16a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 4e 56 41 4c 49 44 5f 43 4f 4d 4d 41 4e 44 ┆ ; INVALID_COMMAND┆
0x16a0…16c0 3a 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 43 20 20 45 43 49 4e 56 43 4f 4d 44 2d 45 43 42 55 53 ┆: MODC ECINVCOMD-ECBUS┆
0x16c0…16e0 59 20 20 20 20 20 20 3b 0a 4c 31 31 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Y ; L112: ┆
0x16e0…1700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 42 55 53 59 0a 20 20 20 20 20 20 20 20 20 4d 4f ┆ ; BUSY MO┆
0x1700…1720 56 43 20 20 45 43 42 55 53 59 20 20 20 20 20 20 20 20 20 20 20 20 58 31 20 20 3b 20 20 20 57 52 ┆VC ECBUSY X1 ; WR┆
0x1720…1740 49 54 45 20 45 52 52 4f 52 43 4f 44 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 53 45 4e ┆ITE ERRORCODE MON SEN┆
0x1740…1760 44 41 4e 53 57 45 52 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 53 45 4e 44 41 4e 53 57 ┆DANSWER ; "SENDANSW┆
0x1760…1780 45 52 22 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 31 ┆ER" JMP L1┆
0x1780…17a0 30 30 20 20 20 20 20 20 20 3b 20 20 20 47 4f 54 4f 20 57 41 49 54 45 56 45 4e 54 3a 0a 4c 32 30 ┆00 ; GOTO WAITEVENT: L20┆
0x17a0…17c0 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0: ┆
0x17c0…17e0 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 45 51 20 20 20 20 20 20 20 20 20 20 52 30 20 20 42 4e ┆ ; SEQ R0 BN┆
0x17e0…1800 44 45 4c 41 59 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 ┆DELAY ; JMP ┆
0x1800…1820 20 20 20 20 20 4c 33 30 30 20 20 20 20 20 20 20 3b 20 32 2e 44 45 4c 41 59 0a 20 20 20 20 20 20 ┆ L300 ; 2.DELAY ┆
0x1820…1840 20 20 20 4d 4f 56 43 20 20 4f 51 55 45 55 45 20 20 20 20 20 20 20 20 20 20 20 20 52 36 20 20 3b ┆ MOVC OQUEUE R6 ;┆
0x1840…1860 20 20 20 47 45 54 20 46 49 52 53 54 20 45 4c 45 4d 45 4e 54 20 49 4e 20 4f 51 55 45 55 45 0a 4c ┆ GET FIRST ELEMENT IN OQUEUE L┆
0x1860…1880 32 31 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆210: ┆
0x1880…18a0 20 20 20 20 3b 20 20 20 55 4e 54 49 4c 20 41 4c 4c 20 45 4c 45 4d 45 4e 54 53 20 49 4e 53 50 45 ┆ ; UNTIL ALL ELEMENTS INSPE┆
0x18a0…18c0 43 2e 20 44 4f 0a 20 20 20 20 20 20 20 20 20 53 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆C. DO SON ┆
0x18c0…18e0 42 4c 49 4e 4b 2e 20 58 36 20 20 3b 20 20 20 20 20 49 46 20 4c 41 53 54 20 45 4c 45 4d 45 4e 54 ┆BLINK. X6 ; IF LAST ELEMENT┆
0x18e0…1900 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN JMP ┆
0x1900…1920 4c 31 30 30 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 47 4f 54 4f 20 57 41 49 54 45 56 45 4e ┆L100 ; GOTO WAITEVEN┆
[…truncated at 200 lines…]