0 REM PLACE (M. PHILLIPS 3/85)        :
1 :
2 REM 0 STATEMENTS, 1 FUNCTION
3 :
4 REM KEYWORD CHARACTERS: 6
5 :
6 REM KEYWORD  ROUTINE  LINE    SER#
7 REM F/PLACE(  NST     6398    081
8 :
9 REM ===============================
10 :
614 .ASC "PLACE" : .BYTE $A8
1614 .WORD NST-1
6398 NST LDA #2     
6400 JSR $A3FB
6402 LDA #0         
6404 PHA
6406 JSR $AD9E      
6408 BIT $0D        
6410 BMI NST2       
6412 JSR $B7A1      
6414 JSR $AEFD      
6416 PLA            
6418 TXA            
6420 BNE NST1       
6422 JMP $B248      
6424 NST1 DEX
6426 TXA
6428 PHA
6430 JSR $AD9E      
6432 NST2 JSR $B6A3 
6434 STA T3         
6436 PHA            
6438 TXA            
6440 PHA
6442 TYA
6444 PHA
6446 LDA T3         
6448 JSR $B47D
6450 JSR $79        
6452 JSR $AEFD      
6454 JSR $AD9E      
6456 JSR $B6A3      
6457 TAX
6458 BEQ NST6       
6459 STA T4
6460 JSR $79
6462 JSR $AEF7      
6464 PLA            
6466 STA $25        
6468 PLA
6470 STA $24
6472 PLA
6473 BEQ NST6       
6474 STA T3         
6476 PLA
6478 STA T2         
6480 STA T5         
6482 LDA T3         
6484 CMP T2         
6486 BEQ NST6
6488 BCC NST6
6490 SBC T4         
6492 BCC NST6       
6494 STA T6         
6496 NST3 CLC       
6498 LDA $24        
6500 ADC T5         
6502 STA $24
6504 BCC NST4
6506 INC $25
6508 NST4 LDY #1    
6510 STY T5         
6512 DEY              
6514 NST5 LDA ($24),Y 
6516 CMP ($22),Y    
6518 BNE NST7       
6520 INY            
6522 CPY T4         
6524 BNE NST5       
6526 LDY T2         
6528 INY
6530 .BYTE $2C      
6532 NST6 LDY #0    
6534 JMP $B3A2      
6536 NST7 LDA T2    
6538 CMP T6         
6540 BCS NST6       
6542 INC T2         
6544 BNE NST3       
6546 ;