.title	KOMRES

; This is the read and write access RESLIB for KOM


	.includ	"b:global"

.nlist

; OBS! N{r du adderar nya listor ska numret f|r sist anv{nda
;  labeln uppdateras (sist i filen)!!!!!!!!!!!!!!!!!!!!!!!!!

.Macro	Makc,Label,Nr,Str,Nxt,Typ,Arg,Pri1,Pri2,Linkp,Lnkpri
	.if nb Lnkpri
	  .word	LnkPri
	  .word	Linkp
	.iff
	  .if nb Linkp
	    .Word	Linkp
	  .endc
	.endc
Label:	.Word	Nr
	.Word	Nxt
	.word	Arg
	.Word	Pri1
	.Word	Pri2
	.Byte	Typ
	.Byte	20$-10$
10$:	.Ascii	Str
20$:	.Even
.Endm


	.psect	CMDS


LIBINF: .word	xLibUi	; LSW
	.word	0, 0	; H|gsta Logiska inl}ggs nummer
	.word	0	; Edit. nr. f|r grupper
	.word	0	; Edit. nr. f|r texter
	.word	0	; DSW
	.word	0	; LSW
	.blkw	25.

LSTGRP:	.word	GRPLST	; Pekare till sist adderade lista
	.word	FSTGRP	; Pekare till f|rsta fria byte
	.word	0	; RESLIB:ets storlek i kW
	.blkw	5

PRELST:	.blkw	64.*4	; N{rvarolistan (person, m|te, What, *Reserved*)

Mutex:	.word	0, 0	; Semafor f|r skrivaccesser i databasen.

 ; Group-listan

Makc	NetLst,0,</(internet-addres med "@")/>,Meet1,xNET,Nil,20,0

 ; Obs, FixLst kr{ver att NetLst {r ovanst}ende kommando.

Makc	Meet1,0,<"m|te (nummer)">,C136,xList,C84,2,-1
Makc	C136,0,<"terminal (nummer)">,C188,xList,C137,4,-1
Makc	C188,0,<"N{tperson (nummer)">,Pers1,xList,C137,0,-1
Makc	Pers1,0,<"person (nummer)">,Alias1,xList,C84,1,-1

Makc	C84,1,<"(grupp nummer)">,Nil,xNum,Nil,1,0

Makc	C137,1,<"(terminal nummer)">,Nil,xNum,Nil,1,0

  ; Personliga Flaggor

Makc	FLGLST,xANW,<"(automatiskt) nyheter">,C3,XList,Nil,1,0
;Makc	C2,xACR,<"(automatiskt) radbyte">,C3,XList,Nil,1,0
Makc	C3,xAU,<"(automatiskt) vilka">,C5,XList,Nil,1,0
Makc	C5,xSM,<"korta (menyer)">,C6,XList,Nil,1,0
Makc	C6,xSL,<"sluta (f|rst i menyn)">,C7,XList,Nil,1,0
Makc	C7,xExp,<"expansion (vid mellanslag)">,C67,XList,Nil,1,0
Makc	C67,xSAC,<"visa (alla) kommentarer">,C73,XList,Nil,1,0
Makc	C73,xBL,<"streck-rad (efter {rende)">,C74,XList,Nil,1,0
Makc	C74,xEE,</kommandotolkning (av "!")/>,C86,XList,Nil,1,0
Makc	C86,xELIN,<"tom (rad) avslutar (text)">,C87,XList,Nil,1,0
Makc	C87,xISO,<"(datum i) ISO (format)">,C96,xList,Nil,1,0
Makc	C96,xDeb,<"rapport (av) skivminnesaccesser">,C126,xList,Nil,1,0
Makc	C126,xFOO,<"romersk talrepresentation">,C154,xList,Nil,1,0
Makc	C154,xFil,</utf|r ("@")filnamn/>,Nil,xList,Nil,1,0

  ; ]terse sub-sub-kommando Lista

Makc    C12,0,<"(antal inl{gg)">,C10,xNum+xAND,C10,-1,0

Makc    C128,$RRIN,<"(Inl{ggs nummer)">,Nil,xNum+xAND,C101,-1, 763

Makc    C129,$SKNR,<"(Antal rader)">,Nil,xNum+xAND,C15,2000,3000

Makc    C167,$RRAF,<"(datum)">,Nil,xStr+xAND,C105,-1,0

Makc    C10,$RRMA,<"markerade">,C11,xList+xAND,C11,-1,0
Makc    C11,$RRLE,<"brev">,C9,xList+xAND,C75,-1,0
Makc    C9,$RRIL,<"inl{gg">,C75,xList+xAND,C75,-1,0
Makc	C75,$RRTO,<"till">,C8,xList+xLink+xAND,MEET1,-1,3,C172,0
Makc	C8,$RRBY,<"av">,C102,xList+xLink+xAND,MEET1,-1,1,C171,0
Makc	C102,$RRBY,<"fr}n">,C105,xList+xLink+xAND,MEET1,-1,1,C171,0

Makc	C171,$RRTO,<"till">,C105,xList+xLink+xAND,MEET1,-1,3,C105,0

Makc	C172,$RRBY,<"av">,C173,xList+xLink+xAND,MEET1,-1,1,C105,0
Makc	C173,$RRBY,<"fr}n">,C105,xList+xLink+xAND,MEET1,-1,1,C105,0

  ; ]terse sub-kommando xLista

Makc    C15,$RRTE,<"text (nummer)">,C101,xList+xAND,C128,1,763
Makc    C101,$RRIN,<"(Inl{ggs nummer)">,C16,xNum+xAND,C101,4,763
Makc    C16,$RRTC,<"(det) kommenterade">,C77,XList+xAND,C109,1,777
Makc    C77,$RRCT,<"(kommentar-)tr{det">,C169,xList+xAND,C105,2,767
Makc    C169,$RRSY,<"systemmedelandet">,C81,xList+xAND,C109,1,777
Makc    C81,$RRPO,<"presentationen (av)">,C105,xList+xLINK+xAnd,MEET1,1,3,C109,777
Makc    C105,$RRIF,<"(i) f|ljd">,C72,xList+xAnd,C15,10,11
Makc    C72,$RRFO,<"fram}t">,C104,xList+xAND,C105,400,405
Makc    C104,$RRBA,<"bak}t">,C13,xList+xAND,C105,400,405
Makc    C13,$RRAB,<"alla">,C103,xList+xAND,C10,2,7
Makc    C103,$RRFI,<"f|rsta">,C14,xList+xAND,C12,2,7
Makc    C14,$RRLA,<"senaste">,C165,xList+xAND,C12,2,7
Makc    C165,$RRBF,<"(skrivna) f|re">,C166,xList+xAND,C167,20,23
Makc    C166,$RRAF,<"(skrivna) efter">,C109,xList+xAND,C167,40,43

  ; Lista Sub-kommando lista

Makc    C37,$RRDO,<"(alla) m|ten">,C38,xList,C178,1,1,LiMee
Makc    C38,$RRDO,<"(alla) personer">,C152,XList,C178,1,1,LiPer
Makc    C152,$RRDO,<"(alla) terminaltyper">,C190,xList,Nil,1,0,LiTTYs
Makc	C190,$RRDO,<"(alla) n{tpersoner">,C120,xList,Nil,1,0,LiNePe
Makc    C120,$RRDO,<"(alla) aktiva personer">,C168,xList,C178,1,1,LiAPer
Makc    C168,$RRDO ,<"(senaste) femtioen aktiva personer">,C121,xList,Nil,1,0,Li50
Makc    C121,$RRDO,<"(alla) idag (aktiva personer)">,C122,xlist,C178,1,1,LiTPer
Makc    C122,$RRDO,<"(alla) aktiva m|ten">,C40,Xlist,C178,1,1,LiAMee
Makc    C40,$RRDO,<"nyheter">,C198,XList,Nil,1,0,LiNew
Makc	C198,$RRDO,<"(dina) alias (definitioner)">,C186,xList,Nil,1,0,Liali
Makc	C186,$LiDis,<"distrubutionen (f|r)">,C15,xList,Meet1,0,13

Makc	C178,$RRWNN,<"(med) internetnamn">,Nil,xList,Nil,1,0

  ; Skumma Sub-kommando lista   

Makc    C109,$SKFI,<"(f|rsta) raderna">,C111,xList+xAND,C129,1000,1000
Makc    C111,$SKUT,<"utan text">,C112,xList+xAND,C15,1000,3000
Makc    C112,$SKMT,<"med text">,C113,xList+xAND,C15,1000,3000
Makc    C113,$SKUR,<"utan rubrik">,C114,xList+xAND,C15,4000,34000
Makc    C114,$SKMR,<"med rubrik">,C115,xList+xAND,C15,4000,34000
Makc    C115,$SKUM,<"utan mottagare">,C116,xList+xAND,C15,10000,10000
Makc    C116,$SKMM,<"med mottagare">,C117,xList+xAND,C15,10000,10000
Makc    C117,$SKUA,<"utan avs{ndare">,C118,xList+xAND,C15,20000,20000
Makc    C118,$SKMA,<"med avs{ndare">,C170,xList+xAND,C15,20000,20000
Makc    C170,$SKLI,<"(i) listformat">,Nil,xList+xAND,C15,1000,37000

  ; Sub-kommando lista f|r Zap. 

Makc	C79,-1,<"objekt (nummer)">,C80,xList,C98,1,-1
Makc	C80,-2,<"text (nummer)">,Meet1,xList,C157,1,-1

Makc	C98,1,<"(Objektnummer)">,Nil,xNum,C99,1,-1

Makc	C99,1,<"fil">,C100,xList,C100,1,-1
Makc	C100,2,<"(Filnummer 1-5)">,Nil,xNum,Nil,1,-1

  ; Sub-kommando lista f|r S{tt

Makc	C150,$TTSET,<"terminaltyp (till)">,C151,xList,MEET1,1,4
Makc	C151,$TTPER,<"favorit (terminaltyp till)">,C155,xList,Meet1,1,4
Makc	C155,$SetSy,<"systemmeddelande (till)">,C162,xList,C156,4,1
Makc	C162,$SetPW,<"(system)l|senord">,C164,xList,Nil,10,0
Makc	C164,SetWai,<"(obegr{nsad) tidsgr{ns">,C176,xList,Nil,1,0
Makc	C176,SeNetN,<"internet(-namn till)">,Nil,xList,C177,1,-1

Makc	C177,0,<"(internet namn)">,Nil,xStr,MEET1,1,3

  ; Sub-kommando lista f|r Addera

Makc	C180,ADDM,<"medlemsskap (till)">,C181,xList,Meet1,1,3
Makc	C181,ADDR,<"mottagare (till)">,C182,xList,C156,1,1
Makc	C182,ADDD,<"(till) distrubutionslistan (f|r)">,C196,xList,Meet1,0,13
Makc	C196,AddAli,<"alias (f|r)">,Nil,xList+xLink,NetLst,1,-1,C197,-1

  ; Sub-kommando lista f|r Subtrahera

Makc	C183,SUBM,<"medlemsskap (fr}n)">,C184,xList,Meet1,1,3
Makc	C184,SUBR,<"mottagare (fr}n)">,C185,xList,C156,1,1
Makc	C185,SUBD,<"(fr}n) distrubutionslistan (f|r)">,C199,xList,Meet1,0,13
Makc	C199,SubAli,<"alias">,Nil,xList,Alias1,1,200

  ; Sub-kommando lista f|r |vriga kommandon

Makc	SyNLst,1,<"(Antal)">,Nil,xNum,Nil,1,0

Makc	MNALst,1,<"(Antal aktiva texter)">,C179,xNum,Nil,1,0
Makc	C179,0,<"obegr{nsat">,Nil,xList,Nil,1,0

Makc	WhoLst,1,<"(Ange ditt namn)">,Nil,xText,Nil,1,0
 
Makc	C156,-1,<"text (nummer)">,C157,xList,C157,1,1,1
Makc	C157,1,<"(Inl{ggs nummer)">,Nil,xNum,Nil,1,0

Makc	NAMLST,1,<"(grupp-namn)">,Nil,xText,Nil,1,0

Makc	FilLst,1,<"(Filnamn)">,Nil,xStr,Nil,1,0

Makc	TTYTYP,1,<"(terminalnamn)">,Nil,xText,Nil,1,0

Makc	HETLST,1,<"(heltal)">,Nil,xNum,Nil,1,0

Makc	C93,1000,<"(antal inl{gg)">,Nil,xNum,C8,1,0

Makc	C108,1,<"bort">,Nil,xList,Nil,1,0

Makc	C195,1,<"(Inl{ggs nummer)">,Nil,xNum,Nil,1,-1

Makc	C193,-1,<"text (nummer)">,C194,xList,C195,1,1,-1
Makc	C194,1,<"(Inl{ggs nummer)">,C191,xNum,Nil,1,-1
Makc	C191,2,<"externt">,C192,xList,Nil,0,0
Makc	C192,4,<"lokalt">,Nil,xList,Nil,0,0

Makc	C197,0,<"(Alias namn)">,Nil,xText,Nil,1,0

  ; Kommando lista

Makc	CMDLST,GoMeet,<"G} (till m|te)">,C21,XList,MEET1,1,2
Makc	C21,NextM,<"(G} till) n{sta m|te">,C22,XList,Nil,1,0
Makc	C22,READi,<"(L{s) n{sta inl{gg">,C23,XList,Nil,1,0
Makc	C23,READl,<"(L{s) n{sta brev">,C24,XList,Nil,1,0
Makc	C24,ReadCC,<"(L{s) n{sta kommentar">,C153,XList,Nil,1,0
Makc	C153,ReadFi,<"(L{s fr}n) fil">,C66,xList,FilLst,1,-1
Makc	C66,ONLY,<"Endast (l{sa senaste)">,C25,XList,C93,1,-1
Makc	C25,WRITEl,<"(Skriv) brev (till)">,C26,xList,NetLst,1,23
Makc	C26,COMl,<"Kommentera (inl{gg)">,C27,xList,C193,1,5
Makc	C27,WRi,<"(Skriv) inl{gg">,C28,XList,Nil,1,-1
Makc	C28,prvans,<"(Svara) privat">,C29,XList,C156,1,5
Makc	C29,ReRead,<"]terse">,C30,XList,C15,1,-1
Makc	C30,STATUS,<"Status (p})">,C31,xList,C80,1, 17
Makc	C31,CREME,<"Skapa (m|te/person)">,C32,XList,NAMLST,1,-1
Makc	C32,CHANGE,<"[ndra status (p})">,C33,XList,MEET1,1,-1
Makc	C33,ChPass,<"[ndra (eget) l|senord">,C34,XList,Nil,1,0
Makc	C34,ADDHDL,<"Addera">,C35,xList,C180,1, -1
Makc	C35,SUBHDL,<"Subtrahera">,C36,XList,C183,1,-1
Makc	C36,SLUTA,<"Sluta">,C68,XList,Nil,1,0
Makc	C68,LIST,<"Lista">,C41,XList,C37,1,767
Makc	C41,SETID,<"(Se) tiden">,C42,XList,Nil,1,0
Makc	C42,Vilka,<"Vilka ({r n{rvarande)">,C43,XList,Nil,1,0
Makc	C43,SETFLG,<"(Hissa) upp">,C44,XList,FLGLST,1,-1
Makc	C44,CLRFLG,<"(Hala) ner">,C45,XList,FLGLST,1,-1
Makc	C45,WHO,   <"B|rja (p} nytt) namn">,C46,XList,MEET1,1,1
Makc	C46,MARK,<"Markera (notis)">,C47,XList,C156,1,5
Makc	C47,UNMARK,<"Avmarkera (notis)">,C48,XList,C156,1,5
Makc	C48,UtmFil,<"(Dirigera) utmatning (till) fil">,C49,XList,FilLst,1,-1
Makc	C49,EXTING,<"Utpl}na">,C106,XList,C80,1,-1
Makc	C106,ERASEC,<"Radera">,C50,xList,C156,1,5
Makc	C50,LEAVP,<"Uttr{d (permanent) ur">,C65,XList,MEET1,1,2
Makc	C65,WaMi, <"Var ({r jag)">,C71,XList,Nil,1,-1
Makc	C71,SKUMMA,<"Skumma">,C161,XList,C109,1,177000
Makc	C161,SkiCom,<"Hoppa (|ver kommentartr{det)">,C123,xList,Nil,1,0
Makc	C123,SavTxt,<"Spara (p} fil)">,C88,xList+xLink,FilLst,1,-1,C15,177767
Makc	C88,$SET,<"S{tt">,C89,xList+xAND,C150,1,0
Makc	C89,TTYDEF,<"Definiera terminaltyp">,C97,xList,TTYTYP,1,-1
Makc	C97,SYSINF,<"(F}) systeminformation">,C78,xList,Nil,1,0
Makc	C78,ChPres,<"[ndra presentation (av)">,C94,XList,MEET1,1,3
Makc	C94,SETPRV,<"\verg} (till) administrat|rsmod">,C82,xList,Nil,4,0
Makc	C82,Zap,<"Zap">,C107,Xlist,C79,10,-1
Makc	C107,Note,<"Lapp (p} d|rren)">,Nil,Xlist,C108,1,-1

  ; Skapa Privilegie lista

Makc	PRILST,xAdm,<"Administrat|r">,C52,XList,Nil,1,0
Makc	C52,xSuU,<"Organisat|r">,C53,XList,Nil,1,0
Makc	C53,xUser,<"Anv{ndare">,Nil,XList,Nil,1,0


  ; Term Flag lista

Makc	TTFLST,1,<"Rullning">,C132,xList,Nil,1,0
Makc	C132,200,<"Paus vid sidbyte">,C133,xList,Nil,1,0
Makc	C133,100000,<"Sk{rmterminal">,Nil,xList,Nil,1,0

  ; Term definitions str{ng

makc	TDSLST,-1,<"Saknas">,C138,xList,Nil,3,-1
Makc	C138,0,<"(ASCII-v{rde)">,C134,xNum,C138,1,-1
Makc	C134,27.,<"Esc">,C135,xList,C138,2,-1
Makc	C135,12.,<"FormFeed">,Nil,xList,C138,2,-1

; Terminal Sekvenser (Rubriker Ej f|r PARSER)

Makc	SEQLST,1,<"Sekvens f|r radera till radslut">,C139,xList,Nil,1,1
Makc	C139,2,<"Sekvens f|r radera sk{rmen">,Nil,xList,Nil,1,1


 ; Status ordet f|r N{tPersoner

Makc	NetSta,xNWP,<"Skrivskyddat">,C189,xList+xAND,NetSta,1,1
Makc	C189,xNCl,<"Slutet">,Nil,xList+xAND,NetSta,2,2

  ; Ja Nej - lista

Makc	JANEJL,1,<"Ja">,C56,XList,Nil,1,0
Makc	C56,0,<"Nej">,Nil,XList,Nil,1,0

  ; M|tes lista

Makc	PMLST,1,<"Person">,C187,xList,Nil,1,0
Makc	C187,2,<"N{tperson">,C58,xList,Nil,0,0
Makc	C58,0,<"M|te">,Nil,xList,Nil,1,0

  ; Compose kommandon

Makc	CMPLST,CMPFOR,<"Forts{tt (med att skriva)">,C60,XList,Nil,1,0
Makc	C60,CMPLAI,<"L{gg (in inl{gget)">,C61,XList,Nil,1,0
Makc	C61,CMPBOR,<"(Ta) Bort (inl{gget)">,C62,XList,Nil,1,0
Makc	C62,CMPHEL,<"(Skriv ut) hela (inl{ggget)">,C63,XList,Nil,1,0
Makc	C63,CMPSTA,<"(B|rja om fr}n) b|rjan">,C64,XList,Nil,1,0
Makc	C64,CMPFIL,<"(L{gg in) fil">,C124,XList,FilLst,1,-1
Makc	C124,CMPBYT,<"Byt">,C158,xList,C125,1,-1  
Makc	C158,CMPEDI,<"Redigera (med) TAMIS">,Nil,Xlist,Nil,1,0
Makc	C125,1,<"(str{ng att byta)">,Nil,xText,Nil,1,0

Makc	CMPMOT,1,<"(str{ng att byta mot)">,Nil,xText,Nil,1,0


  ; Terminal typer

Makc	GRPLST,-1,<"(Ok{nd) sk{rm">,Nil,xList+xGroup,Nil,4,0

	.list
	.even

FSTGRP:


  ; Obs, Sista l{get {r C199


	.End