⟦21cafeb5a⟧

TextFile

 15.5.84 FÆRDIGVERSION NR 3, REV NR 2.06 /// FD /// AED8:N, :J

 **************************************************
 SIDE	INDH
 1:	TEKSTER, FEJL
 2:	BIRTH, DEAD
 3:	HY HR HM HO HB HS
 4:	@ Y P R
 5:	B : = . M L T K I O
 6:	S G
 7:	GENERELLE RUTINER: INTK, GOP, INTFI, OUTFI, LMV, LTL
 8:	-"- INTW, INTHX, OUT, OUTW, OH, OSP, LPD, OUTXT  /ETC
 9:	-"- FLYT, SEBYT, TYPE
 10:	-"- HARD, BLB   /ETC
 11:	ZONER, PRCD, TABEL

	
 GEN. FIL-EDITOR  PL MAJ 84 / VERS. 2.06
 @@, ?:  HELP 
 HS: HARDW SELECT TRC/SEC I/O   * EX: HS130B, HS130BO (TRC 19 /SECT 11) (O=OUT)
 HO: HARDW OUTPUT, SAMME SECTOR * EX: HO      (INGEN PARAM!)
 HY: HARDW INPUT NÆSTE SECTOR   * EX: HY
 HR: HARDW REPEAT (LÆS NÆSTE)   * EX: HR      (INGEN PARAM)
 HM: UNIT BLOCKDISPL. DEF       * EX: HM, HM@ (@=UNIT 0/3)
 HB: HARDW BLOCK SELECT INPUT   * EX: HB011A  (011A=BLOCK 256+16+10)
 GI: OPHÆV HARDW SELECT, INIT DEVICE    * EX: GI3, GI0
 GR, GW, GC, GK, GO: FILOPERATIONER     * EX: GKTESTF, GWTESTF:3
 O: "OCTALCOPY" KOPIERING UDENOM BUFFER
 Y: LÆS SIDE TIL BUFFER
 P: "PUT" OUTPUT BUFFER TIL NY FIL
 R: "REPEAT": 1)P 2)Y
 T: "TYPE" SKRIV SIDEN UD FRA BUFFER TIL SKÆRM
 .: AKT. POSITION   :, =: SIDENS ANTAL LINIER OG TEGN
 M: MOVE ANTAL TEGN * EX: M7, M+7, M-7, MG (MOVE 16 PL.)
 L: LINEMOVE        * EX: L7, L+7, L-7  (EXACT LODRET HVIS EJ ASCII)
 I: INSERT          * EX: I T E S T0D0A,   I_TEST<60>RETURN><60>ESC>
 K: KILL ANTAL TEGN * EX: K7, K+7, KG
 S: SEARCH BYTE     * EX: S0A, S A, S41  (41= A)
 C: UDSKIFT         * EX: C A_ B   ***((IKKE IMPL))***
 H: HOME 

FUT0:
FUT1:	.TXT	" *** IKKE IMPL ***<0>"
FUT2:	.TXT	" *** BUFFER FULD ***<0>"
FUT3:	.TXT	" *** IKKE FUNDET ***<0>"
FUT4:	.TXT	" *** FILER ÅBNE ***<0>"
FUT5:	.TXT	" *** HARD MODE ***<0>"
FUT6:	.TXT	" *** ILLEGAL BUFFER SIZE ***<0>"
FUT7:	.TXT	" *** UDEF. TRACK/SECTOR ***<0>"
FUT8:
FUT9:	.TXT	" *** ??? ***<0>"
FFUT1:	.TXT 	"   *** FILSTATUS = <0>"
FFUT2:	.TXT	"        DI OF BU .  .  .  IL EF BL DL PA EM PO DM TI REJ<10><0>"
.TXT % SPECIELLE RUTINER (SE OSSE "?")
 @A: ASCII-FORMAT
 @B: ASCII-HEX-FORMAT
 @C: HEX-FORMAT
 @D: DISASSEMBLER
 @E: KVÆL $LPT-LOGNING
 @F: FORBERED $LPT-LOGNING (SE OSSE @I)
 @G: VÆLG LINIEBREDDE * EX: @G02, @G10, @G18, @G20, @G30
 @H: VÆLG BUFFER      * EX: @H0080, @H0400 (MAX!)
 @I: OPEN $LPT FØR LOGNING
 @J: JSR TIL ADR.             * EX: @J7005 (FARLIGT!!!)
 @K: OUTPUT SIDE TIL COREADR  * EX: @K7005 (FARLIGT)
 @L: LÆS SIDE FRA COREADR     * EX: @L7005
 @M: KORTLÆGGE $FD1-DISKETTE  * EX: @M
 *** BUFFER W-ADR = <0>%


  === FEJL ===
		 CALL: FEJLNR	.	.	(CUR)
SIDE 2:

 BIRTH & DEAD 

DEAD6:	GFK9	 FLAG FOR ÅBNE FILER
DEAD7:	GFK8	 FLAG FOR ÅBNE FILER PÅ $FD1


«ff»

SIDE 3:

*************** EDITOR HARD OPERATIONS *********

  === HY ===


  === HR ===


  === HM ===


  === HO ===


  === HB ===
BLO00: 0	 BLOCK
BLO01: 0	 UNIT 0/3 OFFSET
BLO11: 0	 SECTOR
BLO10: 0	 TRACK


  === HS ===


*** SIDE 4:

 ********************************* EDITOR-FUNKTIONER **********


  === @ === 
----------------
 NOT IMPL: @D @M, ETC
----------------


  === Y ===


  === P OG R ===

	------------------ALM. SUBRUTINER TIL Y OG P:
 RESET COUNTER OG FORB OUTPUT TIL TTY (MONITORING)
 ****  		 CALL:	.	.	.	CUR
			 RETU:	COUN0	BUADR*2	TTZON	CUR
 OUTPUT TIL LPT AF KOMMANDOEN (ACC UDEF UNDT. AC1 FØR + AC3=CUR EFTER)
 **         *      *

:::::::::::::
COUN0: 128  ORIG DEF I INPUT (EVT)
COUN1: 0    DEF I Y,  DOWN I Y
COUN2: 0    DEF I Y, ÆNDR V K,I,C,  BRUGES I P,T,F
PCC:    0	 POINTER = 0 - COUN2
PCADR: BUADR*2  DEF I Y, REDEF I M,S,C,L,I
PCAD1: BUADR*2  DEF I F & T   OG UPDATERET I SAMME
ARBA0: BUADR*2  FAST !!!!
ARBA1: BUADR*2  DEF I Y OG P  OG UPDATERET I Y OG P
:::::::::::::
	 ----------------- SUBRUTINER TIL Y OG P SLUT


«ff»

*** SIDE 5:


  === B ===


  === : ===


  === = ===


  === . ===  (BRUGES OSSE AF FX. MOVE)


  === M ===
		 COMMAND EX: M7  MB  M+B  M-B (B=11)


  === L ===
		LMV	 UDSKIFTELIG RUTINE (61)


------------------------ EGL. SUBR TIL BL. A. MOVE-INPUT-HÅNDTERING:

 SUBR. DIPL1 * HENTE TÆLLEPARAM FRA INPUT I KOMMANDO

		CALL:	.	.	.	.
		RETU:	NEG?	ÆGTEBY	%	CUR

 SUBR. BYBI1 * BYTE I AC1 TIL BINÆR VÆRDI, SIGNED & UNSIGNED

		CALL:	1=NEG	BYTE	.	.
		RETU:	1=NEG	SIGNED	UNSIGN	CUR
				BINVAL	BINVAL

 --------------------- SUBR. SLUT


  === T ===


  === K ===


  === I ===


  === O ===

*** SIDE 6:


  === S ===  SØG E N K E L T BYTE (PT)


  === G === GR GW GC GK GI
GFHAR: HFLAG 	 HARDMODE FLAG : FILER PÅ $FD1 FORBUDT

	ISZ GFK8	 FIL PÅ $FD1 FLAG
	ISZ GFK9	 FIL FLAG
::::::::::::::::
GFK8: 0		 *** $FD1-FIL-FLAG *** /HS, HB CHECK /GR, GW, GC SET
GFK9: 0		 *** FILFLAG ***   /H, GK CHECK  /GR, GW, GC SET
::::::::::::::::
«ff»
*** SIDE 7:


 ************** GENERELLE ELEMENTÆRE FUNKTIONER DEF I CUR-TABEL *
 ***** ALLE KALD OG RETURN MED VELDEFINEREDE ACC (SÆDV.UÆNDREDE!)



---------------------------------
 INTK * INPUT KOMMANDO FRA TTY

		 CALL:	?	?	?	CUR
		 RETU:	0	0	RETURNP	CUR
		 RETURNPOINT DEF IN AC2


--------------------------
 GOP * OPEN TTY FOR I/O

		CALL:	MODE	.	.	CUR
		RETU:	=	=	TTZON	CUR


--------------------------
 INTFI * DEFINER FILZONENAVN OG INIT DEVICE (FIL IKKE ÅBNET)

		CALL:	.	.	ZON	CUR
		RETU:	DEVIC	=	=	CUR


----------------------------
 OUTFI * OUTPUT FILNAVN TIL TTY
 OULFI
 OUFI  (?)

		 CALL:	ZON	.	.	CUR
		 RETU:	=	=	OUZON	CUR


--------------------------
 LMV * LINEMOVE
 ENTRY LMV1 TIL HEXVERSION
 ENTRY LMV2 TIL ASCIIVERSION
 ENTRY LMV9 TIL 2 (DISASS)
		LMO91:	24 (ÆNDRES EVT VED @)

		CALL:	1=NEG	SIGNED	UNS.	CUR
				BINVAL	BINVAL
		RETU:	=	EFF.VAL	=	CUR


--------------
 LTL * LINIETÆLLERUTINE


		CALL:	1=NEG	ANTAL	OPDAT	CUR
		RETU:	TALT	PCC	PCADR	CUR

*** SIDE 8:
--------------------------
 INTW * INPUT WORD FRA TTY I HEXKODE (4 TEGN) (TTY ÅBNET FORUDS)

		CALL:	.	.	.	CUR
		RETU:	WORD	HØJRBY	=	CUR


--------------------------
 INTHX * INPUT FRA TTY (EVT HEXKODE, EVT SPACETASTKODE, EVT TASTKODE)
 INT * INPUT FRA TTY (TASTKODE)
 INI * INPUT FRA INPUTFIL

		CALL:	.	.	.	CUR
		RETU:	=	BYTE	ZON/0	CUR
					0 HVIS HX 1.BY < 32 ONLY


---------------------------
 OULHX * OUTPUT BYTE TIL LPT UDEN TEXTOPTION
 OUTHX * OUTPUT BYTE TIL TTY UDEN TEXTOPTION
 OUT * OUTPUT BYTE TIL TTY EVT HEXKODE, EVT SPACETASTKODE  "HH ", " A ", "A"
 OUL * OUTPUT BYTE TIL LPT EVT HEXKODE, EVT SPACETASTKODE
 OUO * OUTPUT BYTE TIL OUTPUTFIL
		 OUT & OUL KAN ÆNDRES VED KOMMANDO @A, @C

		CALL:	.	BYTE	.	CUR
		RETU:	=	=	ZON	CUR

		W22:		 LPDW SÆTTER LPTDEAD ADR HER

 OUTA * OUTPUT TIL TTY SOM ALM ASCIIFIL
 OUTL * OUTPUT TIL LPT SOM ALM ASCIIFIL

	JMP W21		 OUTCHAR & RETURN
	JMP W22		 IGN <0> OG <127>
		OCH	 EVT UDELADES ?!
	JMP W21		 NORMAL NL
	JMP W21		 <9>, <127>
	JMP OUA4	  SÆRL. <12>
	JMP W21		 ELLERS "ü"


---------------------
 OUTW * OUTPUT WORD TIL TTY /HEX
 OULW * OUTPUT WORD TIL LPT /HEX

		CALL:	WORD	.	.	CUR
		RETU	=	=	ZON	CUR


--------------------------
                FLG. OUTPUTRUTINER FORUDSÆTTER FORUDG. DEF AF ZONE
--------------------------
 OH * OUTPUT HEXTEGN

		CALL:	TGN	.	ZON	CUR
		RETU:	=	=	=	CUR


-------------------------
 OSP * OUTPUT SPACE (ZON)
 ONL * OUTPUT NL   (ZON)
 OCH * OUTPUT CHAR (ZON)

		CALL: .	.	ZON(!)	CUR
		RETU:	=	=	=	CUR


-------------------------
 LPD  * LPT-DEAD POINT DEF = .+2
 LPDW * LPT-DEAD POINT IN OUL-RUTINEN

		 CALL:	.	.	.	CUR
		 RETU:	=	=	=	CUR

		LPFLG: 0 	 FORBUDSFLAG (SE @E, @F)


-------------------
 OUTXT **** 

		CALL:	BYAD	.	ZON	CUR
		RETU:	=	=	=	CUR

*** SIDE 9:
-------------------------
 FLYT * FLYTTER BUFFERDATA FRA PCC TIL ENDE ET STYKKE

		CALL:	0/1	ANTAL	.	CUR
		RETU:	=	=	=	CUR

	  HVIS NED: 0.........FLYTN...FLYFN....FLYTØ...FLYFØ
	  HVIS OP:  0.........FLYFN...FLYTN............FLYFØ...FLYTØ
	            0.........=PCADR...................ARBA0+COUN2


 ------------------------
 SEBYT * SEARCH BYTE

		CALL:	.	BYTE	.	CUR
		RETU:	=	=	0/1	CUR
					1=FOUND

		 PCC & PCADR OPDATERES (EVT TIL 0)


------------------
  TYPE * SKRIV SIDEN TIL TTY/ EVT OSSE LPT

		CALL:	1=LPT	.	.	CUR
		RETU:	=	=	=	CUR

*** SIDE 9:


----------------------------
 HARD * HARDMODE INPUT ELLER OUTPUT

		CALL:	TRACK	SECT	1/0	CUR 	
		RETU:	=	=	=	CUR

	HFLAG: 0		 HARDMODE FLAG * FILFORBUD PÅ FD1 *
	HM666: GFK8		 $FD1-FIL-FLAG * HARDMODE FORBUDT

------------------
 HARDO * OUTPUT SAMME SECTOR SOM SIDST ER LÆST
 HARDR * OUTPUT (HARDO) OG INPUT NÆSTE SECTOR
 HARDY * READ   NÆSTE SECTOR

		CALL:	.	.	.	CUR
		RETU:	TRACK	SECT	1/0	CUR


-------------------------
 BLB * BLOCKBEREGNING AF TRACK/SECTOR

		CALL:	BLOCK	.	.	CUR
		RETU:	TRACK	SECT	=	CUR

*** SIDE 11:
«ff»
*** SIDE 11:

********************** TABEL OVER PRCD-DEFINEREDE FUNKTIONER:


	
.DUSR GOP  = JSR @ 30,3
OP1
.DUSR INTHX= JSR @ 31,3
RTH1
.DUSR INT  = JSR @ 32,3
RT
.DUSR INI  = JSR @ 33,3
RI
.DUSR OUT  = JSR @ 34,3
WT
.DUSR OUL  = JSR @ 35,3
WL
.DUSR OUO  = JSR @ 36,3
WO
.DUSR OH   = JSR @ 37,3
H1
.DUSR OSP  = JSR @ 38,3
O1
.DUSR ONL  = JSR @ 39,3
O2
.DUSR OCH  = JSR @ 40,3
O4
.DUSR INTK = JSR @ 41,3
INTK1
.DUSR OPERA= JSR @ 42,3
OPER1
.DUSR LPD  = JSR @ 43,3
LPD1
.DUSR LPDW = JSR @ 44,3
LPDW1
.DUSR FEJL = JSR @ 45,3
FEJL1
.DUSR OUTXT= JSR @ 46,3
OUTX1
.DUSR SEBYT= JSR @ 47,3
SEBY1
.DUSR INTFI= JSR @ 48,3
RTF1
.DUSR OUTFI= JSR @ 49,3
OUTF1
.DUSR OULFI= JSR @ 50,3
OULF1
.DUSR OUFI = JSR @ 51,3
OUF1
.DUSR BLB  = JSR @ 52,3
BLB1
.DUSR HARD = JSR @ 53,3
HM1
.DUSR HARDO= JSR @ 54,3
HM5
.DUSR OUTHX= JSR @ 55,3
WTHX
.DUSR OULHX= JSR @ 56,3
WLHX
.DUSR FLYT = JSR @ 57,3
FLYT1
.DUSR TYPE = JSR @ 58,3
TYP1
.DUSR HARDR= JSR @ 59,3
HM6
.DUSR HARDY=JSR @ 60,3
HM7
.DUSR LMV  = JSR @ 61,3
LMV1
.DUSR INTW = JSR @ 62,3
IW1
.DUSR OUTW = JSR @ 63,3
OUTW1
.DUSR OULW = JSR @ 64,3
OULW1
.DUSR LTL  = JSR @ 65,3
LTL1
.DUSR WHX  = JSR @ 66,3
WHX1



«ff»
«nul»
DataMuseum.dk

RegneCentralen RC3600/RC7000

⟦21cafeb5a⟧ TextFile

Derivation

TextFile
