DataMuseum.dk

top - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »REA06«

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

TextFile

         .TITL   RETST 
         .NREL 
         .RDXO   10 
         .RDX    10 
         .TXTM   1 
         .TXTN   1 
PGDS:    1B0+1B5+1B15 
         LAB00 
         0 
         PCDS-PGDS 
         .TXT    'RETST' 
LAB00:  
ADRS: 0
T29: 29
T31: 31
T96:96
XKO: 0
YKO:0
DEAD: LDA 2,CUR
STOPP
JMP .-2
BIRTH: LDA 0,T29
	JSR OCHAR
 LDA 2,ADRS
	MOVL # 2,2,SZC
	JMP DEAD
	LDA 1,+0,2
	LDA 3,.255
	MOVS 3,0
	AND 1,3
	ANDS 1,0
	MOVZL 0,1
	ADD  1,0
	MOVZL 3,1
	ADD  1,3
	STA 0,YKO
	STA 3,XKO
LDA 0,XKO
	MOVR 0,1
	MOVR 1,1
	MOVR 1,1
	MOVR 1,1
	MOVR 1,1
	LDA 0,T31
	AND 0,1
	LDA 0,.32
	ADD 1,0
	JSR OCHAR
	LDA 1,XKO
	LDA 0,T31
	AND 0,1
	LDA 0,T96
	ADD 1,0
	JSR OCHAR
LDA 1,YKO
MOVR 1,1
MOVR 1,1
MOVR 1,1
MOVR 1,1
MOVR 1,1
LDA 0,T31
AND 0,1
LDA 0,.32
ADD 1,0
JSR OCHAR
LDA 1,YKO
LDA 0,T31
AND 0,1
LDA 0,.64
ADD 1,0
STA 0,XKO
JSR OCHAR
SUB 0,0
JSR OCHAR
SUB 0,0
JSR OCHAR
LDA 0,XKO
JSR OCHAR
ISZ ADRS
JMP BIRTH
	
OCHAR: STA 3,OCHA0
LDA 1,.255
ANDS 1,0
LDA 1,.128
ADD 1,0
STA 0,MES1
RETRY: LDA 1,BUFF
LDA 2,TXAMX
SENDM
MOVZL # 2,2,SZC
JMP RETRY
WAITA
MOV 0,0,SZR
JMP RETRY
JMP @ OCHA0
TXAMX: .+1
        .TXT 'AMX<0><0><0>'
OCHA0: 0
BUFF: .+1
	11*256+7
	1
	.+2*2
	0
MES1:	128
BUFF1:   .+0 
         .-1 
         BUFF2 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
BUFF2:   .+0 
         .-1 
         0 
         10 
         PCDS 
         0 
         0 
         0 
         0 
         0 
PCDS:    .+0 
         .-1 
         0 
         0 
         .TXT    'RETST' 
         .+0 
         .-1 
         BUFF1 
         PGDS 
         0 
         0 
         33 
         DEAD 
         0 
         0 
         0 
         0 
         BIRTH*2 
         .END    PCDS 
«ff»
«nul»