File RK8EB.SY (system heads for building new disk)

Directory of image this file is from
This file as a plain text file


7b z
	<z&& " zD!D+aZ bKpf|?1`=B^l<>	OQ,
|zH @@ (PP
|7 @bj08H@|
bfnil_&&0bk&4(Xjf4dS@bhoklFj] (arlJ.kf-hc-a:ZeD^ Ozj]"h\zjhb ` X~h/J.b-VbmaRZbe] Tzdid^*OO1m@hijklmny@p}z(@"L}0.v&xERC)tGsGpy@p	 zzT@E1y	&%'/(Kp#~8@tJCj`7$@@^\8.P
ZtW@0?Votrqpn}ePdKr2*wV)AR?v(iAs`
pWM v@X?zf~ F:!J&N&0ffS$& %f#cT(/~"sbt(/=}"@sb*zu"P|bBz#{"@z#H.$ &z 9zn c #t%$B$$v*# /		Ky	
FX8@px``xXOX ?U!,]+
.

njj`z(j{~z ~)jv?R?y	
 	lwv{50ut&r-?ekJ;I-,<{i.w r2q5(p!&,(/+"n"on7m)&yBEnP"BlikC&D&tE&
IjD25i2nrm&5hZl	(
,hg;(E&k(/f&Ze2|cm
Wd&ct&5hZbyi
t9y0 f ?a`3{|s_ ^|3m]\!|)|H?{y2[_rZYwXW'V'U0
I	
T|S&R3.iA
QP9O>)N{Ms\Ns`Ms]OsmVG"{Lr\sd~b!!cY!tS"!cz KY3X!cJH/SL"@IuJe&I >.g&@vH)i&dVer!!chuV{!GzGxTL qsINIT	
w
ZS&C
t	,32'2D1J3C@o!('|)0(z&S"}B(|F:M1@`|"tO 7 D!JK*#7	|)a'F&vKHK;
 2@Fb"oXa(aa""Jj T Fnq{'`+?D. b fap2
Yb!	l!tn,E	<!qzD~iI)v}?2H/Ct&lS"FWHk;rs*rGrmroreBrvdrrqr};r2'B"HzuA(/'{7@")2?2>)u=&2+"A(/@ K)T) &K) b WW4(W{(/aW$XW#  kuC)t&(?T)jG)s0<m);}&z"(
{y-9+(?	y),
0y9
8&9c0y	A-
E99D>X!n+*&*D.8&*!.*pkx`1`RPSDX*f*B p`(0{v&xO	HAE17|>bXE{
I	wEkZx	TU0777(Z{C6)7)Z0|ly
IiaS :*"xp{qx9AEy!Z7&(/H\s^f['t&7JH?H.q C w0F '>0\pA@!.FCbJoDF.B7&G,2bb	L0Ft5,,E' !;@@i]qPJ^r'!LJOo?p]6ppC\\bn(i ojtgyl
\i$dk)u^^pdH/!3
sIr@J
n
`(rHnu08^BpL@VRHzCp0!-6{|7z"7|>Pzs#(/g$;tz`eu}I7	2%~fP?a8p"#p$|S{x*pAwp6?y
)j;!)c|3(o&y'&@Qd sq`Xf^@t|- le&e!&@~b'z$&c'	3 F+Tac| /4//D//D/N}I./X>i!l})&!"|I!!beihP
!}IA/&
!,K> BHb{!rz~yA	NXz{xP>U  o <c0|t&yC	
Ni{}I&
i<}I &|+,f- /&w)|(_v*6w(*"Xn*ubtb"c!*b(!z"J@/vs2""rq)w|p("(?o$>nrnA&!'&!,2 ZzwPo{m`B\hCl}lt2$$bp BX.A@/!\x!Cb Xz"k0B!'$GJ'j;"Fni`h\+i(g{**bf"&*e"!*bd(&!d;ST[{
;|\<]	P@
A
%!.cq9|&R!qi|o[ )%&&-bp(b)6w$~
(a z(@?4wf)k Fnw!.(/8!.&Xpha4>Xxz8+f`&0(?` .&_&&$'&'^)!c ]z'&DLj((?a!.&AdA&2jh%2%+dB%&] ?)A+`!bjk\ul)0[p;~	"* .ZYX"`&-J.
W`!#f(V0 v{(?cf.U""&+J. /3]# T{$^) &r(v{,.$T2!_bU`!bS@/R!3 ~!!&db!bq*b =z_!&*&$^)$t!NJQ7UirP ~aa7(,2(OyN3a!f#&"#b(~!.!!.&8/|!"&dn*&M,6"%&!!. Z)7.w!L f`cs&!.(sV(2!.M(?;(OPabzf`cPP7(V0(v{ZP$!b!$g$$DP!b$0?K$7;J((mrO|v0`&a'
(?Rf.U OzI`#sa+N<'$@;+(?a"&s&'O;3 Cz"2sd~Jt"##bp|!ww Vp.((#eJH0&dbcrG /ys+
B:b9c!<c6\&C=d<B@Az@C@oA@#6ECh=Cx?Chn>>b.===t>rn.?==t8<!${X~: t~2 | AzsIm>&>v"(_zw(/Ex"(fzy>bC{c^"D nZD&u\*y(/Z@#
Vn@zr>9feE&a+
0spf=T8t~?X~k0 0f
lB,2b~m~d~16~~D'zDznH%z1c 3x114 pDb3(P0d" ~t~{8+@9x30<)@)
9981.&0D./b(Nzn..s 3x.i2(fzj(/C\"9.d/)z9IJ~d@N*9hZf/@L.B!1b(Cz .b.^b3 /H*X~k0 0f
lB,2b~m~d~16~~D'zDznH%z1c 3x114 pDb3(P0d" ~t~{8+@9x30<)@)
9981.&0D./b(Nzn..s 3x.i2(fzj(/C\"9.d/)z9IJ~d@N*9hZf/@L.B!1b(Cz .b.^b3 /H*(SkSb &zk~(/2(it j_&iJ_Jhi&l}(kv| /&l({ /!,Sdkz" .z.k&$k(Mzy(/;x"@b BzK7"_8_|^Q*OzkO `Kzd_(6k"_^`>g^&K TJlw({L0p&!La^$^_0?hhpevBN l{eK}zxer
|tfp{
p`xXcQ 7lb$&0~&C8d45(/9(7&Jr9{PnHo&8988840pDb'X.$ }|@Qz{@/z"(yr(o!x"(lzy /Su@ru@o906m`(/uo[,w(/dJ[K1\ZuSKvS(JjrS( .u  lz90}	Ep8@VFG]<hB%c~}c| d6C !{"BzB)y"BD3xJcBcBxJ.B
j<wv<k	#,ut B{wKqtOV#AutOVBHwtD@V*Kyq	SV
HeuOV1J`DqT V
HvRtCM}pp
@|8`BB(|S,w0DDDfb Lb%Zn%)&Byof/&%~ )%bo{&|0))&3w@!f4dS@bo)FbR`(/"J)bfRca]e-D of"/v& . XdGF*}(rb-VbmalZbe] ozdd*x*OO0<8}y~}4fgw6wwC@+z("mZim]"*ww
jmP(  wl}kiwS r'wJ>(orp/Xgf>fwb~~c	y
Hzws
oT#p/T# lpr5n@/Um"~wc ~r~~"Anb`azm'wc(uB1 f\sH
|%?8Zpl|@&!B}hy~}4fgw6wwC@+z("mZim]"*ww
jmP(  wl}kiwS r'wJ>(orp/Xgf>fwb~~c	y
Hzws
oT#p/T# lpr5n@/Um"~wc ~r~~"Anb`azm'wc(uB1 f\sH
|%?8Zpl|@&!B}h7XD+lV&Xc~Z3n&>J!d6}B@/@?4Dfjz	
oC"XXok=5j-tX4" b(Uzb|X(:k-Gj-rkLZjT	{X/${xnvLbJ"}B(J{m[Zni-lX[Xo$	VpWgJ%(x~op}8
OR USER LINE INPUT
COMOUT,	COMB-1	/USED FOR USER LINE SCAN
TYPSW,	0	/ODT COMMAND OCT-SYM SWITCH (0=OCT)
ERMODE,	0	/ERROR MESSAGE MODE SWITCH (0=LONG)

TEMP,	0
TEMP1,	0
TEMP2,	0
TEMP3,	0
ACC1,	0	/24 BIT ACCUMULATORS
ACC2,	0
ACCX1,	0
ACCX2,	0

NAM1=	ACC1	/DEFINITIONS FOR NAME BUFFER:
NAM2=	ACC1+1	/  THESE LOCATIONS ARE USED FOR A
NAM3=	ACC1+2	/  6 CHARACTER FILE (OR DEVICE)
NAM4=	ACC1+3	/  NAME & A 2 CHAR EXTENSION.

OPER1,	0
OPER2,	0

TEMPV1,	0	/24 BIT TEMPORARY STORAGE FOR
TEMPV2,	0	/ "SET TEMP ..." & "EVAL T"

CHAR,	0
CNT,	0
CNTR,	0
CNTRA,	0
NCNT,	0	/LINE POSITION COUNTER
FCNT,	0	/FORMAT NUMBER (INIT TO PACKED ASCII)
OUTPNT,	PACOUT	/POINTER TO DEFAULT OUTPUT ROUTINE
MODSW,	0	/MODES: NORMAL=0,MAPPED=+,OFFSET=-.
CHARSW,	0	/CHARACTER PACK & UNPACK SWITCH
CRSWT,	0	/= -1 IF GWORD TERMINATOR WAS A SPACE
SHUT,	0	/= -1 IF SOMETHING OPEN
MODIF,	0	/= -1 IF SOMETHING WAS MODIFIED
ABSSW,	0	/ABSOLUTE OR RELATIVE LOCATION FOR SEARCHES
DSWIT,	0	/DUMP SWITCH: "DUMP","LIST" & "SHOW ERR" -> 1
DMODE,	0	/DUMP MODE: NONE=0,PART=1,ALL=4000

CBLK,	0	/= CURRENT BLOCK
	0	/DUMMY FOR "SHOW ABS"
CAD,	0	/= CURRENT ADDREy/x]s(EzaOYbw&7wB!!b 
z!v6]Z9Xcvc'bxbwy&xy7 bb~ /" naa7w!.w`bcwt5b(!&`!>S"@zO0bxxb!ac@DzabxM>]]s@/}O9MTxa'v!.cc7]rG2*az`bvf(?pf.`!>&v2vzdhb+%|BASK)
RBLK1,	0	/START BLOCK OF FILE
DEVAD,	7607	/DEVICE ENTRY ADDR (INIT TO "SYS")
DEVNO,	1	/DEVICE NUMBER (INIT TO "SYS")
USRAD,	7700	/USR ADDRESS, INITIALIZED TO OUT
		/7700=MSGS IN; 0=NONE IN; 200=USR IN

/CONSTANTS
M400,	-400
M240,	-240
M215,	-215
M200,	-200
M100,	-100
M20,	-20
M10,	-10
M1,	-1
N7,	7
N15,	15
N20,	20
N77,	77
N177,	177
N200,	200
N377,	377
N7000,	7000
N7400=	M400

/ADDRESSES
READLN=	JMS I .		/GET NEXT INPUT LINE, WITH
	READ		/ SPECIAL TERMINATORS
TYPSTI,	TYPSTR
TYPSI,	TYPES
TYPECI,	TYPEC
TWOCI,	TWOCS
CRLFI,	CRLF
DIGIT=	JMS I .		/OUTPUT AN ASCII DIGIT
	DODIG
SPACE1=	JMS I .		/OUTPUT 1 SPACE OR ...
	DO1SP
SPACE2=	JMS I .		/OUTPUT 2 SPACES
	DO2SP
CTRLI,	CTRL
TWOT,	PACOUT
TYPEI,	TYPE
DECI,	DPRT
OCTI,	OPRT
DEC2I,	DEC2
PDATEI,	PDATE
RTL6I,	RTL6
RTR6I,	RTR6
SOCTI,	OCTSET
BKLOCI,	BKLOC
EVALI,	EVAL

PUSH=	JMS I .		/PUSH AC ON P.D.L.
	PUSHX
POP=	JMS I .		/POP P.D.L. INTO AC
	POPX
CALUSR=	JMS I .		/DO USR FUNCTION
	USEUSR
TADIDP=	JMS I .		/"TAD I DPNT" IN FIELD 1
	TIDPNT
TADICAD=  JMS I .	/"TAD I CAD" IN FIELD 1
	TICAD
DCAICAD=  JMS I .	/"DCA I CAD" IN FIELD 1
	DICAD

GWORDI,	GWORD
GARGI,	GARGS
ARGI,	ARG
GETI,	GET
ODGETI,	ODGET
GETNI,	GETN
SSKIPI,	SSKIP
LIMITI,	LIMITS
INCI,	INC
SORTI,	SORTJ
ENDCI,	ENDC
RECRLF,	MAIN1-1
RESTAR,	MAIN1

ERROR=	JMS I .
	XERROR

COMST,	COMB-1
TEMPST,	TEMPL-1
MASKBS,	SMASKB-1


PAGE

/PROGRAM MAIN LOOP AND DRIVER.  COLLECTS CHARACTERS
/INTO COMMAND BUFFER UNTIL END IS REACHED.

	DCA USRAD	NMxE^
jz*:*!q0
Y@DCP=}Yd@E0p3`}d^'pYx#xq{s?x8y
dzkZ&|O/	@?
5?PPSOD(shz_KN;tt*F	0	gP`vxvas@^
\e*F`DEQ=;zU$^u!>~ /}g~}|{z|y{z)yxrwv(zuiq9B{2C4sn4'2qv2%{
b2R{`!(c4G4m4c1Ax}<c,=s7;32shC
t%FF4VVcFt8c@oM<yM+^FpbjlF.h`sb&wCbfdw'8wjrx /sb"wFt[, FbVj00iM7g&S~g}&oui'qv>qs7qeIqIqIqqqq}<xkLqS(/n)'"m(/Ql"~zY ~g&z9 b|)wk&Kkr|i{z)(?4z)D{"z8jz)i"z|=5vfb&vBf e2Fn&h(nd"(bz|@.c/W{"vb StST5s;n .&v00h
zm:ba`Or)! /r)! /N"( zr!b zr!b z1(/r9@+"~b
1fNh(081V}&|&Nh2|9_BDA1^{1f}&|&NfD]	_T8U3^_N`4M0^{_L !7V^}?@ Hp@p??`qXfn a line printer,
     type ".SU BOOK"

  -  There are two (2) printer handlers available for the LA180 and LQP8. For
     further information on using the LQP printer under OS/8, type "HELP LQP".

  -  Notice that "BASIC", and all supporting progams have been moved to
     "RKB0:" . To access BASIC or play any of the games, it is neccessary to
     boot to RKB0:. This is done by typing ".R RKBOOT/B" . Return to normal
     by typing ".R RKBOOT/0". Typing ".HELP" when booted onto RKB0: will
     display a menu of available games.

  -  By the way, if you are)0`BB(|S,w}?DDDfb Lb%Zn%)&
Bybf &%~ )%bo{&|0))&3w@!f4dS@bo)FbR`(/"J)bfRca]e-D of"/v& . XdGF*}(rb-VbmalZbe] ozdd*x*OL0<8}CE", we mean to substitute

        the name of the device you want the diagnostic name of for "DEVICE"


                ie:     ".HELP RK05"
                        ".HELP TM8E"
     |B: 	?0 	>5<*	=
<(*0!*0&;*#<(*<	<<(-;	:<(*	9<(*8	8<(+	7<(+
	6<(+	5=(*	4?*39*	20!*90&;7&7%? <(0*?0	<>(-;*?	1*	05*
	?I) AND ? (DIRECTORY).
/
OMODES,	TAD SCANX1	/'SORTJ' POINTER TO CHAR LIST
	TAD (OTABLE-1-CCHARL
	DCA DPNT	/POINT INTO ADDR TABLE,
	TADIDP		/ GET OUTPUT ROUTINE ADDR,
ALTM1,	DCA OMODPT	/ & SET POINTER TO ROUTINE.
	JMS ECLOSE	/CLOSE THIS LOCATION
	SPACE1		/OUTPUT SPACE
	DCA CHARSW	/RESET UNPACK SWITCH
	JMS I ODGETI	/GET WORD
	JMS I OMODPT	/OUTPUT IN DESIRED FORMAT
	JMP SLO2	/AND GO REOPEN.
OMODPT,	0

/ROUTINE TO HANDLE BACKARROW.
BACKAR,	JMS ECLOSE	/CLOSE THIS LOCATION
	TADICAD		/GET THE CONTENTS,
	JMP UPARR1	/AND USE THEM AS THE ADDR

/ROUTINE TO HANDLE UPARROW.
UPARR,	JMS ECLOSE	/CLOSE THIS LOCATION
	TADICAD		/IS THIS A 'PAGE 0' REF.?
	AND N200
	SZA CLA
	TAD SLOCL	/YES, USE PAGE BITS
	AND M200	/ MASK PAGE OR 0 TO PAGE #
	DCA SLOCL	/ & SAVE IT
	TADICAD		/GET THE CONTENTS,
	AND N177	/AND USE THE ADDRESS BITS.
	TAD SLOCL	/ ALONG WITH PAGE BITS
UPARR1,	DCA SLOCL	/THIS IS 12 BIT ADDR
	JMP EXCL2	/NOW GO FINISH

/ROUTINE TO HANDLE SEMICOLON, LINE FEED & EXCLAMATION.

SEMIC,	DCA I TYPEI	/SET NO-OUTPUT SWITCH-V7B
LFLF,	STA		/LINE-FEED - CLOSE,INCREMENT,OUTPUT
EXCL,	DCA OMODPT	/EXCLAMATION - CLOSE,DECREMENT,OUTPUT
	JMS ECLOSE	/CLOSE THIS LOCATION
	IAC
	DCA ACC1	/SET UP D.P. INCREMENT
	DCA ACC2
EXCL1,	DCA DPSGN	/(FOR SAFETY)
	ISZ OMODPT	/INCREMENT OR DECREMENT?
	JMS DPNEG	/ DECREMENT, NEGATE VALUE
	CLL
	TAD ACC1
	TAD SLOCL	/UPDATE LOCATION TO 15 BITS
	DCA SLOCL
	RAL
	TAD ACC2
	TAD SLOCH
	AND N7		/ (BUT ONLY 15 BITS)
	DCA SLOCH
	TAD I TYPEI	/ ANY OUTPUT?-V7B
	SNA CLA
	JMP SLO2+1	/  NO, WAS ";" DO ONE SPACE
EXCL2,	JMS I CRLFI	/GIVE CR/LF FOR NEXT LINE
	JMS I BKLOCI	/OUTPUT ADDRESS
	  SBLK-1
	JMS I TWOCI	/OUTPUT "\ "
	  3440
	JMP SLO1	/NOW GO OPEN NEXT LOCATION

/ROUTINE TO HANDLE PLUS & MINUS.
PLUS,	STA		/"+", SET SWITCH
MINUS,	DCA OMODPT	/"-", CLEAR SWITCH
	JMS I ENDCI	/END BUFFER, TEST
	  JMP EXCL2	/NO ARG, DO SAME AGAIN
	JMS WCHEK	/LINE START WITH A COMMAND?
	JMS I ARGI	/NO, GET AN ARG
	JMP EXCL1	/UPDATE LOC & GO OPEN


ECLOSE,	0	/SUB. TO CLOSE THE LOCATION IF ARG.
	JMS I ENDCI	/END BUFFER WITH A CR.
	  JMP I ECLOSE	/ONLY A CR IN BUFFER, DONE
	JMS WCHEK	/DOES LINE START W. A WORD?
	JMS CLOSE	/ARG IN BUFFER, USE IT
	JMP I ECLOSE	/DONE

CLOSE,	0	/SUBROUTINE TO CLOSE A LOCATION
	JMS I ARGI	/GET ONE ARG
	ISZ SHUT	/ANYTHING OPEN?
	JMP I CLOSE	/NO, RETURN
	JMS I ODGETI	/YES, SET UP THINGS RIGHT
	STA
	DCA MODIF	/SET MODIFY FLAG
	TAD ACC1	/USE "LOC" AS DATA
	DCAICAD		/STORE IT
	JMP I CLOSE


PAGE

/ROUTINE TO 'EVALUATE' A SIGNED DOUBLE PRECISION ARITHMETIC
/  EXPRESSION & OUTPUT THE RESULTS IN OCTAL & D.P. SIGNED
/  DECIMAL.
XVAL,	JMS I EVALI	/GO EVALUATE
	SKP		/TERMINATED BY A CR
ERCC,	ERROR		/ SORRY!--TOO MANY ")"S
	JMS I TWOCI	/"= "
	  7540
	TAD ACC2
	JMS I OCTI	/OUTPUT HIGH ORDER IN OCTAL
	TAD ACC1
	JMS I OCTI	/OUTPUT LOW ORDER IN OCTAL
	TAD ACCX1	/SAVE REMAINDER FOR LATER
	DCA COMIR
	TAD ACCX2
	DCA COMOUT
	TAD (-7
	DCA XERROR	/MUST DEVELOP 7 DIGITS
	JMS I TWOCI	/OUTPUT " ("
	  4050
	TAD ACC2	/IS DPAC NEG?
	SMA CLA
	JMP DLOOP1-1	/NO, OUTPUT " "
	JMS DPNEG	/YES, MAKE IT POSITIVE
	TAD N15		/ AND OUTPUT "-".
	SPACE1
DLOOP1,	TAD (12		/RESET DIVISOR TO 10(10)
	DCA OPER1
	DCA OPER2
	JMS DDIV	/GO DIVIDE DPAC BY 10(10)
	TAD ACCX1	/ GET REMAINDER
	PUSH		/PUT IT ON PUSH-DOWN-LIST
	ISZ XERROR	/DONE YET?
	JMP DLOOP1
	TAD COMOUT	/YES, RESTORE REMAINDER
	DCA ACCX2
	TAD COMIR
	DCA ACCX1
	TAD (A_iy b;`.:"0,#!2(zEG<?1@nr	b("rjb5f1ws/x8.` >!~\$
@@p^<63 #`p)W(q`Y/JU"U
pFph!z?p$|AIq1L20 "&xqp/`%`q,Dr`;&(?~" z !f&!(/&}" nf|i{(/Pz)!(/'("@/!"(1z	#Brrrryy| f (/Vx"(w{v(/u"(Mzt /s6`rXqaq'3!$s:&sK*!VJ"L*p'+o',+0vfhzzfn bDf.Hs{b lJ"d*n &	,`m9`SA3LS(`
(/*%"$bb%b&!b(r()r$fl'&
pIk&2#kfjb nfi  h" jr(s{g(/Yf),> e  bd@/6"Hb bUznct6" ts4c5*k(/v-*k&b
pI{
l@.b/Fnu`	#Bkr`2("r(a{2J`mTU0 qbfis?_p.oNt&	B a'K ^@.]//\"P_b$t$2[[mE`C XQS%Z	}&Y&tD,X0W2(JzV(/V{"(YzUI+T9J#S(/JR"TY! (s{g"VnwbQFu`7 BP(/i Oy3miL#A YCX6)blp"FNBc r({k/;s/5/Ym/o/e/Q/q/!/
v/v}/; mrMH/J(sJ8L{mK.J"6I6)J z	 NH!|GG+FmhE6)JD2Xn	qGmH6"C(/i ]6)f6)&]6) b$@B"? rJB6)b6mJA&(?f6)z* ,	lpc*oc+@c"{g
Lp"% /&"('b'(b&)g*+'",b-UsHo$+?|g%C=!a /Nr9! /N|9uSdT/)C/A M9R2(e{rU(`nLULLe@ Mz??b

n
_h_(U0e(_>2e>w_UUU(h{=_(U(h0{!,y&,<bxwk5
&!	lT|&y0~)~ad0
}2(Cz~a(Yx q.b /="LSb!cb=z	bB
crr!tC(|{{(/Y"(Iz}(/zx9 RSa =zaYHd(= "Uy@Yrx "Fb	wGv'0  u bbLcY0' ftms(/h~)' /ddK@K3xTSig~	,5}{yA-!"(|{!	lK5rInK(?n &{I"J bIbJbcac(3z8zJ{"JdI"{I& Jn#ac(z???fII&+ IJDI!
JI7!J'?0(?K?z2@Fb_z"'daaa"&PK$K0D. b fa0 bikK>(y{ 5b
xb4k&1Hp-0=d!> ? $!>@c(z#zxI RS &7" zK~[DD JyI@4
}2+&j	C
G 0J|46T  Fz,(/F^"*b+,fx)^^&*7J^F.(b
I{3C2G(){zy94
y0|>Hg{
I	g"(ot
.
oku3y341nBD"@Wzy`Dyy4@Wz(/y# z`F.n.f7BhH/W`&` Fn!~c3!~`rT	}G!3Hv>7*HvS?z(@z|H/W8+!U*	`r7(/{W
8h!!bF!bf8( /B>v&x P{N?|0??<@kkM+_@;k=Lq<{.@`qEoqP6:/D.UZ(EzDn~b}|rR{
nzyKdx>!wb"!bn!!bzyK"/"D(o7H.v!&uK(tK(!R8sK(/r"H ~qvX/fpConp|@>mlkjr &!LM.K0""
>

n]"]"T i(Ru2iuK]9
(q?0
0-f@{)p( |?0!3 QCO	3 TR  LTSRQR08  *38A3JT3LS`RD	TR`ob`R1D	EN
RT	8 O0@L#A S TAo`R1 DN8Sn	TR`VcRW0EDDA(^z7L)riXY{riY8V0j`@*Pp*1a*SA:Qq*fnUBu
	j_66b
|~

~	2} |` Fz{z7ycxwsvu'tD&Es'rq'}*ZDp7DDCo6rnmrlk{D56DDC42hDJm	AF
4J.

nj(i.H6b62kz
SFJTFJU(/h&<!NJJdJ zCpHAIN ERR
v	ruus@lz ponrpq{"tOfo.}~z~`~g\ 
Kapm?pppp1"`){W0
l /**K4F#<44KZ
/<<K"#pKv"7rp |p[t}w{OzO*;0x
iOf`_rqpo
M9%onml/A?/o",4!y=q~b
l}) "l|)k&H?B!. /"|&6{)$jzy 0
/BG;CW^MALD_F+-H*x="b4hx	j@.w/W&f[fD.bf[JJ"
d.v|) *[$u[k[
t|)[|	"@sr|)=[(4b{l[W& 3qcpcocncn<mlb	~Gdkak|u)f&
&<0"bji&&}y}ki N|B 4t40t|)h|) f=*8g"bfbgerdbcbbb	c		GDUa#
o`	,__7aC^bu]BuBua'i>(/o!b\k}q;@{u:sU|)["|Z|xi*)&&m)f
&f "!(o fg4xYu	Bqrprorn|,XWr~rVU'{)TS'R'za
oQn;Pj\04O4i(Y"N4hv(rz&4bkk ozxOu){&M<83*fd7Ez8J!VT"UX"qWzt!sMbbnbl`[|)JL|)06+9|1|x/2&
!.J}iLQ2 ,{iK!b{4 ! /Ms)r|4x	!"b(i{>JKJ"KK"I& f
rb|H`n
@Fj;&9L0 p0(/og90okv|)L|)70<4ziGgy@4	u1!.2(/1 (zf&1~ }H/~~"1F.0Jn~wSw&%0H~Jn%%bl[1%bweJ.[$/04AcF04#'ADA0##cY#d##6Y(/\H/TbY`KKK#.XZzfaaa#rFnl`Es&G!>s(/wz)g0srG#r|r#Kkx	7J(!i+(UXVrYWrZrr{	bCny 
zH.y,{ 
}0fbNSC@J oN,T{)K:&QC:f<Q'8QBrR /K:"QTt5,TS"!f(B3?'!,DV*Kyq	SV
HeuOV1J`DqT V
HvRtCM}pp
@|8<h3 .Po'.b{ToH./tnlm!.(/%"4>/z&&Abn!!p3JCmlm"lmfq(/^D.DmT^^*{(/z2([z(og.(z(o`. ^zlm"yx !lb!mfKonBo"@z^n"!.ojMKip_xp `p<h3 .Po'.b{ToH./tnlm!.(/%"4>/z&&Ab
!!	+B qz5&5
&5{0|5'K 60J
n4rHo>J.
ncQ""
'"!.H>'"D.Xgz. gz~:5a5 tBz#T(qK#HnK}r~bLb +fy013C~l6}h+9'(/;~#lckXnj6k.X4zj{  4za jD.k.X#zjF"3j"!kb!1bXjfhZkjb0!!@//j&h9 .(/e~3lf8&,k6Xcjf~fj{ Jo|F.XR&9G~RJjBw.jhh*BJe0ya+	A
jJ.

nz(z.Hlblhk>FSoPACE2		/NUMBERS, TWO SPACES
LLIS3,	JMS I INCI	/INCREMENT LOC
	ISZ CNTRA	/ALL WORDS DONE?
	JMP LLIS4	/NO
	JMS I CRLFI
	JMP I LLIST	/YES, RET/	 YzDFv?S
 CNTR	/ALL DONE WITH THIS LINE?
	JMP LLIS2	/NOT YET
	JMP LLIS1	/YES, OUTPUT CR/LF & CONTINUE
/
LLIS5,	STA
	DCA CNTR	/FORCE A CR/LF
	JMP LLIS3
LISTPT,	0
LOUTSW,	0


/SUBROUTINE TO GET A FORMAT FOR 'XFORM' & 'XDLC
7b z
	<z&& " zD!D+aZ bKpf|?1`=B^l<>	OQ,
|zH @@ (PP`BB(|S,w0DDDfb Lb%Zn%)&
Byof/&%~ )%bo{&|0))&3w@!f4dS@bo)FbR`(/"J)bfRca]e-D of"/v& . XdGF*}(rb-VbmalZbe] ozdd*x*OO0<8}AXctcs,i@,cJoCPO0Pr0M)KO9Mr
>RA%PA%Lt@@	%t)0+
N@A#rs-d8K@AUC0L	4KnhNm@@A@#l9TiQDih\bi=oXp@u@ee]@BP@F/@tlZiVH
G
~"b.hH}{|{'
I
zI"&
byiIT@&zKCV~{xL@wdv2(1zYS
A#uP.{/LY(Q!.t0(O9Y(Gz/JYQ
XdG" ~.KWaJV
>

ne .WVcVs@bi  Xf /Yt@Y0??`qXfoBr

Note: Lines longer than 256 characters were wrapped


Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search