DataMuseum.dk

top - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »P3A07«

└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
    └─ ⟦this⟧ »/P3A07« 

TextFile

; FILEN AFPUDSET, TEKSTER FJERNET, ELLERS UÆNDRET: *** P1A07 FD1FI ***
; PLRÅ SKAL IKKE EXISTERE FORUD!  PL 10.3.84

; FIL/PRGR/PROCESNAVN ÆNDRET TIL FD1FI ISTF PLFDL(1) 2.5.83 ;; PL 2.5.83 KONTROLUDSKRIFTER
; 30.4.83 VIDERE TILFØJ TTY-MONITORING ETC
; IKKE PRØVET 29.4.83!!!!
; ÆNDRES 29.4.83 TIL AT LÆSE DISKETTE OVER I EN ALM FIL 'PLRÅ'
; DER SKAL CÆRE CREATET FØR PROGRAMEXEKVERING    PRG. PLFDL

; FD1FI /ASCII:P1A01 FÆRDIG 15.12.82 (LILLE RETTELSE!!)
; FD1FI PL-LÆSNING AF $FD1 OUTPUT I HEXKODE/TEXT FÆRDIG 14.12.82
; PL-DISKETTE HEX-LÆSNING RETTET 13.12.82
; PL-DISKETTE HEXKODE-LÆSNING AF DISKETTE $FD1 PR. 10.12.82

	
	.TITL   FD1FI 
	.NREL 
	.RDXO   10 
	.RDX    10 
	.TXTM   1 
	.TXTN   1 
PGDS:	1B0+1B5+1B15 
	LAB00 
	0 
	PCDS-PGDS 
	.TXT    'FD1FI' 
LAB00:	
TTZON:	.TXT 'TTY<0><0><0>'
	Z
	0
	1
	65535
	DEAD
	1
	1
	0
	TTSO
	73
	0
	0
	TTB0*2
	TTB0*2
	TTSO
	132
	.BLK ZAUX
TTSO:	0
	0
	0
	0
	TTSO
	0
	TTB0*2
TTB0:	.BLK 66
	
LPZON:	.TXT    'PLRÅ<0><0>' 
	Z 
	0 
	1B11+1B12+1B13+1B14
	;	CATFIL + REPEAT + POSISTIONABLE + BLOCKORIENT 
	65535 
	DEAD 
	1 
	1 
	0 
	LPS0 
	263 
	0 
	0 
	LPB0*2 
	LPB0*2 
	LPS0 
	512 
	0 
	.BLK    ZAUX 
LPS0:	0 
	0 
	0 
	0 
	LPS0 
	0 
	LPB0*2 
LPB0:	.BLK    256 

	.DUSR   FD1=52 
TX1B:	TX01B
A33:	A3

BIRTH:	MOV     1,2 
	LDA 1,5,2
	MOV # 1,1,SNR
	JMP BI2
	LDA     1,+7,2 
	STA     1,TRACK 
	LDA 3,.6 
	LDA 0,8,2
	SE 0,3
	JMP BI2
	LDA 0,10,2
	STA 0,SECSTEP
	
BI2:	
	LDA 0,.3
	LDA 2,TTZ
	OPEN 
	
	LDA @ 0,TX1B
	OUTTEXT
	LDA 1,.32
	OUTEND
	LDA     2,LPZO1 
	LDA 0,.1B15 
	LDA 1,.0
	CREATEENTRY
	LDA 1,A33 @ 
	LDA 2,TTZ
	OUTOCTAL
	LDA 1,.32
	OUTEND
	LDA 2,LPZO1
	
	LDA     0,.3 
	OPEN 
	;  ???		SETPOS
	LDA 0,A33 @
	LDA 2,TTZ
	OUTOCTAL 
	OUTSP
	LDA 1,.32
	OUTEND
	OUTNL
	LDA     0,.1B6 
	DOAS    0,FD1 
	SKPBZ   FD1 
	JMP     .-1 
NTRACK:	LDA     0,TRACK 
	LDA 2,TTZ 
	OUTNL
	LDA 0,TRACK
	OUTOCTAL
	OUTNL
	LDA 0,TRACK
	LDA     3,.1B7 
	LDA     1,.1B6 
	ADD     3,1 
	ADD     0,1 
	DOAS    1,FD1 
	SKPBZ   FD1 
	JMP     .-1 
	SUB     0,0 
	STA     0,SECTO 
	INC 0,0
	STA 0,VIR
NSECT:	ISZ     SECTO 
	LDA     0,SECTO 
	LDA     1,SYVOG 
	SUB   # 0,1,SNR 
	JMP     NYTRA 
	LDA 2,TTZ 
	LDA 0,VIR
	OUTOCTAL
	OUTSP
	LDA 0,VIR
	DOAS    0,FD1 
	SKPBZ   FD1 
	JMP     .-1 
	LDA 0,.128
	STA 0,MDL
NCHR:	DIB     1,FD1 
	MOV 1,0 
	LDA 2,LPZO1
	OUTCH
	
	MOV 0,1
	LDA 2,TTZ
	LDA 3,T96
	LDA 0,T47
	SG 1,3
	SG 1,0
	MOV 3,1 ; T96 ISTEDET HVIS IKKE 31<TEGN<96
	OUTEND 
	DSZ MDL
	JMP NCHR
	
	LDA 0,VIR
	LDA 1,SECSTEP ; ANGIVER SECTIONSTEP
	ADD 1,0
	LDA 1,SEKSO
	SG 0,1
	JMP .+3
	SUB 1,0
	JMP .-3
	STA 0,VIR
	JMP     NSECT 
	
	; HVOR MEGET AF FLG ER NØDV?!!
TRACK:	0
LPZO1:	LPZON
	
ARB2:	SECSTEP:	1
TTZ:	TTZON 
	ARB27*2
SEKSO:	26
MDL:	0
KOLON:	58 
VIR:	0
FJOR:	32 
L2TCH:	0 
SYVOG:	27 
SECTO:	0
CH:	0
BY:	0
T47:	31
T96:	96
T126:	126
T240:	240
LIN22:	2
NYTRA:	ISZ     TRACK 
	LDA     0,TRACK 
	LDA     1,SYVOH 
	SUB     0,1,SNR 
	JMP     DEAD 
	JMP     NTRC @ 
NTRC:	NTRAC
SYVOH:	77 
DEAD:	
	LDA 2,LPZO1
	LDA 1,.1
	CLOSE
	LDA 2,TTZ
	LDA 1,.32
	OUTNL
	OUTNL
	LDA 1,A3
	OUTOC
	LDA 1,A4
	OUTOC
	LDA 1,A5
	OUTOC
	LDA 1,A6
	OUTOC
	OUTNL
	LDA 1,A1
	LDA 2,A2
	SENDMESSAGE 
	LDA 2,CUR
	STOPP
	JMP .-1
	
	JMP     @ 1,1
	BI2
	
ARB27:	.BLK    5 
TX01B:	.+1*2
	.TXT    ' START <0><0>' 
A1:	.+1
	1B8
	0
	0
	0
A2:	.+1
	.TXT *S<0><0><0><0><0>*
BUFF1:	.+0 
	.-1 
	BUFF2 
	10 
	PCDS 
	0 
A3:	0 
A4:	0 
A5:	0 
A6:	0 
BUFF2:	.+0 
	.-1 
	0 
	10 
	PCDS 
	0 
	0 
	0 
	0 
	0 
PCDS:	.+0 
	.-1 
	0 
	0 
	.TXT    'FD1FI' 
	.+0 
	.-1 
	BUFF1 
	PGDS 
	0 
	0 
	33 
	DEAD 
	0 
	0 
	0 
	0 
	BIRTH*2 
	0
	1
	2
	3
	4
	5
	6
	7
	8
	9
	10
	.END    PCDS 
	«ff»
«nul»