Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50526/sam76.mac
There are no other files named sam76.mac in the archive.
SUBTTL[HEAD]
TITLE SAM76;
;* * * * * * * * * * * * * * * * * * * *
;
; <AR10> SAM76 Language System for the
;
; DEC - PDP-10
;
; Ancelme Roichel
;
; Participants: Mark Bayern, Len Bosack, Gnat Kuhn
; Neil Colvin, Tom Kirk, Roger Amidon
;
; and Barry Lubowsky at RIDER college where this
; system was developed and tested.
;
;
;
;
; Pennington, New Jersey, 08534
;
; February 1980
;
;* * * * * * * * * * * * * * * * * * * * ;
; If it is desired to make use of the
; %ex,name/ and subsequent continuation
; features of the SAM76 language system
; the compiled executable pure code
; MUST be saved in "SYS" with the name
;
; SAM76
;;
;
;;
;
VERSION=102072
VERLOW=1
PURE=-1
LEVELD=1
MON506=1
NCAR=1
WSPACE=3777
FLOATP=1
PLOTER=1
PAGE
SUBTTL[HEAD1]
;OPTIONAL SELECTION OF STARTUP CONSTANTS
WCDOL= "$"
WCAST= "*"
WCSA= "%"
WCSN= "&"
WCSP= "!"
WCSE= "/"
WCMB= "#"
WCMA= ":"
WCMN= ";"
WCAS= ","
WCQC= "@"
WCIC= "`"
WCBQ= "<"
WCEQ= ">"
WCBP= "("
WCEP= ")"
WCBA= "["
WCEA= "]"
;
CWCEND=CWCDOL
;
IFNDEF WSPACE,<WSPACE= 11777>
;
BKDATE= 7303;DATE FOR STORE FILE FEB 29, 1974
BKTIME= 2640;TIME AT 24:00
CMASK= 400
qpcLIM= 300
QMCLIM= 370
QSYBUF= 200
CHAN0= 0;CHANNELS 0 THROUGH 7 ASSIGNED BY %SY,DI,CHAN,.../
CHAN1= 1; OR %SY,DO,CHAN,.../
CHAN2= 2; AND DEVICE TO BE ASSOCIATED WITH
CHAN3= 3; PARTICULAR CHANNEL IS DEFINED WITH
CHAN4= 4; %SY,SD,DEV/
CHAN5= 5;
CHAN6= 6; also used by %DOF,xxx/
CHAN7= 7; also used with %DIF,xxx/
CHANT= 15
CHANL= 16;USED FOR LKF AND UKF FOR LOCKED FILE SYSTEM
CHAND= 17;USED BY bf,ef,sf,lf,RF,WF,fb,ex, AND %SY,QA,.../
; DEVICE TO BE ASOCIATED SELECTED BY APPROPRIATE
;%SY,XX,DEV/ WHERE XX IS bf,ef,....
;
TTYBTS= 20;INITIAL TTY SETUP
XTSTAT= 400;NORMAL INITIAL CONDITION FOR TTY MODE
OKSTAT= 700;PERMITTED BITS FOR TTY SETSTS
;;
;
SUBTTL[ASCON1]
;USASCII CONTROL CODES SPECIAL INVOCATION SEQUENCE OF "ESC #
;(F)" WHERE "F" IS A CHARACTER IN COLUMNS 4,5
;(@,A,B,C,....],^,_) PLACES IN PROGRAM CONTROL CODE USED
;PARTICULARLY WHEN PDP10 ACTION ON CONTROL CODES NOT DESIRED
;NOTE THAT ONLY THE FIRST "ESC" WILL ECHO IN THE SEQUENCE.
;CODES DESIGNATED AS "COMCON" SHOULD NOT BE USED FOR
;PURPOSES OTHER THAN AS DEFINED IN USAS-X3.4-1968 IF THE
;CODE SET IS TO BE CONSIDERED IN ITS ENTIRETY AS "COMPATIBLE
;USASCII".
CCNUL=00 ;@ NUL COMCON
CCSOH=01 ;A SOH COMCON
CCSTX=02 ;B STX COMCON
CCETX=03 ;C ETX COMCON
CCEOT=04 ;D EOT COMCON
CCENQ=05 ;E ENQ COMCON
CCACK=06 ;F ACK COMCON
CCBEL=07 ;G BEL
CCBKSP=10 ;H BS
CCHTAB=11 ;I HT
CCNULIN=12 ;J LF
CCVTAB=13 ;K VT
CCPAGE=14 ;L FF
CCRETUR=15 ;M RETURN
CCSFTO=16 ;N SO COMCON
CCSFTI=17 ;O SI COMCON
CCDLE=20 ;P DLE COMCON
CCDC1=21 ;Q DC1
CCDC2=22 ;R DC2
CCDC3=23 ;S DC3
CCDC4=24 ;T DC4
CCNAK=25 ;U NAK COMCON
CCSYN=26 ;V SYN COMCON
CCETB=27 ;W ETB COMCON
CCCAN=30 ;X CAN COMCON
CCENDM=31 ;Y EM
CCSUB=32 ;Z SUB COMCON
CCESC=33 ;[ ESC COMCON
CCFSEP=34 ;\ FS
CCGSEP=35 ;] GS
CCRSEP=36 ;^ RS
CCUSEP=37 ;_ US
CGSPACE=40 ; SP
;;
;
SUBTTL[ASCON2]
;EXTENDED CONTROL CODES PROPOSED BY ISO/TC-97/SC-2/E.G.1
;DOC10
;THE FOLLOWING CONTROL CODES ARE ATTAINED IN A SEVEN BIT
;ENVIRONMENT BY USE OF A TWO CHARACTER SEQUENCE "ESCAPE
;F(E)" WHERE "F(E)" IS A CHARACTER IN COLUMNS 4 AND 5 OF THE
;ASCII CODE TABLE, NAMELY @, A, B, C, ..., \, ], ^, _, AND
;ARE INTERNALLY REPRESENTED IN THE COMPUTER AS THEIR EIGHT
;BIT ENVIRONMENT CODE AS INDICATED.
;;
;
SUBTTL[ASM37E]
;IN MODEL 37 TELEPRINTERS MADE BY TELETYPE CORP. SOME OF
;THESE FUNCTIONS OPERATE ONLY THROUGH THE USE OF A TWO
;CHARACTER SEQUENCE OF THE FORM "ESCAPE F(P)", WHERE "F(P)"
;IS A CHARACTER FROM COLUMN 3 OF THE USASCII CODE TABLE,
;NAMELY 0, 1, 2, ..., =, >, ? AND THE FUNCTIONAL SEQUENCE IS
;NOTED WHERE APPROPRIATE. SUCH USE IS CURRENTLY CONSIDERED
;PROPER UNDER THE CONCEPT OF PRIVATE CONTROL CODE SET
;DESIGNATION. INTERNAL REPRESENTATION IF THE TERMINAL DEVICE
;IS IDENTIFIED AS A MODEL 37 IS HOWEVER IN THE EIGHT BIT
;CODE (RANGING FROM OCTAL 200 TO OCTAL 237).
;ASSIGNMENTS OF MODEL 37 TTY PRIVATE ESC SEQUENCES - VALUE
;OF 0 INDICATES THAT THE TWO CHARACTER ESCAPE SEQUENCE IS
;NOT CONVERTED TO A SINGLE EIGHT BIT CODE; CODES SO
;INDICATED ARE NOT NORMALLY SUBJECTED TO STRING EDITING
;OPERATIONS LIKELY TO SPLIT APART THE SEQUENCE.
;See appropriate function definitions for manner of
;setting switches and effects achieved.
CPHTS=0; ESC 1 Horizontal Tab Set
CPHTC=0; ESC 2 Horizontal Tab Clear
CPXHF=237; ESC 4 Highlight Off
CPXHN=236; ESC 3 Highlight On
CPVTS=0; ESC 5 Vertical Tab Set
CPVTC=0; ESC 6 Vertical Tab Clear
CPRLF=231; ESC 7 Reverse Line Feed
CPHLR=234; ESC 8 Half Reverse LF
CPHLF=235; ESC 9 Half Forward LF
CPLCF=0; ESC : Full Duplex
CPLCN=0; ESC ; Half Duplex
;;
;
SUBTTL[OPTIONS]
LOC 137
XWD VERLOW,VERSION
RELOC
IFNDEF QUEOPT,<QUEOPT=0>
IFNDEF VERLOW,<VERLOW=0>
IFNDEF PLOTER,<PLOTER=0>
IFNDEF LEVELC,<LEVELC=0>
IFNDEF LEVELD,<LEVELD=0>
IFN LEVELC,<DTADIR=122>
IFN LEVELD,<DTADIR=123>
IFE LEVELD,<XPROT=455000>
IFN LEVELD,<XPROT=155000>
IFNDEF PURE,<PURE=0>
IFN PURE,<HISEG>
IFNDEF BLOCKS,<BLOCKS=0>
IFNDEF NCARNO,<NCARNO=206>
IFNDEF NCAR,<NCAR=0>
IFNDEF FLOATP,<FLOATP=0>
IFNDEF MON506,<MON506=0>
;;
;
SUBTTL[DEF-JM]
DEFINE JDCT6<
AOS T6
MOVEM Z,@T6>
DEFINE JMSCN<
CAMN T5,PFL
JRST RSC1
AOS T5
MOVE Z,@T5>
DEFINE JMASCI<
JTMP3N
TRZ Z,200>
DEFINE JMQDI<
JSAT
MOVE T1,@T7
CAME T1,[SIXBIT /(NULL)/]
JSSIX
>
DEFINE JMREN<
IFN LEVELC,<JFBCL>
SETZB E,E1
RENAME CHAND,E
>
DEFINE JMRPAL<
MOVE PAL,PALPAL
JXGLN
>
;;
;
SUBTTL[DEF-JR]
DEFINE IQ(Y),<
IRP (Y), <
ENTRY Y'
OPDEF Y [JRST Y']>>
IQ<JRCE,JRNAV>
IQ<JRQ,JRX,JRAB,JRAC,JRAD,JRAG,JRAY,JRAZ>
IQ<JRV,JRVI,JRNR,JRMR,JRML,JRMV,JRXRS,JRXR,JRPPN>
IQ<JRSIXS,JRSIX,JRTABN>
IQ<JPOP1>
IQ<JPOPZ,JPOPA,JPOPB>
IQ<JRVSGN,JRKWIT>
IQ<JRNAVE,JRNAVI,JRNAVL,JRNAVO,JRNAVR,JRNAVS,JRDNAV,JRTNAV>
IQ<JRNAEF>
IFN FLOATP,<IQ<JRQFP,JRQFPI>>
;;
;
SUBTTL[DEF-JS]
DEFINE Q(X),<
IRP (X), <
ENTRY X'
OPDEF X [PUSHJ P, X']>>
Q<JSS,JSP9,JSW,JSAE,JSAN,JSAS,JSAT,JSGT,JSGX,JSNQ>
Q<JSGSIX>
Q<JSER,JSERNO,JCI41X>
Q<JSD,JSDLST,JSDTST,JSPL,JSGQ,JSGV,JSGE>
Q<JSCF,JSCFA,JSCT,JSDD,JSR2>
Q<JSSBA,JSFDL,JSR1>
Q<JSPK,JSR9,JSSR,JST2,JSXR,JSXX,JTBCK>
Q<JSXRZ,JSPKA,JSPKB,JSPKC,JSPKB1>
Q<JSAA,JSAU,JSBK,JSBT,JSBTIM,JSDC,JSET>
Q<JSA1,JSA2,JSA3>
Q<JSL2,JSML,JSMT,JSNT>
Q<JSR2C,JSW2C,JSF,JSFS>
Q<JSDS,JSDSA>
Q<JSOPF,JSOPN>
Q<JSLG,JSLNA>
Q<JSHRN>
Q<JSBDF,JSBDL,JSBDN,JSBDI,JSBDP,JSBFI>
Q<JSSIX,JSSEV,JSGSEV,JCI41>
Q<JSFBL>
Q<JSBUF,JSBUG>
Q<JSTO,JSTI,JSTGET,JSTPUT,JSPR,JSIRO>
Q<JSBUFC,JSBUFH,JSBUFO,JSBUFZ>
Q<JSTL,JSTINH,JSTINF,JSTTI,JSTTIC,JSTTIR>
Q<JSNAMA,JSNAST>
Q<JSWSGN>
Q<JSCON,JSACR,JSDT,JSDTI>
Q<JSTAB>
Q<JSOPEN>
IFN FLOATP,<Q<JSFLOT,JSFLIX,JSFLTW>>
IFN LEVELC,<Q<JSBDE>>
IFN PLOTER,<Q<JSPLBD,JSPLGM>>
IFN MON506,<Q<JSTNO,JSTOP>>
;;
;
SUBTTL[DEF-OP]
OPDEF TTCALL [51B8]
OPDEF JTSTCN [TRNN Z,540]
OPDEF JTSTCE [TRNE Z,540]
OPDEF JXTTC0 [TTCALL 0,Z]
OPDEF JXTTC1 [XCT TTYCON]; output eight bits always
OPDEF JXSOGE [SOSGE 2(PAL21)]
OPDEF JXSOSG [SOSG 2(PAL21)]
OPDEF JXILDB [ILDB Z,1(PAL21)]
OPDEF JXIDPB [IDPB Z,1(PAL21)]
OPDEF JFBCL [CLOSE CHAND,]
OPDEF JPOPJ [POPJ P,]
OPDEF JSD2 [SUBI T2,1]
OPDEF JSD3 [SUBI T3,1]
OPDEF JSDL [SUBI PAL2,1]
OPDEF JSDN [SUBI PAN2,1]
OPDEF JSDF [SOS PFL]
OPDEF JCIA [MOVNS Z]
OPDEF JCMA [SETOI Z,]
OPDEF JCLA [SETZI Z,]
OPDEF JGETST [GETSTS CHAND,ERBIT]
OPDEF JSFD [CAMN PAL2,CHAR2]
OPDEF JXSKIP [CAIA]
OPDEF JXGLN [HRRE PAN,@PAL]
OPDEF JRSETP [MOVE P,[IOWD KPUSH,LPUSH]]
OPDEF JXBUIO [XCT SYBUIO(PAN2)]
OPDEF JXBUCL [XCT SYBUCL(PAN2)]
OPDEF JXBUST [XCT SYBUST(PAN2)]
OPDEF JXBUEF [XCT SYBUEF(PAN2)]
OPDEF JXBUGS [XCT SYBUGS(PAN2)]
;;
;
SUBTTL[DEF-BUF]
SYCHBK=12
SYBUH1=1
SYBUH2=2
SYBUH3=3
SYBUCH=4
SYBUIO=5
SYBUST=6
SYBUEF=7
SYBUGS=10
SYBUCL=11
SYBUDV=12
SYBUMO=13
SYBUBP=14
SYBUSP=15
SYBUE0=16
SYBUE1=17
SYBUE2=20
SYBUE3=21
SYBUE4=22
SYBUR0=23
SYBUR1=24
SYBUR2=25
;;
;
SUBTTL[DEF-SWL]
;SWITCH LEFT HALF ASSIGNMENTS
OPDEF JJESCE [TLNE SWITCH,400000]
OPDEF JJOSCE [HRLZI T1,400000];SET FOR OVERFLOW TRAP
OPDEF JJETTN [TLNE SWITCH,200000]
OPDEF JJOTTN [HRLZI T1,200000]
OPDEF JJM37E [TLNE SWITCH,1]
OPDEF JJM37N [TLNN SWITCH,1]
OPDEF JJM37O [TLO SWITCH,1];SET FOR M37E 8 BIT
OPDEF JJINFE [TLNE SWITCH,2]
OPDEF JJINFN [TLNN SWITCH,2];INFOTON
OPDEF JJINFO [TLO SWITCH,2];SET FOR INFOTON
OPDEF JJODTA [TLO SWITCH,40000];TEMP FOR DTA &C
OPDEF JJEDTA [TLNE SWITCH,40000]
OPDEF JZADTA [TLZA SWITCH,40000]
OPDEF JLALLT [TLNN SWITCH,777]
OPDEF JLALLZ [TLZ SWITCH,777];CLEAR DEVICE TYPE SWITCHES
OPDEF JJE8B [TLNE SWITCH,1000]; EIGHT OR MORE BITS TO DISK IN JSTPUT
OPDEF JJN8B [TLNN SWITCH,1000]
OPDEF JJO8B [TLO SWITCH,1000]
OPDEF JJZ8B [TLZ SWITCH,1000]
OPDEF JJE8BX [TLNE SWITCH,2000];EIGHT OR MORE BITS TO DISK IN JSTPUT
OPDEF JJN8BX [TLNN SWITCH,2000]
OPDEF JJO8BX [TLO SWITCH,2000]
OPDEF JJZ8BX [TLZ SWITCH,2000]
;;
;
SUBTTL[DEF-SWR]
;SWITCH (RIGHT HALF) CONTROL OPERATIONS
OPDEF JRETUA [TRZA SWITCH,1]
OPDEF JRETUN [TRNN SWITCH,1];SKIP IF 2741
OPDEF JRETUE [TRNE SWITCH,1];SKIP IF NOT 2741
OPDEF JRETUZ [TRZ SWITCH,1];NOT A 2741 SETTING
OPDEF JRETUB [TROA SWITCH,1];IS A 2741 SETTING AND SKIP
OPDEF JRETUO [TRO SWITCH,1]; IS A 2741 SETTING
OPDEF JNULLE [TRNE SWITCH,2];SKIP IF NOT "NU"
OPDEF JNULLN [TRNN SWITCH,2]; SKIP IF "NU"
OPDEF JNULLO [TRO SWITCH,2];SETFOR "NU" ACTION
OPDEF JNULLZ [TRZ SWITCH,2];BACK TO SHIFT IN "NU"
OPDEF JNULLA [TROA SWITCH,2]
OPDEF JJOALT [TRO SWITCH,4]
OPDEF JJZALT [TRZ SWITCH,4]
OPDEF JJEALT [TRNE SWITCH,4]
OPDEF JJNALT [TRNN SWITCH,4]
OPDEF JONALT [TRON SWITCH,4]
OPDEF JNDPNF [ANDI Z,10]
OPDEF JJNPNF [TRZN SWITCH,10]
OPDEF JJEPNF [TRNE SWITCH,10]
OPDEF JJZPNF [TRZ SWITCH,10]
OPDEF JTCPNF [TRC SWITCH,10]
OPDEF JJNPNI [TRNN SWITCH,20]
OPDEF JJZPNI [TRZ SWITCH,20]
OPDEF JJETCE [TRNE SWITCH,40]
OPDEF JJZTCE [TRZ SWITCH,40]
OPDEF JOATCE [TROA SWITCH,40]
OPDEF JJEGAP [TRNE SWITCH,100]
OPDEF JOAGAP [TRZA SWITCH,100]
OPDEF JJOGAP [TRO SWITCH,100]
OPDEF JJNGAP [TRNN SWITCH,100]
OPDEF JJN1CK [TRZN SWITCH,200];TMP1 CLEAR AND SKIPN
OPDEF JTMP1N [TRNN SWITCH,200];TMP1 SKIPN
OPDEF JTMP1E [TRNE SWITCH,200];TMP1 SKIPE
OPDEF JTMP1O [TRO SWITCH,200];TMP1 SET
OPDEF JTMP1Z [TRZ SWITCH,200];TMP1 CLEAR
OPDEF JTMP1A [TRZA SWITCH,200]
OPDEF JTMP2N [TRNN SWITCH,400];TMP2 SKIPN
OPDEF JTMP2E [TRNE SWITCH,400];TMP2 SKIPE
OPDEF JTMP2O [TRO SWITCH,400];TMP2 SET
OPDEF JTMP2Z [TRZ SWITCH,400];TMP2 CLEAR
OPDEF JNECHO [TRNN SWITCH,1000];SKIPN ECHO PRINT
OPDEF JOAECH [TROA SWITCH,1000]
OPDEF JJZECH [TRZ SWITCH,1000]
OPDEF JJOMOE [TRO SWITCH,2000]
OPDEF JJZMOE [TRZ SWITCH,2000]
OPDEF JOAMOE [TROA SWITCH,2000]
OPDEF JJEMOE [TRNE SWITCH,2000]
OPDEF JJNMOE [TRNN SWITCH,2000]
OPDEF JRORN [TRNN SWITCH,4000];R/O IS 177
OPDEF JRORO [TRO SWITCH,4000]
OPDEF JROROA [TROA SWITCH,4000]
OPDEF JRORZ [TRZ SWITCH,4000]
OPDEF JRORE [TRNE SWITCH,4000];R/O IS NOT 177
OPDEF JBURSN [TRNN SWITCH,10000]
OPDEF JBURSE [TRNE SWITCH,10000]
OPDEF JBURSO [TRO SWITCH,10000]
OPDEF JBURSZ [TRZ SWITCH,10000]
OPDEF JBUPRZ [TRZ SWITCH,30000]
OPDEF JBUPSN [TRNN SWITCH,20000]
OPDEF JBUPSE [TRNE SWITCH,20000]
OPDEF JBUPSO [TRO SWITCH,20000]
OPDEF JBUPSZ [TRZ SWITCH,20000]
OPDEF JJEINT [TRNE SWITCH,40000];INTERRUPT TEST
OPDEF JZAINT [TRZA SWITCH,40000]
OPDEF JJOINT [TRO SWITCH,40000]
OPDEF JTMP3N [TRNN SWITCH,100000];TMP3 SWITCH
OPDEF JTMP3E [TRNE SWITCH,100000]
OPDEF JTMP3O [TRO SWITCH,100000];SET TMP3 ON
OPDEF JTMP3A [TRZA SWITCH,100000];CLEAR TMP3 AND SKIP
OPDEF JTMP3Z [TRZ SWITCH,100000];CLEAR TMP3
OPDEF JJRENZ [TRZ SWITCH,200000];reenter from monitor
OPDEF JJRENO [TRO SWITCH,200000]
OPDEF JJRENE [TRNE SWITCH,200000]
OPDEF JJESGN [TRNE SWITCH,400000]
OPDEF JJNSGN [TRNN SWITCH,400000]
OPDEF JJOSGN [TRO SWITCH,400000]
OPDEF JJZSGN [TRZ SWITCH,400000]
OPDEF JJATMP [TRZA SWITCH,402606]
OPDEF JJZTMP [TRZ SWITCH,402606]
;;
;
SUBTTL[ACCUM]
BASE=0
Z=1
T1=2
T2=3
T3=4
T4=5
T5=6
T6=7
T7=10
SWITCH=11
PAL=12
PAN=13
PAL2=14
PAN2=15
PAL21=16
P=17
E=5
E1=6
E2=7
E3=10
;;
;
SUBTTL[START]
;PERMANENTLY SET INSTRUCTION LOCATIONS
;TO PERMIT CONTINUITY OF INTERACTION BETWEEN
;LOW SEGMENT SAVE FILES CREATED BY %ex,name/
;AND SUBSEQUENT UPDATES OF THE SHARED OR
;HISEGMENT PART OF THE PROCESSOR
STQex: JRST Qex6
STJRQ: JRQ
STSUS: JRST STREN
STSUS1: JRST SUS1
STSPR1: JFCL ;SPARE RETURN POINT
STJRX: JRX
STJRCE: JRCE
STPLOV: JRST PLOV
Z
Z
Z
Z
Z
Z
Z
Z
0206
JRPOPA: JPOPA
STMEDL: IFL PURE,<CALLI 4,12>
IFGE PURE,< SUS>
LOC41: JRST STJRCE
STREN: JJRENO
JRST @.JBOPC
;;
;
SUBTTL[BEGIN]
BEGIN: IFN PURE,<
SKIPE OR2
CALLI 4,12
MOVSI Z,DATAE
HLLM Z,.JBSA
>
CALLI 0
JRSETP
IFN PURE,<JSERNO>
MOVEI Z,STMEDL
HRRM Z,.JBSA
MOVE Z,LOC41
MOVEM Z,.JB41
MOVEI Z,STSUS
MOVEM Z,.JBREN
MOVEI Z,STPLOV
MOVEM Z,.JBAPR
MOVE Z,PLOVF
CALLI Z,16
HLRZ Z,.JBSA;Get top of core
MOVEM Z,OR2
MOVEM Z,BUFTOP
MOVEM Z,BUFLOW
ADDI Z,1000
ORI Z,1777
MOVEM Z,LOW
MOVEM Z,FLOW
MOVEM Z,FTOP
MOVEM Z,PWR
HRLM Z,.JBCOR
JSOPF
CALLI T2,27
MOVEM T2,RUNTIM
HRLZI Z,TTYBTS
HRRI Z,XTSTAT
MOVEM Z,LNBTS
HLLM Z,TTSTAT
MOVEI SWITCH,4000;Set bit for rubout
JSDTI
JSDT
MOVEM SWITCH,KWITCH
JRST RSTA
;;
;
SUBTTL[JRX]
SUS: JJRENZ
JBUPRZ
JSPR
JSP9
EXP SYN-1
JRX: JRSETP
JSPR
JJZPNI
MOVE Z,XSYNR
MOVEM Z,SYNR
MOVE Z,XSYNR+1
JRX1: MOVEM Z,SYNR+1
MOVEI PAL,SYN-1
MOVE Z,OR2
MOVEM Z,PFL
MOVNI PAN,13
JRST FRX
;;
;
SUBTTL[MAJTAB]
XLKYN: XWD WCSE,WCSE
XDREAD: Z
XDWRIT: Z
XWCTAB:
EXP WCSA
EXP WCSN
EXP WCSE
EXP WCSP
EXP WCMB
EXP WCMA
EXP WCMN
EXP WCAS
EXP WCQC
EXP WCIC
EXP WCBQ
EXP WCEQ
EXP WCBP
EXP WCEP
EXP WCBA
EXP WCEA
EXP WCAST
EXP WCDOL
;
XSYN: EXP WCSA
EXP "o"
EXP "s"
EXP WCAS
EXP WCSA
XSYNR: EXP "i"
EXP "s"
EXP WCSE
EXP WCSE
EXP "="
XXZERO: Z
XSPR1: Z
XSPR2: Z
XESCAP: CCESC
XLRXBX: XWD -^D10,-^D8
XRUBOC: XWD 74,76
XRUBOU: 177;RUBOUT
XSEQNO: Z;INITIALIZED VALUE OF S/N BIT MARKER
XLTM2: Z
XMOXR: 6
XLBSEK: -60
XPTPUN: IFE LEVELD,<455000000455>
IFN LEVELD,<155000000155>
XLINEL: ^D71
XVERTL: ^D60;PAGE HEIGHT CONSTANT
XTYPVT: Z;TERMINAL TYPE
XTYCON: TTCALL 1,Z
XFILEX: Z
XDSK1: Z
Z
XYBUPS: Z
XYBURS: Z
XCHANA: Z
Z
Z
Z
Z
Z
Z
Z
XBSTAT: XWD 0,17
XBDEV: EXP SIXBIT /DSK/
XBBUF: XWD 0,0
XDEVbf: EXP SIXBIT /DSK/
XDEVsf: EXP SIXBIT /DSK/
XDEVlf: EXP SIXBIT /DSK/
XDEVef: EXP SIXBIT /DSK/
XDEVRF: EXP SIXBIT /DSK/
XDEVWF: EXP SIXBIT /DSK/
XDEVuf: EXP SIXBIT /DSK/
XDEVex: EXP SIXBIT /DSK/
XLKYN1:
;;
;
SUBTTL[RESTART]
EXTERN .JBSA,.JBREL,.JBVER,.JBHRL,.JBDA
EXTERN .JBUUO,.JB41,.JBREL,.JBFF
EXTERN .JBREN,.JBAPR,.JBCNI,.JBTPC,.JBOPC,.JBCOR
;RESTART RESET ROUTINE
REST: MOVE T1,TEM1
CAIGE T1,3
JRST SUS
SUS1:RSTA: JSS ;RESET EVERYTHING TO STANDARD
XLKYN-1 ;START OF TABLE
KKYN-1 ;GOES INTO LOSEG
XLKYN-XLKYN1
MOVE SWITCH,KWITCH
JRX ;TO IDLE
;;
;
SUBTTL[JRCE]
SCET: HLRZ Z,KKYN
MOVEM Z,SYNR
MOVE Z,S1S2
MOVEM Z,qqofQ
HRRZ Z,KKYN
JRST JRX1
JRCE: JFBCL
JJESCE
JRST SCET
JSPR
JSP9
SCEK-1
HLRZ Z,S1S2
JSTO
HRRZ Z,S1S2
JSTO
MOVEI Z,76
JSTO
JRX
SCEK: EXP "<","S","C","E","-",0 ;overflow message
;;
;
SUBTTL[JRNAV]
JRNAEF: MOVEI E1,4
JRNAVI
JRNAVO:JRNAVE:
MOVEM E1,ARG1
JMREN
JFCL
MOVE E1,ARG1
JRNAVR:
JRNAVI:JRNAVL:
JFBCL
JRNAVS: ANDI E1,17
MOVEM E1,ARG1
JTMP1A
JRNAV: JTMP1O
JSER
MOVE T1,[SIXBIT /<NAV- /]
HLRZ Z,S1S2
JUMPE Z,JRNAV1
SUBI Z,40
ANDI Z,77
ADD T1,Z
JSSIX
HRRZ Z,S1S2
JUMPE Z,JRNAV2
SUBI Z,40
ANDI Z,77
JTMP1E
JRST JRNAV3
ROT Z,-6
MOVE E1,ARG1
MOVE T1,NAVLK(E1)
ADD T1,Z
JRSIX
JRNAV1: ADDI T1,36
JRSIX
JRNAV2: MOVEI T1,36
ROT T1,-6
JRSIX
JRNAV3: MOVE T1,Z
LSH T1,6
ADDI T1,36
ROT T1,-^D12
JRSIX
JRTNAV: JXBUCL
MOVE E1,ERBIT
JRNAVS
JRDNAV: JBUPRZ
JRTNAV
;;
;
SUBTTL[RETURNS]
JRXRS: JSER
JRXR: JSXR
JRQ
JRSIXS: JSER
JRSIX: JSSIX
JRQ
JRMV: MOVE PAL2,PFL
MOVN PAN2,PFF
ADD PAN2,PAL2
JRML: JSBK
JRNR
MOVE Z,ARG1
JSWSGN
JRAG: JST2
PAL2
JRQ
JRMR: AOSN ZERO
JRNR
JST2
TEM4
JRNR: MOVEI Z,60
JRST GVR1
JRVSGN: JSWSGN
JRVI: JCIA
JRV: JUMPE Z,JRNR
MOVEM Z,TEM3
JSGV
GVR1: JSW
JRQ
JRKWIT: SKIPE Z
TDOA SWITCH,T1
TDZ SWITCH,T1
JRQ
JRTABN: MOVE T1,@T5
JUMPE T1,JRQ
JSAT
MOVE T1,@T5
JSSIX
AOJA T5,JRTABN
;;
;
;;
;
SUBTTL[JRQ]
JRQ:FR: JJRENE
JRST SUS
JRSETP
JTBCK
FR0: JSAE
JRST FR1
JSAS
JRST FR0
FR1: MOVE PAN,PAL
SUB PAN,PAE
JJNPNF
JRST FRY
FRX: MOVE T5,PFL
SKIPA
FRY: MOVE T5,PEL
MOVEM T5,T6
JJZTMP
JSAT
MOVE Z,END
CAIG Z,WSPACE
JRST AR
JSBUFZ
ADD T5,T7
ADD T6,T7
MOVE Z,LOW
SUB Z,PFL
CAIGE Z,2777;1000+1777
JRST FRZ
MOVEI Z,1000
ADD Z,PFL
JSHRN
JRST AR
FRZ: MOVE Z,END
SUB Z,FLOW
CAIGE Z,2777
JRST AR
MOVE Z,FLOW
JSOPF
JRST AR
;;
;
SUBTTL[SCNTAB]
SCNTAB:
XWD 0,ABF
XWD 0,ABN
XWD 0,ARP
XWD 0,ALP
XWD 0,ABM
XWD 0,ARP
XWD 0,ARMNF
XWD 0,ACM
XWD 0,ALQC
XWD 0,ARIC
XWD 0,ALPB
XWD 0,ALPBE
XWD 0,ALPA
XWD 0,ALPAE
XWD 0,ALPM
SCNTAC: XWD 0,AR2
XWD 0,ACL1
XWD 0,ACL2
;
;
SUBTTL[SCAN]
ARIC: JMSCN
JRST AR
;
ALQC: JMSCN
JRST AR2
;
ABN: MOVSI Z,700000
JXSKIP
ABF: MOVSI Z,400000
ADD Z,T2
JRST AR2
ACM: MOVSI Z,500000
AR2: JDCT6
AR: JMSCN; INC PAL2 GET NEXT CHAR
;
AR1: SETZI T2,
IFN FLOATP,<CAMN Z,CWCAST
JRST ACL1>
camn z,CWCQC
jrst ALQC
camn z,CWCSA
jrst ABF
camn z,CWCSN
jrst ABN
camn z,CWCSE
jrst ARP
camn z,CWCSP
jrst ALP
camn z,CWCMB
jrst ABM
camn z,CWCMA
jrst ARP
camn z,CWCMN
jrst ARMNF
camn z,CWCAS
jrst ACM
camn z,CWCQC
jrst ALQC
camn z,CWCIC
jrst ARIC
camn z,CWCBQ
jrst ALPB
camn z,CWCEQ
jrst ALPBE
camn z,CWCBP
jrst ALPA
camn z,CWCEP
jrst ALPAE
camn CWCBA
jrst ALPM
;
CAMN Z,CWCDOL
jrst acl2
;
TRZ Z,1000
jrst AR2
;
;
ABM: ADDI T2,1
ACL2: ADDI T2,1
ACL1: ADDI T2,1
ROT T2,-6
jrst abf
;
ALPM: move t7,CWCEA
JRST ALPP
;
ALPA: move t7,CWCEP
JRST ALPP
;
ALPAE: move t7,CWCBP
JRST ALPP
;
ALPB: move t7,CWCEQ
JRST ALPP
;
ALPBE: move t7,CWCBQ
JRST ALPP
;
;
ALP1P: CAMN Z,T7
JRST APR1
CAMN Z,T4
JRST ALP2
JRST APW
;
;
ALPP: MOVE T4,Z
JRST ALP0
;
ALP: SETZI T4,
ALP0: SETZI T3,; ! SEEN
ALC: JMSCN
JUMPN T4,ALP1P
CAMN Z,CWCSE
JRST APR1
CAMN Z,CWCSP
AOS T3
CAMN Z,CWCSA
AOS T3
CAMN Z,CWCSN
ALP2: AOS T3
APW: JDCT6
JRST ALC
APR1: SOS T3
JUMPL T3,AR
JRST APW
ARMNF: JTCPNF ;set pnf
;
ARP: JTMP1O
MOVEM T6,PAL
MOVE Z,K600K; >
ARP1: JDCT6
JMSCN
JRST ARP1
;;
;
SUBTTL[RSC1]
RSC1: JJN1CK
JRX
MOVEM T6,PAE
MOVE Z,LOW
MOVEM Z,PWR
AOS PAL
MOVEM PAL,T3
SC1: MOVEI PAN,1
SC2: SOS PAL
SOS PAN
CAMN PAL,OR2
JRX
MOVE T2,@PAL
JUMPGE T2,SC2
HRR T2,PAN
MOVEM T2,@PAL
LSHC T1,3
ANDI T1,7
CAIN T1,5
JRST SC1
CAIN T1,7
JTCPNF
MOVEM PAL,PFL
MOVEM PAL,PEL
SOS PFL
SOS PEL
JJETCE
JRST QTCE
;;
;
SUBTTL[FNP1]
FNP1: JJATMP
FNPNL: JNULLO
FNPNU1: LSHC T1,3
ANDI T1,3
SKIPE T1
JRST @FNP1L-1(T1)
FNPBAS: JSPK
JRST Qfntre
JSDLST
FNL
jumpn Z,Qfti
hrrz z,S1S2
subi z,140
skipg z
addi z,40
cain z,"F"
jrst Qqf
cain z,"N"
jrst Qqn
cain z,"T"
jrst Qqt
jrst Qfti
FNP1L:
IFN FLOATP,< JRST Qflt0>
IFE FLOATP,< JRST FNPNAV>
JRST Q$M1
jrst fnpm6; FOR "M6" FUNCTION MARKERS
FNPNAV: MOVE PAL,PEL
AOS PAL
JXGLN
JRST FNPBAS
;
Qfntre: caie t1,3
jrst Qfti1
;
jsgsix
jstab
tabtre-1
tretab-1
jrst qfti
hrrz pal21,@t6
hlrz t6,@t6
move t1,pal21
jcla
jrst @t6
;
;
Qnud: JJOMOE
JRST FNPBAS
;
fnpm6: jsf
jrst fnpm6a
jrst qfti
;
fnpm6a: jspk
jrst qfntre
jsdlst
fnl
jrq
;
;
SUBTTL[JSA1]
JSA1: MOVSI T4,(JFCL)
MOVE T5,[MOVEI Z,1]
MOVEM BASE,LT
JSA11: MOVEM T4,ADS32
MOVEM T5,ADS33
JPOPJ
JSA2: MOVE T4,[PUSHJ P,JSTNY]
MOVSI T5,(JFCL)
JRST JSA11
JSA3: MOVE T4,[MOVNS Z,Z]
MOVSI T5,(SETCA Z,)
MOVNM BASE,LT
JRST JSA11
;;
;
SUBTTL[JSAA]
JSAA: MOVE T6,Z
SETZB T5,ZERO
MOVEI Z,55
MOVEM Z,ARG1
HLRO BASE,RIXBIX
JSET
SETCMM ZERO
MOVE PAL2,PAL
JSNT
MOVE PAL,PAL2
MOVE PAN,PAN2
MOVEI Z,2
ADD Z,ZERO
JUMPE Z,AST3
MOVE PAL2,T2
JSNT
AST3: JSGQ
JRST AST1
ADDI T6,10
JPOPJ
AST1: MOVEI T5,200
JPOPJ
;;
;
SUBTTL[JSAE]
JSAE: MOVE Z,@PAL
ROT Z,3
ANDI Z,7
CAIE Z,6
JPOPA: AOS 0(P)
JPOPZ: JCLA
CPOPJ: JPOPJ
;;
;
SUBTTL[JSAN]
JSAN: MOVEM Z,C
JJZSGN
ADD Z,BASE
ADD Z,BSEK
JUMPGE Z,JPOPZ
SUB Z,BASE
JUMPGE Z,JPOP1
ADN1: MOVE Z,C
CAIN Z,55
JJOSGN
JPOPZ
;;
;
SUBTTL[JSAS]
JSAS: JSAE
JRST ARGS31
AOS ZERO
ARGS1: SKIPG @PAL
JRST ARGS3
ARGS2: AOS PAL
SKIPL @PAL
JRST ARGS2
JRST ARGS4
ARGS3: JXGLN
SUB PAL,PAN
AOS PAL
ARGS31: SETZI PAN,
ARGS4: JSAE
JPOPJ
JXGLN
JPOPJ
;;
;
SUBTTL[JSAT]
JSAT: JST2
PAL
JPOPJ
;;
;
SUBTTL[JSAU]
JSAU: MOVE PAL2,ARG2
SOS PAL2
SETZB T4,T5
SETZB Z,PAN2
AD3A: MOVE T6,Z
JUMPN T4,AD3B
JSD2
MOVE Z,@T2
JSAN
AOS T4
ADD T6,Z
AD3B: JUMPN T5,AD3C
JSD3
MOVE Z,@T3
JSAN
JRST A8
AD32: XCT ADS32
ADD T6,Z
AD3C: MOVE Z,T4
ADD Z,T5
SUBI Z,2
JUMPN Z,AD3D
JUMPE T6,CPOPJ
MOVE Z,T6
JSDC
JPOPJ
AD3D: MOVE Z,T6
ADDI Z,60
JSAN
JRST AD3E
JSDC
JRST AD3A
AD3E: MOVE Z,LT
ADD Z,C
ANDI Z,17
JSDC
AD33: XCT ADS33
JRST AD3A
A8: AOS T5
JRST AD3C
;;
;
SUBTTL[JSBDE]
IFN LEVELC,<
JSBDE: MOVE E3,DIWRIT
JSBDF
JJEDTA
JPOPJ
HLLZ E2,PNTPUN
RENAME CHAND,E
JRNAVR
JPOPJ
>
;;
;
SUBTTL[JSBDF]
JSBDF: MOVEM T1,DSK1
SUB T1,BASE
JUMPE T1,JSBDF1
JSBDF2: ENTER CHAND,E
JRNAVE
HRLM T1,DSK1
OUTPUT CHAND,DSK1
JGETST
STATZ CHAND,740000
JRNAVO
;IF DEC FIXES UP DECTAPE SERVICE THEN
;WE NEED HERE JJEDTA/JRST FIXUP PRIOR TO CLOSE
JFBCL
JPOPJ
JSBDF1: MOVEI T1,DSK1
MOVEM T1,DSK1
SETOI T1,
JRST JSBDF2
;;
;
SUBTTL[JSBDI]
JSBDI: INIT CHAND,17
SIXBIT /DSK/
XWD 0,0
JRNAV
JPOPJ
;;
;
SUBTTL[JSBDL]
JSBDL: JSBDN
JJEPNF
JPOPJ
SKIPE DFILEX
HLL E1,DFILEX
JPOPJ
;;
;
SUBTTL[JSBDN]
JSBDN: JSNQ
SETZB E,E1
SETZB E2,E3
MOVE T2,[POINT 6,E]
MOVEI T3,6
JSBDN0: PUSHJ P,JSBDNA
JRST JSBDN2
IDPB Z,T2
SOJN T3,JSBDN0
JSBDN1: PUSHJ P,JSBDNA
JRST JSBDN2
JRST JSBDN1
JSBDN2: MOVE T2,[POINT 6,E1]
MOVEI T3,3
JSBDN3: PUSHJ P,JSBDNA
JRST JSBDN4
IDPB Z,T2
SOJN T3,JSBDN3
JSBDN4: PUSHJ P,JSBDNA
JRST JSBDN4
JRST JSBDN4
JSBDN5: POP P,Z
TLNE E,777777
JPOPZ
MOVSI E,(SIXBIT /(NU/)
TRNN E,777777
HRRI E,(SIXBIT /LL)/)
JPOPZ
JSBDNA: JSR1
JRST JSBDN5
CAIN Z,56
JPOPJ
JSPKC
JRST JSBDNA
JPOP1: AOS 0(P)
JPOPJ
;;
;
SUBTTL[JSBDP]
JSBDP: MOVE E3,DIREAD
JSBDPW: JSAE
JPOPJ
PUSH P,E
JSXX
MOVE PAL21,Z
JSXX
JUMPE Z,JSBDP1
JUMPE PAL21,JSBDP1
HRR E3,Z
HRL E3,PAL21
JSBDP1: POP P,E
JPOPJ
;;
;
SUBTTL[JSBFI]
JSBFI: JSER
JSBFI1: JSAS
JSBDP
JMRPAL
MOVE T1,kdevlf
MOVE Z,KSTATR
JSOPEN
JJEDTA
JRST JSBFIT
SKIPN E3
CALLI E3,24
MOVE E,E3
;LEVEL D?
MOVSI E1,(SIXBIT /UFD/)
SETZB E2,E3
AOBJN E3,.+1
LOOKUP CHAND,E
JRNAVL
JSBUF
JRQ
JPOPJ
;;
;
;DECTAPE PROGRAM FOR FI
JSBFIT: USETI CHAND,144
JSBUF
JFCL
MOVEI T1,27
MOVE T2,T7
ADDI T2,DTADIR
MOVE T4,T7
MOVE T5,T7
ADDI T5,201
JSBFI5: AOS T4
JSBFI6: AOS T2
SOJE T1,JSBFI7
MOVE Z,@T2
JUMPE Z,JSBFI6
MOVEM Z,@T4
MOVE Z,26(T2)
AOS T4
MOVEM Z,@T4
JRST JSBFI5
JSBFI7: CAMN T4,T5
JPOPJ
SETZM @T4
AOS T4
JRST JSBFI7
;;
;
SUBTTL[JSBK]
JSBK: MOVE T1,PAL2
BNKA: AOS T1
MOVE Z,@T1
JUMPLE Z,JPOPZ
SUBI Z,60
JUMPN Z,JPOPA
BNKB: AOS PAL2
SETZM @PAL2
AOS PAN2
JRST BNKA
;;
;
SUBTTL[JSBT]
JSBT: HRRO BASE,RIXBIX
JSET
SETZI PAN2,
MOVE PAL2,T3
SOS PAL2
JPOPJ
;;
;
SUBTTL[JSBTIM]
JSBTIM: JJEPNF
JPOPJ
JJEDTA
JRST JSBTI1
CALLI T2,14 ;4 new to fix date 75 problem
DPB T2,[POINT 12,E2,35]
ROT T2,-^D12
DPB T2,[POINT 3,E1,20]
CALLI T2,23
IDIVI T2,^D1000*^D60*^D3
ADDI T2,BKTIME
LSH T2,^D12
ADD E2,T2
JSBTI2:
IFN LEVELD,<
HLLZ T2,PNTPUN
TLZ T2,777
ADD E2,T2>
JPOPJ
JSBTI1: HRRZI E2,BKDATE
JRST JSBTI2
;;
;
SUBTTL[JSBUF]
JSBUF: MOVE Z,[IOWD 200,INDEX]
JJEDTA
HRLI Z,-177
MOVEM Z,DSK1
HRRZ T7,DSK1
INPUT CHAND,DSK1
JGETST
STATZ CHAND,740000
JRST JSBUF1
JSBUF3: STATZ CHAND,20000
JRST JSBUF2
JPOPA
JSBUF1: JJEDTA
JRST JSBUF4
JSBUF5: POP P,BASE
JRNAVI
JSBUF4: STATZ CHAND,700000
JRST JSBUF5
JRST JSBUF3
JSBUF2: JFBCL
JPOPZ
;;
;
SUBTTL[JSBUFC]
JSBUFC: JXBUCL
MOVE Z,SYBUCH(PAN2)
ANDI Z,7
LSH Z,2
SETZM CHANAS(Z)
JCLA
HRLM Z,SYBUH1(PAN2)
MOVE PAL21,[CALL 0,10]
HRLZI T2,40
JSBUC1: MOVE T6,Z
LSH T6,2
SKIPE CHANAS(T6)
XCT PAL21
AOS Z
ADD PAL21,T2
CAIE Z,10
JRST JSBUC1
MOVE PAL21,FLOW
MOVEM PAL21,ARG2
MOVE PAL21,BUFLOW
MOVEM PAL21,FLOW
MOVE PAL21,BUFTOP
JSBUC2: JSFS
JRST JSBUC5
HLRZ Z,@PFN
JUMPN Z,JSBUC2
JSDD
MOVE PAL21,BUFTOP
JSBUC3: JSFS
JRST JSBUC5
HLRZ Z,@PFN
CAMN Z,PFN
JRST JSBUC3
MOVE PAN2,PFN
HRLM PAN2,@PFN
SUB Z,PFN
SOS PAN2
JCIA
MOVE T6,SYBUCH(PAN2)
ANDI T6,7
LSH T6,2
ADDM Z,CHANAS(T6)
ADDI T6,1
ADDM Z,CHANAS(T6)
ADDM Z,SYBUR1(PAN2)
HRRZ T6,SYBUR1(PAN2)
SOS T6
ADDM Z,@T6
JRST JSBUC3
JSBUC4: JFCL
JSBUC5: MOVE PAL21,ARG2
MOVE T7,FLOW
MOVEM T7,BUFLOW
MOVEM PAL21,FLOW
JPOPJ
;;
;
SUBTTL[JSBUFH]
JSBUFH: MOVE PAN2,CHANAS(PAN2)
TLNN PAN2,1
JRST JSBU1H
JXBUIO
JXBUST
JRST JSBU2H
JSBU1H: JSBUFC
JFCL
JPOPJ
JSBU2H: JXBUGS
JSBUFC
JRDNAV
;;
;
SUBTTL[JSBUFO]
JSBUFO: SUB Z,OR2
MOVE PAL21,Z
MOVE T7,LOW
SUB T7,PAE
SUBI T7,200
CAMG T7,Z
JSOPN
MOVE T7,PAL21
ADD PAL21,PAE
JSSR
PAL21
PAE
OR2
JRST JSBUZ1
;;
;
SUBTTL[JSBUFZ]
JSBUFZ: SETZI T7,
MOVE Z,BUFLOW
CAMN Z,OR2
JPOPZ
HRL Z,OR2
AOBJN Z,.+1
MOVE T2,PAE
SUB T2,OR2
MOVE T7,BUFLOW
SUB T7,OR2
ADD T2,BUFLOW
ADDI T2,1
HRLI T2,(BLT Z,)
XCT T2
ADDM T7,OR2
JSBUZ1: ADDM T7,PAL
ADDM T7,PEL
ADDM T7,PFL
ADDM T7,PAE
JPOPZ
;;
;
SUBTTL[JSBUG]
JSBUG1: JSBUF
JPOPZ
JSBUG: AOS T7
CAIN T7,INDEX+200
JRST JSBUG1
MOVE T1,@T7
JUMPE T1,JSBUG
JPOPA
;;
;
SUBTTL[JSCF]
JSCF: JSF
JRQ
JSCFA: MOVEM PAL2,CHAR1
HRRZ T3,@PFI
ADD PAL2,T3
MOVEM PAL2,PAL21
JSAS
JPOPJ
;;
;
SUBTTL[JSCT]
JSCT: JSR2
JRST JSCT2
JRST JSCT
SOS PAL2
JSCT2: MOVE T6,PAL2
SUB T6,CHAR1
HRRM T6,@PFI
JPOPJ
;;
;
SUBTTL[JSD]
JSD: MOVE T7,@0(P)
AOS T7
JSD1: MOVE T2,@T7
HRRZ T3,T2
JUMPE T3,JSD11
TRZ T3,10000
CAME Z,T3
AOJA T7,JSD1
JSD11: HLRZ T3,(T7)
POP P,Z
JCLA
JRST 0(T3)
;;
;
SUBTTL[JSDC]
JSDC: ADDI Z,60
MOVEM Z,@PAL2
JSDL
JSDN
JPOPZ
;;
;
SUBTTL[JSDD]
JSDD: MOVE Z,FLOW
AOS PAL21
SUB Z,PAL21
ADD Z,PFN
MOVEM Z,FLOW
HRL T2,PAL21
HRR T2,PFN
HRLI Z,(BLT T2,)
XCT Z
JPOPZ
;;
;
SUBTTL[JSDLST]
JSDLST: MOVE T7,@0(P)
AOS 0(P)
JSDTST
JPOPJ
ADDI T5,DITBL
HLRZ T7,@T5
JRST @T7
;;
;
SUBTTL[JSDS]
JSDS: MOVE Z,FLOW
AOS Z
MOVN T2,PAN2
HRRZM T2,@Z ;PFN
AOS Z
MOVN T3,PAN ;PFF
HRRZM T3,@Z
AOS Z
MOVEI T1,2
MOVSM T1,@Z
SETZI T1,
LSH Z,2
ADDI Z,3
MOVEM Z,T1
ADD Z,T3
ADD Z,T2
LSH Z,-2
ADDI Z,100
CAML Z,END
JRST JSDS1
SUBI Z,100
MOVEM Z,FLOW
JPOPJ
JSDS1: JSOPF
JRST JSDS
JSDSA: JSDS
JSNQ
JSDSA1: JSR1
JPOPZ
JSW2C
JRST JSDSA1
;;
;
SUBTTL[JSDTST]
JSDTST: MOVE T5,Z
SUBI T5,101
SETZI T6,0
LSHC T5,-6
IMULI T5,32
ROT T6,6
ANDI T6,77
ADD T5,T6
IDIVI T5,4
ADD T5,T7
LDB T5,ZT50(T6)
JUMPE T5,JPOPZ
JPOPA
;;
;
SUBTTL[JSER]
JSER: MOVEM PAL,PALPAL
JNULLE
JPOPJ
jjemoe
jpopj
JSSR
LOW
PAE
PAL
MOVEM T2,PWR
AOS T2
MOVEM PAL,PALPAL
MOVE Z,LOW
MOVEM Z,PAE
SETZB Z,@PWR
JPOPJ
;;
;
SUBTTL[JSERNO]
JSERNO: JPOPZ
SUBTTL[JSET]
JSET: MOVEM PAL,TEM4
JSAS
MOVE T2,PAL
JSAE
AOS T6
JSAS
MOVE T3,PAL
MOVEM PAL,ARG2
JPOPJ
;;
;
SUBTTL[JSF]
JSF: MOVE PAL21,FTOP
JSFBK: JTMP2Z
JSF1: JSFS
JPOPJ
CAME PAN,PAN2
JRST JSF1
JUMPE PAN,JPOP1
MOVE T6,PAL
JTMP2E
JRST JSFA1
MOVN T7,PAN
CAILE T7,^D8
JRST JSF2
JSNAST
JSFA1: SUB PAL2,PAN
MOVEM PAL2,CHAR2
ADD PAL2,PAN
JSNAMA
JRST JSF1
HLRM BASE,CHAR2
JTMP2Z
MOVEI T4,1
JPOPA
JSF2: AOS PAL2
JSR2C
JMASCI
AOS T6
CAME Z,@T6
JRST JSF1
AOJN PAN2,JSF2
JPOPA
;;
;
SUBTTL[JSFBL]
JSFBL: MOVE E3,DIREAD
JSAE
SKIPA
JSBDP
JCLA
LOOKUP CHAND,E
JRST JSFBL1
LDB Z,QTIME2
CAIL Z,BKTIME
JPOPA
LDB Z,QDATE2
CAIN Z,7303
JPOPA
JPOPZ
JSFBL1: JFBCL
JRAC
;;
;
SUBTTL[JSFDL]
JSFDL: AOS TEM2
HRRZ Z,@TEM2
JUMPE Z,JPOPZ
JPOP1
;;
;
SUBTTL[JSFLIX]
JSFLIX: SETZB T3,TEM3
MOVE T2,Z
JUMPGE T2,JSFL01
MOVNS T2
JSWSGN
TLZE T2,400000
JRST JSFL02
JSFL01: TLNN T2,400
JRST JSFL05
CAMGE T2,FP2467
JRST JSFL07
CAML T2,FP2455
AOJA T3,JSFL07
PUSHJ P,JSFL02
JRST JSFL06
JSFL02: MOVEI T4,0
JSFL03: MULI T2,400
ASHC T3,-243(T2)
SKIPE T2,T3
PUSHJ P,JSFL12
MOVNI T2,10
ADD T2,TEM3
MOVE T1,T4
JUMPE T1,CPOPJ
JTMP2Z
JSFL04: MOVE Z,T1
MULI Z,12
JTMP2N
JRST JSFL19
JSFL22: PUSHJ P,JSFL13
SKIPE T1
AOJL T2,JSFL04
JPOPJ
JSFL19: JUMPE Z,JSFL20
JTMP2O
JRST JSFL22
JSFL20: ADDI T7,1
JRST JSFL04
JSFL05: PUSHJ P,JSFL12
JSFL06: PUSHJ P,JSFL15
PUSHJ P,JSFLIE
MOVE T2,TEM3
JRST JSFL11
JSFL07: MOVNI T4,6
SETZB T7,TEM3
JSFL08: ASH T7,1
XCT JSFL16(T3)
JRST JSFL09
FMPR T2,@JSFL17(T3)
IORI T7,1
JSFL09: AOJN T4,JSFL08
ADDI T7,1
JJZSGN
SKIPN T3
JJOSGN
JSFL10: PUSHJ P,JSFL03
PUSHJ P,JSFL15
PUSHJ P,JSFLIE
JJESGN
PUSHJ P,JSWSGN+1
MOVE T2,T7
JSFL11: JUMPE T2,JSFL13
JSFL12: IDIVI T2,12
AOS TEM3
HRLM T3,0(P)
SKIPE T2
PUSHJ P,JSFL12
HLRZ Z,0(P)
JSFL13: ADDI Z,60
JSW
JPOPJ
FPTABM=FP2467+1
JSFL14: SOS PFL
JSFL15: MOVE Z,@PFL
CAIE Z,"0"
JPOPJ
JRST JSFL14
JSFL16: CAML T2,FPTABM(T4)
JSFL17: CAMGE T2,FP2461(T4)
JSFL18: XWD T4,FPTABM
JSFLIE: JTMP1N
JRST JSFLI2
JSAT
JPOPJ
JSFLI2: MOVEI Z,"E"
JSW
JPOPJ
;;
;
SUBTTL[JSFLOT]
JSFLOT: JSAE
JPOPJ
MOVE T5,PAL
JSAS
MOVE T7,PAL
SETZI PAL21,
JTMP1N
PUSHJ P,JSFLOE
SOS T7
MOVE Z,@T7
CAIN Z,"0"
JRST .-3
AOS T7
JSFLO1: SETZB T1,T6
JSFLO2: AOS T5
CAMN T5,T7
JRST JSFLO4
MOVE Z,@T5
CAIG Z,"9"
CAIGE Z,"0"
JRST JSFLON
TLNN PAL21,2
JRST JSFLOF
JSFLO3: SUBI Z,60
IMULI T1,12
ADD T1,Z
TLNN T1,377000
JRST JSFLO2
IDIVI T1,12
CAIL T2,5
ADDI T1,1
JSFLO4: JUMPE T1,JPOPZ
MOVEM T1,TEM1
SUB T5,TEM2
SUB T5,T6
MOVEM T5,TEM4;NUMBER OF DIGITS
JSFLO5: JCLA
TLNN PAL21,10
JSGT
JJNSGN
JCIA
SUB Z,TEM4
JFCL;SUBTRACT FROM Z SCALE FACTOR
JOV .+1
JUMPE Z,JSFLO6
CAIG Z,46
CAMGE Z,FPM46
JRST FPBADX
JSFLO6: MOVE T1,TEM1
TLC T1,233000
FAD T1,FPZERO
JUMPGE Z,FPFMR
JCIA
MOVEI T5,-6
CAIA
FPFMR: MOVEI T5,1
FPFMR1: TRNE Z,1
FMPR T1,FPTBLP(T5)
ASH Z,-1
ADDI T5,1
JUMPN Z,FPFMR1
JOV FPBADX
FPTLF: TLNE PAL21,1
MOVNS T1
MOVE Z,T1
JPOPJ
FPBADX: MOVE Z,MIFI
JJNSGN
JCIA
JPOPJ
JSFLON: CAIN Z,55
TLOA PAL21,1
TLZ PAL21,1
JRST JSFLO2
JSFLOF: CAIE Z,"0"
JRST JSFLOG
AOS T6
JRST JSFLO2
JSFLOG: MOVEM T5,TEM2
TLO PAL21,2
JRST JSFLO3
JSFLOE: MOVEM PAL,CHAR2
JSFL30: SOS T7
CAMN T5,T7
JRST JSFL32
MOVE Z,@T7
CAIE Z,"E"
JRST JSFL30
MOVE Z,T7
SUB Z,PAL
ADDI Z,1
HRLI Z,500000
MOVEM Z,@T7
MOVE T6,T7
JSFL31: SOS T6
CAMN T5,T6
JRST JSFL33
MOVE Z,@T6
CAIG Z,"9"
CAIGE Z,"0"
CAIA
JRST JSFL33
MOVEI Z,"0"
MOVEM Z,@T6
JRST JSFL31
JSFL32: TLO PAL21,10
MOVE T7,PAL
JPOPJ
JSFL33: MOVE PAL,T7
JXGLN
JPOPJ
;;
;
SUBTTL[JSFS]
JSFS: MOVE PAL2,PAL21
CAMN PAL2,FLOW
JPOPJ
CAML PAL2,FLOW
JRCE
AOS PAL2
MOVEM PAL2,PFN
HRRZ PAN2,@PAL2
MOVNS PAN2
AOS PAL2
HRRZ BASE,@PAL2
MOVEM PAL2,PFF
AOS PAL2
HLL PAL2,@PAL2
TLNN PAL2,2
JTMP3A
JTMP3O
HRRM PAL2,PFI
HRR PAL21,PAL2
LSH PAL21,2
ADDI PAL21,3
MOVEM PAL21,PAL2
SUB PAL21,PAN2
ADD PAL21,BASE
MOVEM PAL21,CHAR2
HRLZ BASE,PAL21
LSH PAL21,-2
JPOP1
;;
;
SUBTTL[JSGE]
JSGE: JSNQ
JSGT
JUMPE Z,JRQ
JPOPZ
;;
;
SUBTTL[JSGQ]
JSGQ: MOVE Z,PAN
SUB Z,PAN2
JUMPN Z,AGQ3
MOVE T4,PAN
JUMPE T4,CPOPJ
MOVE T1,PAL
MOVE T7,PAL2
AGQ2: AOS T7
MOVE Z,@T7
AOS T1
SUB Z,@T1
JUMPN Z,AGQ3
AOJN T4,AGQ2
JPOPJ
AGQ3: SKIPL Z
JPOPB: AOS 0(P)
JPOPA
;;
;
SUBTTL[JSGSEV]
JSGSEV: SETZI T1,
MOVEI T2,5
JSGSV1: JSR1
JRST JSGSV2
ADD T1,Z
SOJE T2,JSGSV3
LSH T1,7
JRST JSGSV1
JSGSV2: SOJE T2,JSGSV4
LSH T1,7
JRST JSGSV2
JSGSV4: JXGLN
JPOPJ
JSGSV3: JSR1
JRST JSGSV4
JRST JSGSV3
;;
;
SUBTTL[JSGSIX]
JSGSIX: SETZI T1,
JSAE
JPOPJ
MOVEI T2,6
JSGSX1: JSR1
JRST JSGSX2
JSPKC
JFCL
ADD T1,Z
SOJE T2,JSGSX3
LSH T1,6
JRST JSGSX1
JSGSX2: SOJE T2,JSGSX4
LSH T1,6
JRST JSGSX2
JSGSX4: JXGLN
JPOPJ
JSGSX3: JSR1
JRST JSGSX4
JRST JSGSX3
;;
;
SUBTTL[JSGT]
JSGT: MOVNI BASE,12
MOVEI Z,GX
JSGX
JPOPJ
;;
;
SUBTTL[JSGV]
JSGV: MOVEI Z,GL
MOVEM Z,ARG2
SETZB Z,LT
GV1: AOS ARG2
SETZM ARG3
GV11: MOVE Z,@ARG2
JUMPE Z,JPOP1
MOVNS Z
ADD Z,TEM3
JUMPG Z,GV13
GV12: AOS ARG3
MOVEM Z,TEM3
JUMPN Z,GV11
GV13: MOVE Z,ARG3
JUMPE Z,GV14
AOS LT
JRST GV15
GV14: MOVE Z,LT
JUMPE Z,GV1
GV15: MOVE Z,ARG3
ADDI Z,60
XCT @0(P)
JRST GV1
;;
;
SUBTTL[JSGX]
JSGX: MOVEM Z,T2
SETZB T4,TEM2
JSAE
JPOPJ
JSAS
MOVEM PAL,T3
GXT1: JSD2
JSD3
MOVE Z,@T3
JSAN
JRST GXT3
JUMPE Z,GXT1
MOVNM Z,TEM6
GXT2: MOVE Z,@T2
JUMPE Z,GXT3
SUB T4,Z
AOSE TEM6
JRST GXT2
JRST GXT1
GXT3: SUB Z,T4
JPOPJ
;;
;
SUBTTL[JSHRN]
JSHRN: ADD Z,FLOW
SUB Z,LOW
MOVE T3,FLOW
SUB T3,Z
MOVEM Z,FLOW
MOVNS T3
ADDM T3,FTOP
HRL T2,LOW
ADDM T3,LOW
HRR T2,LOW
HRLI Z,(BLT T2,)
XCT Z
MOVE Z,FLOW
JSOPF
JPOPJ
;;
;
SUBTTL[JSIRO]
JSIRO: JTMP1Z
JSIRO3: JSTI
CAIN Z,30;<CONTROL X>
JRST JSIROX
CAMN Z,RUBOUT
JRST JSIROR
JTMP1N
JPOPJ
JRORN
JPOPJ
PUSH P,Z
HRRZ Z,RUBOUC
SKIPE Z
JSTO
JSTINF
POP P,Z
SKIPE Z
JSTO
JPOPJ
JSIROR: JTMP1N
SETZM TEM1
JRORN
JRST JSIRO1
JTMP1E
JRST JSIRO1
HLRZ Z,RUBOUC
JSTO
JSTINH
JSIRO1: JTMP1O
AOS TEM1
MOVE T1,OR2
ADDI T1,4
CAME T1,PFL
JRST JSIRO2
JSTINF
JRST REST
JSIRO2: MOVE Z,PFL
CAMN Z,PEL
JRST JSIRO3
MOVE Z,@PFL
JRORE
JSTO
SOS PFL
JRST JSIRO3
JSIROX: JSPR
MOVE Z,PEL
MOVEM Z,PFL
JRST JSIRO3
;;
;
SUBTTL[JSL2]
JSL2: CAMN PAL2,CHAR1
JPOPZ
AOS 0(P)
JSR2C
JMASCI
CAIGE Z,CMASK
AOS 0(P)
SOS PAL2
JPOPZ
;;
;
SUBTTL[JSLG]
JSLG: MOVE T4,PAL
MOVE T5,PAL
JSLG1: AOS T4
SKIPGE @T4
JPOPA
AOS T5
AOS PAL2
SKIPGE @PAL2
JRST JSLG2
MOVN Z,@PAL2
ADD Z,@T5
JUMPE Z,JSLG1
SKIPLE Z
JSLG2: JPOPZ
JPOPA
;;
;
SUBTTL[JSLNA]
JSLNA: LSH PAL21,2
JSAT
JUMPE PAN2,JSLNA2
JSLNA1: AOS PAL2
JSR2C
JMASCI
JSW
AOJN PAN2,JSLNA1
JSLNA2: LSH PAL21,-2
JPOPJ
;;
;
SUBTTL[JSML]
JSML: JSER
JSAA
MOVE Z,ZERO
ADDI Z,2
JUMPE Z,CPOPJ
JUMPE PAN,CPOPJ
JST2
TEM4
JUMPE PAN2,JRNR
ADD PAN2,PAN
SUBI PAN2,2
MOVE Z,T6
ANDI Z,3
JUMPE Z,MLD1
CAIN Z,3
JRST MLD1
MOVE Z,ARG1
JSW
MLD1: MOVE T2,PFL
MLD2: CAML T2,PWR
JRST MLD3
MOVEI Z,60
AOS T2
MOVEM Z,@T2
AOJN PAN2,MLD2
SETZM ARG1
MOVE Z,PFL
MOVEM Z,PFF
MOVEM T3,ARG3
MOVE Z,PAL2
JPOP1
MLD3: MOVEI Z,1000
JSOPN
ADDM Z,PAL
ADDM Z,PAE
ADDM Z,T3
ADDM Z,PAL2
JRST MLD2
;;
;
SUBTTL[JSMT]
JSMT: MOVE T3,ARG3
MOVE T2,ARG2
JPOPJ
;;
;
SUBTTL[JSNAMA]
JSNAMA: SETZB T6,T7
JSR2
JPOPZ
JRST JSNAM0
JRST JSNAM5
JSNAM3: AOS BASE
JSNAM4: JSR2
JPOPZ
JRST JSNAM6
JSNAM5: LSHC T6,11
ADD T7,Z
AND T7,T3
CAME T5,T7
JRST JSNAM4
JUMPE T2,JPOPA
AND T6,T2
CAME T4,T6
JRST JSNAM4
JPOPA
JSNAM0: JJEGAP
JRST JSNAMA
JSNAM6: JJEGAP
JRST JSNAM3
ADDI Z,CMASK
JRST JSNAM5
;;
;
SUBTTL[JSNAST]
JSNAST: JTMP2O
SETZB T2,T3
SETZB T4,T5
JSNAS1: AOS T6
MOVE Z,@T6
LSHC T4,11
LSHC T2,11
ADD T5,Z
ADDI T3,777
SOJN T7,JSNAS1
JPOPZ
;;
;
SUBTTL[JSNT]
JSNT: SETZM PAN2
ROT T6,1
NES1: JSDL
MOVE Z,@PAL2
JSAN
JRST NES2
JSDN
JRST NES1
NES2: SETZI Z,
SUB Z,PAL2
JJESGN
AOS Z
ADD Z,TEM4
MOVEM Z,TEM5
JSBK
JPOPJ
JJESGN
AOS T6
JPOPZ
;;
;
SUBTTL[JSNQ]
JSNQ: JSAE
JRQ
JPOPJ
;;
;
SUBTTL[JSOPEN]
JSOPEN: MOVEM T1,KBDEV
CALLI T1,4
JFCL;TEST OK
JFCL;TEST OK
OPEN CHAND,KBSTAT
JRNAVR
TLNN T1,100
JZADTA
JJODTA
JPOPZ
;;
;
SUBTTL[JSOPF]
JSOPF: ADDI Z,1000
JSOPF1: ORI Z,1777
PUSH P,Z
CALLI Z,11
JRCE
POP P,Z
MOVEM Z,END
JPOPZ
;;
;
SUBTTL[JSOPN]
JSOPN: PUSH P,T2
PUSH P,T1
MOVE T2,FLOW
ADD Z,FLOW
JSOPF
MOVE Z,END
SUBI Z,200
MOVEM Z,TEM2
JSOPN1: MOVE T1,@T2
MOVEM T1,@Z
SOS T2
SOS Z
CAML T2,PWR
JRST JSOPN1
MOVE Z,TEM2
SUB Z,FLOW
POP P,T1
POP P,T2
ADDM Z,PWR
ADDM Z,FTOP
ADDM Z,LOW
ADDM Z,FLOW
ADDM Z,PFI
JPOPJ
;;
;
SUBTTL[JSP9]
JSP9: MOVE T6,@0(P)
JSP91: AOS T6
MOVE Z,@T6
JUMPE Z,JPOP1
JSTO
JRST JSP91
;;
;
SUBTTL[JSPK]
JSPK: MOVE T1,PAL
AOS T1
MOVE Z,@T1
HRLM Z,S1S2
AOS T1
MOVE Z,@T1
HRRM Z,S1S2
aos t1
move z,@t1
hrlm z,S3S4
MOVN T1,PAN
CAIE T1,2
JPOPZ
HLRZ Z,S1S2
SUBI Z,140
SKIPG Z
ADDI Z,40
JUMPLE Z,JPOPZ
ROT Z,+6
MOVE T1,Z
HRRZ Z,S1S2
SUBI Z,140
SKIPG Z
ADDI Z,40
JUMPLE Z,JPOPZ
ADD T1,Z
MOVEI T4,1
JSAS
MOVE Z,T1
JPOP1
;
SUBTTL[JSPKA]
JSPKA: JSPK
JXSKIP
JPOPJ
HLRZ Z,S1S2
CAIL Z,140
SUBI Z,40
ANDI Z,77
LSH Z,6
JPOPJ
;;
;
SUBTTL[JSPKB]
JSPKB: JSXX
JSPKB1: MOVE PAL2,Z
ANDI PAL2,7
MOVE PAN2,PAL2
ROT PAL2,-^D13
MOVE PAL21,PAN2
LSH PAN2,2
JPOPZ
;;
;
SUBTTL[JSPKC]
JSPKC: CAIGE Z,40
JPOPJ
CAIL Z,140
SUBI Z,40
SUBI Z,40
ANDI Z,77
JPOP1
;;
;
SUBTTL[JSPL]
JSPL: MOVE PAL2,PAL
MOVE PAN2,PAN
JSAS
JPOPJ
;;
;
SUBTTL[JSPLBD]
JSPLBD: HLRO Z,RIXBIX
JCIA
CAIN Z,10
JPOPZ
CAIE Z,12
JRNAV
JPOPA
;;
;
SUBTTL[JSPLGM]
JSPLGM: JSPLBD
JRST JSPLG1
JSGT
JJNSGN
JCIA
JPOPJ
JSPLG1: JSXX
JJESGN
JCIA
JPOPJ
;;
;
SUBTTL[JSR1]
JSR1: AOS PAL
CAMLE PAL,PAE
JRCE
MOVE Z,@PAL
JUMPL Z,JSR11
AOS 0(P)
TRZ Z,1000
JPOPJ
JSR11: JXGLN
JPOPZ
;;
;
SUBTTL[JSR2]
JSR2: JSFD
JPOPZ
AOS 0(P)
AOS PAL2
JSR2C
TRZE Z,CMASK
JPOPJ
JMASCI
JPOP1
JSR2C: HRR Z,PAL2
ANDI Z,3
ROT PAL2,-2
LDB Z,ZP20(Z)
ROT PAL2,2
JPOPJ
;;
;
SUBTTL[JSR9]
JSR9: JSNQ
JSR1
JRQ
JPOPJ
;;
;
SUBTTL[JSS]
JSS: HRLZ Z,@0(P)
AOS 0(P)
HRR Z,@0(P)
HRRZ T1,Z
AOBJN Z,.+1
AOS 0(P)
SUB T1,@0(P)
HRRM T1,T2
HRLI T2,(BLT Z,)
XCT T2
JPOP1
;;
;
SUBTTL[JSSB]
SEG0: JJNGAP
JRST SEG7
SEG1: MOVE PAL2,T1
AOS PAL2
JSSBA: JTMP2E
JRST JSSBA2
JUMPE PAN,JPOPZ
JSFD
JPOPJ
MOVN T7,PAN
MOVE T6,PAL
CAILE T7,^D8
JRST JSSB1
MOVEM T7,ARG1
JSNAST
MOVEM T3,TEM3
JSSBA2: MOVE BASE,ARG1
MOVE T3,TEM3
JSNAMA
JPOPZ
MOVE T1,PAL2
SUB T1,ARG1
JPOPA
;;
;
JSSB1: MOVEM PAL2,T1
MOVE BASE,T7
MOVE T7,PAN
SEG2: JSR2
JRST SEG1
JRST SEG0
JRST SEG5
SEG3: AOS BASE
SEG4: JSR2
JRST SEG1
JRST SEG6
SEG5: AOS T6
CAME Z,@T6
JRST SEG1
AOJN T7,SEG4
JPOPA
SEG6: JJEGAP
JRST SEG3
SEG7: ADDI Z,CMASK
JRST SEG5
;;
;
SUBTTL[JSSEV]
JSSEV: MOVEI T6,5
JTMP1E
JRST JSSEV1
TRZN T1,1
JRST JSSEV2
SKIPN CSEQNO
JRST JSSEV0
MOVE Z,CSEQNO
JSW
JTMP3Z
JSSEV2: JCLA
LSHC Z,7
JUMPE Z,JSSEV3
JTMP3E
JRST JSSEV4
CAIN Z,15
JTMP3O
JSSEV5: JSW
JSSEV3: SOJN T6,JSSEV2
JPOPZ
JSSEV4: JTMP3Z
CAIE Z,12
JRST JSSEV5
JSDF
JRST JSSEV5
JSSEV0: JTMP1O
JPOPZ
JSSEV1: LSHC Z,7
JSSEV6: SOJE T6,JPOPZ
JCLA
LSHC Z,7
CAIN Z,15
JRST JSSEV6
JSW
JTMP1Z
JRST JSSEV2
;;
;
SUBTTL[JSSIX]
JSSIX: JTMP3A
JSSIXB: JTMP3O
MOVEI T6,6
JSSIX1: JCLA
LSHC Z,6
JTMP3N
JUMPE Z,JSSIX2
ADDI Z,40
JSW
JSSIX2: SOJN T6,JSSIX1
JPOPZ
;;
;
SUBTTL[JSSR]
JSSR: MOVE Z,@0(P)
MOVE Z,(Z)
MOVEM Z,T2
AOS 0(P)
MOVE Z,@0(P)
MOVE Z,(Z)
MOVEM Z,T3
AOS 0(P)
MOVE Z,@0(P)
MOVEM Z,LT
MOVN Z,T3
SOS Z
ADD Z,@LT
JUMPE Z,SHR2
MOVEM Z,TEM6
SHR1: MOVE Z,@T3
MOVEM Z,@T2
JSD2
JSD3
AOSE TEM6
JRST SHR1
SHR2: MOVE Z,T2
AOS Z
MOVEM Z,@LT
JPOPA
;;
;
SUBTTL[JST2]
JST2: MOVE Z,@0(P)
MOVEM Z,TEM6
MOVE T1,(Z)
AOS TEM6
MOVE Z,@TEM6
JUMPE Z,JPOP1
MOVEM Z,TEM6
JST22: AOS T1
MOVE Z,@T1
JSW
AOSE TEM6
JRST JST22
JPOP1
;;
;
SUBTTL[JSTAB]
JSTAB: MOVE T7,@0(P)
MOVEI T5,1(T7)
AOS 0(P)
MOVE T6,@0(P)
AOS 0(P)
JSTAB1: AOS T6
AOS T7
MOVE T2,@T7
JUMPE T2,CPOPJ
CAME T1,T2
JRST JSTAB1
MOVE T1,@T6
JPOP1
;;
;
SUBTTL[JSW]
JSW: JNULLE
JPOPZ
jjemoe
jrst jswnud
AOS PFL
MOVEM Z,@PFL
MOVE Z,PFL
SUB Z,PWR
JUMPL Z,JPOPZ
MOVEI Z,1000
JSOPN
ADDM Z,PAL
ADDM Z,PALPAL
ADDM Z,T2
ADDM Z,PAE
LSH Z,2
ADDM Z,PAL2
ADDM Z,CHAR1
ADDM Z,CHAR2
ADDM Z,PAL21
JPOPZ
;
jswnud: andi z,377
tlz z,777777
push p,t1
jstl
pop p,t1
jpopz
;
;;
;
SUBTTL[JSW2C]
JSW2C: AOS T1
HRRZ T3,T1
ANDI T3,3
ROT T1,-2
DPB Z,ZT10(T3)
ROT T1,2
JPOPJ
;;
;
SUBTTL[JSWSGN]
JSWSGN: JUMPE Z,CPOPJ
PUSH P,Z
MOVEI Z,55
JSW
POP P,Z
JPOPJ
;;
;
SUBTTL[JSXR]
JSXR: MOVNI T3,14
HRRZ T2,LNMOXR
JSXRZ: SETZI Z,
JSXR1: JUMPN T2,JSXR4
JSXR2: LSHC Z,3
JSXR3: ANDI Z,7
ADDI Z,60
JSW
AOJN T3,JSXR2
JPOPJ
JSXR4: LSHC Z,3
JUMPN Z,JSXR3
AOJN T3,JSXR4
ADDI Z,60
JSW
JPOPJ
;;
;
SUBTTL[JSXX]
JSXX: MOVNI BASE,10
MOVEI Z,GXL
JSGX
JCIA
JPOPJ
;;
;
SUBTTL[159/ab]
Qab: JSPL
JSNQ
MOVE T2,PAL
JSLG
JSAS
JRAZ
;;
;
SUBTTL[128/ad]
Qsu: MOVEI Z,1
Qad: JSAA;ENTRY TO ADD
JRST @ADSL(T6)
ADSL: EXP AD3
EXP AD43
EXP AD4
EXP AD31
EXP AD4
EXP AD31
EXP AD3
EXP AD43
EXP AD3
EXP AD5
EXP AD51
EXP AD31
EXP AD51
EXP AD31
EXP AD3
EXP AD5
AD5: SETZM ARG1
AD51: MOVEM T2,ARG3
JSMT
JRST AD41
AD43: SKIPE T5
AD4: SETZM ARG1
AD41: JSA3
JRST AD42
AD3: SETZM ARG1
AD31: JSA1
AD42: AOSN ZERO
JRNR
JST2
EXP TEM4
AOSE ZERO
JSAU
JRML
;;
;
SUBTTL[160/ai]
Qai: JSER
MOVEM PAL,T2
MOVEM PAN,T3
JSAS
JSNQ
JSPL
MOVEM PAL2,PFI
MOVEM PAN2,PFF
qai1: JSAE
JRST qai3
JSLG
JRST qai3
JFCL
JST2
T2
JSAT
MOVE PAL2,PFI
JSAS
JRST qai1
qai3: JST2
T2
JST2
PFI
qai2: JSNQ
JST2
T2
JSAT
JSAS
JRST qai2
;;
;
SUBTTL[187/and]
Qand: JSBT
JSA2
MOVEM PAL2,ARG2
AOS ARG2
JSAU
JRAG
JSTNY: MOVEM Z,TEM6
SETCA Z,
AND Z,T6
ADD Z,TEM6
MOVEM Z,T6
JPOPZ
;;
;
SUBTTL[161/as]
Qas: JSER
qas0: MOVEM PAL,T2
MOVEM PAN,T3
JSAS
JSNQ
JSPL
MOVEM PAL2,PFI
MOVEM PAN2,PFF
JXSKIP
qas1: JSAS
MOVE PAL2,PFI
JSAE
JRST qas3
JSLG
JRST qas1
JFCL
MOVEM PAL,PFI
MOVEM PAN,PFF
JRST qas1
qas3: JST2
T2
JST2
PFI
MOVN T3,PFF
ADD T3,PFI
SOS PFI
MOVE PAL,T2
JSSR
T3
PFI
PAL
JXGLN
MOVEM T2,PWR
JRST qas0
;;
;
SUBTTL[220/bf]
Qbf:
qbfDI: JSBDL
MOVE T1,kdevbf
MOVE Z,KSTATR
JSOPEN
qbfDI3: JSFBL
JRST qbfDI1 ;NOT SAM76 FILE
qbfIN: HLRE Z,E3
JCIA
ADD Z,FLOW
MOVEM Z,PAL2
ADDI Z,200
CAML Z,END
JRST qbfIN1
qbfIN2: HRR T1,FLOW
JJEDTA
SUBI PAL2,176
MOVEM PAL2,FLOW
HLL T1,E3
MOVEM T1,DSK1
INPUT CHAND,DSK1
JGETST
STATZ CHAND,740000
JRNAVI
JFBCL
qbfIN3: SKIPE @FLOW
JRQ
SOS FLOW
JRST qbfIN3
qbfIN1: JSOPF
JRST qbfIN
qbfDI1: JJEPNF
JRST qbfIN
JRNAV
;;
;
SUBTTL[113/ca]
Qca: JSR9
MOVEM Z,MCH
JRQ
;;
;
SUBTTL[191/cll]
Qcll: JSGT
MOVNM Z,CLINEL
JRQ
SUBTTL[133/cnb]
Qcnb: JSGT
HRLM Z,RIXBIX
JRQ
SUBTTL[203/cro]
Qcro: JSAE
JRST qcro1
SETZM RUBOUC
SETZM RUBOUT
JRORZ
JSR9
MOVEM Z,RUBOUT
JSR9
HRLM Z,RUBOUC
JSR1
JXSKIP
HRRM Z,RUBOUC
SKIPE RUBOUC
JRORO
JRQ
qcro1: MOVE Z,XRUBOC
MOVEM Z,RUBOUC
MOVE Z,XRUBOU
MOVEM Z,RUBOUT
JRORO
JRQ
;;
;
SUBTTL[132/ct]
Qct: JTMP1Z
MOVEM PAL,ARG1
JSF
JTMP1O
JSPL
SETZI T1,
JSNQ
qct1: JSAE
JRST qct2
JSF
JRST qct11
HRRZ T2,@PFF
ADD T1,T2
HRRZ T2,@PFI
SUB T1,T2
qct11: JSAS
JRST qct1
qct2: MOVN PAN,T1
MOVE PAL,ARG1
HRRE PAN2,@PAL
JSDSA
JXGLN
JXSKIP
qct30: JSAS
qct3: JSAE
JRST qct4
JSF
JRST qct30
JSCFA
qct5: JSR2
JRST qct3
ADDI Z,CMASK
JSW2C
JRST qct5
qct4: JTMP1E
JRQ
MOVE PAL,ARG1
JXGLN
JSF
qct6: JRST NCARNO
JSDD
JRQ
;;
;
SUBTTL[250/cwc]
Qcwc: movei t7,CWCTAB
qcwc1: jsae
jrst qcwc2
jsr1
jrst qcwc2
movem z,@t7
cain t7,CWCEND
jrst qcwc2
aos t7
jrst qcwc1
;
qcwc2: move z,CWCSA
movem z,CPSN
movem z,SYN1
move z,CWCAS
movem z,CPCM
move z,CWCSE
movem z,CPRP
movem z,CPRP1
;
jrq
;
;
SUBTTL[171/cx]
Qcx: JSER
MOVEM PAN,ADS32;PALPAL+1
JSAS
qcx1: JSR9
PUSH P,Z
JST2
PALPAL
POP P,T1
JUMPE T1,qcx2
MOVNI T2,3
MOVNI T3,14
JSXRZ
JRST qcx1
qcx2: MOVEI Z,60
JSW
JRST qcx1
;;
;
SUBTTL[200/cxb]
Qcxb: JSGT
HRRM Z,RIXBIX
JRQ
;;
;
SUBTTL[131/di]
Qdi: JSML
JRAB
MOVEM Z,ARG2
ANDI T6,10
JUMPN T6,JRNR
JSA3
AOS ARG2
DV2: SKIPGE @ARG2
JRMV
AOS PFF
AOS ARG2
JSDN
DV3: JSMT
JSGQ
JXSKIP
JRST DV2
JSAU
AOS @PFF
JSBK
JFCL
JRST DV3
;;
;
SUBTTL[dif]
qdif: movei z,6
jtmp3Z
jrst qdof1
;
qdof: movei z,7
jtmp3O
qdof1: pushj p,JSPKB1
movem z,tem5
jrst QSYDIF
;
;
SUBTTL[164/ds]
Qds: JSGE
JSER
qds1: JSAT
SOJE T4,JRQ
JMRPAL
JRST qds1
;;
;
SUBTTL[103/dt]
Qdt: JJEPNF
JRST qdt0
JSF
JXSKIP
JSDD
qdt0: JSPL
MOVE PAL,PAL2
JSDSA
qdt1: JSNQ
qdt2: JSR1
JRQ
JSW2C
JRST qdt2
;;
;
SUBTTL[173/dx]
Qdx: JSGT
JJESGN
JSWSGN
MOVE T1,T4
JRXR
;;
;
SUBTTL[206/ea]
Qea: JSAE
JRST qea1
qea2: JRNAV
qea1: MOVE Z,FTOP
MOVEM Z,FLOW
JRQ
;;
;
SUBTTL[207/ed]
Qed: JSCF
JSGT
MOVE PAL2,CHAR1
ADD PAL2,T4
SUBI PAL2,1
JSGE
JJESGN
JRST qed4
qed1: JSR2
JRAC
JRST qed1
JSW
CAILE T4,10
JSER
qed2: SOJE T4,JRQ
qed3: JSR2
JRQ
JRST qed3
JSW
JRST qed2
qed4: MOVEM PAL2,CHAR2
qed5: JSL2
JRST qed3
JRST qed5
SOJN T4,qed5
JRST qed3
;;
;
SUBTTL[224/ef]
Qef:
JSBDL
MOVE E3,DIWRIT
qefDI: MOVE T1,kdevef
MOVE Z,KSTATW
JSOPEN
LOOKUP CHAND,E
JRST qefDI1
JMREN
JRNAVR
JRQ
qefDI1: JFBCL
JRQ;;
;
SUBTTL[151/ep]
Qep: JSCF
MOVE T1,PAL2
qep1: JSR2
JRST qep2
JRST qep1
JSW2C
JRST qep1
qep2: MOVE T2,T1
HRRZ T3,@PFI
ADD T2,T3
SUB T2,PAL21
MOVEM T2,@PFF
JRST qpt42
;;
;
SUBTTL[104/et]
Qet: JSNQ
Qet1: JSF
JRST Qet2
JSDD
JJEPNF
JRST Qet1
Qet2: JSAS
JRST Qet
;;
;
SUBTTL[249/etb]
Qetb: JSAS
MOVEM PAL,T2
qetb1: JSD2
SOS PAL
MOVE Z,@T2
TLNE Z,700000
JRST qetb4
qetb2: MOVEM Z,@PAL
CAIE Z,CCNULIN
JRST qetb1
qetb3: JSD2
MOVE Z,@T2
TLNE Z,700000
JRST qetb4
CAIN Z,CGSPACE
JRST qetb3
SOS PAL
JRST qetb2
qetb4: ADD Z,PAL
SUB Z,T2
MOVEM Z,@PAL
JXGLN
JRAD
;;
;
SUBTTL[112/ex]
Qex: MOVE Z,BUFTOP
CAMN Z,BUFLOW
JRST qex2
SETZB T1,PAN2
qex1: MOVE Z,T1
JSPKB1
SKIPE CHANAS(PAN2)
JSBUFH
AOS T1
CAIE T1,10
JRST qex1
JSBUFZ
qex2: JSAE
JRST qex3
IFE PURE,<JRNAV>
IFN PURE,<
MOVEI Z,10
ADD Z,PAE
JSHRN
JSBDN
MOVE E3,DIWRIT
MOVSI E1,(SIXBIT/SAV/)
MOVE T1,kdevex
MOVE Z,KSTATW
JSOPEN
MOVE T3,FLOW
ADDI T3,10
MOVEM T3,END
SUBI T3,74-1
MOVN T3,T3
HRLZ T3,T3
HRRI T3,140-1
MOVEM T3,PAL2
SETZI PAN2,
ENTER CHAND,E
JRNAVE
PUSHJ P,qex4
MOVE T3,END
ADDI T3,140-74
MOVEM T3,PAL21
CALLI T3,11
HALT
HLL E2,PNTPUN
qexSHF: MOVE T3,74-140(PAL21)
MOVEM T3,(PAL21)
CAIE PAL21,115
SOJA PAL21,qexSHF
qexEND: OUTPUT CHAND,PAL2
STATZ CHAND,740000
JRNAVO
RENAME CHAND,E
HALT
CALLI 12
>
qex4: JSTTIR
MOVE T2,.JBREL
HRLM T2,.JBCOR
ADDI T2,1
HRLZS T2
IFN PURE,<HRRI T2,INDEX>
IFE PURE,<HRRI T2,Qex6>
MOVEM T2,.JBSA
IFN PURE,<
SETZM .JBHRL
JSS
qexRET-1
INDEX-1
-13
MOVE Z,kdevex
JJEPNF
MOVEM Z,INDEX+5
>
MOVEM PAL,ARG1
MOVEM SWITCH,ARG2
JPOPJ
qex3: PUSHJ P,qex4
CALLI 12
;;
;
;************EXIT AND REENTRY POINT**************
Qex6: MOVE E1,Z
HLRZ Z,.JBVER
CAIE Z,VERLOW
CALLI 12
JRSETP
MOVEI Z,STMEDL
HRRM Z,.JBSA
MOVE Z,FLOW
JSOPF
IFN PURE,<JSERNO>
MOVE PAL,ARG1
JXGLN
MOVE Z,XTYCON
SKIPN TTYCON
MOVEM Z,TTYCON
MOVE SWITCH,ARG2
JTMP1E
JRST Qex6A
JSDTI
JSDT
SETZM DSK1+1
JRQ
Qex6A: JSTTI
JRNAVR
;TABLE AND INSTRUCTIONS FOR LOW SEGMENT
IFN PURE,<
qexRET: JFCL
MOVEI E,INDEX+5
CALLI E,40 ;GETSEG
HALT
JRST 400010
IFG PURE,<
SIXBIT /DSK/
SIXBIT /SAM76/>
IFL PURE,<
SIXBIT /SYS/
SIXBIT /SAM76/>
Z
Z
Z
>
;;
;
SUBTTL[702/fa]
Qfa: JSCF
JSFD
JRAC
JSER
JSPR
qfa1: JFCL
qfa11: JSTINH
JSTI
JSTINF
CAMN Z,MCH
JRST qfaMCH
CAIN Z,40
JRST qfa2
MOVEM Z,ARG1
HLRZ Z,RUBOUC
JSTO
MOVE Z,ARG1
JSTO
MOVE Z,MCH
JSTO
MOVE Z,ARG1
JSD
qfa1L-1
qfa1L: XWD qfaI,111;INSERT
XWD qfaD,104;DELETE
XWD qfaS,123;SEARCH
XWD qfaQ,121;QUIT
XWD qfa1,0
qfa2: JSR2
JRST qfa4
JRST qfa2
JSW
MOVE Z,@PFL
JSTO
JRST qfa11
qfaMCH: JSTO
qfa4: JSCT
JRQ
qfaD: JRNAV
qfaI: JSTI
CAMN Z,MCH
JRST qfaI1
JSW
JRST qfaI
qfaI1: HRRZ Z,RUBOUC
JSTO
JRST qfa11
qfaQ: MOVE Z,PEL
MOVEM Z,PFL
JSTINF
JRAC
qfaS: JRNAV
;;
;
SUBTTL[226/fb]
Qfb:
qfbDI: JSBDN
MOVEM E,TEM1
SKIPE DFILEX
HLLZ E1,DFILEX
MOVEM E1,TEM4
MOVEM PAL,PALPAL
JSAS
PUSHJ P,JSBFI1
SKIPA
qfb2: AOS T7
JSBUG
JRAZ
MOVE E2,T7
AOS E2
HLLZ Z,@E2
CAME Z,TEM4
JRST qfb2
MOVE T1,@T7
CAME T1,TEM1
JRST qfb2
JRAD
;;
;
SUBTTL[137/fc]
Qfc: JSCF
qfc1: JSFD
JRAC
CAIL T4,7
JSER
qfc11: JSR2
JRAC
JRST qfc11
JRST qfc21
qfc2: JSR2
JRST qfc3
JRST qfc2
qfc21: JTMP1N
JSW
SOJN T4,qfc2
qfc3: JSCT
JRQ
;;
;
SUBTTL[138/fdc]
Qfdc: JSCF
JSGE
JJNSGN
JRST qfc1
qfdc1: JSL2
JRAC
JRST qfdc1
JRST qfdc3
qfdc2: JSL2
JRST qfdc4
JRST qfdc2
qfdc3: SOJN T4,qfdc2
qfdc4: JFCL
JSCT
JNULLE
JRQ
MOVEM PAL21,CHAR2
JSER ;TEMP UNTIL # OF CHAR CHECK IS MADE
qfdc5: JSR2
JRQ
JRST qfdc5
JSW
JRST qfdc5
;;
;
SUBTTL[139/fde]
Qfde: JSCF
JSGE
JJNSGN
JRST qfe1
JSFD
AOS PAL2
qfde1: JSL2
JRAC
JRST qfde1
qfde2: JSL2
JRST qfde4
JXSKIP
JRST qfde2
qfde3: JSL2
JRST qfde4
JRST qfde3
SOJN T4,qfde2
AOS PAL2
qfde4: JRST qfdc4
;;
;
SUBTTL[140/fdm]
Qfdm: JSCF
JSGE
MOVE PAN2,T4
JJESGN
JRST qfl0
qfdm1: JSSBA
JRAB
SOJE PAN2,qfr0
JRST qfdm1
;;
;
SUBTTL[141/fe]
Qfe: JSCF
qfe1: JSFD
JRAC
JSER
qfe2: JSR2
JRST qfc3
JRST qfe3
JSW
JRST qfe2
qfe3: JSCT
SOJN T4,qfe2
JRQ
;;
;
SUBTTL[142/ff]
Qff: JSCF
JSGT
MOVE PAL2,CHAR1
JUMPE T4,qff3
JRST qff1
qff2: CAMN Z,T4
JRST qff3
qff1: JSR2
JRAD
JRST qff2
JRST qff1
qff3: JSER
qff4: JSR2
JRQ
JRQ
JSW
JRST qff4
;;
;
SUBTTL[143/fl]
Qfl: JSCF
qfl0: JSER
MOVE T6,PAN
MOVEM PAL2,CHAR2
qfl1: JSL2
JRAB
JRST qfl1
AOJN T6,qfl1
JRST qfl3
qfl2: JMRPAL
MOVE PAL2,TEM6
qfl4: JSL2
JRAB
JRST qfl4
qfl3: MOVEM PAL2,TEM6
JSSBA
JRST qfl2
MOVEM PAL2,T2
MOVE PAL2,T1
JSCT
JNULLE
JRQ
MOVE PAL2,T2
MOVEM PAL21,CHAR2
JRST qfr3
;;
;
SUBTTL[$/flt]
Qflt0: jtcpnf
jrst qflt1
;
Qflt:
IFE FLOATP,<JRNAV>
IFN FLOATP,< JTMP1O
Qflt1: JSGSIX
JSTAB
TABFPR-1
FPRTAB-1
JRQ
JSER
HRRZM T1,ADS32
HLRZM T1,ADS33
SKIPN ADS32
JRST @ADS33
JTMP1E
JSAS
JSFLOT
MOVEM Z,ARG1
PUSHJ P,@ADS32
JRST @ADS33
QFPPI: MOVE Z,FPPII
JRST FPRET1
QFPDR: FDVR Z,FPSCD1
JFCL
JPOPJ
QFPRD: POP P,BASE
FPRETD: FMPR Z,FPSCD1
JFCL
JRST FPRET1
QFPQF: MOVEI T5,TABFPR
JRTABN
;
fltcwc: setzm CWCAST
jsr9
movem z,CWCAST
jrq
;
;;
;
SUBTTL[FPADSU]
JSFLTW: JSFLOT
MOVEM Z,ARG2
MOVE T1,Z
MOVE Z,ARG1
JPOPJ
QFPSU: FSBR Z,T1
JRST FPRET1
QFPAD: FADR Z,T1
JRST FPRET1
QFPML: FMPR Z,T1
JRST FPRET1
QFPDV: JUMPE T1,JRAC
FDVR Z,T1
JOV JRAC
JRST FPRET1
QFPGR: CAMLE Z,T1
JRAC
JRAB
QFPLT: CAMG Z,T1
JRAC
JRAB
FPFRAC: PUSHJ P,FPAINT
MOVE T1,ARG1
EXCH Z,T1
JRST QFPSU
;;
;
FPFORM: JRNAV
FPMACH: MOVE T1,ARG1
JRXR
MACHFP: JSXX
JRST FPRET1
JRQFPI: JTMP3A
JRQFP: JTMP3O
JMRPAL
JTMP1N
JRST JRQFP1
JSAS
JSAS
JSAS
JRQFP1: JSAS
JSAS
JTMP3E
JRAB
JRAC
FPJRVI: JUMPGE Z,JRVI
JSWSGN
JRV
FPRET2: JMRPAL
PUSH P,T1
JSFLIX
PUSHJ P,FPRET8
POP P,Z
JRST FPRET0
FPRET1: JMRPAL
FPRET0: JSFLIX
JRQ
FPRET8: JTMP1E
JRST FPRET9
MOVEI Z,","
JSW
JPOPJ
FPRET9: JSAT
JPOPJ
;;
;
SUBTTL[FPMISC]
FPABS: MOVMS Z
JPOPJ
FPIABS: MOVMS Z
JFCL 1,JRQFPI
JPOPJ
FPINT:FPIFIX: MOVMS Z
MULI Z,400
EXCH Z,T1
ASH Z,-243(T1)
JRST FPARG1
FPAINT: MOVMS Z
CAML Z,FPMOD1
JRST FPARG1
FAD Z,FPMOD1
FSB Z,FPMOD1
JRST FPARG1
FPFLOT: JTMP1E
JSAS
JSGT
JCIA
IDIVI Z,400
SKIPE Z
TLC Z,243000
TLC T1,233000
FADL Z,T1
JJESGN
JCIA
JRST FPRET1
FPSIGN: JSFLTW
MOVMS Z
SKIPGE T1
JCIA
JPOPJ
FPISIGN: JSFLTW
XOR T1,Z
JUMPGE T1,CPOPJ
JCIA
JFCL .+2
JPOPJ
HRLOI Z,377777
JPOPJ
FPDIM: JSFLTW
CAMG Z,T1
TDZA Z,Z
FSBR Z,T1
JPOPJ
FPIDIM: JRNAV
;;
;
SUBTTL[FPMINMAX]
FPAMAX: SKIPA PAN2,FPZERO
FPAMIN: MOVEI PAN2,1
JRST FPMMM0
FPMAX: SKIPA PAN2,FPZERO
FPMIN: MOVEI PAN2,1
SETZM ADS32
JSGT
JJNSGN
JCIA
MOVEM Z,ARG1
JRST FPMMM0
FPMMM3: JSFLOT
FPMMM1: MOVE T1,ARG1
XCT FPMMM(PAN2)
EXCH Z,T1
MOVEM Z,ARG1
FPMMM0: JSAE
JRST FPMMM2
SKIPE ADS32
JRST FPMMM3
JSGT
JJNSGN
JCIA
JRST FPMMM1
FPMMM2: MOVE Z,ARG1
SKIPE ADS32
JPOPJ
JRST FPJRVI
FPMMM: CAMG Z,T1
CAML Z,T1
;;
;
SUBTTL[FPMOD]
FPMOD: JTMP1E
JSAS
JSGT
MOVNM Z,ARG1
JSGT
JCIA
MOVE BASE,ARG1
IDIV BASE,Z
JRST FPJRVI
FPAMOD: JSFLTW
MOVM T2,T1
FDVM Z,T1
JFCL FPAMO1
MOVMS T1
CAML T1,FPMOD1
JPOPZ
FAD T1,FPMOD1
FSB T1,FPMOD1
FMP T2,T1
SKIPGE Z
MOVNS T2
FSB Z,T2
JPOPJ
FPAMO1: MOVE T1,126
TLNE T1,000100
JPOPJ
JPOPZ
;;
;
SUBTTL[FPALOG]
;REF: ALOG.MAC 17 JULY 1970 - KK/DMN
FPAL10: FMPR Z,LOG10A
JRST FPRET1
FPALOG: MOVMS Z
JUMPE Z,LZERO
CAMN Z,FPTBLP
JRST ZERANS
ASHC Z,-33
ADDI Z,211000
MOVSM Z,ARG2
MOVSI Z,567377
FADM Z,ARG2
ASH T1,-10
TLC T1,200000
FAD T1,FPLOG1
MOVE Z,T1
FAD Z,FPLOG2
FDV T1,Z
MOVEM T1,ARG3
FMP T1,T1
MOVE Z,FPLOG3
FMP Z,T1
FAD Z,FPLOG4
FMP Z,T1
FAD Z,FPLOG5
FMP Z,ARG3
FAD Z,ARG2
FMP Z,LN2BE
JPOPJ
LZERO:
SKIPA Z,MIFI
ZERANS: MOVEI Z,0
JPOPJ
;;
;
SUBTTL[FPASIN]
;REF: ASIN.MAC 10 JULY 1970 ED YOURDON
FPASIN: MOVMS Z
CAMLE Z,FPTBLP
JRQFP
MOVN Z,ARG1
FMP Z,ARG1
JFCL
FAD Z,FPTBLP
JUMPE Z,FPASI1
PUSHJ P,FPSQRT
MOVE T1,ARG1
FDV T1,Z
MOVE Z,T1
PUSHJ P,FPATAN
JPOPJ
FPASI1: MOVE Z,FPPIOT
SKIPG ARG1
JCIA
JPOPJ
FPACOS: MOVM Z,Z
CAMLE Z,FPTBLP
JRQFP
JUMPE Z,FPACO1
FMPR Z,Z
JFCL
JCIA
FAD Z,FPTBLP
PUSHJ P,FPSQRT
FDVR Z,ARG1
JFCL
PUSHJ P,FPATAN
SKIPGE ARG1
FAD Z,FPPII
JPOPJ
FPACO1: MOVE Z,FPPIOT
JPOPJ
;;
;
;REF: ATAN.MAC
FPATAN: MOVMS Z
CAMG Z,FPA1
JPOPJ
HLLO T2,ARG1
CAML Z,FPA2
JRST FPAT4
MOVSI T1,201400
CAMG Z,T1
TRZA T2,-1
FDVM T1,Z
TLC T2,(T2)
MOVEM Z,T4
FMP Z,Z
MOVE T1,FPKB3
FAD T1,Z
MOVE BASE,FPKA3
FDVM BASE,T1
FAD T1,Z
FAD T1,FPKB2
MOVE BASE,FPKA2
FDVM BASE,T1
FAD T1,Z
FAD T1,FPKB1
MOVE BASE,FPKA1
FDV BASE,T1
FAD BASE,FPKB0
FMP BASE,T4
TRNE T2,-1
FSB BASE,FPPIOT
SKIPA Z,BASE
FPAT4: MOVE Z,FPPIOT
SKIPGE T2
JCIA
JPOPJ
;;
;
;REF: ATAN2.MAC 17-JUL-70 TKE
FPATN2: JSFLTW
FDVR Z,T1
JFCL FPAT21
PUSHJ P,FPATAN
SKIPL ARG2
JPOPJ
JUMPGE Z,FPAT22
FADR Z,FPPII
JPOPJ
FPAT22: FSBR Z,FPPII
JPOPJ
FPAT21: MOVE Z,FPPIOT
MOVE T1,126
TLNN T1,000100
JRST FPARG1
SKIPL ARG2
JPOPZ
MOVE Z,FPPII
JRST FPARG1
;;
;
SUBTTL[FPSIN]
;REF: SIN.MAC 12 DECEMBER 1969 - ED YOURDAN
FPCOSD: FADR Z,FPSCD
FPSIND: FDVR Z,FPSCD1
JFCL
SKIPA
FPCOS: FADR Z,FPPIOT
FPSIN: MOVEM Z,T4
MOVMS Z
CAMG Z,FPSP2
JRST FPS3A
FDV Z,FPPIOT
CAMG Z,FPTBLP
JRST FPS2
MULI Z,400
ASH T1,-202(Z)
JFCL
MOVEI Z,200
ROT T1,3
LSHC Z,33
FAD Z,FPZERO
JUMPE T1,FPS2
TLCE T1,1000
FSB Z,FPTBLP
TLCE T1,3000
TLNN T1,3000
JCIA
FPS2: SKIPGE T4
JCIA
MOVEM Z,T4
FMPR Z,Z
MOVE BASE,FPSC9
FMP BASE,Z
FAD BASE,FPSC7
FMP BASE,Z
FAD BASE,FPSC5
FMP BASE,Z
FAD BASE,FPSC3
FMP BASE,Z
FAD BASE,FPPIOT
FMPR BASE,T4
SKIPA Z,BASE
FPS3A: MOVE Z,T4
JPOPJ
FPTAN: PUSHJ P,FPCOS
EXCH Z,ARG1
PUSHJ P,FPSIN
FPTAN1: FDVR Z,ARG1
JFCL
JFCL;TEST FOR TOO LARGE
JPOPJ
FPTAND: PUSHJ P,FPCOSD
EXCH Z,ARG1
PUSHJ P,FPSIND
JRST FPTAN1
;;
;
SUBTTL[FPSINH]
;REF: SINH.MAC 15-JUL-70 KAREN KOLLING
FPSINH: MOVMS Z
CAMLE Z,FPSIN8
JRST FPOV88
CAMG Z,FPS10T
JRST FPSERI
PUSHJ P,FPEXP
HRLZI T2,576400
PUSHJ P,FPCOS1
JRST FPARG1
FPSERI: MOVE T2,Z
FMPR T2,T2
JFCL
MOVEM T2,T4
FDVR T2,FPS120
JFCL
FADR T2,FPSSIX
FMPR T2,T4
JFCL
FADRI T2,201400
FMPR Z,T2
JPOPJ
FPOV88: PUSHJ P,FPCO88
FPARG1: SKIPGE ARG1
JCIA
JPOPJ
;REF COSH.MAC 9-JUL-70 ED YOURDAN
FPCOSH: MOVMS Z
CAMLE Z,FPSIN8
JRST FPCO88
PUSHJ P,FPEXP
MOVSI T2,201400
FPCOS1: FDVR T2,Z
FADR Z,T2
FDVRI Z,202400
JPOPJ
FPCO88: FSBR Z,LN2BE
JUMPLE Z,JRQFP
PUSHJ P,FPEXP
JPOPJ
;;
;
;REF: TANH.MAC 22 SEPTEMBER 1969 ED YOURDAN
FPTANH: MOVM T1,Z
CAMGE T1,FPTK1
JPOPJ
CAMLE T1,FPTK2
JRST FPTAN5
CAMGE T1,FPTK3
JRST FPTAN2
FMPRI T1,202400
MOVE Z,T1
PUSHJ P,FPEXP
MOVSI T1,201400
FAD Z,T1
FDVM T1,Z
FMPRI Z,202400
FSBRM T1,Z
JRST FPARG1
FPTAN2: FMP Z,FPTK7
MOVEM Z,T3
FMP Z,Z
MOVEM Z,T4
FAD Z,FPTK4
MOVE T1,FPTK5
FDV T1,Z
FAD T1,FPTK6
FMP T1,T4
FAD T1,FPTK7
MOVE Z,T3
FPTAN5: FDV Z,T1
JPOPJ
;;
;
SUBTTL[FPEXP]
;REF: EXP.MAC
FPEXP: CAMGE Z,FPEX77
JRQFP
CAMLE Z,FPEX7
JRQFPI
MOVE T1,Z
HRLZI BASE,(FSC Z,)
SETZM T4
MULI T1,400
TSC T1,T1
MUL T2,FPEX5
ASHC T2,-242(T1)
AOSG T2
AOS T2
HRRM T2,BASE
JUMPG T3,FPEXAS
TRNN T3,377
JRST FPEXAS
ADDI T3,200
FPEXAS: ASH T3,-10
TLC T3,200000
FADB T3,T4
FMP T3,T3
MOVE Z,FPEX2
FMP Z,T3
FAD T3,FPEX4
MOVE T1,FPEX3
FDV T1,T3
FSB Z,T1
MOVE T2,T4
FSB Z,T2
FAD Z,FPEX1
FDVM T2,Z
FAD Z,FPEX6
XCT BASE
JPOPJ
;;
;
SUBTTL[FPSQRT]
;REF: SQRT.MAC 30 SEPTEMBER 1970 - TONY LAUCK
FPSQRT: JUMPLE Z,JRQFP
HRLZI T3,(FSC BASE,)
MOVEI 0,0
LSHC 0,^D9
SUBI 0,201
ROT 0,-1
HRRM 0,T3
JUMPL 0,FPSQR3
;FRACTION <.5
LSH Z,-^D9
FSC Z,177
MOVEM Z,T4
;COMPUTE LINEAR APPROX #1
FMP Z,[200640000000]
FAD Z,[177465000000]
FPSQR1: MOVE 0,T4
FDV 0,Z
FAD Z,0
FSC Z,-1
MOVE 0,T4
FDV 0,Z
FADR 0,Z
FPSQR2: XCT T3
MOVE Z,0
JPOPJ
;HERE ON F >= .5
FPSQR3: LSH Z,-^D9
FSC Z,200
MOVEM Z,T4
;COMPUTE LINEAR APPROX #2
FMP Z,[200450000000]
FAD Z,[177660000000]
JRST FPSQR1
;;
;
SUBTTL[FPCABS]
;REF: CABS.MAC 23-SEPT-69 TOM EGGERS
FPCABS: JSFLOT
MOVM T1,Z
MOVM Z,ARG1
CAML Z,T1
EXCH Z,T1
FDVR Z,T1
JFCL FPCAB1
FMPR Z,Z
JFCL FPCAB1
MOVEM T1,ARG2
FADRI Z,201400
PUSHJ P,FPSQRT
FMPR Z,ARG2
JPOPJ
FPCAB1: MOVE Z,T1
JPOPJ
SUBTTL[FPREAL]
;REF: REAL.MAC 28 NOV 69 ED YOURDON
FPREAL: JPOPJ
SUBTTL[FPCONJ]
;REF: CONJG.MAC 29 NOV 69 ED YOURDON
FPCONJ: JSFLOT
MOVN T1,Z
MOVE Z,ARG1
JPOPJ
;;
;
FPMOD1: 233400000000
FPLOG1: 577225754146
FPLOG2: 201552023632
FPLOG3: 200462532521
FPLOG4: 200754213604
FPLOG5: 202561251002
;FPLOG7=LN(2)
MIFI: 400000000001
LOG10A: 177674557305
FPA1: 145000000000
FPA2: 233000000000
FPKB0: 176545543401
FPKB1: 203660615617
FPKB2: 202650373270
FPKB3: 201562663021
FPKA1: 202732621643
FPKA2: 574071125540
FPKA3: 600360700773
FPPII: 202622077325 ;JUST PLAIN PIE
FPSC3: 577265210372
FPSC5: 175506321276
FPSC7: 606315546346
FPSC9: 164475536722
FPSP2: 170000000000
FPSCD: 90.0
FPSCD1: 206712273406
FPPIOT: 201622077325
;FPKONE=FPTBLP
FPM46: DEC -38
FPZERO=XXZERO
FPTBLM: 201400000000
FPS10T: 175631463146 ;1.E-1
172507534122 ;1.E-2
163643334273 ;1.E-4
146527461671 ;1.E-8
113715126246 ;1.E-16
026637304365 ;1.E-32
FPTBLP: 201400000000
204500000000 ;1.E1
207620000000 ;1.E2
216470400000 ;1.E4
233575360400 ;1.E8
266434157116 ;1.E16
353473426555 ;1.E32
FPEX1: 204476430062
FPEX2: 174433723400
FPEX3: 212464770715
FPEX4: 207535527022
FPEX5: 270524354513
FPEX6: 0.5
FPEX7: 207540074636
FPEX77: 570232254037
LN2BE: 200542710300 ;LN(2)
FPSIN8: 207540074636 ;88.029
FPS120: 207740000000 ;120.0
FPSSIX: 0.166666667
FPTK1: 165544410070 ;0.00034
FPTK2: 204600000000 ;12.0
FPTK3: 176534121727 ;0.17
FPTK4: 211535527022 ;349.6699888
FPTK5: 204704333567 ;14.1384514018
FPTK6: 174433723376 ;0.01732867951
FPTK7: 203561250731 ;5.7707801636
FP2453: XWD 353473,426555
XWD 266434,157116
FP2455: XWD 233575,360400
XWD 216470,400000
XWD 207620,0
XWD 204500,0
FP2461: XWD 201400,0
XWD 26637,304365
XWD 113715,126246
XWD 146527,461671
XWD 163643,334273
XWD 172507,534122
FP2467: XWD 175631,463146
>;;
;
;;
;
SUBTTL[145/fp]
Qfp: JSCF
qfp1: JSR2
JRAC
JXSKIP
JRST qfp1
TRZ Z,CMASK
JRVI
;;
;
SUBTTL[144/fr]
Qfr: JSCF
JSSBA
JRAB
qfr0: JSCT
JNULLE
JRQ
MOVE PAL2,PAL21
qfr1: MOVEM T1,CHAR2
qfr2: JSER ;SUBJECT TO LATER TEST
qfr3: JSR2
JRQ
JRST qfr3
JSW
JRST qfr3
;;
;
SUBTTL[106/ft]
Qfti: move pal,pel
aos pal
jxgln
Qfti1: MOVE Z,SWITCH
JNDPNF
ROT Z,1
IOR SWITCH,Z
JJZPNF
Qft: JNULLE
JRQ
JSCF
JSER
JRST Qft3
Qft4: TRZ Z,CMASK
MOVE T5,Z
CAILE Z,qpcLIM
JRST QftMG
TDZA Z,Z
Qft2: JSAS
JSAE
JRST Qft3
SOJN T5,Qft2
Qft21: JSR1
JRST Qft3
JSW
JRST Qft21
Qft3: JMRPAL
Qft1: JSR2
JRQ
JRST Qft4
XCTJSW: JSW
JRST Qft1
QftMG: SUBI T5,qpcLIM
QftMG1: SOJE T5,QftMG2
JSAS
JRST QftMG1
QftMG2: JSAE
JRST Qft3
MOVE Z,CPCM
QftMG3: JSW
JSR1
JRST QftMG2
TRO Z,1000
JRST QftMG3
;;
;
SUBTTL[210/ftb]
Qftb: JSCF
JSFD
JRAC
JSER
qftb1: JMRPAL
qftb2: JSR2
JRST qftb4
JRST qftb2
MOVE T2,Z
qftb3: JSR1
JRST qftb5
CAME Z,T2
JRST qftb3
qftb4: JSCT
JRQ
qftb5: MOVE Z,T2
JSW
JRST qftb1
;;
;
SUBTTL[211/fts]
Qfts: JSCF
JSFD
JRAC
JSER
qfts1: JMRPAL
qfts2: JSR2
JRST qfts4
JRST qfts2
MOVE T2,Z
qfts3: JSR1
JRST qfts4
CAME Z,T2
JRST qfts3
JSW
JRST qfts1
qfts4: JSCT
JRQ
;;
;
SUBTTL[212/hc]
Qhc: MOVE Z,PAN
JRV
;;
;
SUBTTL[150/hm]
Qhm: JSCF
SETZI PAN2,
qhm1: JSSBA
JRST qhm2
AOS PAN2
JRST qhm1
qhm2: MOVE Z,PAN2
JRVI
;;
;
SUBTTL[149/hp]
Qhp: JSCF
JSGT
SETZM TEM1
JRST qhp1
qhp2: SKIPE T4
CAMN Z,T4
AOS TEM1
qhp1: JSR2
JRST qhp3
JRST qhp2
JRST qhp1
qhp3: MOVE Z,TEM1
JRVI
;;
;
SUBTTL[114/ht]
Qht: MOVE PAL21,FLOW
JJEPNF
JRST qht2
JSAE
JRST qht1
JSF
JRQ
CAIA
qht1: MOVE PAL21,LOW
qht2: MOVEM PAL21,FTOP
JRQ
;;
;
SUBTTL[116/id]
Qid: JSGE
CAILE T4,4
JSER
Qic: JSTI
JSW
SOJN T4,Qic
SETZM TM2
JRQ
;;
;
SUBTTL[136/ig]
Qig: JSAA
ADD T6,T5
JUMPE T6,JRAZ
MOVE Z,T6
JSD
qigL-1
qigL: XWD JRAZ,2
XWD JRAZ,12
XWD JRAZ,13
XWD JRAZ,202
XWD JRAY,0
;;
;
SUBTTL[135/ii]
Qii: JSPL
JSGQ
JRAZ
JFCL
JRAY: JSAS
JRAZ: JSAS
JRAD: JSAT
JRQ
JRAB: JSAS
JRAC: JJZPNF
MOVE Z,PEL
MOVEM Z,PFL
JRAD
;;
;
SUBTTL[117/im]
Qim: JSER
qim1: JSIRO
JSW
JMRPAL
qim2: JUMPE PAN,qim4
MOVE T4,PFL
ADD T4,PAN
MOVE T3,PAL
qim21: AOS T4
AOS T3
MOVE Z,@T4
CAME Z,@T3
JRST qim3
AOJN PAN,qim21
JRQ
qim3: JSAS
JSAE
JRST qim1
JRST qim2
qim4: MOVE Z,C
CAME Z,MCH
JRST qim3
JRQ
;;
;
SUBTTL[102/is]
Qis: JSER
JXSKIP
qis1: JSW
JSIRO
CAME Z,MCH
JRST qis1
SETZM TM2
JRQ
;;
;
SUBTTL[152/it]
Qidt: JSGE
Qit: JFCL; MAKE SURE WE ARE IN IMAGE MODE
qit7: JFCL; DUMMY
qitA: SETZM TEM6
PUSHJ P,MFLK
MOVE Z,C
SUBI Z,300
JUMPL Z,qitA
PUSHJ P,MFLB
MOVNM Z,ARG2
PUSHJ P,MFLB
MOVNM Z,PAN
MOVE PAL2,FLOW
MOVEM PAL2,ARG1
ADDI PAL2,3
MOVE PAN2,ARG2
JSDS
PUSHJ P,MFLB
HRRM Z,@PAL2
SETOI PAL2,
ADD PAL2,PAN
ADD PAL2,ARG2
qit1: AOJE PAL2,qit2
MOVE Z,C
ANDI Z,200
JUMPN Z,qit3
MOVE Z,C
JSW2C
MOVE Z,C
ADDI Z,200
PUSHJ P,MFLK
JRST qit1
;;
;
qit3: PUSHJ P,MFLB
ADDI Z,CMASK
JSW2C
JRST qit1
qit2: MOVN Z,C
ADD Z,TEM6
ANDI Z,7777
MOVEM Z,TEM2
PUSHJ P,MFLB
ANDI Z,7777
SUB Z,TEM2
JUMPN Z,qit4
SOJN T4,qitA
JJNPNF
JRST qit5
JRST qitA
qit4: MOVE Z,ARG1
MOVEM Z,FLOW
JFCL;MAKE SURE WE GO BACK TO NON IMAGE MODE
JRAB
qit5: JFCL;BACK TO NON IMAGE MODE
JRQ
;;
;
MFLK: JSTGET
JUMPE Z,MFLK
MOVEM Z,C
SUBI Z,377
JUMPE Z,MFLK1
MOVE Z,C
ADD Z,TEM6
MOVEM Z,TEM6
JPOPJ
MFLK1: JXBUCL
JRST qit5
MFLB: SETZB Z,T5
MFB1: MOVE T6,T5
MOVE T5,C
ANDI T5,77
PUSHJ P,MFLK
MOVE Z,C
ANDI Z,300
JUMPE Z,MFB3
SUBI Z,200
JUMPE Z,MFB1
MFB3: MOVE Z,T6
LSH Z,6
ADD Z,T5
JPOPJ
;;
;
SUBTTL[213/iw]
Qiw: JSGT
LSH T4,12
CALLI T1,23
ADD T4,T1
LSH T4,-1
MOVEM T4,TM2
JRQ
;;
;
SUBTTL[216/lf]
Qlf:
qlfDI: JSBFI
SKIPE DFILEX
JRST qlfDI2
qlfDI3: JSBUG
JRQ
JMQDI
JSBUG
JRQ
HLLZ T1,@T7
JUMPE T1,qlfDI3
MOVEI Z,56
JSW
JSSIX
JRST qlfDI3
qlfDI1: AOS T7
qlfDI2: JSBUG
JRQ
MOVE E2,T7
AOS E2
HLLZ Z,@E2
CAME Z,DFILEX
JRST qlfDI1
JMQDI
JRST qlfDI1
;;
;
SUBTTL[241/lic]
Qlic: JSER
MOVEI T5,TABSIC
JRTABN
; [242/loc]
Qloc: JSER
MOVEI T5,TABSOC
JRTABN
SUBTTL[$/lkf]
Qlkf: SKIPE TTOBUF+40
JRST qlkf2
JSBDL
MOVE T1,kdevbf
MOVE Z,KSTATR
JSOPEN
OPEN CHANL,KBSTAT
JRNAVO
JSBTIM
ENTER CHANL,E
JRST qlkf1
MOVEM E,TTOBUF+40
MOVEM E1,TTOBUF+41
MOVEM E2,TTOBUF+42
MOVEM E3,TTOBUF+43
JSFBL
JFCL
JRST qbfIN
qlkf1: CLOSE CHANL,
JFBCL
qlkf2: JFCL
JRAC
;;
;
SUBTTL[$/lko]
Qlko: SKIPN TTOBUF+40
JRNAV
JSAE
JRST qlko1
PUSHJ P,qsfB
JXSKIP
qlko1: MOVE T1,FTOP
MOVE BASE,FLOW
PUSH P,T1
MOVEM T1,DSK1
SUB T1,BASE
JUMPE T1,qlko3
qlko2: MOVE E,TTOBUF+40
MOVE E1,TTOBUF+41
MOVE E2,TTOBUF+42
MOVE E3,TTOBUF+43
HRLM T1,DSK1
OUTPUT CHANL,DSK1
SETZM TTOBUF+40
GETSTS CHANL,ERBIT
STATZ CHANL,740000
JRST qlkoNA
CLOSE CHANL,
POP P,FLOW
JRQ
qlko3: MOVEI T1,DSK1
MOVEM T1,DSK1
SETOI T1,
JRST qlko2
qlkoNA: CLOSE CHANL,
JRNAVO
;;
;
SUBTTL[$/lne]
Qlne: JSPL
JSGQ
JSAS
JRAZ
JRAZ
;;
;
SUBTTL[105/lt]
Qlt: MOVE PAL21,FTOP
JSER
qlt1: JSFS
JRQ
JSLNA
JRST qlt1
;;
;
SUBTTL[214/lw]
Qlw: MOVE PAL21,FTOP
JSER
qlw1: JSFS
JRQ
PUSH P,PAL21
JSCFA
POP P,PFI
JTMP1A
qlw2: JSAS
MOVE PAL2,PAL21
JSAE
JRST qlw3
JUMPE PAN,qlw2
JTMP2Z
JSSBA
JRST qlw4
JTMP1O
JRST qlw2
qlw3: JTMP1N
JRST qlw4
JMRPAL
MOVE PAL2,CHAR1
JSLNA
qlw4: JMRPAL
MOVE PAL21,PFI
JRST qlw1
;;
;
SUBTTL[110/mc]
Qmc: JSGE
ADDI T4,qpcLIM+CMASK
CAIL T4,qmcLIM+CMASK
JRAC
JRST qpc1
;;
;
SUBTTL[146/md]
Qmd: JSCF
JSGT
HRRZ T5,@PFF
JJNSGN
JRST qmd1
ADD Z,T5
JUMPGE Z,qmd2
JCLA
JRST qmd2
qmd1: MOVE Z,T4
CAMLE Z,T5
MOVE Z,T5
qmd2: HRRM Z,@PFI
JRQ
;;
;
SUBTTL[109/mt]
;
Qmt: JJOSGN
jrst qptmt
SUBTTL
SUBTTL[130/mu]
Qmu: JSML
JRMR
MOVEM Z,TEM1
JSA1
MOVN Z,PAN
AOS Z
ADD Z,PFF
MOVEM Z,PFF
qmuA: AOSE TEM1
MOVE Z,@TEM1
JUMPL Z,JRMV
AOSE PFF
ANDI Z,17
JUMPE Z,qmuA
MOVNM Z,@TEM1
MOVE Z,PFF
AOS Z
MOVEM Z,ARG2
qmuB: JSMT
JSAU
AOSE @TEM1
JRST qmuB
JRST qmuA
;;
;
SUBTTL[111/ni]
Qni: JJNPNI
JSAS
JRAD
;;
;
SUBTTL[188/not]
Qnot: JSBT
qnotA: JSD2
MOVE Z,@T2
JSAN
JRAG
SETCA Z,
ANDI Z,7
JSDC
JRST qnotA
;;
;
SUBTTL[209/nu]
Qnu=FNPNL
;;
;
SUBTTL[/oj]
Qrp: JTMP1O
Qrj: JSER
MOVE T7,XCTJSW
JRST qoj00
Qop: JTMP1O
Qoj: MOVEM PAL,PALPAL
MOVE T7,qos2
qoj00: PUSHJ P,qojP
qoj01: MOVE T4,CLINEL
qoj02: ADD T1,T4
MOVEM T7,ADS32
MOVE T3,PAL
MOVE T7,[XWD 400001,100000]
SETZB PAL2,TEM4
JRST qoj04
qoj03: SKIPN ARG3
JRST qoj04
TRO PAN2,400000
MOVEM PAN2,@T3
qoj04: SKIPA PAN2,T4
qoj05: MOVE PAN2,T1
MOVEM T3,CHAR1
HRLZ Z,PAL2
IORM Z,@T3
ADDI PAL2,1
SETZI T6,
qoj06: ADDI T3,1
MOVE Z,@T3
JUMPL Z,qoj60
JTSTCN
JRST qoj12
SOJGE PAN2,qoj06
qoj10: SETZI T6,
MOVE PAN2,T3
qoj11: CAMN T3,PAL
JRST qoj18
HRRZ Z,@T3
CAIE Z,CGSPACE
CAIN Z,CCHTAB
JRST qoj13
SUBI T3,1
CAIN Z,CCBKSP
SOJA T6,qoj11
AOJA T6,qoj11
qoj12: CAIE Z,CCNULIN
CAIN Z,CCRETURN
JRST qoj03
CAIN Z,CCHTAB
JRST qoj17
CAIN Z,CCBKSP
AOJA PAN2,qoj06
JRST qoj06
qoj13: HRRM T7,@T3
JTMP1E
JRST qoj05
JUMPE T6,qoj05
MOVEM T3,ARG1
JTMP2Z
qoj14: SUBI T3,1
HRRZ Z,@T3
JTSTCN
JRST qoj16
CAIE Z,CGSPACE
JRST qoj22
ADDI T6,1
HLRM T7,@T3
JRST qoj14
qoj16: CAIN Z,CCBKSP
SOJA T6,qoj14
CAIN Z,CCHTAB
ADDI T6,10
JRST qoj14
qoj17: MOVE T5,T4
SUB T5,PAN2
ANDI T5,7
SUBI PAN2,10
ADD PAN2,T5
JUMPGE PAN2,qoj06
JRST qoj10
qoj18: MOVE T3,PAN2
HRRZ Z,@T3
TRO Z,100000
MOVEM Z,@T3
JRST qoj05
qoj20: JTMP2N
JRST qoj25
qoj22: CAME PAL21,qoj06
SKIPA PAL21,qoj06
SKIPA PAL21,qoj14
MOVE T3,CHAR1
qoj21: XCT PAL21
MOVE Z,@T3
JUMPL Z,qoj20
TLNE Z,77777
JRST qoj20
CAIE Z,CCNULIN
CAIN Z,CCRETURN
JRST qoj20
TRNE Z,100000
JRST qoj20
CAIN Z,CGSPACE
JRST qoj23
CAIN Z,400000
JRST qoj20
CAIG Z,400000
JRST qoj21
qoj24: AOS @T3
JTMP2O
SOJG T6,qoj21
qoj25: MOVE T3,ARG1
JRST qoj05
qoj23: HLRM T7,@T3
JRST qoj24
qoj30: JTMP2O
qoj31: PUSHJ P,qojJSR
qoj311: XCT T7
TLNE Z,77777
JRST qojPB
qoj312: ANDI Z,777777
qoj32: CAILE Z,377
JRST qoj33
XCT ADS32
JRST qoj31
qoj33: PUSHJ P,qojPD
JRST qoj31
qoj40: CAIE Z,100000
PUSHJ P,qojPA
JJNSGN
JRST qoj50
MOVEI Z,CCNULIN
XCT ADS32
qoj41: PUSHJ P,qojJSR
CAIN Z,CGSPACE
JRST qoj41
JRST qoj311
qoj50: MOVE T3,PFI
MOVE T4,PFF
PUSHJ P,qojPC
JRST qoj41
qoj60: MOVE T7,[JRST qoj312]
SKIPN ARG3
JRST qoj30
MOVSI T7,(JFCL)
MOVE T3,PAL
LSH PAL2,-1
qoj61: ADDI T3,1
MOVE Z,@T3
TLNN Z,77777
JRST qoj61
SOJG PAL2,qoj61
qoj62: MOVE T2,T3
JRST qoj30
qojJSR: JSR9
SKIPE TEM4
JPOPJ
CAMLE PAL,PWR
AOS PWR
JPOPJ
qojP: JSAS
JSGT
SETZB T1,ARG3
JSAE
JRST qojP3
MOVEM PAL,PFI
MOVEM PAN,PFF
qojP1: JSR1
JRST qojP2
JTSTCN
JXSKIP
AOJA T1,qojP1
CAIN Z,CCBKSP
SOJA T1,qojP1
CAIE Z,CCHTAB
JRST qojP1
ADDI T1,10
ANDI T1,777770
JRST qojP1
qojP2: JXGLN
JSAE
JRST qojP3
SUB PAL,PFI
MOVEM PAL,ARG2
MOVEM PAN,ARG3
qojP3: SKIPN T1
JJOSGN
MOVEM T1,PFN
MOVNS T1
JMRPAL
JUMPE T4,CPOPJ
JPOP1
qojPA: ANDI Z,377
XCT ADS32
JPOPZ
qojPB: EXCH PAL,T2
SKIPE TEM4
JRST qojPB2
AOS TEM4
PUSHJ P,qojPD
JFCL
MOVE T3,ARG2
ADD T3,PFI
MOVE T4,ARG3
PUSHJ P,qojPC
JFCL
JRST qoj41
qojPB2: SETZM TEM4
MOVEI Z,CCNULIN
XCT ADS32
JFCL
JRST qoj41
qojPB3: JFCL
JFCL
JFCL
JFCL
JFCL
JFCL
JFCL
JRST qoj41
qojPC: AOJG T4,CPOPJ
ADDI T3,1
MOVE Z,@T3
XCT ADS32
JRST qojPC
qojPD: TRNN Z,400000
JPOP1
HRRZ PAN2,Z
ANDI PAN2,377
qojPD1: SOJL PAN2,CPOPJ
MOVEI Z,CGSPACE
XCT ADS32
JRST qojPD1
qojos: JTMP1O
JJOSGN
SETZB T1,ARG3
MOVE T7,qos2
JRST qoj01
;;
;
SUBTTL[186/or]
Qor: JSBT
qorA: JSD3
MOVE Z,@T3
JSAN
JRAG
MOVEM Z,TEM4
JSD2
MOVE Z,@T2
JSAN
JRAG
AND Z,TEM4
JSDC
JRST qorA
;;
;
SUBTTL[101/os]
Qos: JBUPSE
JRST qos3
qos0:
IFDEF qojos,< JJEPNF
JRST qojos
>
qos1: JSR9
qos2: JSTL
JRST qos1
qos3: HLRZ Z,LNMOXR
JUMPE Z,qos0
JXTTC1
JRST qos0
;;
;
SUBTTL[154/ot]
Qot: JJO8BX;SET UP IMAGE MODE
qot7: JSF
JRST qot8
MOVNI T1,100
qot1: PUSHJ P,MFDR
MOVEI Z,16
JSTPUT
HRRZ Z,@PFN
PUSHJ P,MFDH
HRRZ Z,@PFF
PUSHJ P,MFDH
HRRZ Z,@PFI
PUSHJ P,MFDH
MOVE PAL2,PFI
ROT PAL2,2
ADDI PAL2,3
qot2: JSR2
JRST qot4
JRST qot3
ANDI Z,177
PUSHJ P,MFDK
JRST qot2
qot3: PUSHJ P,MFDH
JRST qot2
qot4: MOVE Z,T1
PUSHJ P,MFDH
MOVEI Z,17
JSTPUT
qot5: JSAS
JSAE
JRST qot6
JSF
JRST qot5
MOVNI T1,6
JRST qot1
qot6: MOVNI T1,100
PUSHJ P,MFDR
qot8: JJE8B
JJZ8BX;RESTORE TO NON IMAGE MODE
JFCL;OUTPUT LAST BUFFER LOAD
JRQ
;;
;
MFDR: JCLA
MFDR1: JSTPUT
AOJN T1,MFDR1
JPOPJ
MFDK: ADD T1,Z
JSTPUT
JPOPJ
MFDH: ANDI Z,7777
MOVEM Z,TEM2
ANDI Z,7700
JUMPE Z,FDH3
ROT Z,-6
ADDI Z,100
PUSHJ P,MFDL
MOVE Z,TEM2
ANDI Z,77
FDH2: PUSHJ P,MFDL
JPOPJ
FDH3: MOVE Z,TEM2
ADDI Z,100
JRST FDH2
MFDL: ADDI Z,200
MOVEM Z,TEM5
SUBI Z,377
JUMPE Z,FDL2
MOVE Z,TEM5
FDL1: PUSHJ P,MFDK
JPOPJ
FDL2: MOVEI Z,300
PUSHJ P,MFDK
MOVEI Z,277
JRST FDL1
;;
;
SUBTTL[108/pc]
Qpc: JSGE
ADDI T4,CMASK
CAILE T4,qpcLIM+CMASK
JRAC
qpc1: MOVE Z,T4
JSW
JRQ
;;
;
SUBTTL[PLOTTER]
IFNDEF PLOTER, <
Qpl: JRNAV
Qwi: JRNAV
Qws: JRNAV
Qwx: JRNAV
Qwy:
Qwr:
Qwl:
Qwc:
JRNAV
>
IFDEF PLOTER, <
;DEFINITIONS FOR PLOTTER
Qwr:Qwl:Qwc: JRNAV
;
PLOTPN=TTOBUF
PLOTNX=TTOBUF+1
PLOTNY=TTOBUF+2
PLTCOM=TTOBUF+3
PLTSCX=TTOBUF+4
PLTSCY=TTOBUF+5
PLOTX=TTOBUF+6
PLOTY=TTOBUF+7
PLTOUT=TTOBUF+10
PLTCWR=TTOBUF+11
PLTCWL=TTOBUF+12
;TTOBUF+13
PLTPUT=TTOBUF+14
PLTQAD=TTOBUF+15
;TTOBUF+16
;TTOBUF+17
PLTMX0=TTOBUF+20;THROUGH 37
PLOTPU=140
PLOTPD=120
;-y+x,+y-x,-y-x,+y+x,+y,+x,-y,-x
;DUPR,DDPL,DUPL,DDPR,DD,PR,DU,PL
;111,106,112,105,104,101,110,102
PLTQA0: BYTE (9) 104,110,101,102
BYTE (9) 105,111,106,112
PLTQA1: BYTE (9) 102,101,104,110
BYTE (9) 106,105,112,111
PLTQA2: BYTE (9) 110,104,102,101
BYTE (9) 112,106,111,105
PLTQA3: BYTE (9) 101,102,110,104
BYTE (9) 111,112,105,106
PLTQA4: BYTE (9) 104,110,102,101
BYTE (9) 106,112,105,111
PLTQA5: BYTE (9) 101,102,104,110
BYTE (9) 105,106,111,112
PLTQA6: BYTE (9) 110,104,101,102
BYTE (9) 111,105,112,106
PLTQA7: BYTE (9) 102,101,110,104
BYTE (9) 112,111,106,105
OPDEF JSPLT [XCT PLTPUT]
OPDEF JSBD [PUSHJ P,JSBD]
OPDEF JSGM [PUSHJ P,JSGM]
SUBTTL[174/pl]
Qpl: JSPK
JRQ
JSD
qplL-1
qplL:
XWD qplWS,2723; LIST WS SUBFUNCTIONS
XWD qplLF,1406; PL LIST FUNCTIONS
XWD qplNM,1615; NULL MODE OUTPUT AS IF PS
XWD qplVM,2615; VALUE MODE PLOT CONTROL CODES RETURNED AS VALUE
XWD qplMQ,1521; ROTATE QUADRANTS OF AXES
XWD FR,0
qplWS: MOVEI Z,qpl10-1
JRST MOLF2
qplLF: MOVEI Z,qplL-1
JRST MOLF2
qplNM: MOVE Z,KSTPUT
MOVEM Z,PLTPUT
SETZM PLTOUT
JRQ
qplVM: MOVE Z,XCTJSW
MOVEM Z,PLTPUT
MOVEM Z,PLTOUT
JRQ
qplMQ: PUSHJ P,qplROT
JRQ
KSTPUT: JSTPUT
;;
;
SUBTTL175/wi]
Qwi: JSGM
MOVNM Z,PLOTNX
JSGM
MOVNM Z,PLOTNY
JRQ
;;
;
SUBTTL[176/wx]
Qwx: MOVE PAL21,PLOTNX
JXSKIP
Qwy: MOVE PAL21,PLOTNY
JSLN: JSER
MOVE Z,PAL21
JUMPE PAL21,JRV
JUMPG PAL21,JSLN2
JSWSGN
JSLN2: JSBD
JRST JSLN3
JUMPL Z,JRV
JRVI
JSLN3: MOVE T1,PAL21
SKIPG T1
MOVNS T1
MOVNI T3,14
MOVEI T2,1
JSXRZ
JRQ
;;
;
SUBTTL[180/ws]
Qws: SKIPN PLTQAD
JRST QWSINI
QWSA: SKIPE PLTOUT
JSER
QWS0: JSNQ
JSGM
MOVEM Z,PLOTX
MOVEM T4,TEM5
JCLA
JJESGN
MOVEI Z,2
MOVEM Z,ARG1
SETZM TEM2
JJESGN
QWS2: JSD3
MOVE Z,@T3
JUMPL Z,QWS3
JSD
qpl10-1
QWSINI: MOVEI Z,PLTQA0
MOVEM Z,PLTQAD
MOVE Z,KSTPUT
MOVEM Z,PLTPUT
JRST QWSA
;;
;
QWS4: AOSE PLOTPN
JRST QWS5
MOVEI Z,PLOTPU
JRST QWS6
QWS5: MOVNI Z,1
MOVEM Z,PLOTPN
MOVEI Z,PLOTPD
QWS6: JSPLT
JRST QWS1
QWS3: MOVE Z,PLOTPN
ADD Z,TEM2
JUMPE Z,QWS4
QWS1: JSGM
QWS1G: MOVEM T4,TEM6
MOVEM Z,PLOTY
SKIPE PLTCOM
JRST QWSABS
MOVE Z,PLOTX
SKIPE PLTSCX
PUSHJ P,QWSSCX
ADDM Z,PLOTNX
MOVE Z,PLOTY
SKIPE PLTSCY
PUSHJ P,QWSSCY
ADDM Z,PLOTNY
JCLA
JJESGN
MOVEI Z,1
ADDM Z,ARG1
QWSP1: MOVE Z,TEM5
CAML Z,TEM6
JRST QWSP2
EXCH Z,TEM5
EXCH Z,TEM6
EXCH Z,TEM5
MOVEI Z,1
AND Z,ARG1
QWSP6: MOVE T5,PLTQAD
LDB Z,ZT50(Z)
MOVEM Z,ADS32
MOVE Z,ARG1
ADDI T5,1
LDB Z,ZT50(Z)
MOVEM Z,ADS33
MOVE Z,TEM5
LSH Z,-1
MOVEM Z,ARG2
MOVN Z,TEM5
SUBI Z,1
MOVEM Z,ARG1
JRST QWSP3
QWSP4: MOVE Z,ADS32
QWSP7: JSPLT
QWSP3: AOSN ARG1
JRST QWS0
MOVE Z,TEM6
ADD Z,ARG2
MOVEM Z,ARG2
CAMGE Z,TEM5
JRST QWSP4
MOVE Z,ADS33
JSPLT
MOVN Z,TEM5
ADD Z,ARG2
MOVEM Z,ARG2
JRST QWSP3
QWSP2: MOVE Z,ARG1
LSH Z,-1
ADDI Z,2
JRST QWSP6
;;
;
SUBTTL[/pl10]
qpl10:
XWD qpl1U,125
XWD qpl1A,101
XWD qpl1I,111
XWD qpl1G,107
XWD qpl1M,115
XWD qpl1R,122
XWD qpl1S,123
XWD qpl1W,127
XWD qpl1C,103
XWD qpl1Q,121
XWD QWS2,0
qpl1U: MOVEI Z,1
MOVEM Z,TEM2
JRST QWS2
qpl1A: MOVEI Z,1
qpl1I: MOVEM Z,PLTCOM
JRST QWS2
qpl1B: JRST qplFUT
qpl1D: JRST qplFUT
qpl1M: JSGT
CAILE T4,7
JRST QWS0
LSH T4,1
ADDI T4,PLTMX0
MOVE Z,PLOTNX
MOVEM Z,@T4
ADDI T4,1
MOVE Z,PLOTNY
MOVEM Z,@T4
JRST QWS0
qpl1G: JSGT
CAILE T4,7
JRST QWS0
LSH T4,1
ADDI T4,PLTMX0
SETZB T5,TEM2
MOVE Z,PLOTNX
SUB Z,@T4
MOVEM Z,PLOTX
JUMPGE Z,qpl1G1
MOVEI T5,2
JCIA
qpl1G1: MOVEM Z,TEM5
MOVEM T5,ARG1
SETZM TEM2
ADDI T4,1
MOVE Z,PLOTNY
SUB Z,@T4
JUMPGE Z,qpl1G2
JCIA
JJOSGN
qpl1G2: MOVE T4,Z
JRST QWS1G
qpl1Q: PUSHJ P,qplROT
JRST QWS0
qpl1R: JRST qplFUT
qpl1S: MOVE T4,TEM5
MOVEM T4,PLTSCX
JSGM
MOVEM T4,PLTSCY
JRST QWS0
qpl1W: MOVE T4,TEM5
MOVEM T4,PLTCWL
JSGM
MOVEM T4,PLTCWR
JRST QWS0
qpl1C: JFCL
JSAS
JRST QWS0
qplFUT: JSAS
JRST QWS0
SUBTTL[QWSABS]
QWSABS: MOVE T1,PLOTX
MOVN T2,PLOTNX
ADD T2,T1
MOVEM T1,PLOTNX
JCLA
SKIPL T2
MOVEI Z,2
MOVEM Z,ARG1
SKIPGE T2
MOVNS T2
MOVEM T2,TEM5
MOVE T1,PLOTY
MOVN T2,PLOTNY
ADD T2,T1
MOVEM T1,PLOTNY
JCLA
SKIPL T2
MOVEI Z,1
ADDM Z,ARG1
SKIPGE T2
MOVNS T2
MOVEM T2,TEM6
JRST QWSP1
SUBTTL[QWSSCX]
QWSSCX: IMUL Z,PLTSCX
IDIVI Z,144
MOVE T1,Z
SKIPGE Z
MOVNS T1
MOVEM T1,TEM5
JPOPJ
SUBTTL[QWSSCY]
QWSSCY: IMUL Z,PLTSCY
IDIVI Z,144
MOVE T1,Z
SKIPGE Z
MOVNS T1
MOVEM T1,TEM6
JPOPJ
SUBTTL[/plSUB]
qplROT: JSGT
JJESGN
ADDI T4,4
CAILE T4,7
JPOPJ
LSH T4,1
ADDI T4,PLTQA0
MOVEM T4,PLTQAD
JPOPJ
JSGM: JSBD
JRST GE1B
JSGT
GE2B: JJESGN
JCIA
JPOPJ
GE1B: JSXX
JRST GE2B
JSBD: HLRO T1,RIXBIX
ADDI T1,10
JUMPE T1,CPOPJ
JPOP1
;;
;
>
SUBTTL[$/dol]
Qdol:
Q$M: JTMP1O
Q$M1: JSGSIX
JSTAB
TABSNO-1
SNOTAB-1
JRQ
HRRZ PAL21,@T6
HLRZ T6,@T6
MOVE T1,PAL21
JCLA
JRST @T6
dolQF: JSER
MOVEI T5,TABSNO
JRTABN
;
dolCWC: setzm CWCDOL
jsr9
movem z,CWCDOL
jrq
;
;;
;
SUBTTL[162/ps]
Qps: JSGE
JSNQ
CAILE T4,10
JSER
JSR1
JRAD
MOVEM Z,ADS32
JSAS
ADD T4,PAN
JUMPL T4,JRAB
JJESGN
JRST qps1
JSAT
PUSHJ P,PADPAD
JRQ
qps1: PUSHJ P,PADPAD
JRAD
PADPAD: SOJL T4,JPOPZ
MOVE Z,ADS32
JSW
JRST PADPAD
;;
;
SUBTTL[107/pt]
Qpt: JJZSGN
Qptmt: JSCF
HRRZ Z,@PFF
MOVEM Z,TEM2
MOVEI PAN2,CMASK
JJESGN
ADDI PAN2,qpcLIM
JRST qpt11
qptF1: JJNPNF
JRST qpt2
qpt1: JSAS
qpt11: JSAE
JRST qpt4
AOS PAN2
CAIL PAN2,QMCLIM+400
JRNAV
MOVE PAL2,PAL21
JTMP2Z
JRST qpt2
qpt2: JSSBA;JSSB
JRST qpt1
MOVE Z,PAN2
JSW2C
SOJE BASE,qptF1
qpt3: SOS @PFF
MOVEI Z,CMASK
JSW2C
SOJE BASE,qptF1
JRST qpt3
qpt4: HRRZ Z,@PFF
CAMN Z,TEM2
JRQ
MOVE PAL2,CHAR1
MOVE T1,PAL2
qpt41: JSR2
JRST qpt42
JRST qpt43
qpt411: JSW2C
JRST qpt41
qpt42: LSH T1,-2
AOS T1
MOVEM T1,PFN
MOVE PAL21,CHAR2
LSH PAL21,-2
JSDD
JRQ
qpt43: JUMPE Z,qpt41
ADDI Z,CMASK
JRST qpt411
;;
;
SUBTTL[238/qfn]
Qqfn: JTMP1O
Qqf: JSER
MOVEI T7,FNL
SETOI T3,
qqfn1: ADDI T3,1
CAILE T3,32*32
jrst treqf
MOVE T5,T3
IDIVI T5,4
ADD T5,T7
LDB T5,ZT50(T6)
JUMPE T5,qqfn1
JSAT
MOVE Z,T3
IDIVI Z,32
ADDI Z,101
JSW
MOVE Z,T1
ADDI Z,101
JSW
JTMP1N
JRST qqfn1
JSAT
ADDI T5,DITBL
HRRZ Z,@T5
MOVNM Z,TEM3
JSGV
JSW
JRST qqfn1
treqf: movei t5,tabtre
jrtabn
SUBTTL[qfa]
Qqfa: JSER
JSPL
MOVEM PAL,ARG1
JSAS
JSBDN
MOVE T1,kdevlf;SET UP AS FOR LF
MOVE Z,KSTATR
JSOPEN
JSFBL
JFCL
MOVE PAL,ARG1
MOVNI Z,10
MOVEM Z,BASE
QQFA1: JSR9
JSAN
JRST QQFA1
JST2
PAL2
MOVE Z,C
ANDI Z,7
LDB T2,QDATE3
LSH T2,^D12
LDB T1,QQFAU1(Z)
CAIN Z,4
JRST QQFA2
CAIN Z,5
ADD T1,T2
QQFA11: JSXR
JRST QQFA1
QQFA2: CAIGE T1,BKTIME
JRST QQFA11
SUBI T1,BKTIME
IMULI T1,^D3
JRST QQFA11
QQFAU1: POINT 6,E1,^D23
QDATE1: POINT 15,E1,^D35
QPROT2: POINT 9,E2,^D8;PROTECTION
POINT 4,E2,^D12
qtiME2: POINT 11,E2,^D23
QDATE2: POINT 12,E2,^D35
POINT 18,E3,^D17
POINT 18,E3,^D35
QDATE3: POINT 3,E1,^D20;DATE 75
;;
;
SUBTTL[219/qfe]
Qqfe: hllz t1,DFILEX
camn t1,[sixbit /(NULL)/]
jrq
jrsix
;
;;
;
SUBTTL[197/qld]
Qqld: PUSHJ P,Qqlcom
Qcl1: ADD Z,T3
JRV
;
Qcld: PUSHJ P,Qqlcom
MOVE Z,T2
JRST Qcl1
;
Qqlcom: JSER
JSCF
SETZB T2,T3
Qql1: JSL2
JPOPJ
AOS T2
JSD3
JRST Qql1
;;
;
SUBTTL[192/qll]
Qqll: MOVE Z,CLINEL
JJEPNF
SUB Z,CLINE
JRVI
SUBTTL[239/qn]
Qqn: JSER
MOVE T1,.JBVER
JJEPNF
JRXR
HRLI T1,VERLOW
HRRI T1,VERSION
JRXR
;;
;
SUBTTL[134/qnb]
Qqnb: HLRO Z,RIXBIX
JRV
SUBTTL[202/qof]
Qqof: HLRZ Z,qqofQ
JUMPE Z,FR
JSW
HRLM Z,qqofQ
HRRZ Z,qqofQ
JUMPE Z,FR
JSW
SETZM qqofQ
JRQ
SUBTTL[167/qp]
Qqp: JSCF
qqp1: JSR2
JRAC
JXSKIP
JRST qqp1
TRZ Z,CMASK
JRVI
;;
;
SUBTTL[$/qb]
Qqqb: MOVEI T7,FNL
JSPK
JRAY
JSDTST
JRAZ
JRAD
;;
;
SUBTTL[198/qrd]
Qqrd: PUSHJ P,Qqrcom
Qcr1: ADD Z,T3
JRV
;
Qcrd: PUSHJ P,Qqrcom
MOVE Z,T2
JRST Qcr1
;
Qqrcom: JSER
JSCF
SETZB T2,T3
Qqr1: JSR2
JPOPJ
AOS T2
JSD3
JRST Qqr1
;
;
;;
;
SUBTTL[204/qro]
Qqro: MOVE Z,RUBOUT
JSW
HLRZ Z,RUBOUC
JSW
HRRZ Z,RUBOUC
JSW
JRQ
SUBTTL[qrt]
Qqrt: JSER
MOVE T1,RUNTIM
CALLI Z,27
MOVEM Z,RUNTIM
SUB Z,T1
JRVI
SUBTTL[237/qt]
Qqt: JSER
JST2
EXP LNST
JRQ
;;
;
SUBTTL[205/qta]
Qqta: MOVE PAL21,FTOP
qqta1: JSFS
JRVI
ADDI Z,3
HRRZ T1,@PFN
ADD Z,T1
HRRZ T1,@PFF
ADD Z,T1
JRST qqta1
SUBTTL[251/qwc]
Qqwc: jser
movei t7,CWCTAB
Qqwc1: move z,@t7
jsw
cain t7,CWCEND
jrq
aos t7
jrst qqwc1
;
;
SUBTTL[201/qxb]
Qqxb: HRRO Z,RIXBIX
JRV
SUBTTL[215/ra]
Qra: JSGE
MOVEM PAL,PALPAL
jrst qra10
qra1: JSAS
qra10: JSAE
JRST qra2
SOJG T4,qra1
JRAD
qra2: JMRPAL
JRAC
;;
;
SUBTTL[263/rcp]
Qrcp: JSGE
MOVNM T4,TEM4
JSGE
MOVNM T4,TEM5
JSER
MOVNI T3,5*7
MOVEI T6,12
qrcpI0: MOVE T5,TEM5
SOJE T6,JRQ
qrcpI8: PUSHJ P,qrcpI1
AOJN T5,qrcpI8
ADDI T3,5
JRST qrcpI0
qrcpI1: MOVE PAL,PALPAL
qrcpI2: JSR1
JRST QPMNUL
MOVEI PAN2,100
MOVEM Z,C
CAIGE Z,40
ADDM PAN2,C
MOVNI T4,5
MOVE T7,CHPMPI(Z)
TRNE T7,1
JRST qrcpI5
LSH T7,43(T3)
qrcpI3: MOVEI PAN2,40
AOJG T4,qrcp31
JUMPGE T7,.+2
MOVE PAN2,C
PUSHJ P,qrcpI4
LSH T7,1
JRST qrcpI3
qrcp31: PUSHJ P,qrcpI4
PUSHJ P,qrcpI4
JRST qrcpI2
qrcpI4: MOVE BASE,TEM4
CAIGE PAN2,40
ADDI PAN2,100
qrcpI9: MOVE Z,PAN2
JSW
AOJL BASE,qrcpI9
JPOPJ
qrcpI5: LSH T7,-12+43(T3)
CAIL T6,10
SETZI T7,
JRST qrcpI3
QPMNU1: SOS PFL
QPMNUL: MOVE Z,@PFL
CAIN Z,40
JRST QPMNU1
MOVEI Z,12
JSW
JPOPJ
;;
;
SUBTTL[$/ref]
Qref: JSBDL
MOVE T1,kdevrb
MOVE Z,KSTATR
JSOPEN
LOOKUP CHAND,E
JRST qref1
IFN LEVELC,< MOVE PAN2,E2>
IFN LEVELD,< TLZ E2,777000
HLLZ PAN2,PNTPUN
IOR PAN2,E2
>
JSBDL
MOVE E2,PAN2
RENAME CHAND,E
JRST qref1
JFBCL
JRQ
qref1: JFBCL
JRAB
;;
;
SUBTTL[243/rf]
Qrf: JSNQ
JSER
JSBDN
MOVE T1,kdevrf
MOVE Z,KSTATR
JSOPEN
JSFBL
JXSKIP ; OK, NOT A SAM76 FILE
JRNAVL
JSBUF
JRQ
qrf1: JSBUG
JRQ
JSSEV
JRST qrf1
;;
;
SUBTTL[166/ri]
Qri: JSS
XLRXBX-1
RIXBIX-1
-7
MOVEI Z,"="
MOVEM Z,MCH
MOVEI Z,SUS
MOVEM Z,.JBREN
JRX
SUBTTL[252/rn]
Qrn: MOVE Z,[XWD 16,13];RANDOM?
CALLI Z,41
ADDM Z,RM
CALLI Z,23
ADDM Z,RM
MOVN Z,RM
ANDI Z,777777
MOVNM Z,PAN2
MOVE Z,Kqrn+1
PUSHJ P,qrn1
JSGE
MOVN Z,T4
PUSHJ P,qrn1
MOVE Z,PAN2
JRV
qrn1: MOVNM Z,TEM6
MOVE Z,PAN2
SKIPL Z
JCIA
qrn2: MOVEM Z,PAN2
ADD Z,TEM6
JUMPL Z,qrn2
JPOPJ
;;
;
SUBTTL[189/rot]
Qrot: PUSHJ P,qrotB
MOVN T5,PAN2
IMULI T5,3
SETM T1,T5
CAMGE T4,T5
JRST qrot3
IDIV T4,T5
SETM T4,T5
qrot3: JTMP1N
JRST qrot31
SUBM T1,T4
qrot31: JUMPE T4,JRAG
SETMI T7,4
qrot4: SETM PAL21,[IORM T7,1(PAL2)]
qrot41: SETZ T1,
qrot5: SETM PAL,PAL2
qrot6: AOS PAL
HRRZ Z,(PAL)
ANDI Z,7
TRZE T1,1
IORI Z,10
TRNE Z,1
IORI T1,1
LSH Z,-1
IORI Z,60
SETAM Z,(PAL)
CAME PAL,T2
JRST qrot6
TRZE T1,1
XCT PAL21
SOJN T4,qrot5
JRAG
;;
;
Qsh: MOVSI PAL21,(JFCL)
PUSHJ P,qrotB
JTMP1N
JRST qrot41
qshi4: SETM PAL,PAL2
qshi41: AOS PAL
SETM Z,(PAL)
LSH Z,1
ANDI Z,7
IORI Z,60
SETAM Z,(PAL)
CAMN PAL,T2
JRST qshi5
SETM T5,1(PAL)
LSH T5,-2
ANDI T5,1
ADD Z,T5
SETAM Z,(PAL)
JRST qshi41
qshi5: SOJN T4,qshi4
JRAG
;;
;
qrotB: JSGT
JJESGN
JTMP1A
JTMP1O
JSBT
JSD2
SETM PAL2,T2
SETM Z,(PAL2)
JSAN
JRQ
qrotB1: JSDN
JSDL
SETM Z,(PAL2)
JSAN
JXSKIP
JRST qrotB1
JUMPE T4,JRAG
JPOPJ
;;
;
SUBTTL[165/rr]
Qrr: MOVE Z,OR2
ADDI Z,4
MOVEM Z,PFL
MOVEM Z,PEL
JSAT
MOVE PAL,PAE
SUBI PAL,1
qrr1: MOVE Z,K600K
MOVEM Z,@PAL
JRQ
;;
;
SUBTTL[163/rs]
Qrs: JSER
JSNQ
JSAS
qrs1: SOS PAL
MOVE Z,@PAL
JUMPL Z,JRQ
JSW
JRST qrs1
;;
;
SUBTTL[$/rt]
Qrdl: JSGT
JUMPE Z,JRAD
MOVEM Z,T2
MOVE T3,PFL
JXSKIP
qrt1: JSD3
CAMN T3,OR2
JRST qrr
MOVE Z,@T3
AND Z,K700K
CAMN Z,K700K
JRST qrt2
CAME Z,K400K
JRST qrt1
qrt2: AOJN T2,qrt1
JSD3
MOVEM T3,PFL
MOVEM T3,PEL
JSAT
qrt3: JSAE
JRST qrt4
AOS PAL
JRST qrt3
qrt4: JSD2
qrt5: AOS PAL
MOVE Z,@PAL
CAMN Z,CPRP
JRST qrt6
CAMN Z,CWCSP
JRST qrt4
JRST qrt5
qrt6: AOJN T2,qrt5
SOJN T4,qrt4
JRST qrr1
;;
;
SUBTTL[158/sar]
Qsar: JJNPNF
JRETUA;[ ]#(MO,MD,CR) EMITTED ON LF
JRETUO;[ ]##(MO,MD,CR) NO CR EMITTED
JRQ
SUBTTL[705/sd]
Qsd: JSPKA
JSD
EXP qsdL-1
qsdt: JBUPRZ
JSDT
JRQ
SUBTTL[/sdDI]
qsdDI: JTMP3A
qsdDO: JTMP3O
JSPKB
qsdDIO: MOVE PAL2,CHANAS(PAN2)
JUMPE PAL2,JRQ
ADDI PAN2,CHANAS
AOS PAN2
TLNE PAL2,1
JRST qsdDO1
JTMP3E
JRNAV
JBURSO
HRRM PAL2,sybuis
HRLM PAN2,sybuis
JRQ
qsdDO1: JTMP3N
JRNAV
JBUPSO
HRRM PAL2,sybuos
HRLM PAN2,sybuos
JRQ
sicfil: movei z,6
jtmp3Z
jrst siofil
;
socfil: movei z,7
jtmp3O
siofil: pushj p,JSPKB1
jrst qsddio
;
;;
;
SUBTTL[/sdQF]
qsdQF: MOVEI Z,qsdL-1
JRST MOLF2
SUBTTL[199/sem]
Qsem: JJEPNF
JTCPNF
SKIPA T3,[XWD 10000,200]
Qsuc: HRLZI T3,20
MOVE T2,LNBTS
JJNPNF
TDZA T2,T3
TDO T2,T3
MOVEM T2,LNBTS
JSDT
JRQ
;;
;
SUBTTL[222/sf]
Quf: JTMP1O
Qsf:
qsfDI: JSBDL
IFN LEVELD,<MOVE E3,DIWRIT>
SKIPE TTOBUF+40
JRST qsfTST
qsfDI2: MOVE T1,kdevsf
MOVE Z,KSTATW
JSOPEN
JTMP1N
LOOKUP CHAND,E
JXSKIP
JRNAEF
qsfDI3: JSAE
JRST qsfDIA
PUSH P,E
PUSH P,E1
PUSH P,E2
PUSH P,E3
PUSHJ P,qsfB
POP P,E3
POP P,E2
POP P,E1
POP P,E
JRST qsfDIB
qsfDIA: MOVE T1,FTOP
qsfDIB: MOVE BASE,FLOW
PUSH P,T1
JSBTIM
IFN LEVELC,<JSBDE>
IFN LEVELD,<JSBDF>
POP P,FLOW
JRQ
;;
;
qsfB: SOS PAL
MOVE T1,FLOW
qsfB1: JSAS
JSAE
JPOPJ
JSF
JRST qsfB1
qsfB2: MOVE Z,PAL21
MOVEM T1,TEM1
SUB Z,PFN
AOS Z
SUB T1,Z
ADD Z,FLOW
CAML Z,END
JRST qsfB3
MOVE T2,FLOW
AOS T2
HRL T2,PFN
MOVEM Z,FLOW
HRLI Z,(BLT T2,)
XCT Z
JSDD
JRST qsfB1
qsfB3: JSOPF
MOVE T1,TEM1
JRST qsfB2
qsfTST: CAME E,TTOBUF+40
JRST qsfDI2
CAME E1,TTOBUF+41
JRST qsfDI2
JRNAV
;;
;
SUBTTL[157$/sfd]
qsfd: JSPKA
JSD
qsfdL-1
qsfdES: JSR9
MOVEM Z,CESCAP
JRQ
SUBTTL[$/sfdEX]
qsfdEX: MOVE Z,XTYCON
JJNPNF
TLO Z,000640;TTCALL Z,15
MOVEM Z,TTYCON
JRQ
qsfdFF: JRNAV
qsfdHL: JRNAV
qsfdHT: JRNAV
qsfdQF: MOVEI Z,qsfdL-1
JRST MOLF2
SUBTTL[QsfdIN]
QsfdIN: jjepnf
JZAINT;&mo,in/ ;on
JJOINT;%mo,in/ ;off
JRQ
;;
;
SUBTTL[/sfdTV]
qsfdTV:
IFE MON506,<
JRNAV>
IFN MON506,<
JJNPNF
AOS Z;%mo,md,tv,lines,width/
CALLI T1,30
JSTNO
MOVEI T2,2021;.TOPAG
JSTOP
JSGT
JCIA
JUMPE Z,qsfdT1
MOVEI T2,2023;.TOPSZ
JSTOP
qsfdT1: JSNQ
JSGT
JCIA
CAIGE Z,20
JRQ
MOVEI T2,2012;.TOWID
JSTOP
JRQ
JSTOP: MOVEM Z,INDEX+2
MOVEM T2,INDEX
MOVE T1,[XWD 3,INDEX]
CALLI T1,116
JRST ERR116
JPOPZ
>
qsfdVT: JRNAV
;;
;
SUBTTL[221/sfe]
Qsfe: SETZB E1,DFILEX
IFN BLOCKS,<SETZM DFIL0>
JSNQ
MOVEI E,1
PUSHJ P,JSBDN2
MOVEM E1,DFILEX
JRQ
;;
;
SUBTTL[245/sic]
Qsic: JSGSIX
JSTAB
TABSIC-1
SICTAB-1
JRST qsdt
JRST @T1
siccom: JRNAV
siccon: JBURSZ
JRQ
SUBTTL[246/soc]
Qsoc: JSGSIX
JSTAB
TABSOC-1
SOCTAB-1
JRST qsdt
JRST @T1
soccom: JRNAV
soccon: JBUPSZ
JRQ
socdot: HRLM Z,LNMOXR
JSR9
HRLM Z,LNMOXR
JRQ
;;
;
SUBTTL[127/tb]
Qtb: JSF
JSAS
JRAZ
;;
;
SUBTTL[257/ti]
Qti: JSER
JSAS
JSAE
JRST qti3
JSXX
ANDI Z,3777
MOVE T4,Z
JRST qti4
qti3: CALLI T4,23
IDIVI T4,^D1000*^D60
qti4: IDIVI T4,^D60
MOVNM T4,TEM3
JSGV
JSW
JMRPAL
JSAT
SUBI T5,12
JUMPGE T5,qti1
MOVEI Z,60
JSW
qti1: ADDI T5,12
MOVNM T5,Z
JRV
;;
;
SUBTTL[125/tm]
Qtm: jjepnf
jrst QTF
JSGT
JOATCE
QTF: JJZTCE
MOVEM Z,TCECNT
JRQ
;;
;
QTCE: JJETTN
JRST TE1A
MOVE T5,T3
MOVE T6,PEL
JRST TE1B
TE1A: MOVE T5,PAE
MOVE T6,OR2
TE1B: JSPR
TE1D: CAMN T6,T5
JRST TE1E
AOS T6
MOVE Z,@T6
JUMPL Z,TE2A
TE1D1: TRZ Z,1000
JSTL
JRST TE1D
TE1E: SKIPE TCECNT
JRST QTCE4
JBURSE
JRST QTCE3
JSTI
CAIN Z,12
JRST FNP1
JJZTCE
CAIE Z,7
JRST Qri
JRST FNP1
TE2A: ROT Z,3
ANDI Z,3
JUMPE Z,TE274
SOJE Z,TE336
SOJE Z,TE276
MOVNI Z,2
TE336: ADDI Z,40
TE276: ADDI Z,2
TE274: ADDI Z,74
JRST TE1D1
QTCE3: SKIPN TCECNT
JRST QTCE5
QTCE4: AOSN TCECNT
JRST QTCE5
JSPR
JRST FNP1
QTCE5: JJZTCE
SETZM TCECNT
JRX
;;
;
SUBTTL[124/tma]
Qtma: JJNPNF
MOVEI Z,1
JJOTTN
JRKWIT
SUBTTL[168/tr]
Qtr: JSCF
HRR Z,@PFF
MOVEM Z,TEM2
qtr1: JSR1
JRST qpt4
MOVEM Z,T6
MOVE PAL2,PAL21
qtr12: JSR2
JRST qtr1
JFCL
CAME Z,T6
JRST qtr12
qtr13: MOVE T1,PAL2
JSR2
JRST qtr1
JFCL
CAME Z,T6
JRST qtr12
MOVEI Z,CMASK
JSW2C
SOS @PFF
JRST qtr13
;;
;
SUBTTL[169/ut]
Qut: jjepnf
jrst qutn
qutT: JSAE
JRST qutT1
JSR1
JRST qutT2
HRLM Z,KKYN
JSR1
qutT3: MOVEI Z,51
HRRM Z,KKYN
qutT1: MOVEI Z,1
SKIPA T2,[STJRCE]
qutN: MOVEI T2,STJRQ
MOVEM T2,.JBREN
JJOSCE
JRKWIT
qutT2: MOVEI Z,51
HRLM Z,KKYN
JRST qutT3
;;
;
SUBTTL[118/vt]
qvt1: JSAS
Qvt: JSNQ
JSF
JRST qvt1
JSPR
HRRE T3,@PFI
qvt2: JSR2
JRST qvt1
JRST qvt3
qvt21: JSTL
SOJN T3,qvt2
MOVEI Z,133
JSTL
MOVEI Z,136
JRST qvt4
qvt3: MOVE T5,Z
MOVEI Z,133
JSTL
TRZ T5,CMASK
CAIG T5,qpcLIM
JRST qvt31
MOVEI Z,43
JSTL
SUBI T5,qpcLIM
qvt31: MOVNM T5,TEM3
JSGV
qvt4: JSTL
MOVEI Z,135
JRST qvt21
;;
;
SUBTTL[244/wf]
Qwf: JSNQ
JSBDN
IFN LEVELD,<MOVE E3,DIWRIT>
MOVE T1,kdevwf
MOVE Z,KSTATW
JSOPEN
JJEPNF
JRST qwfB
LOOKUP CHAND,E
JXSKIP
JRNAEF
qwfB: MOVE T1,PFL
MOVE BASE,T1
HRLZI T2,10700
HRR T2,T1
qwfB1: PUSHJ P,qwfNXT
qwfB2: JSR1
JRST qwfB3
CAMN Z,CSEQNO
JRST qwfB4
CAIN Z,CCNULIN
JRST qwfB7
qwfB21: IDPB Z,T2
SOJN T3,qwfB2
JRST qwfB1
qwfB3: HRR BASE,T2
IFN LEVELC,<SETZI E2,
JSBDE>
IFN LEVELD,<HLLZ E2,PNTPUN
JSBDF>
JRQ
qwfB4: JCLA
CAIN T3,5
JRST qwfB6
qwfB5: IDPB Z,T2
SOJN T3,qwfB5
PUSHJ P,qwfNXT
qwfB6: TRO Z,1
MOVEM Z,@BASE
JRST qwfB2
qwfB7: MOVEI Z,CCRETUR
IDPB Z,T2
SOSN T3
PUSHJ P,qwfNXT
qwfB71: MOVEI Z,CCNULIN
JRST qwfB21
qwfNXT: MOVEI T3,5
AOS BASE
SETZM @BASE
JPOPJ
;;
;
SUBTTL[170/xc]
Qxc: JSNQ
JSXX
ANDI Z,377
JSW
JRST Qxc
;;
;
SUBTTL[172/xd]
Qxd: JSXX
JJESGN
JSWSGN
JRVI
;;
;
SUBTTL[123/xj]
Qxj: JSXX
JRST @Z
SUBTTL[156/xal]
Qxal: JTMP1O
Qxrl: JSER
JSGSIX
JSTAB
LABTAB-1
qxqTAB-1
JRNAV
JTMP1E
JRXR
MOVEM T1,T7
JRST qxr2
Qxll: jser
movei t5,LABTAB
jrtabn
;
SUBTTL[119/xr]
Qxr: JSER
JSXX
CAIG Z,10
JRST qxr1
MOVEM Z,T7
qxr2: JSAE
JRST qxr3
JSXX
JJESGN
JCIA
qxr21: ADD T7,Z
qxr3: MOVE T1,@T7
JRXR
qxr1: CAIE Z,5
JRQ
HLLZ T1,DFILEX
LSH T1,6
JRSIX
;;
;
SUBTTL[120/xw]
Qxw: JSXX
CAIG Z,10
JRST qxw1
MOVEM Z,ARG3
JSXX
MOVEM Z,@ARG3
JRQ
qxw1: CAIE Z,5
JRQ
JSXX
ANDI Z,77
LSHC Z,-3
ADDI Z,300
LSH Z,3
LSHC Z,3
ADDI Z,2020
HRLZM Z,DFILEX
JRQ
;;
;
SUBTTL[126/yt]
Qyt: JSF
JRST qyt1
JSCFA;JSCF
JUMPE PAN,JRAZ
JSSBA;JSSB
JRAY
JRAZ
qyt1: JSAS
JRAY
;;
;
SUBTTL[182/zd-ZI-ZS-ZQ]
Qzq: JTMP1O
QZI: SOS T4
Qzs: SOS T4
Qzd: JSAE
JRST qzd1
JSAS
MOVE PAL2,PAL
SOS PAL2
MOVE PAN2,@PAL2
JUMPL PAN2,qzd1
CAIGE PAN2,60
JRQ
CAIL PAN2,72
JRQ
ANDI PAN2,7
JUMPE T4,QZS1
qzd2: JTMP1E
JRST QZQ1
ADDM T4,ZCNTRS(PAN2)
SKIPN ZCNTRS(PAN2)
JRAZ
SKIPG ZCNTRS(PAN2)
JRAY
JRAD
qzd1: SETZI PAN2,
JUMPN T4,qzd2
QZS1: JSGT
JJESGN
JCIA
MOVEM Z,ZCNTRS(PAN2)
JRQ
QZQ1: JSER
MOVE Z,ZCNTRS(PAN2)
JUMPG Z,JRVSGN
JRV
;;
;
SUBTTL[FNL]
FNL:
BYTE (9)0,DI159-DITBL,0,DI128-DITBL
BYTE (9)0,0,0,0
BYTE (9)DI160-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI161-DITBL,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI220-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)DI113-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)DI700-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI132-DITBL
BYTE (9)0,0,0,DI171-DITBL
BYTE (9)0,0,DI259-DITBL,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI131-DITBL,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI208-DITBL,DI808-DITBL
BYTE (9)DI164-DITBL,DI103-DITBL,0,0
BYTE (9)0,DI173-DITBL,0,0
BYTE (9)DI206-DITBL,0,0,DI207-DITBL
BYTE (9)0,DI224-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI151-DITBL
BYTE (9)0,DI809-DITBL,0,DI104-DITBL
BYTE (9)0,0,0,DI112-DITBL
BYTE (9)0,0,DI702-DITBL,DI226-DITBL
BYTE (9)DI137-DITBL,0,DI141-DITBL,DI142-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,DI143-DITBL,0,0
BYTE (9)0,DI145-DITBL,0,DI144-DITBL
BYTE (9)0,DI106-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,DI805-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)DI212-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI150-DITBL,0
BYTE (9)0,DI149-DITBL,0,0
BYTE (9)0,DI114-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI115-DITBL,DI116-DITBL
BYTE (9)0,0,DI136-DITBL,0
BYTE (9)DI135-DITBL,0,0,0
BYTE (9)DI117-DITBL,0,0,0
BYTE (9)0,DI806-DITBL,DI102-DITBL,DI152-DITBL
BYTE (9)0,0,DI213-DITBL,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI216-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI807-DITBL
BYTE (9)0,DI105-DITBL,0,0
BYTE (9)DI214-DITBL,0,0,0
BYTE (9)0,0,DI110-DITBL,DI146-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI109-DITBL
BYTE (9)DI130-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI111-DITBL,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI209-DITBL,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI814-DITBL
BYTE (9)0,DI186-DITBL,DI101-DITBL,DI154-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)DI108-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,DI174-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)DI162-DITBL,DI107-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,DI238-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,DI239-DITBL,0,DI167-DITBL
BYTE (9)0,0,0,DI237-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,DI215-DITBL,0
BYTE (9)0,0,0,DI243-DITBL
BYTE (9)0,0,DI166-DITBL,DI247-DITBL
BYTE (9)0,0,0,DI252-DITBL
BYTE (9)0,DI248-DITBL,0,DI165-DITBL
BYTE (9)DI163-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI705-DITBL
BYTE (9)0,DI222-DITBL,0,DI190-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)DI129-DITBL,0,DI231-DITBL,0
BYTE (9)DI232-DITBL,0,0,DI127-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,DI257-DITBL,0
BYTE (9)0,0,DI125-DITBL,0
BYTE (9)0,0,0,DI168-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,DI218-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI169-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,DI118-DITBL,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI181-DITBL,0
BYTE (9)0,DI244-DITBL,0,0
BYTE (9)DI175-DITBL,0,0,DI179-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,DI178-DITBL,DI180-DITBL,0
BYTE (9)0,0,0,DI176-DITBL
BYTE (9)DI177-DITBL,0,0,0
BYTE (9)DI170-DITBL,DI172-DITBL,0,0
BYTE (9)0,0,DI255-DITBL,DI123-DITBL
BYTE (9)0,0,0,0
BYTE (9)DI256-DITBL,0,DI800-DITBL,DI119-DITBL
BYTE (9)0,0,0,0
BYTE (9)DI120-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,DI126-DITBL
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,DI182-DITBL,0,0
BYTE (9)0,0,DI183-DITBL,0
BYTE (9)0,0,0,0
BYTE (9)0,0,DI184-DITBL,0
BYTE (9)DI185-DITBL,0,0,0
BYTE (9)0,0,0,0
BYTE (9)0,0,0,0;;
;
SUBTTL[DITBL]
DITBL:
DI000: XWD 0,QFTI
DI101: XWD QOS,145; Output String
DI102: XWD QIS,146; Input String
DI103: XWD QDT,147; Define Text (superseding)
DI104: XWD QET,150; Erase Text
DI105: XWD QLT,151; List Texts
DI106: XWD QFT,152; Fetch Text
DI107: XWD QPT,153; Partition Text all matches
DI108: XWD QPC,154; Partition Character
DI109: XWD QMT,155; Multi-part Text all matches
DI110: XWD QMC,156; Multi-partition Character
DI111: XWD QNI,157; Neutral Implied
DI112: XWD QEX,160; Exit
DI113: XWD QCA,161; Change Activator (current)
DI114: XWD QHT,162; Hide Text
DI115: XWD QIC,163; Input Character
DI116: XWD QID,164; Input "D" characters
DI117: XWD QIM,165; Input to Match
DI118: XWD QVT,166; View Texts
DI119: XWD QXR,167; eXamine Register
DI120: XWD QXW,170; eXperimental Write in reg.
DI123: XWD QXJ,173; eXperimental Jump
DI125: XWD QTM,175; Trace Mode activated
DI126: XWD QYT,176; Ys There
DI127: XWD QTB,177; Text Branch
DI128: XWD QAD,200; Add
DI129: XWD QSU,201; Subtract
DI130: XWD QMU,202; Multiply
DI131: XWD QDI,203; Divide
DI132: XWD QCT,204; Combine Texts (superseding)
DI135: XWD QII,207; If Identical
DI136: XWD QIG,210; If Greater
DI137: XWD QFC,211; Fetch Character
DI141: XWD QFE,215; Fetch Element
DI142: XWD QFF,216; Fetch Field
DI143: XWD QFL,217; Fetch Left match
DI144: XWD QFR,220; Fetch Right match
DI145: XWD QFP,221; Fetch Partition
DI146: XWD QMD,222; Move Divider to pos. "d"
DI149: XWD QHP,225; How many Partitions
DI150: XWD QHM,226; How many Matches
DI151: XWD QEP,227; Erase Partitions
DI152: XWD QIT,230; Input Text
DI154: XWD QOT,232; Output Texts
DI159: XWD QAB,237; Alphabetic Branch
DI160: XWD QAI,240; Alphabetic Insertion
DI161: XWD QAS,241; Alphabetic Sort
DI162: XWD QPS,242; Pad String
DI163: XWD QRS,243; Reverse String
DI164: XWD QDS,244; Duplicate String
DI165: XWD QRR,245; Return to Restart
DI166: XWD QRI,246; Restart Initialized
DI167: XWD QQP,247; Query Partition
DI168: XWD QTR,250; Trim
DI169: XWD QUT,251; User Trap active
DI170: XWD QXC,252; "X" to Character
DI171: XWD QCX,253; Character to "X"
DI172: XWD QXD,254; "X" to Decimal
DI173: XWD QDX,255; Decimal to "X"
DI174: XWD QPL,256; Plot
DI175: XWD QWI,257; Write Initialize
DI176: XWD QWX,260; Write "X" displacement
DI177: XWD QWY,261; Write "Y" displacement
DI178: XWD QWR,262; Width Right
DI179: XWD QWL,263; Width Left
DI180: XWD QWS,264; Write Straight Lines
DI181: XWD QWC,265; Write Characters
DI182: XWD QZD,266; "Z" reg. Decrement and branch
DI183: XWD QZI,267; "Z" reg. Increment and branch
DI184: XWD QZQ,270; "Z" reg. Query
DI185: XWD QZS,271; "Z" reg. Set
DI186: XWD QOR,272; Or the bits
DI190: XWD QSH,276; Shift the bits
DI206: XWD QEA,316; Erase All excepting
DI207: XWD QED,317; Extract "D" characters
DI208: XWD QDQ,320; Define Quote
DI209: XWD QNU,321; Null
DI212: XWD QHC,324; How many Characters
DI213: XWD QIW,325; Input Wait
DI214: XWD QLW,326; List Where
DI215: XWD QRA,327; Return Argument
DI216: XWD QLF,330; List Files
DI218: XWD QUF,332; Update File
DI220: XWD QBF,334; Bring File
DI222: XWD QSF,336; Store File
DI224: XWD QEF,340; Erase Files
DI226: XWD QFB,342; File Branch
DI231: XWD QSW,347; Switches
DI232: XWD QSY,350; System functions
DI237: XWD QQT,355; whQ is processor Title
DI238: XWD QQF,356; whQ are Functions
DI239: XWD QQN,357; whQ is processor ser. Number
DI243: XWD QRF,363; Read File
DI244: XWD QWF,364; Write File
DI247: XWD QRJ,367; Return Justified lines
DI248: XWD QRP,370; Return Padded lines
DI252: XWD QRN,374; Random Number
DI255: XWD QXI,377; eXperimental Input
DI256: XWD QXO,400; eXperimental Output
DI257: XWD QTI,401; Time
DI259: XWD QDA,403; Date
DI700: XWD QCI,1274; System CI UUO
DI702: XWD QFA,1276; Fetch Alter
DI705: XWD QSD,1301; Select Device
DI800: XWD QXQ,1440; eXperimental label Query
DI805: XWD QGR,1445; Get Relationship
DI806: XWD QIR,1446; Intersect Relationships
DI807: XWD QLR,1447; List Relationship
DI808: XWD QDR,1450; Define Relationship
DI809: XWD QER,1451; Express Relationship
DI813: XWD QOP,1455; Output Paddded lines
DI814: XWD QOP,1456; Output Paddded lines;;
;
SUBTTL[NAVFNL]
IFE FLOATP,<
QFP: JRNAV
>
SUBTTL[TABFPR]
IFN FLOATP,<
TABFPR:
EXP SIXBIT /CWC /; [ ] Change Warning Char.
EXP SIXBIT /SIND /; [ ] DEGREES - REAL
EXP SIXBIT /COSD /; [ ] DEGREES - REAL
EXP SIXBIT /SIN /; [ ] RADIANS - REAL
EXP SIXBIT /COS /; [ ] RADIANS - REAL
EXP SIXBIT /SQRT /; [ ] REAL
EXP SIXBIT /ALOG10/; [ ] LOG BASE 10 - REAL
EXP SIXBIT /ALOG /; [ ] NATURAL LOG - REAL
EXP SIXBIT /FPMACH/; [ ] REAL TO OCTAL
EXP SIXBIT /MACHFP/; [ ] OCTAL TO REAL
EXP SIXBIT /QF /; [ ] LIST FUNCTIONS
EXP SIXBIT /SINH /; [ ] RADIANS - REAL
EXP SIXBIT /COSH /; [ ] RADIANS - REAL
EXP SIXBIT /TANH /; [ ] RADIANS - REAL
EXP SIXBIT /EXP /; [ ] E TO THE X - REAL
EXP SIXBIT /ARSIN /; [ ] REAL - RADIANS
EXP SIXBIT /ARCOS /; [ ] REAL - RADIANS
EXP SIXBIT /ARTAN /; [ ] REAL - RADIANS
EXP SIXBIT /DR /; [ ] REAL - DEGREES TO RADIANS
EXP SIXBIT /RD /; [ ] REAL - RADIANS TO DEGREES
EXP SIXBIT /FORMAT/; [ ]
EXP SIXBIT /ARSIND/; [ ] REAL - DEGREES
EXP SIXBIT /ARCOSD/; [ ] REAL - DEGREES
EXP SIXBIT /ARTAND/; [ ] REAL - DEGREES
EXP SIXBIT /TAN /; [ ] RADIANS - REAL
EXP SIXBIT /TAND /; [ ] DEGREES - REAL
EXP SIXBIT /PI /; [ ] PI - REAL
EXP SIXBIT /AD /; [ ] ADD - REAL
EXP SIXBIT /SU /; [ ] SUBTRACT - REAL
EXP SIXBIT /ML /; [ ] MULTIPLY - REAL
EXP SIXBIT /DV /; [ ] DIVIDE - REAL
EXP SIXBIT /GR /; [ ] GREATER THAN - REAL
EXP SIXBIT /LT /; [ ] EQUAL OR LESS THAN - REAL
EXP SIXBIT /IABS /; [ ] INTEGER ABSOLUTE
EXP SIXBIT /ABS /; [ ] REAL ABSOLUTE
EXP SIXBIT /AINT /; [ ] TRUNCATE FRACTION - REAL
EXP SIXBIT /IFIX /; [ ] REAL TO INTEGER
EXP SIXBIT /INT /; [ ] DITTO
EXP SIXBIT /FLOAT /; [ ] INTEGER TO REAL
EXP SIXBIT /CABS /; [ ] COMPLEX ABSOLUTE - REAL
EXP SIXBIT /REAL /; [ ] REAL PORTION OF COMPLEX
EXP SIXBIT /CONJG /; [ ] COMPLEX CONJUGATE - REAL
EXP SIXBIT /DIM /; [ ] DIMENSION - REAL
EXP SIXBIT /IDIM /; [ ] DIMENSION - INTEGER
EXP SIXBIT /SIGN /; [ ] REAL
EXP SIXBIT /ISIGN /; [ ] INTEGER
EXP SIXBIT /MOD /; [ ] INTEGER
EXP SIXBIT /AMOD /; [ ] REAL
EXP SIXBIT /ATAN2 /; [ ] ARC TAN OF TWO ARGUMENTS - REAL
EXP SIXBIT /AMAX /; [ ] MAX ARGUMENT IN EXPRESSION - REAL
EXP SIXBIT /MAX /; [ ] MAX ARGUMENT IN EXPRESSION - INTEGER
EXP SIXBIT /AMIN /; [ ] MIN ARGUMENT IN EXPRESSION - REAL
EXP SIXBIT /MIN /; [ ] MIN ARGUMENT IN EXPRESSION - INTEGER
Z
>
;;
;
SUBTTL[TABMOD]
TABMOD:
EXP SIXBIT /TTY33 /; [ ] MODEL 33 TELETYPEWRITER
EXP SIXBIT /TTY35 /; [ ] MODEL 35
EXP SIXBIT /TTY37E/; [ ] 8 BIT MODEL 37
EXP SIXBIT /TTY37 /; [ ] MODEL 37
EXP SIXBIT /INF1 /; [ ] INFOTON
EXP SIXBIT /QF /; [ ] LIST FUNCTIONAL DEVICES
Z
MODTAB:
XWD 0,MOSD1
XWD 0,MOSD1
XWD 0,MOD37E
XWD 0,MOD37
XWD 0,MOSD1
XWD 0,MOSDQF
Z
SUBTTL[LABTAB]
;
LABTAB:
EXP SIXBIT /INDEX /
EXP SIXBIT /LOW /
EXP SIXBIT /TOP /
EXP SIXBIT /KWITCH/
EXP SIXBIT /DSK1 /
EXP SIXBIT /END /
EXP SIXBIT /CHANAS/
EXP SIXBIT /BUFTOP/
EXP SIXBIT /DELETE/
EXP SIXBIT /ERBIT /
EXP SIXBIT /TTSTAT/
EXP SIXBIT /TTBITS/
EXP SIXBIT /TTYPVT/
EXP SIXBIT /TTYCON/
Z
SUBTTL[QCIL]
QCIL:
XWD qciQF,2106; [ ] QUERY FUNCTIONS AVAIL. %ci,.../
XWD qciGT,0724; [ ] GETTAB
XWD FR,0
QCIGTL:
XWD cigtQF,2106; [ ] QUERY FUNCTIONS AVAIL. GETTAB
XWD FR,0
;;
;
SUBTTL[QSDL]
QSDL:
XWD qsdDI,0411; [737] INPUT FILE SPECIFIED
XWD qsdDO,0417; [738] OUTPUT DISK FILE SPECIFIED
XWD qsdQF,2106; [,QF] QUERY FUNCTIONS AVAIL. %sd,.../
XWD qsdT,2400; [ ,T] S/D TERMINAL
XWD FR,0
;;
;
SUBTTL[QSYL]
QSYL:
XWD qsyAD,0104; [,AD] REASSIGN DEVICE
XWD qsyAF,0106; [745] ALL FILE FUNCTION DEVICE SELECTION
XWD qsyAO,0117; [,AO] ASCII TO 5 PER WORD OCTAL
XWD qsyBF,0206; [747] BF DEVICE SELECTION
XWD qsyDI,0411; [734] SELECT DISK INPUT FILE
XWD qsyDO,0417; [735] DEFINE DISK OUTPUT FILE
XWD qsyDR,0422; [731] READ FROM DIRECTORY
XWD qsyDW,0427; [732] WRITE IN DIRECTORY
XWD qsyED,0504; [733] IS FILE AT END OF DATA <T/F>
XWD qsyEF,0506; [746] EF DEVICE SELECTION
XWD qsyEX,0530; [,HL] EX DEVICE SELECTION
XWD qsyLD,1404; [,LD] LIST SYS. DEVICES
XWD qsyLF,1406; [748] LF DEVICE SELECTION
XWD qsyLS,1423; [758] LIST SYS. STRUCTURES
XWD qsyLU,1425; [757] LIST SYS. UNITS
XWD qsyMP,1520; [752] MODIFY PROT. FOR SB &C.
XWD qsyMT,1524; [,MT] MAGTAPE STUFF
XWD qsyOA,1701; [,OA] OCTAL 7 BIT PACK TO ASCII
XWD qsyOS,1723; [,OS] OCTAL TO SIXBIT CONV.
XWD qsyPA,2001; [,PA] PUNCH SPOOL ASCII
XWD qsyPB,2002; [,PB] PUNCH SPOOL BINARY
XWD qsyPC,2003; [,PC] PUNCH SPOOL COMBINED IMAGE BINARY
XWD qsyPF,2006; [,PF] PRINT FORTRAN THROUGH SPOOL
XWD qsyPI,2011; [,PI] PUNCH SPOOL IMAGE
XWD qsyPL,2014; [,PL] PLOTTER CONTROL
XWD qsyPP,2020; [,PP] PRINT-PUNCH PROTECTION SETTING
XWD qsyPQ,2021; [,PQ] PRINT-PUNCH QUANTITY DESIRED
XWD qsyPR,2022; [717] PRINT FILE VIA .R PRINT
XWD qsyPS,2023; [740] PRINT U/L CASE VIA S360
XWD qsyQB,2102; [753] QUERY ERROR BITS
XWD qsyQD,2104; [,QD] QUERY DEVICE CHARACTERISTICS
XWD qsyQF,2106; [759] QUERY FUNCTIONS AVAIL. %sy,.../
XWD qsyQP,2120; [754] QUERY STORAGE PROTECTION SETTING
XWD qsyQR,2122; [755] QUERY DIRECTORY FROM WHICH READ
XWD qsyQW,2127; [756] QUERY DIRECTORY IN WHICH WRITE
XWD qsyRB,2202; [,RB] RB DEVICE SELECTION
XWD qsyRD,2204; [,RD] RELEASE DEVICE
XWD qsyRF,2206; [750] RF DEVICE SELECTION
XWD qsySD,2304; [,SD] SELECT DEVICE FOR OD/ID SYS.
XWD qsySF,2306; [749] SF DEVICE SELECTION
XWD qsySN,2316; [736] SET CHARACTER TO MARK S/N
XWD qsySO,2317; [,SO] SIXBIT TO OCTAL CONV.
XWD qsyTC,2403; [,TC] TEMPCORE
XWD qsyWF,2706; [751] WF DEVICE SELECTION
XWD FR,0
;
SYTCL:
XWD sytcCD,0304 ;[ ] READ AND CLEAR DIRECTORY {CODE 5}
XWD sytcDF,0406 ;[ ] READ AND DELETE FILE {CODE 2}
XWD sytcFS,0623 ;[ ] FREE SPACE {CODE 0}
XWD sytcQF,2106 ;[ ] QUERY AVAIL. %sy,tc,.../
XWD sytcRD,2204 ;[ ] READ DIRECTORY {CODE 4}
XWD sytcRF,2206 ;[ ] READ FILE {CODE 1}
XWD sytcWF,2706 ;[ ] WRITE FILE {CODE 3}
XWD FR,0
;;
;
KSTATR:XWD 46,100000; OK TO READ FILE STATUS
KSTATW:XWD 45,100000; OK TO WRITE FILE STATUS MODE 17
SUBTTL[SYMTL]
SYMTL:
XWD SYMTAE,0105; [,AE] ADVANCE TO END OF TAPE
XWD SYMTAF,0106; [,AF] ADVANCE FILE
XWD SYMTAR,0122; [,AR] ADVANCE RECORD
XWD SYMTBF,0206; [,BF] BACKSPACE FILE
XWD SYMTBR,0222; [,BR] BACKSPACE RECORD
XWD SYMTDC,0403; [,DC] DIGITAL COMPATIBLE
XWD SYMTDE,0405; [,DE] DENSITY EIGHT HUNDRED BPI
XWD SYMTDF,0406; [,DF] DENSITY 556 BPI
XWD SYMTDT,0424; [,DT] DENSITY TWO HUNDRED BPI
XWD SYMTIC,1103; [,IC] INDUSTRY COMPATIBLE
XWD SYMTMO,1012; [,MO] TAPE MODE
XWD SYMTPE,2005; [,PE] SET FOR EVEN PARITY
XWD SYMTPO,2012; [,PO] SET FOR ODD PARITY
XWD SYMTQF,2106; [,QF] QUERY FUNCTIONS
XWD SYMTRL,2214; [,RL] REWIND TO LOAD POINT
XWD SYMTWB,2702; [,WB] WRITE 3 IN. BLANK
XWD SYMTWE,2705; [,WE] WRITE END OF FILE
XWD FR,0
;;
;
SUBTTL[QSFDL]
QSFDL:
XWD qsfdEX,0530; [ ] ##-7, #-8 bit output
XWD qsfdHT,1024; [ ] HTAB SETUP
XWD qsfdFF,0606; [ ] MODIFY ACTION ON FORM FEED
XWD qsfdQF,2106; [ ] QUERY FUNCTIONS AVAIL. MOD. DEVICES
XWD qsfdVT,2624; [ ] MODIFY ACTION ON VTAB
XWD qsfdHL,1014; [ ] MODIFY ACTION ON HIGHLITE CODE
XWD qsfdES,0523; [ ] MODIFY ESCAPE CHARACTER SELECTION
XWD qsfdTV,2426; [#TV] Set tty page - video paging
XWD qsfdSD,2304; [#SD]
XWD qsfdQD,2104; [#QD]
XWD qsfdIN,1116; [$IN]
XWD FR,0
;;
;
SUBTTL[FPRTAB]
IFN FLOATP,<
FPRTAB:
XWD FLTCWC,0
XWD FPRET1,FPSIND
XWD FPRET1,FPCOSD
XWD FPRET1,FPSIN
XWD FPRET1,FPCOS
XWD FPRET1,FPSQRT
XWD FPAL10,FPALOG
XWD FPRET1,FPALOG
XWD 0,FPMACH
XWD MACHFP,0
XWD QFPQF,0
XWD FPRET1,FPSINH
XWD FPRET1,FPCOSH
XWD FPRET1,FPTANH
XWD FPRET1,FPEXP
XWD FPRET1,FPASIN
XWD FPRET1,FPACOS
XWD FPRET1,FPATAN
XWD FPRET1,QFPDR
XWD FPRET1,QFPRD
XWD FPFORM,0
XWD FPRETD,FPASIN
XWD FPRETD,FPACOS
XWD FPRETD,FPATAN
XWD FPRET1,FPTAN
XWD FPRET1,FPTAND
XWD QFPPI,0
XWD QFPAD,JSFLTW
XWD QFPSU,JSFLTW
XWD QFPML,JSFLTW
XWD QFPDV,JSFLTW
XWD QFPGR,JSFLTW
XWD QFPLT,JSFLTW
XWD FPRET1,FPIABS
XWD FPRET1,FPABS
XWD FPRET1,FPAINT
XWD FPJRVI,FPIFIX
XWD FPJRVI,FPINT
XWD FPFLOT,0
XWD FPRET1,FPCABS
XWD FPRET1,FPREAL
XWD FPRET2,FPCONJ
XWD FPRET1,FPDIM
XWD FPRET1,FPIDIM
XWD FPRET1,FPSIGN
XWD FPRET1,FPISIGN
XWD FPMOD,0
XWD FPRET1,FPAMOD
XWD FPRET1,FPATN2
XWD FPRET1,FPAMAX
XWD FPMAX,0
XWD FPRET1,FPAMIN
XWD FPMIN,0
Z
>;;
;
SUBTTL[QXQTAB]
QXQTAB:
EXP INDEX
EXP FLOW
EXP FTOP
EXP KWITCH
EXP DSK1
EXP END
EXP CHANAS
EXP BUFTOP
EXP qct6
EXP ERBIT
EXP TTSTAT
EXP LNBTS
EXP TTYPVT
EXP TTYCON
Z
SUBTTL[NAVLK]
NAVLK:
EXP SIXBIT / -FNF>/;FILE NOT FOUND
EXP SIXBIT / -IPP>/;INCORRECT PROJECT PROGRAMMER NUMBER
EXP SIXBIT / -PRT>/;PROTECTION FAILURE
EXP SIXBIT / -FBM>/;FILE BEING MODIFIED
EXP SIXBIT / -AEF>/;ALREADY EXISTING FILE
EXP SIXBIT / -ISU>/;ILLEGAL SEQUENCE OF UUO'S
EXP SIXBIT / -TRN>/;TRANSMISSION ERROR
EXP SIXBIT / -NSF>/;NOT A SAVE FILE
EXP SIXBIT / -NEC>/;NOT ENOUGH CORE
EXP SIXBIT / -DNA>/;DEVICE NOT AVAILABLE
EXP SIXBIT / -NSD>/;NO SUCH DEVICE
EXP SIXBIT / -ILU>/;ILLEGAL UUO
EXP SIXBIT / -NRM>/;NO ROOM OR QUOTA EXCEEDED
EXP SIXBIT / -WLK>/;WRITE-LOCK ERROR
EXP SIXBIT / -NET>/;NOT ENOUGH TABLE SPACE IN MONITOR
EXP SIXBIT / -POA>/;PARTIAL ALLOCATION ONLY
EXP SIXBIT / -BNF>/;BLOCK NOT FREE ON ALLOC. POSITION
;;
;
SUBTTL[TABSNO]
TABSNO:
EXP SIXBIT /QF /
EXP SIXBIT /CWC /
TABSYS: ;MATCHES MOCIL TABLE
EXP SIXBIT /DEVCHR/
EXP SIXBIT /DDTGT /
EXP SIXBIT /GETCHR/
EXP SIXBIT /WAIT /
EXP SIXBIT /EXIT /
EXP SIXBIT /UTPCLR/
EXP SIXBIT /DATE /
EXP SIXBIT /LOGOUT/
EXP SIXBIT /SWITCH/
EXP SIXBIT /REASSI/
EXP SIXBIT /TIMER /
EXP SIXBIT /MSTIME/
EXP SIXBIT /GETPPN/
EXP SIXBIT /RUNTIM/
EXP SIXBIT /PJOB /
EXP SIXBIT /SLEEP /
EXP SIXBIT /PEEK /
EXP SIXBIT /GETLIN/
EXP SIXBIT /RUN /
EXP SIXBIT /GETTAB/
EXP SIXBIT /SETNAM/
EXP SIXBIT /DEVPPN/
EXP SIXBIT /TRMNO /
EXP SIXBIT /TRMOP /
EXP SIXBIT /DUMMY1/
EXP SIXBIT /LIGHTS/
EXP SIXBIT /DUMMY2/
EXP SIXBIT /PRJPRG/
EXP SIXBIT /JBTPRG/
EXP SIXBIT /TTIME /
EXP SIXBIT /JBTCKT/
EXP SIXBIT /JBTPRV/
EXP SIXBIT /TTYTAB/
EXP SIXBIT /CNFTBL/
EXP SIXBIT /NSWTBL/
EXP SIXBIT /SWPTBL/
EXP SIXBIT /JBTSGN/
EXP SIXBIT /ODPTBL/
EXP SIXBIT /LEVDBL/
EXP SIXBIT /JBTNM /
EXP SIXBIT /JBTCNO/
Z;
;;
;
SUBTTL[SNOTAB]
SNOTAB:
XWD DOLQF,0
XWD DOLCWC,0
MOCIL: ;MUST FOLLOW SNOTAB
XWD CI04,04; [ ] DEVCHR
XWD CI05,05; [ ] DDTGT
XWD CI06,06; [ ] GETCHR
XWD CI10,10; [ ] WAIT
XWD CI12,12; [ ] EXIT
XWD CI13,13; [ ] UTPCLR
XWD CI14,14; [ ] DATE
XWD CI17,17; [ ] LOGOUT
XWD CI20,20; [ ] SWITCH
XWD CI21,21; [ ] REASSI
XWD CI22,22; [ ] TIMER
XWD CI23,23; [ ] MSTIME
XWD CI24,24; [ ] GETPPN
XWD CI27,27; [ ] RUNTIM
XWD CI30,30; [ ] PJOB
XWD CI31,31; [ ] SLEEP
XWD CI33,33; [ ] PEEK
XWD CI34,34; [ ] GETLIN
XWD CI35,35; [ ] RUN
XWD CI41,41; [ ] GETTAB
XWD CI43,43; [ ] SETNAM
XWD CI55,55; [ ] DEVPPN
XWD CI115,115; [ ] TRMNO
XWD CI116,116; [ ] TRMOP
XWD FR,0
MOCIL3:
XWD CIN01,01; [ ] LIGHTS (CUSTOMER DEFINED UUO TABLE)
XWD FR,0
CI41L:
XWD CI4102,02; [ ] PRJPRG
XWD CI4103,03; [ ] JBTPRG
XWD CI4104,04; [ ] TTIME
XWD CI4105,05; [ ] JBTKCT
XWD CI4106,06; [ ] JBTPRV
XWD CI4110,10; [ ] TTYTAB
XWD CI4111,11; [ ] CNFTBL
XWD CI4112,12; [ ] NSWTBL
XWD CI4113,13; [ ] SWPTBL
XWD CI4114,14; [ ] JBTSGN
XWD CI4115,15; [ ] ODPTBL
IFN LEVELD,<
XWD CI4116,16; [ ] LEVDBL
XWD CI4131,31; [ ] JBTNM1-2
XWD CI4100,33; [ ] JBTCNO
>
XWD CI4100,0
;;
;
SUBTTL[QSIOL]
TABSOC:
EXP SIXBIT /COM / ;Communications Channel
EXP SIXBIT /CON / ;Console
EXP SIXBIT /DOT / ;Mark outputs to "FILE"
EXP SIXBIT /FIL / ;Directory File
Z
SOCTAB:
XWD 0,soccom
XWD 0,soccon
XWD 0,socdot
XWD 0,socfil
Z
TABSIC:
EXP SIXBIT /COM / ;Communications Channel
EXP SIXBIT /CON / ;Console
EXP SIXBIT /FIL / ;Directory File
Z
SICTAB:
XWD 0,siccom
XWD 0,siccon
XWD 0,sicfil
Z
TABTRE:
EXP SIXBIT /and /; [187] And the bits
EXP SIXBIT /cld /; [148] Characters Left of Divider
EXP SIXBIT /cll /; [191] Change Line Length "active"
EXP SIXBIT /cnb /; [133] Change Number Base "active"
EXP SIXBIT /cpc /; [266] Change Protection Class
EXP SIXBIT /crd /; [147] Characters Right of Divider
EXP SIXBIT /cro /; [203] Change Rub Out char. schema
EXP SIXBIT /cwc /; [250] Change Warning Character
EXP SIXBIT /cxb /; [200] Change "X" Base "active"
EXP SIXBIT /dif /; [233] Designate Input File
EXP SIXBIT /dof /; [234] Designate Output File
EXP SIXBIT /dol /; [704] "Dollar Sign Functions"
EXP SIXBIT /etb /; [249] Erase Trailing Blanks
EXP SIXBIT /fdc /; [138] Fetch "D" Characters
EXP SIXBIT /fde /; [139] Fetch "D" Elements
EXP SIXBIT /fdm /; [140] Fetch "D" Matches
EXP SIXBIT /flt /; [703] "Asterisk Functions"
EXP SIXBIT /ftb /; [210] Fetch To Break character
EXP SIXBIT /fts /; [211] Fetch To Span character
EXP SIXBIT /idt /; [153] Input "D" Texts
EXP SIXBIT /lff /; [228] List File Functions
EXP SIXBIT /lic /; [241] List Input Channels
EXP SIXBIT /lkf /; [802] Lock and Fetch File
EXP SIXBIT /lko /; [803] Overwrite Locked File
EXP SIXBIT /loc /; [242] List Output Channels
EXP SIXBIT /not /; [188] Not "complement" the bits
EXP SIXBIT /nud /; [268] Null Display
EXP SIXBIT /qfa /; [$qfa] Query File Attributes
EXP SIXBIT /qfe /; [219] Query File Extension
EXP SIXBIT /qfn /; [$qfn] Query Function Numbers
EXP SIXBIT /qld /; [197] Query Left of Divider
EXP SIXBIT /qll /; [192] Query Line Length
EXP SIXBIT /qnb /; [134] Query Number Base
EXP SIXBIT /qof /; [202] Query Over Flow conditions
EXP SIXBIT /qpc /; [267] Query Protection Class
EXP SIXBIT /qqb /; [$qqb] Query @ Branch
EXP SIXBIT /qrd /; [198] Query Right of Divider
EXP SIXBIT /qro /; [204] Query Rubout character
EXP SIXBIT /qrt /; [$qrt] Query Run Time
EXP SIXBIT /qta /; [205] Query Text Area used
EXP SIXBIT /qwc /; [251] Query Warning Characters
EXP SIXBIT /qxb /; [201] Query "X" Base
EXP SIXBIT /rcp /; [263] Return Character Picture
EXP SIXBIT /rdl /; [700] Return D Levels
EXP SIXBIT /ref /; [810] REname File
EXP SIXBIT /rot /; [189] Rotate the bits
EXP SIXBIT /sar /; [158] Set Automatic Return on line feed
EXP SIXBIT /sem /; [199] Set "Echoplex" Mode active
EXP SIXBIT /sfd /; [157] Specify Function Device
EXP SIXBIT /sfe /; [221] Set File Extension
EXP SIXBIT /sic /; [245] Select Input Channel
EXP SIXBIT /soc /; [246] Select Output Channel
EXP SIXBIT /suc /; [$suc] Set Upper Case mode
EXP SIXBIT /tma /; [124] Trace Mode All activated
EXP SIXBIT /xal /; [156] Xamine Address of Label
EXP SIXBIT /xll /; [155] Xamine Label List
EXP SIXBIT /xrl /; [$xrl] Xamine Read Label
Z
;
;
TRETAB:
XWD Qand,0
XWD Qcld,0
XWD Qcll,0
XWD Qcnb,0
XWD Qcpc,0
XWD Qcrd,0
XWD Qcro,0
XWD Qcwc,0
XWD Qcxb,0
XWD Qdif,0
XWD Qdof,0
XWD Qdol,0
XWD Qetb,0
XWD Qfdc,0
XWD Qfde,0
XWD Qfdm,0
XWD Qflt,0
XWD Qftb,0
XWD Qfts,0
XWD Qidt,0
XWD Qlff,0
XWD Qlic,0
XWD Qlkf,0
XWD Qlko,0
XWD Qloc,0
XWD Qnot,0
XWD Qnud,0
XWD Qqfa,0
XWD Qqfe,0
XWD Qqfn,0
XWD Qqld,0
XWD Qqll,0
XWD Qqnb,0
XWD Qqof,0
XWD Qqpc,0
XWD Qqqb,0
XWD Qqrd,0
XWD Qqro,0
XWD Qqrt,0
XWD Qqta,0
XWD Qqwc,0
XWD Qqxb,0
XWD Qrcp,0
XWD Qrdl,0
XWD Qref,0
XWD Qrot,0
XWD Qsar,0
XWD Qsem,0
XWD Qsfd,0
XWD Qsfe,0
XWD Qsic,0
XWD Qsoc,0
XWD Qsuc,0
XWD Qtma,0
XWD Qxal,0
XWD Qxll,0
XWD Qxrl,0
Z
;
;
SUBTTL[CHPMPI]
CHPMPI:
BYTE (5) 37,21,21,21,21,21,37;NUL-@
BYTE (5) 37,20,20,20,20,20,20;SOH-A
BYTE (5) 04,04,04,04,04,04,37;STX-B
BYTE (5) 01,01,01,01,01,01,37;ETX-C
BYTE (5) 10,04,02,37,10,04,02;EOT-D
BYTE (5) 37,21,33,25,33,21,37;ENQ-E
BYTE (5) 00,00,01,02,24,30,20;ACK-F
BYTE (5) 00,00,16,21,21,37,00;BEL-G
BYTE (5) 04,10,36,11,05,01,01;BS-H
BYTE (5) 10,04,02,37,02,04,10;HT-I
BYTE (5) 37,00,00,37,00,00,37;LF-J
BYTE (5) 04,04,04,04,25,16,04;VT-K
BYTE (5) 04,25,16,04,25,16,04;FF-L
BYTE (5) 02,04,10,37,10,04,02;CR-M
BYTE (5) 16,21,33,25,33,21,16;SO-N
BYTE (5) 16,21,21,25,21,21,16;SI-O
BYTE (5) 37,21,21,37,21,21,37;DLE-P
BYTE (5) 16,25,25,27,21,21,16;DC1-Q
BYTE (5) 16,21,21,27,25,25,16;DC2-R
BYTE (5) 16,21,21,35,25,25,16;DC3-S
BYTE (5) 16,25,25,35,21,21,16;DC4-T
BYTE (5) 00,00,05,02,25,30,20;NAK-U
BYTE (5) 16,12,12,12,12,12,33;SYN-V
BYTE (5) 01,01,01,37,01,01,01;ETB-W
BYTE (5) 37,21,12,04,12,21,37;CAN-X
BYTE (5) 04,04,04,16,04,04,04;EM-Y
BYTE (5) 16,21,20,10,04,00,04;SUB-Z
BYTE (5) 16,21,21,37,21,21,16;ESC-[
BYTE (5) 37,25,25,35,21,21,37;FS-\
BYTE (5) 37,21,21,35,25,25,37;GS-]
BYTE (5) 37,21,21,27,25,25,37;RS-^
BYTE (5) 37,25,25,27,21,21,37;US-_
;;
;
BYTE (5) 00,00,00,00,00,00,00;
BYTE (5) 04,04,04,04,04,00,04; !
BYTE (5) 11,11,22,00,00,00,00; "
BYTE (5) 12,12,37,12,37,12,12; #
BYTE (5) 04,17,24,16,05,36,04; $
BYTE (5) 31,31,02,04,10,23,23; %
BYTE (5) 16,21,24,10,25,22,15; &
BYTE (5) 02,04,10,00,00,00,00; '
BYTE (5) 04,10,20,20,20,10,04; (
BYTE (5) 04,02,01,01,01,02,04; )
BYTE (5) 04,25,16,04,16,25,04; *
BYTE (5) 00,04,04,37,04,04,00; +
BYTE (5) 00,00,00,06,06,02,04(1)1; ,
BYTE (5) 00,00,00,16,00,00,00; -
BYTE (5) 00,00,00,00,00,06,06; .
BYTE (5) 00,00,01,02,04,10,20; /
BYTE (5) 16,21,23,25,31,21,16; 0
BYTE (5) 04,14,04,04,04,04,16; 1
BYTE (5) 16,21,01,02,04,10,37; 2
BYTE (5) 37,01,02,06,01,21,16; 3
BYTE (5) 02,06,12,22,37,02,02; 4
BYTE (5) 37,20,36,01,01,21,16; 5
BYTE (5) 17,20,20,36,21,21,16; 6
BYTE (5) 37,01,02,04,04,04,04; 7
BYTE (5) 16,21,21,16,21,21,16; 8
BYTE (5) 16,21,21,17,01,01,16; 9
BYTE (5) 00,00,06,06,00,06,06; :
BYTE (5) 06,06,00,06,06,02,04(1)1; ;
BYTE (5) 02,04,10,20,10,04,02; <
BYTE (5) 00,00,37,00,37,00,00; =
BYTE (5) 10,04,02,01,02,04,10; >
BYTE (5) 16,21,02,04,04,00,04; ?
;;
;
BYTE (5) 16,21,25,25,26,20,17; @
BYTE (5) 04,12,21,21,37,21,21; A
BYTE (5) 36,21,21,36,21,21,36; B
BYTE (5) 17,20,20,20,20,20,17; C
BYTE (5) 36,21,21,21,21,21,36; D
BYTE (5) 37,20,20,36,20,20,37; E
BYTE (5) 37,20,20,36,20,20,20; F
BYTE (5) 17,20,20,23,21,21,17; G
BYTE (5) 21,21,21,37,21,21,21; H
BYTE (5) 16,04,04,04,04,04,16; I
BYTE (5) 01,01,01,01,21,21,16; J
BYTE (5) 21,21,22,34,22,21,21; K
BYTE (5) 20,20,20,20,20,20,37; L
BYTE (5) 21,33,25,25,21,21,21; M
BYTE (5) 21,21,31,25,23,21,21; N
BYTE (5) 16,21,21,21,21,21,16; O
BYTE (5) 36,21,21,36,20,20,20; P
BYTE (5) 16,21,21,21,25,22,15; Q
BYTE (5) 36,21,21,36,24,22,21; R
BYTE (5) 17,20,20,16,01,01,36; S
BYTE (5) 37,04,04,04,04,04,04; T
BYTE (5) 21,21,21,21,21,21,37; U
BYTE (5) 21,21,21,21,21,12,04; V
BYTE (5) 21,21,21,25,25,33,21; W
BYTE (5) 21,21,12,04,12,21,21; X
BYTE (5) 21,21,12,04,04,04,04; Y
BYTE (5) 37,01,02,04,10,20,37; Z
BYTE (5) 36,20,20,20,20,20,36; [
BYTE (5) 00,00,37,01,01,00,00; \
BYTE (5) 17,01,01,01,01,01,17; ]
BYTE (5) 04,12,21,00,00,00,00; ^
BYTE (5) 00,00,00,00,00,00,37(1)1; _
;;
;
BYTE (5) 10,04,02,00,00,00,00; `
BYTE (5) 00,00,06,01,17,21,17; a
BYTE (5) 20,20,26,31,21,31,26; b
BYTE (5) 00,00,17,20,20,20,17; c
BYTE (5) 01,01,15,23,21,23,15; d
BYTE (5) 00,00,16,21,37,20,16; e
BYTE (5) 03,04,04,16,04,04,04; f
BYTE (5) 15,23,21,23,15,01,16(1)1; g
BYTE (5) 20,20,26,31,21,21,21; h
BYTE (5) 04,00,14,04,04,04,16; i
BYTE (5) 02,06,02,02,02,02,14(1)1; j
BYTE (5) 20,20,22,24,30,24,22; k
BYTE (5) 14,04,04,04,04,04,16; l
BYTE (5) 00,00,32,25,25,25,25; m
BYTE (5) 00,00,26,31,21,21,21; n
BYTE (5) 00,00,16,21,21,21,16; o
BYTE (5) 26,31,21,31,26,20,20(1)1; p
BYTE (5) 15,23,21,23,15,01,01(1)1; q
BYTE (5) 00,00,27,30,20,20,20; r
BYTE (5) 00,00,17,20,16,01,36; s
BYTE (5) 10,10,34,10,10,10,06; t
BYTE (5) 00,00,21,21,21,23,15; u
BYTE (5) 00,00,21,21,21,12,04; v
BYTE (5) 00,00,25,25,25,25,12; w
BYTE (5) 00,00,21,12,04,12,21; x
BYTE (5) 21,21,21,23,15,01,16(1)1; y
BYTE (5) 00,00,37,02,04,10,37; z
BYTE (5) 03,04,04,30,04,04,03; {
BYTE (5) 04,04,04,00,04,04,04; |
BYTE (5) 30,04,04,03,04,04,30; }
BYTE (5) 11,25,22,00,00,00,00; ~
BYTE (5) 00,37,00,37,00,37,00;equiv;
;;
;
BYTE (5) 00,00,00,00,00,00,00;CI; |@
BYTE (5) 00,00,00,00,00,00,00;PU; 201
BYTE (5) 00,00,00,00,00,00,00;PD; 202
BYTE (5) 00,00,00,00,00,00,00;PR; 203
BYTE (5) 00,00,00,00,00,00,00;PL; 204
BYTE (5) 00,00,00,00,00,00,00; 205
BYTE (5) 00,00,00,00,00,00,00; 206
BYTE (5) 00,00,00,00,00,00,00;PM; 207
BYTE (5) 00,00,00,00,00,00,00;PH; 210
BYTE (5) 00,00,00,00,00,00,00;PT; 211
BYTE (5) 00,00,00,00,00,00,00;CSC; 212
BYTE (5) 00,00,00,00,00,00,00;CLC; 213
BYTE (5) 00,00,00,00,00,00,00;LI; 214
BYTE (5) 00,00,00,00,00,00,00;LD; 215
BYTE (5) 00,00,00,00,00,00,00; 216
BYTE (5) 00,00,00,00,00,00,00; 217
BYTE (5) 00,00,00,00,00,00,00;CD; 220
BYTE (5) 00,00,00,00,00,00,00;CIN; 221
BYTE (5) 00,00,00,00,00,00,00;CIF; 222
BYTE (5) 00,00,00,00,00,00,00;SU; 223
BYTE (5) 00,00,00,00,00,00,00;SD; 224
BYTE (5) 00,00,00,00,00,00,00;NP; 225
BYTE (5) 00,00,00,00,00,00,00;PP; 226
BYTE (5) 00,00,00,00,00,00,00;PFN; 227
BYTE (5) 00,00,00,00,00,00,00;PF; 230
BYTE (5) 04,16,04,25,37,16,37; King; 231
BYTE (5) 00,00,04,16,04,16,37; Pawn; 232
BYTE (5) 04,16,34,31,33,16,37; Bishop; 233
BYTE (5) 17,37,33,23,07,17,37; Knight; 234
BYTE (5) 25,25,37,37,16,16,37; Castle; 235
BYTE (5) 25,16,04,04,16,04,37; Queen; 236
BYTE (5) 00,00,00,00,00,00,00; 237
;;
;
BYTE (5) 00,00,00,00,00,00,00; HEB 240
BYTE (5) 21,21,12,04,12,21,21; HEB 241
BYTE (5) 00,36,02,02,02,02,37; HEB 242
BYTE (5) 07,01,01,01,07,05,05; HEB 243
BYTE (5) 37,02,02,02,02,02,02; HEB 244
BYTE (5) 37,01,01,21,21,21,21; HEB 245
BYTE (5) 03,01,01,01,01,01,01; HEB 246
BYTE (5) 16,04,04,04,04,04,04; HEB 247
BYTE (5) 37,21,21,21,21,21,21; HEB 250
BYTE (5) 21,23,25,21,21,21,37; HEB 251
BYTE (5) 06,02,02,00,00,00,00; HEB 252
BYTE (5) 37,01,01,01,01,01,37; HEB 253
BYTE (5) 17,01,01,01,01,01,01; HEB 254
BYTE (5) 20,37,01,01,16,20,20; HEB 255
BYTE (5) 11,13,15,11,21,21,27; HEB 256
BYTE (5) 37,21,21,21,21,21,16; HEB 257
BYTE (5) 07,01,01,01,01,01,37; HEB 260
BYTE (5) 07,01,01,01,01,01,01; HEB 261
BYTE (5) 21,11,11,05,05,03,37; HEB 262
BYTE (5) 37,21,21,31,01,01,37; HEB 263
BYTE (5) 37,21,21,31,01,01,01; HEB 264
BYTE (5) 21,11,06,02,02,01,37; HEB 265
BYTE (5) 21,21,22,36,20,20,20; HEB 266
BYTE (5) 37,01,01,11,12,12,10; HEB 267
BYTE (5) 37,01,01,01,01,01,01; HEB 270
BYTE (5) 25,25,25,25,25,25,16; HEB 271
BYTE (5) 17,11,11,11,11,11,31; HEB 272
BYTE (5) 04,04,16,37,16,04,04; Diamonds; 273
BYTE (5) 16,04,25,37,25,04,04; Clubs; 274
BYTE (5) 33,33,37,37,16,04,04; Hearts; 275
BYTE (5) 04,04,16,37,37,25,04; Spades; 276
BYTE (5) 00,16,37,37,37,16,00; Disc; 277
;;
;
BYTE (5) 00,00,22,25,35,25,22; |@
BYTE (5) 00,00,16,01,17,21,17; |A
BYTE (5) 00,06,10,36,21,21,16; |B
BYTE (5) 22,22,22,22,37,01,00(1)1; |C
BYTE (5) 16,12,12,22,37,21,00(1)1; |D
BYTE (5) 00,00,16,21,36,20,17; |E
BYTE (5) 04,04,16,25,16,04,04(1)1; |F
BYTE (5) 00,00,37,21,20,20,20; |G
BYTE (5) 00,00,21,12,04,12,21; |H
BYTE (5) 00,00,21,23,25,31,21; |I
BYTE (5) 12,04,00,21,23,25,31; |J
BYTE (5) 00,00,22,24,30,24,22; |K
BYTE (5) 00,00,07,05,05,11,31; |L
BYTE (5) 00,00,21,33,25,21,21; |M
BYTE (5) 00,00,21,21,37,21,21; |N
BYTE (5) 00,00,16,21,21,21,16; |O
BYTE (5) 00,00,37,21,21,21,21; |P
BYTE (5) 00,00,17,21,17,05,11; |Q
BYTE (5) 26,31,21,31,26,20,20(1)1; |R
BYTE (5) 00,00,17,20,20,20,17; |S
BYTE (5) 00,00,37,04,04,04,04; |T
BYTE (5) 21,21,21,12,04,10,20(1)1; |U
BYTE (5) 00,00,25,25,16,25,25; |V
BYTE (5) 00,00,36,21,36,21,36; |W
BYTE (5) 00,00,20,20,34,22,34; |X
BYTE (5) 00,00,21,21,35,23,35; |Y
BYTE (5) 00,00,16,21,02,21,16; |Z
BYTE (5) 00,00,25,25,25,25,37; |[
BYTE (5) 00,00,16,21,07,21,16; |\
BYTE (5) 25,25,25,25,37,01,00(1)1; |]
BYTE (5) 00,00,21,21,17,01,01; |^
BYTE (5) 00,00,00,00,00,00,37(1)1; |_
;;
;
BYTE (5) 22,25,25,35,25,25,22; |`
BYTE (5) 16,21,21,37,21,21,21; |a
BYTE (5) 37,21,20,36,21,21,36; |b
BYTE (5) 22,22,22,22,22,37,01; |c
BYTE (5) 16,12,12,12,22,37,21; |d
BYTE (5) 37,20,20,36,20,20,37; |e
BYTE (5) 04,16,25,25,25,16,04; |f
BYTE (5) 37,21,20,20,20,20,20; |g
BYTE (5) 21,21,12,04,12,21,21; |h
BYTE (5) 21,21,23,25,31,21,21; |i
BYTE (5) 12,04,21,23,25,31,21; |j
BYTE (5) 21,21,22,34,22,21,21; |k
BYTE (5) 07,05,05,05,05,11,31; |l
BYTE (5) 21,33,25,25,21,21,21; |m
BYTE (5) 21,21,21,37,21,21,21; |n
BYTE (5) 16,21,21,21,21,21,16; |o
BYTE (5) 37,21,21,21,21,21,21; |p
BYTE (5) 17,21,21,17,05,11,21; |q
BYTE (5) 36,21,21,36,20,20,20; |r
BYTE (5) 17,20,20,20,20,20,17; |s
BYTE (5) 37,04,04,04,04,04,04; |t
BYTE (5) 21,21,21,12,04,10,20; |u
BYTE (5) 25,25,25,16,25,25,25; |v
BYTE (5) 36,21,21,36,21,21,36; |w
BYTE (5) 20,20,20,36,21,21,36; |x
BYTE (5) 21,23,21,35,23,23,35; |y
BYTE (5) 16,21,01,06,01,21,16; |z
BYTE (5) 25,25,25,25,25,25,37; |{
BYTE (5) 16,21,01,17,01,21,16; ||
BYTE (5) 25,25,25,25,25,37,01; |}
BYTE (5) 21,21,21,17,01,01,01; |~
BYTE (5) 00,00,00,00,00,00,00; 377
;;
;
SUBTTL[HOLDING]
Qxi:Qxo:
Qdq:
Qda:
Qxq:
Qsw:
Qlr:Qer:Qdr:Qgr:Qir:
Qcpc:Qqpc:
Qlff:
JRNAV
;
SUBTTL[sfdMV]
qsfdMV: JSGT
MOVEM Z,CVERTL
JRQ
;;
;
SUBTTL[sfdQD]
qsfdQD: MOVE T1,LNBTS
JJEPNF
MOVE T1,TTSTAT
JRPPN
SUBTTL[sfdQV]
QsfdQV: MOVE Z,CVERTL
JJNPNF
SUB Z,CVERT
JRVI
;;
;
SUBTTL[sfdsd]
QsfdSD: JSAE
JRST MOSD1
JSGSIX
JSTAB
TABMOD-1
MODTAB-1
JRST MOSD1
JRST @T1
MOSD1: JJZ8B
JLALLZ
SETZM TTYPVT
JRQ
MOSDQF: JSER
MOVEI T5,TABMOD
JRTABN
MOD33: JRST MOSD1
MOD37E: JLALLZ
JJM37O
MOD37: JJO8B
MOVEI Z,1
MOVEM Z,TTYPVT
JRQ
SUBTTL[CI100]
IFE MON506,<
CI115: JRNAV
CI116: JRNAV
>
IFN MON506,<
CI115: JSER
JSTNO
JRST CI100Z
CI116: JSTNO
MOVEM T1,INDEX+1
JSXX
CAIG Z,1777
JRST CI116R
JTMP1O
JSXX
SKIPN Z,
MOVEI Z,1
MOVEM Z,INDEX+2
CI116R: MOVE T1,[XWD 3,INDEX]
CALLI T1,116
JRST ERR116
JTMP1N
CI100Z: JSXRZ
JRQ
JSTNO: JSGT
MOVE T1,Z
SKIPN T1,
CALLI T1,30
CALLI T1,115;TRMNO
JRST ERR115
JPOPJ
ERR115:
ERR116: MOVEM T1,ERBIT
JRNAV
>;;
;
SUBTTL[CICICI]
CI10:CI12:CI17: JRNAV
CIN01: JSXX
CALLI Z,-1
JRQ
CI00: JRNAV
CI04:CI06:
JSBDN
CALLI E,4
JRXRS
CI13: JSNQ
JSGSIX
JSOPEN
CALLI CHAND,13
JFBCL
JRQ
CI21: JRNAV;REASSI
CI24: CALLI T1,24
JXSKIP
JRNAV
JUMPL T1,JRNAV;ALPHA PPN
JRPPN: JSER
MOVNI T3,6
MOVNI T2,6
JSXRZ
PUSH P,T1
JSAT
POP P,T1
MOVNI T3,6
JSXRZ
CI05: JRQ
CI31: JSGE
CALLI T4,31
JRQ
CI33: JSXX
CALLI Z,33
MOVE T1,Z
JRXRS
CI34: CALLI T1,34
JRSIXS
;;
;
CI35: MOVEM PAL,PALPAL
JSAS
JSAS
JSAS
JSAS
JSGT
MOVEM T4,ARG3
JMRPAL
JSBDN
MOVSI T3,(SIXBIT /SYS/)
SETZI E3,
JJEPNF
JRST CI35A
JSBDP
JSGSIX
SKIPN T1
MOVSI T1,(SIXBIT /DSK/)
MOVE T3,T1
CI35A: JTMP1O
PUSHJ P,qex4
SETZB E2,SWITCH
MOVEI Z,T3
HRL Z,ARG3
MOVE BASE,[CALLI Z,35]
MOVEM BASE,ADS32
MOVE BASE,[JRST @.JBSA]
MOVEM BASE,ADS33
JRST ADS32
;;
;
CI41: JSXX
HRR T1,Z
JUMPE Z,CI4100
JSD
CI41L-1
JCI41: JSGT
JCIA
JXSKIP
JCI41X: JSXX
HRL T1,Z
CALLI T1,41
JRST JCI41B
JPOPJ
JCI41B: POP P,Z
JRNAV
CI4101:CI4106:CI4107:CI4114:CI4100:
JCI41
JRXRS
CI4102: JCI41
JRPPN
CI4103: JCI41
JRSIX
CI4104:CI4105: JSER
JCI41
MOVE Z,T1
JRVI
CI4110: IFE LEVELD,<JRNAV>
IFN LEVELD,<JCI41
HRRZ T1,T1
CALLI T1,33
JRSIX
>
CI4111: JCI41X
CAIGE Z,7
JRNAV
CAIN Z,7
JRSIXS
CAIN Z,13
JRSIXS
JRPPN
CI4112:CI4113:CI4115:
JSER
JCI41X
JRVI
CI4116: JCI41X
CAIG Z,14
JRPPN
JRSIXS
CI4131: JSGT
JCIA
HRL T1,Z
MOVEM T1,ARG1
CALLI T1,41
JRST JCI41B
JSSIX
MOVE T1,ARG1
HRRI T1,32
CALLI T1,41
JRST JCI41B
JRSIX
;;
;
CI43: JSBDN
CALLI E,43
JRQ
CI14:CI22:CI23:CI23:CI27: JSER
CI30: JSGT
JCIA
HRLI PAL21,(CALLI Z,)
XCT PAL21
JRVI
CI20: HRLI PAL21,(CALLI T1,)
XCT PAL21
JRXRS
CI55: JSGSIX
CALLI T1,55
JRNAV
JRPPN
;;
;
SUBTTL[JIESC]
JIESC: JBURSN
JSTINH
JSTGET
CAIG Z,140
CAIGE Z,100
JRST JIESC.
SUBI Z,100; ESCAPE (F) F=@,A,B,C,...
TRO Z,200
JBURSN
JSTINF
JRST JSTI1
JIESC.: CAIGE Z,40
JRST JIEND; ESCAPE CONTROL (ILLEGAL)
CAIGE Z,60
JRST JIINV; ESCAPE (I)
CAIL Z,100
JRST JIEND; ESCAPE L.C. CHAR. (ILLEGAL)
MOVE T1,TTYPVT
JRST @JIESFP(T1)
JIEND: JBURSE
JRST JSTI1
JSTINF
JNECHO
JSTPUT
JRST JSTI1
JIESFP: JRST JIEND;NO PRIVATE SET STIPULATED
JRST JIM37
JIINV: CAIN Z,"#"
JRST JISHRP
JFCL;TESTS FOR OTHER ALLOWABLE (I) CHARACTERS
JRST JIEND
JISHRP: JSTGET; IF CHAR. @ABCD... THEN "NUL" TO "37" PASSED
CAIG Z,140
CAIL Z,100
ANDI Z,37
JRST JIEND
;;
;
SUBTTL[JIM37]
JIM37: MOVEI T1,JIM37L
JIPVT: MOVEM Z,GETHLD
JBURSE
JRST JIPVT1
JSTINF
JSTPUT
JIPVT1: MOVE T3,GETHLD
CAIL T3,100
JRST JIPVT2
SUBI T3,60
JUMPL T3,JIPVT2
MOVE T2,T3
LSH T3,-2
ANDI T2,3
ADD T1,T3
LDB Z,ZT10(T2)
JUMPN Z,JSTI1
JIPVT2: JJOALT
MOVEI Z,CCESC
JRST JSTI2
JIM37L:
BYTE (9) 000,CPHTS,CPHTC,CPXHN
BYTE (9) CPXHF,CPVTS,CPVTC,CPRLF
BYTE (9) CPHLR,CPHLF,CPLCF,CPLCN
BYTE (9) 000,000,000,000
;;
;
SUBTTL[JSACR]
JSACR: JBURSE
JPOPJ
JTMP2E
JPOPJ
MOVE T1,CLINEL
JUMPE T1,CPOPJ
AOS CLINE
CAMGE T1,CLINE
JSPR
JPOPJ
;;
;
SUBTTL[JSCON]
JSCONT: JBURSE
JRST JSCON2
JSCON: CAIN Z,CCNULIN
JRST JNULIN
JSCON2: CAIN Z,CCRETUR
JRST JRETUR
CAIN Z,CCHTAB
JRST JHTAB
CAIN Z,CCPAGE
JRST JPAGE
CAIN Z,CCVTAB
JRST JVTAB
CAIN Z,CCBKSP
JRST JBKSP
JPOP1
JNULIN: JRETUE
JPOP1
MOVEI Z,CCRETUR
JSTPUT
JNULI1: MOVEI Z,CCNULIN
JRETUR: SETZM CLINE
JPOP1
JHTAB: SKIPN CLINEL
JPOP1
MOVE T1,CLINE
ADDI T1,10
ANDI T1,777770
MOVEM T1,CLINE
JPOPJ
JPAGE: SKIPN CVERTL
JPOP1;NO
JFCL
JFCL
SETZM CVERT
JPOP1
JVTAB: SKIPN CVERTL
JPOP1;NO
JFCL
JFCL
JPOP1
JBKSP: SKIPN CLINEL
JPOP1;NO
SKIPE CLINE
SOS CLINE
JPOP1
;;
;
SUBTTL[JSDT]
JSDT: TRZ SWITCH,31000
JCMA
TTCALL 6,Z
HLL Z,LNBTS
TTCALL 7,Z
JSTTI
JPOPZ
SUBTTL[JSDTI]
JSDTI: JCMA
TTCALL 6,Z
HLLM Z,TTSTAT
IFN NCAR,<
MOVEI Z,206
CAME Z,JRPOPA-1
JPOPJ
HLRZ T2,T1
TRNN T1,20
CAIE T2,(SIXBIT /TTY/)
JPOPJ
LSH T1,-6
MOVE T2,T1
LSH T2,-3
ANDI T1,27
ANDI T2,70
JUMPE T1,JSDTI1
SUBI T1,20
ADD T1,T2
CAIL T1,12
>
JPOPJ
IFN NCAR,<
JSDTI1: JRETUO
TLO Z,20
HLLM Z,LNBTS
JPOPJ
>
;;
;
SUBTTL[JSPR]
JSPR: PUSH P,Z
SETZM CLINE
MOVEI Z,CCRETUR
JSTPUT
JSPR1: MOVEI Z,CCNULIN
JSTPUT
POP P,Z
JFCL ;TEST FOR PAGE HEIGHT CONTROL
JPOPJ
;;
;
SUBTTL[JSTGET]
JSTGET: JBURSN
JRST JTINP
JDINP: HLRZ PAL21,sybuis
HRRZ PAN2,sybuis
JDICNT: JXSOGE
JRST JDIGET
JDINXT: JXILDB
JUMPE Z,JDICNT
CAIN Z,CCRETUR
JRST JDICNT
JPOPJ
JDIGET: JXBUIO
JXBUST
JRDNAV
JXBUEF
JRQ
JRST JDICNT
;;
;
SUBTTL[JSTI]
JSTI: JJEALT
JRST JSTI3
JSTGET
JSTI1: JTSTCN
JRST JSTI4
JSACR
JSTI2: MOVEM Z,C
JPOPJ
JSTI3: JJZALT
MOVE Z,GETHLD
JRST JSTI1
JSTI4: CAMN Z,CESCAP
JRST JIESC
CAIN Z,CCSUB
JRST JSTI5
PUSHJ P,JSCONT
JSACR
MOVEM Z,C
JPOPJ
JSTI5: JSTGET
TRO Z,200
JRST JSTI1
;;
;
SUBTTL[JSTINH-F]
JSTINH: JOAECH
JSTINF: JJZECH
SETO BASE,0
TTCALL 6,BASE
JNECHO
TLZA BASE,4
TLO BASE,4
TTCALL 7,BASE
JPOPJ
;;
;
SUBTTL[JSTL]
JSTL:JSTO:
CAIL Z,CMASK
JPOPJ
JTSTCN
JSCON
JSACR
JSTPUT
JTBCK
JPOPJ
;;
;
SUBTTL[JSTPUT]
JSTPUT: JBUPSN
JRST JTOOUT
JDOUT: HLRZ PAL21,sybuos
HRRZ PAN2,sybuos
JDOUT1: JXSOSG
JRST JDOBUF
JDOUT2: JJE8BX;skip if seven bit output
JRST JDOUT3
JDOSEV: CAMN Z,CSEQNO
JRST JDOUT4
TRZE Z,200
JRST JDOEXT;8 bit char = SUB & 7 bit char
JDOUT3: JXIDPB
JPOPJ
JDOBUF: JXBUIO
JXBUST
JRDNAV
JRST JDOUT2
JDOUT4: JFCL
JFCL
JRST JDOUT3;TEMP SHORT CIRCUIT
JDOEXT: PUSH P,Z
MOVEI Z,CCSUB
JXIDPB
POP P,Z
JRST JDOUT1
;;
;
SUBTTL[JSTTI]
JSTTI: HRRZ Z,LNBTS
ANDI Z,OKSTAT
JSTTIC: CALLI T1,34
SETZI T2,
OPEN CHANT,Z
JRCE
CLOSE CHANT
IFE MON506,<JPOPZ>
IFN MON506,<
CALLI T1,30
CALLI T1,115
JRST ERR115
MOVEM T1,INDEX+1
MOVEI T1,2026
MOVEM T1,INDEX
MOVEI T1,1
MOVEM T1,INDEX+2
MOVE T2,[XWD 3,INDEX]
CALLI T2,116
JRST JSTTIX
JPOPZ
JSTTIX: MOVEM T2,INDEX+4
JRNAV
;;
;
SUBTTL[JSTTIR]
JSTTIR: JCMA
TTCALL 6,Z
HLL Z,TTSTAT
TTCALL 7,Z
JCLA
JSTTIC
JPOPZ
;;
;
SUBTTL[JTBCK]
JTBCK: JJEINT
JPOPJ
TTCALL 13,0
JPOPJ
TTCALL 0,Z
CAIE Z,134
JPOPJ
TTCALL 12,0
JRCE
;;
;
SUBTTL[JTINP]
JTINP: SKIPE TM2
JRST JTINP1
JTINP2: JXTTC0
JPOPJ
JTINP1: TTCALL 13,0
JXSKIP
JRST JTINP2
CALLI Z,23
LSH Z,-1
CAMGE Z,TM2
JRST JTINP1
SETZM TM2
TTCALL 11,0
JRQ
;;
;
SUBTTL[JTOUT]
JTOOUT: JJM37E
JRST JTO37E
JJINFE
JRST JTOINF
JRETUE
JRST JTOIBM
JXTTC1
JPOPJ
JTOIBM: CAIN Z,15
JPOPJ
CAIN Z,12
MOVEI Z,15
JXTTC1
JPOPJ
JTOINF: JFCL;INF
JXTTC1
JPOPJ
JTO37E: TRNE Z,200
TRC Z,100;complement bit 7 for spec 37
JXTTC1
JTOFI: CAIL Z,15
JPOPJ
CAIN Z,11
JRST JTOFHT
CAIN Z,14
JRST JTOFFF
CAIE Z,13
JPOPJ
JTOFVT: SKIPA Z,3
JTOFFF: MOVEI Z,5
JTOFI1: CALLI Z,31
JPOPJ
JTOFHT: JCLA
MOVEI BASE,2
JTOFI2: JXTTC1
SOJN BASE,JTOFI2
JPOPJ
;;
;
SUBTTL[MOLF]
MOQF:
MOLF4: SETZM ARG1
MOLF3: MOVEM Z,TEM2
JSER
MOLF1: JSFDL
JRQ
MOVEM Z,LT
JSAT
MOVE Z,LT
ROT Z,-6
ANDI Z,77
ADDI Z,100
JSW
MOVE Z,LT
ANDI Z,77
JUMPN Z,MOLF5
ADD Z,ARG1
JUMPE Z,MOLF1
MOLF5: ADDI Z,100
JSW
JRST MOLF1
molf2: MOVEI T1,53-100
MOVEM T1,ARG1
JRST MOLF3
;
;;
;
SUBTTL[PLOVF]
PLOVF: 230000
CH2:PLOV:
MOVE T1,.JBCNI
MOVE T2,PLOVF
CALLI T2,16
JSER
MOVEI Z,74
JSW
JSXR
MOVEI Z,76
JSW
JFCL
JRQ
;;
;
SUBTTL[QCI]
QCI: JSNQ
JSPK
JRST QCI1
JSD
QCIL-1
QCI1: JSXX
ANDI Z,77
JUMPE Z,CI00
MOVE PAL21,Z
JJESGN
JRST QCINEG
JSD
MOCIL-1
QCINEG: JSD
MOCIL3-1
QCIGT: JSPKA
JSD
QCIGTL-1
QCIQF: MOVEI Z,MOCIL-1
JRST QCIL3
CIGTQF: MOVEI Z,CI41L-1
QCIL3: MOVEM Z,TEM2
JSER
QCIL4: JSFDL
JRQ
MOVEM Z,LT
JSAT
MOVE T1,LT
JSXR
JRST QCIL4
;
SUBTTL[QSY]
Qsy: JSPKA
JSD
QSYL-1
QSYSO: JSER
JSGSIX
JRXR
QSYOS: JSXX
MOVE T1,Z
JRSIX
QSYAO: JSER
JSGSEV
JRXR
QSYOA: JSXX
MOVE T1,Z
JSSEV
JRQ
;;
;
;;
;
SUBTTL[QSYAD]
QSYAD: JSAE
JRST QSYAD1
JSGSIX
JSAS
MOVE E1,T1
JSGT
JCIA
SKIPN Z
CALLI Z,30
MOVE E,Z
CALLI E,21;REASSI
SKIPN E
JRAZ
JUMPE E1,JRAD
JRQ
QSYAD1: JRNAV
;;
;
SUBTTL[syaf]
qsyex: AOS Z
QSYRB: AOS Z
QSYWF: AOS Z
QSYRF: AOS Z
qsyef: AOS Z
qsylf: AOS Z
qsysf: AOS Z
qsybf: AOS Z
qsyaf: MOVEM Z,PAN2
MOVE T1,XBDEV
JSAE
JRST qsyaf1
JSGSIX
MOVE Z,T1
CALLI Z,4
TLC Z,47
TLNE Z,47
JRNAV
qsyaf1: SKIPN PAN2
JRST qsyaf2
MOVEM T1,KBBUF(PAN2)
JRQ
qsyaf2: MOVEI T2,11
qsyaf3: SOJE T2,JRQ
AOS PAN2
MOVEM T1,KBBUF(PAN2)
JRST qsyaf3
;;
;
SUBTTL[QSYDI-DO]
QSYPL: MOVEI Z,1
JXSKIP
QSYDI: JTMP3A
QSYDO: JTMP3O
QSYDIO: MOVEM Z,TEM5
JSPKB
qsydif: MOVEM PAL21,CHAR2
MOVEI Z,CHANAS(PAN2)
MOVEM Z,CHAR1
MOVE PAN2,CHANAS(PAN2)
SKIPE PAN2
JSBUFC
JSNQ
MOVE PAL21,CHAR2
MOVEM PAL21,SYBUCH+INDEX-1
MOVSI T5,(INPUT 0,)
JTMP3E
MOVSI T5,(OUTPUT 0,)
ADD T5,PAL2
MOVEM T5,SYBUIO+INDEX-1
MOVSI T5,(STATZ 0,)
ADD T5,PAL2
ADDI T5,20000
MOVEM T5,SYBUEF+INDEX-1
ADDI T5,740000-20000
MOVEM T5,SYBUST+INDEX-1
MOVSI T5,(CLOSE 0,)
ADD T5,PAL2
MOVEM T5,SYBUCL+INDEX-1
MOVSI T5,(GETSTS 0,)
ADD T5,PAL2
ADDI T5,ERBIT
MOVEM T5,SYBUGS+INDEX-1
JSNQ
JSBDN
MOVEM E,SYBUE0+INDEX-1
MOVEM E1,SYBUE1+INDEX-1
JTMP3E
SKIPA E3,DIWRIT
MOVE E3,DIREAD
PUSHJ P,JSBDPW
MOVEM E3,SYBUE3+INDEX-1
SETZB E2,SYBUE2+INDEX-1
JSGSIX
SKIPN T1
MOVSI T1,(SIXBIT /DSK/)
MOVEM T1,SYBUDV+INDEX-1
JSXX
JFCL ;MODE TEST HERE
MOVEM Z,SYBUMO+INDEX-1
JSXX
MOVEM Z,ARG2;BYTE POINTER IF 0 STANDARD
JSXX
MOVEM Z,ARG3;INCREMENT DESIRED TO BUFFER SIZE
MOVE E1,SYBUDV+INDEX-1
QSYIO3: MOVEI Z,E
JFCL ;UNTIL CALLI Z,101 WORKS
MOVEI Z,203
ADD Z,ARG3
JUMPLE Z,QSYERR
ADD Z,Z
ADDI Z,SYBUR0-1
MOVEM Z,ARG1
ADD Z,BUFLOW
CAMLE Z,OR2
JSBUFO
MOVE PAN2,BUFLOW
MOVE Z,BUFLOW
ADDI Z,1
MOVEI T2,SYBUR0(PAN2)
JTMP3E
TLO PAN2,1
JFCL
HRLI Z,INDEX
HRLI T2,(BLT Z,)
XCT T2
QSYIO4: MOVE E2,CHAR1
AOS E2
JTMP3E
HRLZ E2,E2
MOVSI Z,(OPEN 0,)
ADD Z,PAL2
ADDI Z,E
XCT Z
JRNAVO
MOVSI E,(LOOKUP 0,)
ADD E,PAL2
ADDI E,SYBUE0(PAN2)
MOVE Z,E
MOVSI PAL21,(INBUF 0,)
ADD PAL21,PAL2
ADDI PAL21,2
TLO E,1000
XCT Z
JRST QSYIO5
JTMP3N
JRST QSYIO7
SKIPE TEM5
JRST QSYIO7
JSBUFC
JRNAEF
QSYIO5: TLC PAL21,1000
JTMP3N
JRST QSYIO6
XCT E
JXSKIP
JRST QSYIO7
QSYIO6: JSBUFC
JRNAV
QSYIO7: MOVEI T2,SYBUR0(PAN2)
MOVEM T2,.JBFF
XCT PAL21
MOVE T1,.JBFF
SOS T1
ADD T1,ARG3
ADD T1,ARG3
MOVEM T1,BUFLOW
HRLZ Z,PAN2
AOBJN Z,.+1
MOVEM Z,SYBUH1(PAN2)
MOVE Z,ARG2
JUMPE Z,QSYIO8 ;STANDARD BYTE POINTER
MOVE T1,CHAR1
ADDI T1,2
MOVEM Z,@T1 ;SPECIAL BYTE POINTER
QSYIO8: SKIPN ARG3
JRST QSYIO9
SOS T1
HRRZ T1,@T1
HLRZ T2,@T1
HRRZ T3,@T1
ADD T2,ARG3
ADD T3,ARG3
HRLM T2,@T1
HRRM T3,@T1
HRRM T1,@T3
HRLM T2,@T3
QSYIO9: MOVE Z,ARG1
LSH Z,2
SUBI Z,17
HRRM Z,SYBUH2(PAN2)
MOVEI Z,SYBUR0
LSH Z,2
SUBI Z,14
HRRM Z,SYBUH3(PAN2)
MOVEM PAN2,@CHAR1
JFCL
JRQ
QSYERR: JRNAV
;;
;
SUBTTL[QSYDR-DW]
QSYDR: MOVEI T1,DIREAD
JXSKIP
QSYDW: MOVEI T1,DIWRIT
SETZM ,@T1
JSBDP
MOVEM E3,@T1
JRQ
;;
;
SUBTTL[QSYED]
QSYED: JSPKB
MOVE PAN2,CHANAS(PAN2)
JUMPE PAN2,JRQ
JXBUEF
JXSKIP
JRAZ
LSH PAL21,2
ADDI PAL21,CHANAS+4
SKIPE @PAL21
JRAZ
JRAD
;;
;
SUBTTL[QSYLD-LU-LS]
QSYLD: ADDI Z,13
QSYLU: ADDI Z,3
QSYLS: ADDI Z,46
MOVSI PAL21,(CALLI PAL2,)
ADD PAL21,Z
JSER
MOVEI PAL2,0
QSYLS1: XCT PAL21
JRNAV
JUMPE PAL2,JRQ
JSAT
MOVE T1,PAL2
JSSIX
JRST QSYLS1
;;
;
SUBTTL[QSYMP]
QSYMP: JSXX
ANDI Z,777
LSH Z,11
HRLM Z,PNTPUN
JRQ
;;
;
SUBTTL[QSYMT]
QSYMT: JSPK
JRQ
JSD
SYMTL-1
SYMTQF: MOVEI Z,SYMTL-1
JRST molf2
SYMTMO: JRNAV
SYMTIC: AOS Z ;101
SYMTDC: ADDI Z,100 ;100
SYMT1: MOVEM Z,ARG1
JSPKB
MOVSI T3,(MTAPE 0,)
ADD T3,PAL2
ADD T3,ARG1
XCT T3
JRQ
SYMTWB: ADDI Z,10
SYMTWE: ADDI Z,3
JRST SYMT1
SYMTAE: ADDI Z,10
JRST SYMT2
SYMTAF: ADDI Z,10
SYMTAR: ADDI Z,6
SYMT2: MOVEM Z,ARG1
JSPKB
MOVSI T3,(MTAPE 0,)
ADD T3,PAL2
MOVE T4,T3
ADD T3,ARG1
XCT T3
XCT T4
JRQ
SYMTRU: ADDI Z,10
SYMTRL: ADDI Z,1
JRST SYMT2
SYMTBF: ADDI Z,10
SYMTBR: ADDI Z,7
MOVEM Z,ARG1
JSPKB
MOVSI T3,(MTAPE 0,)
ADD T3,PAL2
MOVE T4,T3
MOVE T5,T3
MOVE T6,T3
ADD T3,ARG1
ADDI T5,4000
ADDI T6,16
XCT T3
XCT T4
XCT T5
XCT T6
JRQ
SYMTDE: ADDI Z,200;800BPI
SYMTDF: ADDI Z,200;556BPI
SYMTDT: ADDI Z,201;200BPI
JXSKIP
SYMTPE: ADDI Z,1100
SYMTPO: MOVEM Z,ARG1
JSPKB
MOVSI T5,(GETSTS 0,)
ADD T5,PAL2
ADDI T5,ARG2
XCT T5
MOVSI T5,(SETSTS 0,)
ADD T5,PAL2
JFCL
JFCL
ADD T5,ARG1
XCT T5
JRQ
;;
;
SUBTTL[QSYPA-PB-PI-PC]
QSYPC: TRO Z,140000
QSYPI: TROA Z,100000
QSYPB: TRO Z,40000
QSYPA: HRLZI PAL21,(SIXBIT /PUN/)
JRST QSYPR0
;;
;
SUBTTL[QSYPF-PR-PS]
QSYPF: TRO Z,100000
QSYPR: HRLZI PAL21,(SIXBIT /PNT/)
IFNDEF QUEUE,< JXSKIP>
IFDEF QUEUE,< JRQ>
QSYPS: HRLZI PAL21,(SIXBIT /360/)
QSYPR0: JJEPNF
TRO Z,400000
HRRZ T1,PNTPUN
ANDI T1,37777
ADD Z,T1
MOVEM Z,TEM1
JSNQ
MOVE BASE,FLOW
MOVE Z,DIREAD
SKIPN Z
CALLI Z,24
AOS BASE
MOVEM Z,@BASE
IFN LEVELC,<
QSYPR1: JSAE
JRST QSYPR2
JSBDL
AOS BASE
MOVEM E,@BASE
AOS BASE
HRR E1,TEM1
MOVEM E1,@BASE
JRST QSYPR1
>
IFN LEVELD,<
MOVEM Z,ARG1
JSBDI
MOVE PAL2,BASE
QSYPR1: JSAE
JRST QSYPR4
MOVEI E,16
MOVEM E,1(PAL2)
SETZM 2(PAL2)
HRLZI E2,2(PAL2)
HRRI E2,3(PAL2)
BLT E2,17(PAL2)
MOVE Z,ARG1
MOVEM Z,2(PAL2)
JSBDL
MOVEM E,3(PAL2)
MOVEM E1,4(PAL2)
LOOKUP CHAND,1(PAL2)
JRST QSYPR1
MOVEM E,1(PAL2)
HRR E1,TEM1
MOVEM E1,2(PAL2)
MOVE E1,17(PAL2)
MOVEM E1,3(PAL2)
SETZM 4(PAL2)
MOVEI PAL2,3(PAL2)
JRST QSYPR1
QSYPR4: MOVE BASE,PAL2
>
;;
;
QSYPR2: MOVE E,PAL21
MOVE Z,[XWD 4,16]
CALLI Z,41
MOVE Z,[XWD 3,3]
MOVEM Z,PAL21
MOVE T1,[XWD 15,16]
CALLI T1,41
HRLZI T1,(SIXBIT /DSK/)
MOVEI Z,17
SETZ T2,
OPEN CHAND,Z
JRNAV
JXSKIP
QSYPR3: AOS E
MOVSI E1,(SIXBIT /TMP/)
SETZI E2,
MOVE E3,PAL21
LOOKUP CHAND,E
JXSKIP
JRST QSYPR3
MOVE T1,FLOW
JSBDF
JRQ
;;
;
SUBTTL[QSYPP]
QSYPP: JSXX
ANDI Z,777
HRRZ T1,PNTPUN
ANDI T1,37000
QSYPP1: ADD Z,T1
HRRM Z,PNTPUN
JRQ
SUBTTL[QSYPQ]
QSYPQ: JSXX
ANDI Z,37
HRRZ T1,PNTPUN
ANDI T1,777
LSH Z,11
JRST QSYPP1
SUBTTL[QSYQB]
QSYQB: MOVE T1,ERBIT
JJEPNF
SETZM ERBIT
JRXR
;;
;
SUBTTL[QSYQD]
QSYQD: JSNQ
JSER
JSGSIX
CALLI T1,4
JRXR
SUBTTL[QSYQF]
QSYQF: MOVEI Z,QSYL-1
JRST molf2
SUBTTL[QSYQP]
QSYQP: HLRZ T1,PNTPUN
LSH T1,-^D9
JRXR
SUBTTL[QSYQR-QW]
QSYQR: SKIPA T1,DIREAD
QSYQW: MOVE T1,DIWRIT
JUMPE T1,CI24
JRPPN
SUBTTL[QSYRD]
QSYRD: JRNAV
QSYSD: JRNAV
SUBTTL[QSYSN]
QSYSN: JSR9
MOVEM Z,CSEQNO
JRQ
;;
;
SUBTTL[QSYTC]
QSYTC: JSPK
JRQ
JSD
SYTCL-1
SYTCQF: MOVEI Z,SYTCL-1
JRST molf2
SYTCFS: CALLI Z,44
JRNAV
MOVE T1,Z
JRXR
SYTCRF: JRNAV
SYTCDF: JRNAV
SYTCWF: JRNAV
SYTCRD: JRNAV
SYTCCD: JRNAV
SUBTTL[BYTEPOINTERS]
ZP20: POINT 9,@PAL2,^D8
ZP21: POINT 9,@PAL2,^D17
ZP22: POINT 9,@PAL2,^D26
ZP23: POINT 9,@PAL2,^D35
ZT10: POINT 9,@T1,^D8
ZT11: POINT 9,@T1,^D17
ZT12: POINT 9,@T1,^D26
ZT13: POINT 9,@T1,^D35
ZT50: POINT 9,(T5),^D8
POINT 9,(T5),^D17
POINT 9,(T5),^D26
POINT 9,(T5),^D35
;;
;
SUBTTL[LNST]
LNST: EXP NSTL-1
EXP -6
NSTL: EXP 74
EXP "a"
EXP "r"
EXP "1"
EXP "0"
EXP 76
GL: 0
EXP -^D100000000000
EXP -^D10000000000
EXP -^D1000000000
EXP -^D100000000
EXP -^D10000000
EXP -^D1000000
Kqrn: EXP -^D100000
EXP -^D10000
EXP -^D1000
EXP -^D100
EXP -^D10
EXP -^D1
GX: 0
EXP -100000000000
EXP -10000000000
EXP -1000000000
EXP -100000000
EXP -10000000
EXP -1000000
EXP -100000
EXP -10000
EXP -1000
EXP -100
EXP -10
EXP -1
GXL: EXP 0
K400K: 400000000000
K500K: 500000000000
K600K: 600000000000
K700K: 700000000000
;;
;
SUBTTL[LIT]
LIT
;;
;
SUBTTL[LOWPOINT]
IFN PURE,<LOC 140>
BUFTOP: BLOCK 1; END OF BUFFER ZONE
BUFLOW: BLOCK 1; LIMIT OF BUFFER ZONE
OR2: BLOCK 1; START OF WORKING AREA
LOW: BLOCK 1
FTOP: BLOCK 1
FLOW: BLOCK 1
END: BLOCK 1
qqofQ: BLOCK 1; OVERFLOW INFO
PEL: BLOCK 1; SO-1, EXPRESSION LEFT END
PFL: BLOCK 1; WORKING STRING WRITE POINTER
PAE: BLOCK 1; SO+12, END OF WORK AREA
PWR: BLOCK 1; SE-1, TOP LIMIT FOR PFL
PFI: BLOCK 1; POINTER FORM INTERNAL
PFF: BLOCK 1; POINTER FORM FORM
PFN: BLOCK 1; POINTER FORM NAME
RUNTIM: BLOCK 1; RUNTIME
LPUSH: BLOCK 40; START OF PUSH AND POP LIST
KPUSH=.-LPUSH; LENGTH OF PUSH POP LIST
;;
;
SUBTTL[LOWTEMP]
CHAR1: BLOCK 1; TEMP-FORM LEFT LIMIT
CHAR2: BLOCK 1; TEMP-FORM RIGHT LIMIT
LT: BLOCK 1; TEMP - (LENGTH OF BLOCK ON DISC IN 8 VERSION)
C: BLOCK 1; CHARACTER RETURNED HERE IN I/O
ARG1: BLOCK 1; TEMP LOC
ARG2: BLOCK 1
ARG3: BLOCK 1
TEM1: BLOCK 1
TEM2: BLOCK 1
TEM3: BLOCK 1
TEM4: BLOCK 1; MORE TEMPS
TEM5: BLOCK 1
TEM6: BLOCK 1
PALPAL: BLOCK 1; SAVED PAL
ADS32: BLOCK 1; USED FOR SWITCH XCT
ADS33: BLOCK 1; DITTO
TCECNT: BLOCK 1; COUNTER FOR TRACE
S1S2: BLOCK 1; CURRENT FUNCTION
S3S4: BLOCK 1
LNBTS: BLOCK 1; L/H CURRENT GETLCH, R/H STATUS OF TTY (LEVELD)
TTSTAT: BLOCK 1; L/H GETLCH AT ENTRY TO PRO, R/H SPARE
ZERO: BLOCK 1; COUNTER OF ARITHMETIC ARGUMENTS
;;
;
SUBTTL[LOWINIT]
;FOLLOWING ZONE SETUP AT INITIALIZATION TIME AND ON RESET
KKYN: BLOCK 1; NAME OF SCE TRAP FORM
DIREAD: BLOCK 1; SOURCE DIRECTORY
DIWRIT: BLOCK 1; DESTINATION DIRECTORY
CWCTAB:
CWCSA: BLOCK 1
CWCSN: BLOCK 1
CWCSE: BLOCK 1
CWCSP: BLOCK 1
CWCMB: BLOCK 1
CWCMA: BLOCK 1
CWCMN: BLOCK 1
CWCAS: BLOCK 1
CWCQC: BLOCK 1
CWCIC: BLOCK 1
CWCBQ: BLOCK 1
CWCEQ: BLOCK 1
CWCBP: BLOCK 1
CWCEP: BLOCK 1
CWCBA: BLOCK 1
CWCEA: BLOCK 1
CWCAST: BLOCK 1
CWCDOL: BLOCK 1
;
SYN: ; USER'S RESTART EXPRESSION
CPSN: BLOCK 1; &
BLOCK 1; o
BLOCK 1; s
CPCM: BLOCK 1; ,
SYN1: BLOCK 1; %
SYNR: BLOCK 1; i
BLOCK 1; s
CPRP: BLOCK 1; /
CPRP1: BLOCK 1; /
MCH: BLOCK 2; ACTIVATOR AND END OF TABLE
SPRWD1: BLOCK 1
SPRWD2: BLOCK 1
CESCAP: BLOCK 1; CURRENT CHAR. DENOTING ESCAPE FOR INPUT
RIXBIX: BLOCK 1; "N" AND "X" RADICES
RUBOUC: BLOCK 1; SPARE
RUBOUT: BLOCK 1; CURRENT RUBOUT CODE
CSEQNO: BLOCK 1; CHARACTER MARKER FOR S/N BIT
TM2: BLOCK 1; USED BY %iw,n/ INPUT TIMER
LNMOXR: BLOCK 1; XR LINE LENGTH
BSEK: BLOCK 1; -260 ASCII BASE OF ARITHMETIC
PNTPUN: BLOCK 1; R PRINT/PUNCH PARAM PROT
CLINEL: BLOCK 1; CONSTANT FOR LINE LENGTH
CVERTL: BLOCK 1; PAGE HEIGHT CONSTANT
TTYPVT: BLOCK 1; TYPE OF TERMINAL
TTYCON: BLOCK 1; CONTROL ON TERMINAL
DFILEX: BLOCK 1; FILE EXT CONTROL
DSK1: BLOCK 2; INCLUDES ZERO FILE
sybuos: BLOCK 1; OS VT OUTPUT DEVICE
sybuis: BLOCK 1; IS IC ID IM INPUT DEVICE
CHANSP: BLOCK 10; CHANNEL ASSIGNMENT CONTROL REGISTERS
KBSTAT: BLOCK 1; SPEC FOR BF/SF/EF/LF/
KBDEV: BLOCK 1; ACTIVE DEVICE ON CHAND
KBBUF: BLOCK 1; IO BUFFER SPEC
kdevbf: BLOCK 1; BF DEVICE
kdevsf: BLOCK 1; SF DEVICE
kdevlf: BLOCK 1; LF DEVICE
kdevef: BLOCK 1; EF DEVICE
kdevrf: BLOCK 1; RF DEVICE
kdevwf: BLOCK 1; WF DEVICE
kdevrb: BLOCK 1; UF DEVICE
kdevex: BLOCK 1; EX DEVICE
;;
;
SUBTTL[LOWBUF]
CLINE: BLOCK 1;CURRENT CHAR. POS. ON LINE
CVERT: BLOCK 1;CURRENT LINE POS. ON PAGE
GETHLD: BLOCK 1
ERBIT: BLOCK 1;ERROR BITS FROM GETSTS
RM: BLOCK 1;RANDOM NUMBER CELL
KWITCH: BLOCK 1;SWITCH AUXILIARY
INDEX: BLOCK 200
ZCNTRS: BLOCK 12; "Z" REGISTERS FOR ZQ,ZI,ZS,ZD
CHANAS: BLOCK 4*SYCHBK;CHANNEL HEADERS
TTOBUF: BLOCK 100;BUFFERED OUTPUT BUFFER RING
;;
;
DATAE: END BEGIN
;;
;