.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-adress med "@")/>,Meet1,xNET,Nil,20,0

Makc	NAdLst,0,<"(n{tadress)">,Nil,xStr,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,10,-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

  ; Special kommandon


.Rem	&

C221:	.Word	0			; Nr
	.Word	Nil			; Nxt
	.word	Nil			; Arg
	.Word	1			; Pri1
	.Word	0			; Pri2
	.Byte	xNum			; Typ
	.Byte	20$-10$
10$:	.Ascii	"Recieved	1	Return-Path	2"<Cr><Lf>
	.Ascii	"  Status	4	References	8"<Cr><Lf>
	.Ascii	"  Keywords	16	Organization	32"<Cr><Lf>
	.Ascii	"  Followup-To	128	Message-Id	256"<Cr><Lf>
	.Ascii	"  Reply-To	512	In-Reply-To	1024"<Cr><Lf>
	.Ascii	"  Date		2048	Bcc, Cc		4096"<Cr><Lf>
	.Ascii	"  From, Sender	8192	To		16384"<Cr><Lf>
	.Ascii	"  \vriga	32768"
20$:	.Even

; &

  ; Personliga Flaggor

Makc	FLGLST,xANW,<"(automatiskt) nyheter">,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/>,C206,xList,Nil,1,0
Makc	C206,xExD,<"extern distribution">,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)">,C201,xNum!xAND,C101,-1, 763
Makc	C201,$RRIN,<"(<message-id>)">,Nil,xNum!xNet!xAND,C101,-1, 763

Makc	C200,0,<"(<message-id>)">,Nil,xNum!xNet!xAND,Nil,1,0

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,13,C172,0
Makc	C8,$RRBY,<"av">,C102,xList!xLink!xAND,MEET1,-1,11,C171,0
Makc	C102,$RRBY,<"fr}n">,C105,xList!xLink!xAND,MEET1,-1,11,C171,0

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

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

  ; ]terse sub-kommando xLista

Makc    C15,$RRTE,<"text (nr/id)">,C101,xList!xAND,C128,1,763
Makc    C101,$RRIN,<"(Inl{ggs nummer)">,C202,xNum!xAND,C101,4,763
Makc	C202,$RRIN,<"(<message-id>)">,C16,xNum!xNet!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,<"alias (definitioner)">,C186,xList,Nil,1,0,Liali
Makc	C186,$LiDis,<"distributionen (f|r)">,C15,xList,Meet1,1,13

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

  ; Skumma Sub-kommando lista   

Makc    C109,$SKFI,<"(f|rsta) raderna">,C170,xList!xAND,C129,1000,1000
Makc    C170,$SKLI,<"(i) listformat">,C111,xList!xAND,C15,1000,37000
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">,C222,xList!xAND,C15,20000,20000
Makc	C222,$SKMH,<"med (hela) kuvertet">,C223,xList!xAND,C15,40000,44000
Makc	C223,$SKUH,<"utan (hela) kuvertet">,Nil,xList!xAND,C15,40000,44000

  ; Sub-kommando lista f|r Zap. 

Makc	C79,-1,<"objekt (nummer)">,C80,xList,C98,1,-1
Makc	C80,-2,<"text (nr/id)">,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)">,C220,xList,C177,1,-1
Makc	C220,SeHdrW,<"kuvertstatusordet (till)">,Nil,xList,HETLST,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) distributionslistan (f|r)">,C196,xList,Meet1,1,13
Makc	C196,AddAli,<"alias (f|r)">,Nil,xList!xLink,NetLst,1,-1,C197,-1

  ; Kommando-lista f|r addera mottagare

Makc	AdRLst,CdAddM,<"Addera (mottagare)">,C224,xList,NetLst,1,33
Makc	C224,CdSubM,<"Subtrahera (mottagare)">,C225,xList,NetLst,1,13
Makc	C225,CdList,<"(Visa) distributionen">,C226,xList,Nil,1,0
Makc	C226,CdSetP,<"([ndra) kuvertet (f|r)">,Nil,xList,Pers1,1,10

  ; 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) distributionslistan (f|r)">,C199,xList,Meet1,1,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 (nr/id)">,C157,xList,C157,1,1,1
Makc	C157,1,<"(Inl{ggs nummer)">,C203,xNum,Nil,1,0
Makc	C203,1,<"(<message-id>)">,Nil,xNum!xNet,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)">,C205,xNum,C191,1,-1
Makc	C205,1,<"(<message-id>)">,Nil,xNum!xNet,C191,1,-1

Makc	C193,-1,<"text (nr/id)">,C194,xList,C195,1,1,-1
Makc	C194,1,<"(Inl{ggs nummer)">,C204,xNum,C191,1,-1
Makc	C204,1,<"(<message-id>)">,C191,xNum!xNet,C191,1,-1
Makc	C191,2,<"externt">,C192,xList,Nil,1,0
Makc	C192,4,<"lokalt">,Nil,xList,Nil,1,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">,C66,XList,Nil,1,0
Makc	C66,ONLY,<"Endast (l{sa senaste)">,C161,XList,C93,1,-1
Makc	C161,SkiCom,<"Hoppa (|ver kommentartr{det)">,C25,xList,Nil,1,0
Makc	C25,WRITEl,<"(Skriv) brev (till)">,C26,xList!xLink,NetLst,1,33,C191,-1
Makc	C26,COMl,<"Kommentera (inl{gg)">,C27,xList,C193,1,5
Makc	C27,WRi,<"(Skriv) inl{gg">,C28,XList,C191,1,-1
Makc	C28,prvans,<"(Svara) privat">,C71,XList,C156,1,5
Makc	C71,SKUMMA,<"Skumma">,C34,XList,C109,1,177000
Makc	C34,ADDHDL,<"Addera">,C35,xList,C180,1, -1
Makc	C35,SUBHDL,<"Subtrahera">,C45,XList,C183,1,-1
Makc	C45,WHO,   <"B|rja (p} nytt) namn">,C107,XList,MEET1,1,1
Makc	C107,Note,<"Lapp (p} d|rren)">,C36,Xlist,C108,1,-1
Makc	C36,SLUTA,<"Sluta">,C49,XList,Nil,1,0
Makc	C49,EXTING,<"Utpl}na">,C106,XList,C80,1,17
Makc	C106,ERASEC,<"Radera">,C50,xList,C156,1,5
Makc	C50,LEAVP,<"Uttr{d (permanent) ur">,C153,XList,MEET1,1,2
Makc	C153,ReadFi,<"L{s (fr}n) fil">,C29,xList,FilLst,1,-1
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">,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">,C46,XList,FLGLST,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">,C65,XList,FilLst,1,-1
Makc	C65,WaMi, <"Var ({r jag)">,C123,XList,Nil,1,-1
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">,Nil,Xlist,C79,10,-1

; Makc	C355,TSTH,<"Hash-test">,Nil,xList,C200,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

; Kommandon f|r distributionslistor

Makc	DstCmd,1,<"(mottagarnamn)">,Nil,xStr,NetLst,1,33

Makc	Ds2Cmd,1,<"(mottagarnamn)">,Nil,xStr,Nil,10,0

 ; 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,10,0
Makc	C58,0,<"M|te">,Nil,xList,Nil,1,0

  ; Compose kommandon

Makc	CMPLST,0,<"Forts{tt (med att skriva)">,C60,XList,Nil,1001,0
Makc	C60,CMPLAI,<"L{gg (in inl{gget)">,C61,XList,Nil,1000,0
Makc	C61,CMPBOR,<"(Ta) Bort (inl{gget)">,C62,XList,Nil,1000,0
Makc	C62,CMPHEL,<"(Skriv ut) hela (inl{ggget)">,C63,XList,Nil,1000,0
Makc	C63,CMPSTA,<"(B|rja om (fr}n b|rjan)">,C64,XList,Nil,1000,0
Makc	C64,CMPFIL,<"(L{gg in) fil">,C124,XList,FilLst,1000,-1
Makc	C124,CMPBYT,<"Byt">,C158,xList,C125,1000,-1  
Makc	C158,CMPEDI,<"Redigera (med) TAMIS">,C207,Xlist,Nil,1000,0
Makc	C207,CdList,<"(Visa) distributionen">,C218,xList,Nil,1,0
Makc	C218,CdAddM,<"Addera (mottagare)">,C216,xList,NetLst,1,33
Makc	C216,CdSubM,<"Subtrahera (mottagare)">,C217,xList,NetLst,1,13
Makc	C217,CdSetP,<"([ndra) kuvertet (f|r)">,C153,xList,Pers1,1,10

ChDLst:	.word	SetNtP			; To be used

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

; Lista |ver headers. True/False anger om det {r fr}ga om ett
; adress f{lt

Makc	HdrLst,0,<"List (alla parametrar)">,C214,xList,Nil,-1,0
Makc	C214,'A,<"From:">,C208,xList,FltLst,1,-1,True
Makc	C208,'B,<"To:">,C209,xList,FltLst,10,-1,True
Makc	C209,'J,<"Cc:">,C210,xList,FltLst,2,-1,True
Makc	C210,'G,<"Reply-To:">,C215,xList,FltLst,1,-1,True
Makc	C215,'H,<"In-Reply-To:">,C211,xList,FltLst,1,-1,False
Makc	C211,'M,<"References:">,C212,xList,FltLst,-1,-1,False
Makc	C212,'N,<"Keywords:">,C213,xList,FltLst,-1,-1,False
Makc	C213,'Q,<"Followup-To:">,Nil,xList,FltLst,4,-1,True

Makc	FltLst,1,<"(ett f{lt))">,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 C227


	.End