⟦fcc1e3b7d⟧

TextFile

	.TITL VAFDP
	.NREL
	.RDXO 16
	.RDX 10
	.TXTM 1
	.TXTN 1
	.NOLOC 1
	.NOCON 1
	.NOMAC 1
PGD:	1B0+1B5+1B15
	PGD0
	0
	PCD-PGD
	.TXT @VAFDP@
PGD0:«ff»
	.MACRO SYMB
	LA$=.
	^1
	.TXT @^1@
	.DO LA$+4-.
	0
	.ENDC
	%«ff»
BUFF:	.+0
	.-1
	BUF0
	10
	PCD
	0
	0
	0
	0
	0
BUF0:	.+0
	.-1
	BUF1
	10
	PCD
	0
	0
	0
	0
	0
BUF1:	.+0
	.-1
	0
	10
	PCD
	0
	0
	0
	0
	0«ff»
FZO:	.TXT @<0><0><0><0><0>@
	Z
	0
	1B14+1B13+1B12+1B11
	65535
	END
	1
	1
	0
	FZO0
	263
	0
	0
	FZO1*2
	FZO1*2
	FZO0
	512
	0
	.BLK ZAUX
FZO0:	0
	0
	0
	0
	FZO0
	0
	FZO1*2
FZO1:	.BLK 256«ff»
LZO:	.TXT @LPT<0><0>@
	Z
	0
	1
	65535
	END
	1
	1
	0
	LZO0
	47
	0
	0
	LZO1*2
	LZO1*2
	LZO0
	80
	0
	.BLK ZAUX
LZO0:	0
	0
	0
	0
	LZO0
	0
	LZO1*2
LZO1:	.BLK 40«ff»
BEG0:	LZO
BEG1:	FZO
BEG2:	.+1
	.TXT @ BINARY FILE DISASSEMBLER REV.01.01<0>@
BEG:	MOV 1,2
	LDA 0,6,2
	MOV 0,0,SZR
	TERM
	LDA 3,BEG1
	LDA 0,7,2
	STA 0,0,3
	LDA 0,8,2
	STA 0,1,3
	LDA 0,9,2
	STA 0,2,3
	LDA 0,.1
	MOV 3,2
	OPEN
	LDA 0,.0
	LDA 1,.1
	SETPO
	LDA 0,.3
	LDA 2,BEG0
	OPEN
	LDA 1,.12
	OUTEN
	LDA 2,CUR
	LDA 0,BEG1
	ONAM
	LDA 0,BEG2
	OTXT
	OLN«ff»
NBLC:	IWD
	MOV 0,0,SNR
	TERMC
	LDA 1,.2
	SNE 0,1
	GBLC2
	LDA 1,.7
	SNE 0,1
	GBLC7
	GUBLC«ff»
BLC2:	IWD
	STA 0,CNT,2
	IWD
	STA 0,REL0,2
	IWD
	STA 0,REL1,2
	IWD
	STA 0,REL2,2
	IWD
	IWD
	STA 0,ADR,2
	ISZ CNT,2
	JMP BLC20
	GNBLC
BLC20:	LDA 0,REL0,2
	LDA 1,REL1,2
	LDA 3,REL2,2
	MOVR 0,0
	MOVR 1,1
	MOVL 3,3
	MOVL 1,1
	MOVL 3,3
	MOVL 1,1
	MOVL 0,0
	STA 0,REL0,2
	STA 1,REL1,2
	STA 3,REL2,2
	IREL
	STA 0,AREL,2
BLC21:	LDA 0,ADR,2
	OSP
	OHXW
	LDA 0,AREL,2
	OREL
	OSP
	ISZ ADR,2
	IWD
	STA 0,DATA,2
	OHXW
	IREL
	STA 0,DREL,2
	OREL
	OSP
	OSP
	LDA 0,DREL,2
	LDA 1,.1
	SEQ 0,1
	JMP BLC22
	LDA 1,DATA,2
	MOVS 1,0
	OASC
	MOV 1,0
	OASC
	LDA 0,BLC28
	OTXT
	LDA 3,BLC25
	LDA 0,DATA,2
	LDA 1,0,3
BLC27:	SNE 0,1
	JMP BLC26
	INC 3,3
	INC 3,3
	INC 3,3
	INC 3,3
	LDA 1,0,3
	MOV 1,1,SZR
	JMP BLC27
	LDA 0,DATA,2
	MOVZL 0,0,SZC
	JMP ALU
	MOVL 0,0
	MOVL 0,0
	MOVL 0,0
	LDA 1,.3
	AND 1,0,SNR
	JMP JJID
	SNE 1,0
	JMP IO
	LDA 0,LDST0
	OTXT 
JMP	BLC24
LDST0:	.+1
	.TXT @LOAD/STORE INSTR.@
IO:	LDA 0,IOIN0
	OTXT
JMP	BLC24
IOIN0:	.+1
	.TXT @INPUT/OUTPUT INSTR.@
JJID:	LDA 0,JJID0
	OTXT
	JMP BLC24
JJID0:	.+1
	.TXT @PROGRAM FLOW INSTR.@
ALU:	LDA 0,ALUI0
	OTXT
	JMP BLC24
ALUI0:	.+1
	.TXT @ARITHMETIC'S@
BLC26:	INC 3,0
	ONAM
BLC24:	OLN
	ISZ CNT,2
	JMP BLC21
	GNBLC
BLC22:	LDA 0,BLC23
	OTXT
	LDA 0,DATA,2
	OHXW
	LDA 0,DREL,2
	OREL
	JMP BLC24
BLC23:	.+1
	.TXT @                <0>@
BLC28:	.+1
	.TXT @              <0>@
BLC25:	STAB«ff»
BLC70:	.+1
	.TXT @                              .TITL <0>@
BLC7:	LDA 0,BLC70
	OTXT
	IWD
	IWD
	IWD
	IWD
	IWD
	IWD
	STA 0,ADR,2
	IWD
	STA 0,DATA,2
	OLAB
	IWD
	OLN
	GNBLC«ff»
UBLC0:	0
UBLC1:	42
UBLC:	STA 0,UBLC0
	LDA 0,UBLC1
	OCHR
	LDA 0,UBLC0
	OHXW
	OSP
	IWD
	STA 0,CNT,2
	OHXW
	OSP
	DSZ CNT,2
	DSZ CNT,2
	DSZ CNT,2
	DSZ CNT,2
UBLC2:	IWD
	OHXW
	OSP
	ISZ CNT,2
	JMP UBLC2
	OLN
	GNBLC
«ff»
END0:	.+1
	1B8
	0
	0
	0
	0
END1:	.+1
	.TXT @S<0><0><0><0>@
END2:	FZO
END3:	LZO
ENDC:	LDA 2,END2
	LDA 1,.1
	CLOSE
	LDA 2,END3
	LDA 1,.12
	OUTEN
	LDA 1,.1
	CLOSE
END:	LDA 1,END0
	LDA 2,END1
	SENDM
	LDA 2,CUR
	STOPP
	JMP END«ff»
PLN0:	0
PLN1:	0
PLN:	STA 0,PLN0
	STA 3,PLN1
	LDA 0,.10
	OCHR
	LDA 0,.13
	OCHR
	LDA 0,PLN0
	JMP @ PLN1«ff»
PRAD0:	0
PRAD1:	0
PRAD2:	0
PRAD3:	.+1*2
	.TXT @<0>0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ.?<0><0>@
PRAD:	STA 0,PRAD0
	STA 1,PRAD1
	STA 3,PRAD2
	LDA 1,PRAD3
	ADD 0,1
	GETBY
	OASC
	LDA 0,PRAD0
	LDA 1,PRAD1
	JMP @ PRAD2«ff»
PLAB0:	0
PLAB1:	0
PLAB2:	0
PLAB:	STA 3,PLAB2
	LDA 0,ADR,2
	LDA 1,.40,2
	DIVID
	STA 3,PLAB0
	DIVID
	STA 3,PLAB1
	ORAD
	LDA 0,PLAB1
	ORAD
	LDA 0,PLAB0
	ORAD
	LDA 0,DATA,2
	MOVZR 0,0
	MOVZR 0,0
	MOVZR 0,0
	MOVZR 0,0
	MOVZR 0,0
	DIVID
	STA 3,PLAB0
	ORAD
	LDA 0,PLAB0
	ORAD
	JMP @ PLAB2«ff»
PTXT0:	0
PTXT1:	0
PTXT2:	0
PTXT:	MOVZL 0,0
	STA 0,PTXT0
	STA 1,PTXT1
	STA 3,PTXT2
PTXT3:	LDA 1,PTXT0
	GETBY
	MOV 0,0,SNR
	JMP PTXT4
	OCHR
	ISZ PTXT0
	JMP PTXT3
PTXT4:	LDA 1,PTXT1
	JMP @ PTXT2«ff»
PNAM0:	0
PNAM1:	0
PNAM2:	0
PNAM3:	0
PNAM:	STA 1,PNAM0
	STA 3,PNAM1
	LDA 1,.5
	STA 1,PNAM2
	MOVZL 0,0
	STA 0,PNAM3
PNAM4:	LDA 1,PNAM3
	GETBY
	OASC
	ISZ PNAM3
	DSZ PNAM2
	JMP PNAM4
	LDA 1,PNAM0
	JMP @ PNAM1«ff»
GWD0:	0
GWD1:	0
GWD2:	0
GWD3:	FZO
GWD:	STA 1,GWD0
	STA 3,GWD1
	LDA 2,GWD3
	INCHA
	STA 1,GWD2
	INCHA
	MOVZS 1,1
	LDA 0,GWD2
	ADD 1,0
	LDA 1,GWD0
	LDA 2,CUR
	JMP @ GWD1«ff»
PREL0:	0
PREL1:	0
PREL2:	.+1*2
	.TXT @! '"-=$*@
PREL:	STA 1,PREL0
	STA 3,PREL1
	LDA 1,.7
	AND 1,0
	LDA 1,PREL2
	ADD 0,1
	GETBY
	OCHR
	LDA 1,PREL0
	JMP @ PREL1«ff»
PASC0:	0
PASC1:	0
PASC:	STA 1,PASC0
	STA 3,PASC1
	LDA 1,.127
	AND 1,0
	SNE 1,0
	LDA 0,.32
	LDA 1,.32
	SL 1,0
	LDA 0,.32
	OCHR
	LDA 1,PASC0
	JMP @ PASC1«ff»
GREL0:	0
GREL1:	0
GREL2:	0
GREL:	STA 1,GREL0
	STA 3,GREL1
	LDA 3,REL2,2
	LDA 1,REL1,2
	LDA 0,REL0,2
	STA 0,GREL2
	MOVL 3,3
	MOVL 1,1
	MOVL 0,0
	MOVL 3,3
	MOVL 1,1
	MOVL 0,0
	MOVL 3,3
	MOVL 1,1
	MOVL 0,0
	STA 0,REL0,2
	STA 1,REL1,2
	STA 3,REL2,2
	LDA 3,GREL2
	MOVS 3,3
	MOVR 3,3
	MOVR 3,3
	MOVR 3,3
	MOVR 3,3
	MOVR 3,3
	LDA 0,.7
	AND 3,0
	LDA 1,GREL0
	LDA 2,CUR
	JMP @ GREL1«ff»
PSP0:	0
PSP1:	0
PSP2:	0
PSP:	STA 0,PSP0
	STA 1,PSP1
	STA 3,PSP2
	LDA 0,.32
	OCHR
	LDA 1,PSP1
	LDA 0,PSP0
	JMP @ PSP2«ff»
PKOM0:	0
PKOM1:	0
PKOM2:	0
PKOM3:	44
PKOM:	STA 0,PKOM0
	STA 1,PKOM1
	STA 3,PKOM2
	LDA 0,PKOM3
	OCHR
	LDA 0,PKOM0
	LDA 1,PKOM1
	JMP @ PKOM2«ff»
PHXD0:	0
PHXD1:	0
PHXD2:	.+1*2
	.TXT @0123456789ABCDEF@
PHXD:	STA 1,PHXD0
	STA 3,PHXD1
	LDA 1,.15
	AND 1,0
	LDA 1,PHXD2
	ADD 0,1
	GETBY
	OCHR
	LDA 1,PHXD0
	JMP @ PHXD1«ff»
PHXB0:	0
PHXB1:	0
PHXB2:	0
PHXB:	STA 1,PHXB0
	STA 3,PHXB1
	STA 0,PHXB2
	MOVR 0,0
	MOVR 0,0
	MOVR 0,0
	MOVR 0,0
	OHXD
	LDA 0,PHXB2
	OHXD
	LDA 1,PHXB0
	JMP @ PHXB1«ff»
PHXW0:	0
PHXW1:	0
PHXW2:	0
PHXW:	STA 0,PHXW0
	STA 1,PHXW1
	STA 3,PHXW2
	MOVS 0,0
	OHXB
	LDA 0,PHXW0
	OHXB
	LDA 1,PHXW1
	LDA 0,PHXW0
	JMP @ PHXW2«ff»
PCHR0:	LZO
PCHR1:	0
PCHR2:	0
PCHR:	STA 3,PCHR2
	STA 1,PCHR1
	LDA 2,PCHR0
	MOV 0,1
	OUTEN
	LDA 2,CUR
	LDA 1,PCHR1
	JMP @ PCHR2«ff»
STAB:	SYMB BINDE
	SYMB BREAK
	SYMB CALL
	SYMB CDELA
	SYMB CHANG
	SYMB CLOSE
	SYMB COMON
	SYMB CONBY
	SYMB CPASS
	SYMB CPRIN
	SYMB CREAT
	SYMB CSEND
	SYMB CTEST
	SYMB CTOUT
	SYMB CWANS
	SYMB DECBI
	SYMB DIVID
	SYMB ERROR
	SYMB EXECU
	SYMB FREEC
	SYMB FREES
	SYMB GETAD
	SYMB GETBY
	SYMB GETPO
	SYMB GETRE
	SYMB GOTO
	SYMB INBLO
	SYMB INCHA
	SYMB INITC
	SYMB INNAM
	SYMB INTPR
	SYMB LOOKU
	SYMB MOVE
	SYMB MULTI
	SYMB NEWCA
	SYMB NEXTO
	SYMB OPEN
	SYMB OUTBL
	SYMB OUTCH
	SYMB OUTEN
	SYMB OUTNL
	SYMB OUTOC
	SYMB OUTSP
	SYMB OUTTE
	SYMB PUTBY
	SYMB PUTRE
	SYMB RECHA
	SYMB REMOV
	SYMB RETUR
	SYMB SEARC
	SYMB SENDA
	SYMB SENDM
	SYMB SETCO
	SYMB SETEN
	SYMB SETIN
	SYMB SETPO
	SYMB SETRE
	SYMB SIGCH
	SYMB SIGGE
	SYMB SIGNA
	SYMB START
	SYMB STOPP
	SYMB TRANS
	SYMB WAIT
	SYMB WAITA
	SYMB WAITC
	SYMB WAITE
	SYMB WAITG
	SYMB WAITI
	SYMB WAITO
	SYMB WAITS
	SYMB WAITT
	SYMB WAITZ
	SYMB .CLEA
	SYMB .CLOS
	SYMB .CONB
	SYMB .DIVI
	SYMB .FREE
	SYMB .GETB
	SYMB .GETR
	SYMB .INBL
	SYMB .INCH
	SYMB .MULT
	SYMB .NEXT
	SYMB .OPEN
	SYMB .OUTB
	SYMB .OUTC
	SYMB .OUTE
	SYMB .OUTN
	SYMB .OUTO
	SYMB .OUTS
	SYMB .OUTT
	SYMB .PUTB
	SYMB .PUTR
	SYMB .REPE
	SYMB .RETU
	SYMB .SETC
	SYMB .SETI
	SYMB .SETP
	SYMB .SETR
	SYMB .TRAN
	SYMB .WAIT
	0
	0
	0
	0«ff»
	UBLC
	BLC2
	BLC7
	NBLC
	40
	PTXT
	PNAM
	PLAB
	PRAD
	PLN
	0
	0
	0
	0
	0
	0
	0
	0
	0
	END
	ENDC
	GREL
	GWD
	PASC
	PREL
	PHXW
	PHXB
	PHXD
	PKOM
	PSP
	PCHR«ff»
.DUSR	OCHR	=JSR @ -1,2
.DUSR	OSP	=JSR @ -2,2
.DUSR	OKOM	=JSR @ -3,2
.DUSR	OHXD	=JSR @ -4,2
.DUSR	OHXB	=JSR @ -5,2
.DUSR	OHXW	=JSR @ -6,2
.DUSR	OREL	=JSR @ -7,2
.DUSR	OASC	=JSR @ -8,2
.DUSR	IWD	=JSR @ -9,2
.DUSR	IREL	=JSR @ -10,2
.DUSR	TERMC	=JMP @ -11,2
.DUSR	TERM	=JMP @ -12,2
.DUSR	REL0	=-13
.DUSR	REL1	=-14
.DUSR	REL2	=-15
.DUSR	AREL	=-16
.DUSR	DREL	=-17
.DUSR	ADR	=-18
.DUSR	DATA	=-19
.DUSR	BLCK	=-20
.DUSR	CNT	=-21
.DUSR	OLN	=JSR @ -22,2
.DUSR	ORAD	=JSR @ -23,2
.DUSR	OLAB	=JSR @ -24,2
.DUSR	ONAM	=JSR @ -25,2
.DUSR	OTXT	=JSR @ -26,2
.DUSR	.40	=-27
.DUSR	GNBLC	=JMP @ -28,2
.DUSR	GBLC7	=JMP @ -29,2
.DUSR	GBLC2	=JMP @ -30,2
.DUSR	GUBLC	=JMP @ -31,2«ff»
PCD:	.+0
	.-1
	0
	0
	.TXT @VAFDP@
	.+0
	.-1
	BUFF
	PGD
	0
	0
	42
	END
	0	
	0
	0
	0
	BEG*2
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	.END PCD
«ff»
«nul»
DataMuseum.dk

RegneCentralen RC3600/RC7000

⟦fcc1e3b7d⟧ TextFile

Derivation

TextFile
