DataMuseum.dk

top - download

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

└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
    └─ ⟦this⟧ »/REA03« 

TextFile

         .TITL   RETST 
         .NREL 
         .RDXO   10 
         .RDX    10 
         .TXTM   1 
         .TXTN   1 
PGDS:    1B0+1B5+1B15 
         LAB00 
         0 
         PCDS-PGDS 
         .TXT    'RETST' 
LAB00: 32 
DEAD: LDA 2,CUR
STOPP
JMP .-2
HUT: 
STA 3,TT
LDA 2,.3
LDA 0,.0
WAITI
LDA 0,.32
JSR @ TT
TT:0
BIRTH:
LDA 0,LAB00
INC 0,0
LDA 1,.64
SNE 1,0
JSR HUT
STA 0,LAB00
	JSR OCHAR
	JMP BIRTH
GTY: .+1
 15*256+7
1
.+2*2
0
CHARO: 0
ICHAR: STA 3,ICHA0
LDA 1,ICHA1
LDA 2,TXAMX
ICHA2:SENDM
MOVZL # 2,2,SZC
JMP ICHA2
WAITA
LDA 1,ICHA3
LDA 0,.255
MOVS 1,1
AND 1,0
JMP @ ICHA0
ICHA1: .+1
9*256+1
1
.+2*2
0
ICHA3: 0
ICHA0: 0

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
	15*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»