
/ SPECRAL (NMR) DISPLAY AND PUNCH
 .FULL
 .TITLE NMR
 .LOC 100
TSF=705341
RAT=742010
LBUF=705222
LCLCK=705324
STT=705321
WT=706222
ADSC=701502
ADSF=701501
ADRB=701532
PSF=700201
PSB=700244
DACX=701544
DACY=701524
 HLT
 LAS
 LBUF
 LCLCK
 WT
 WT
 WT
 WT
 STT
 LAC START
 DAC 10
READ ADSC
 ADSF
 JMP .-1
 ADRB
 DAC* 10
 TSF
 JMP READ
 LAC 10
 DAC END
DISPLAY ADD CONV
 TCA
 DAC TST
 LAC START
 DAC 10
LOOP LAC 10
 RTL
 RTL
 RTL
 DACX
 LAC* 10
 DACY
 ISZ TST
 JMP LOOP
 LAS
 SNA
 JMP PUN
 LAC END
 JMP DISPLAY
PUN LAC END
 ADD CONV
 TCA
 DAC TST
 LAC START
 DAC 10
PUNCH LAC* 10
 RAT
 RAT
 RAT
 RAR
 PSB
 RAT
 RAT
 RAT
 PSF
 JMP .-1
 PSB
 RAT
 RAT
 RAT
 PSF
 JMP .-1
 PSB
 ISZ TST
 JMP PUNCH
 HLT
END 0
TST 0
CONV 776000
START 777
 .END
