/TALK/
*0020
PTR, 0
PTR1, 0
PTR2, 0
PTR3, 0
PTR4, 0
*0200
TALK, CLA CLL
 TLS1
 TLS2
 TLS3
 TLS4
 TAD (BUF)
 DCA PTR
 TAD (BUF)
 DCA PTR1
 TAD (BUF)
 DCA PTR2
 TAD (BUF)
 DCA PTR3
 TAD (BUF)
 DCA PTR4
LOOP, JMS GET1
 JMS GET2
 JMS GET3
 JMS GET4
 JMS PUT1
 JMS PUT2
 JMS PUT3
 JMS PUT4
 JMP LOOP

GOT, 0
 DCA I PTR
 CLA IAC
 TAD PTR
 DCA PTR
 JMP I GOT

GET1, 0
 KSF1
 JMP I GET1
 KRB1
 JMS GOT
 JMP I GET1

GET2, 0
 KSF2
 JMP I GET2
 KRB2
 JMS GOT
 JMP I GET2

GET3, 0
 KSF3
 JMP I GET3
 KRB3
 JMS GOT
 JMP I GET3

GET4, 0
 KSF4
 JMP I GET4
 KRB4
 JMS GOT
 JMP I GET4

PUT1, 0
 TAD PTR1
 CIA
 TAD PTR
 SNA CLA
 JMP I PUT1
 TSF1
 JMP I PUT1
 TAD I PTR1
 TLS1
 CLA IAC
 TAD PTR1
 DCA PTR1
 JMP I PUT1

PUT2, 0
 TAD PTR2
 CIA
 TAD PTR
 SNA CLA
 JMP I PUT2
 TSF2
 JMP I PUT2
 TAD I PTR2
 TLS2
 CLA IAC
 TAD PTR2
 DCA PTR2
 JMP I PUT2

PUT3, 0
 TAD PTR3
 CIA
 TAD PTR
 SNA CLA
 JMP I PUT3
 TSF3
 JMP I PUT3
 TAD I PTR3
 TLS3
 CLA IAC
 TAD PTR3
 DCA PTR3
 JMP I PUT3

PUT4, 0
 TAD PTR4
 CIA
 TAD PTR
 SNA CLA
 JMP I PUT4
 TSF4
 JMP I PUT4
 TAD I PTR4
 TLS4
 CLA IAC
 TAD PTR4
 DCA PTR4
 JMP I PUT4

KSF1=6031
KSF2=6401
KSF3=6421
KSF4=6441
KRB1=6036
KRB2=6406
KRB3=6426
KRB4=6446
TSF1=6041
TSF2=6411
TSF3=6431
TSF4=6451
TLS1=6046
TLS2=6416
TLS3=6436
TLS4=6456

BUF, 0

$