DataMuseum.dk

top - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »REA07«

└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
    └─⟦this⟧ 
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
    └─⟦this⟧ 
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
    └─⟦this⟧ 

TextFile

; ********    **********  ********      ******    **********
; **      **  **          **      **  **      **          **
; **      **  **          **      **  **      **          **
; ********    *******     ********    **      **        **
; **  **      **          **      **  **      **      **
; **    **    **          **      **  **      **      **
; **      **  **********  ********      ******        **
;
; SCREEN-ORENTED EDITOR
; BY POUL-HENNING KAMP
; (C) 1983 BY POUL-HENNING KAMP
;
; REVISION HISTORY:
;
; 830122 FIRST VERSION
«ff»
; ASSEMBLER DIRECTIVES
	.TITL	REB07
	.RDXO	16
	.RDX	10
	.TXTM	1
	.TXTN	1
	.NREL
«ff»
; PROGRAM-DESCRIPTOR
PGDS:	1B0+1B1+1B5+1B15
	.+6
	0
	PCDS-PGDS
	.TXT 'REB07<0>'
«ff»
; OCHAR-ROUTINE
OCHAR:	STA 3,OCHA3
	STA 2,OCHA2
	STA 1,OCHA1
	STA 0,OCHA0
	LDA 1,.255
	ANDS 1,0
	LDA 1,.128
	ADD 1,0
	STA 0,OCHA4
OCHA5:	LDA 1,OCHA6
	LDA 2,OCHA7
	SENDM
	MOVZL # 2,2,SZC
	JMP OCHA5
	WAITA
	MOV 0,0,SZR
	JMP DEAD
	LDA 0,OCHA0
	LDA 1,OCHA1
	LDA 2,OCHA2
	LDA 3,OCHA3
	JMP +0,3
	OCHA0:	0
OCHA1:	0
OCHA2:	0
OCHA3:	0
OCHA6: .+1
	10*256+7
	1
	.+2*2
	0
OCHA4:	128
OCHA7:	.+1
	.TXT 'AMX<0><0><0>'
«ff»
; XY-ROUTINE
XY:	STA 0,XY0
	STA 1,XY1
	STA 2,XY2
	STA 3,XY3
	LDA 0,.6
	JSR OCHAR
	LDA 0,XY0
	LDA 2,.32
	SLS 0,2
	JMP XY4
	LDA 3,T96
	ADD 3,0
	JSR OCHAR
	JMP XY5
XY4:	LDA 2,.64
	SLS 0,2
	JMP XY6
	LDA 3,.32
	ADD 3,0
	JSR OCHAR
	JMP XY5
XY6:	LDA 2,.32
	SUB 2,0
	JSR OCHAR
XY5:	LDA 0,XY1
	JSR OCHAR
	LDA 0,XY0
	LDA 1,XY1
	LDA 2,XY2
	LDA 3,XY3
	JMP +0,3
XY0:	0
XY1:	0
XY2:	0
XY3:	0
T96:	96
«ff»
; OTXT-ROUTINE
OTXT:	STA 0,OTX0
	STA 1,OTX1
	STA 2,OTX2
	STA 3,OTX3
	STA 0,OTX4
OTX5:	LDA 1,OTX4
	GETBY
	MOV 0,0,SNR
	JMP OTX6
	JSR OCHAR
	ISZ OTX4
	JMP OTX5
OTX6:	LDA 0,OTX0
	LDA 1,OTX1
	LDA 2,OTX2
	LDA 3,OTX3
	JMP +0,3
OTX0:	0
OTX1:	0
OTX2:	0
OTX3:	0
OTX4:	0«ff»
; PARAMETER-CHECK
PARAE:	PARAD
BIRTH:	MOV 1,2
	LDA 0,+0,2
	LDA 1,.10
	SEQ 1,0
	JMP DEAD
	LDA 0,+1,2
	LDA 1,.255
	AND 0,1,SZR
	JMP DEAD
	LDA 3,ZONE
	LDA 0,+2,2
	STA 0,+0,3
	LDA 0,+3,2
	STA 0,+1,3
	LDA 0,+4,2
	STA 0,+2,3
	LDA 0,.12
	JSR OCHAR
	LDA 0,.0
	LDA 1,T23
	JSR XY
	LDA 0,ZONE
	MOVZL 0,0
	JSR OTXT
	JMP DEAD
T23:	23«ff»
;DEAD-ROUTINE
DEAD:	LDA 2,CUR
	STOPP
	JMP DEAD
«ff»
; ZONE
ZONE:	.+1
	.TXT 'EMPTY<0>'
	Z
	0	
	1B14+1B13+1B12+1B11
	65535
	DEAD
	1
	1
	0
	SHAR	
	263
	0
	0
	BUFF*2
	BUFF*2
	SHAR
	512
	0
	.BLK ZAUX
SHAR:	0	
	0
	0
	0
	SHAR
	0
	BUFF*2
BUFF:	.BLK 256«ff»
; PROCESS-DESCRIPTOR
PCDS:	.+0
	.-1
	0
	0
	.TXT 'REB07<0>'
	.+0
	.-1
	MSGBU
	PGDS
	0
	0
	100
	DEAD
	0	
	0
	0
	0
	BIRTH*2
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
MSGBU:	.+0
	.-1
	MSG02
	10
	PCDS
	0
	0
	0
	0
	0
MSG02:	.+0
	.-1
	0
	10
	PCDS
	0
	0
	0
	0
	0
	PARAD:
.END PCDS
«ff»
«nul»