IOSCAN -- SCAN I/O PAGE MACRO V05.06  MONDAY 25-MAY-09 23:01  PAGE 1


      1                                         .TITLE  IOSCAN -- SCAN I/O PAGE
      2                                         .IDENT  /V01.00/
      3
      4         177564                  TPS     =       177564
      5         000015                  CR      =       15
      6         000012                  LF      =       12
      7
      8 000000                                  .ASECT
      9         001000                          .=1000
     10
     11 001000  012706  001000          IOSCAN: MOV     #IOSCAN,SP		; 
     12 001004  012737  001246  000100          MOV     #RETURN,@#100		;  
										; 
     13 001012  000005                          RESET				; 
     14 001014  012705  177564                  MOV     #TPS,R5			;    R5
     15 001020  012737  001240  000004          MOV     #TRAP04,@#4		;  
										; / 
     16 001026  012737  000340  000006          MOV     #340,@#6		;...   
     17 001034  012704  160000                  MOV     #160000,R4		;   -
     18 001040  005001                          CLR     R1			;   
     19 001042  005714                  10$:    TST     @R4			;  ( TST 
										; C,    -  
										;  
     20 001044  103415                          BCS     40$			; C -  
     21 001046  010403                          MOV     R4,R3			;  -     
     22 001050  005701                          TST     R1			;   ?
     23 001052  001001                          BNE     20$			;, 
     24 001054  010301                          MOV     R3,R1			; -   
     25 001056  062704  000002          20$:    ADD     #2,R4			;   
     26 001062  001367                          BNE     10$			;   0   
     27 001064  005701                          TST     R1			; .   ?
     28 001066  001402                          BEQ     30$			;, 
     29 001070  004767  000014                  CALL    PRANGE			;, 
     30 001074  000000                  30$:    HALT				;
     31 001076  000740                          BR      IOSCAN			;    P  

     32 001100  005701                  40$:    TST     R1			;  .   ?
     33 001102  001765                          BEQ     20$			; -  
     34 001104  012746  001056                  MOV     #20$,-(SP)		; -    
										;   RETURN
     35
     36 001110  112700  000015          PRANGE: MOVB    #CR,R0			; CR
     37 001114  004767  000106                  CALL    OUTCHR
     38 001120  112700  000012                  MOVB    #LF,R0			; LF
     39 001124  004767  000076                  CALL    OUTCHR
     40 001130  010146                          MOV     R1,-(SP)		;   
     41 001132  004767  000024                  CALL    OUTOCT			;  
     42 001136  022603                          CMP     (SP)+,R3		;    ?
     43 001140  001407                          BEQ     10$			;,  
     44 001142  112700  000055                  MOVB    #'-,R0			;,  -   
     45 001146  004767  000054                  CALL    OUTCHR
     46 001152  010301                          MOV     R3,R1
     47 001154  004767  000002                  CALL    OUTOCT
     48 001160  000207                  10$:    RETURN				;
     49
     50 001162  012702  000006          OUTOCT: MOV     #6,R2			; 
     51 001166  005000                          CLR     R0			;    
     52 001170  000405                          BR      20$			;   (  -  )
     53 001172  005000                  10$:    CLR     R0			;   
     54 001174  006101                          ROL     R1			;   R0
     55 001176  006100                          ROL     R0
     56 001200  006101                          ROL     R1
     57 001202  006100                          ROL     R0
IOSCAN -- SCAN I/O PAGE MACRO V05.06  MONDAY 25-MAY-09 23:01  PAGE 1-1


     58 001204  006101                  20$:    ROL     R1
     59 001206  006100                          ROL     R0
     60 001210  062700  000060                  ADD     #'0,R0			;  ASCII
     61 001214  004767  000006                  CALL    OUTCHR			;
     62 001220  005302                          DEC     R2			;   
										;   0
     63 001222  001363                          BNE     10$			;...   SOB R2,10$
     64 001224  000207                          RETURN				;
     65
     66 001226  105715                  OUTCHR: TSTB    @R5			;   
     67 001230  100376                          BPL     OUTCHR			;  -  
     68 001232  110065  000002                  MOVB    R0,2(R5)		; 
     69 001236  000207                          RETURN				;
     70
     71 001240  052766  000001  000002  TRAP04: BIS     #1,2(SP)		;    
										;  
     72 001246  000002                  RETURN: RTI				;  
     73
     74         000001                          .END
IOSCAN -- SCAN I/O PAGE MACRO V05.06  MONDAY 25-MAY-09 23:01  PAGE 1-2
SYMBOL TABLE

CR    = 000015          LF    = 000012          OUTOCT  001162          RETURN  001246          TRAP04  001240
IOSCAN  001000          OUTCHR  001226          PRANGE  001110          TPS   = 177564

. ABS.  001250    000   (RW,I,GBL,ABS,OVR)
        000000    001   (RW,I,LCL,REL,CON)
ERRORS DETECTED:  0

*** ASSEMBLER STATISTICS


WORK  FILE  READS: 0
WORK  FILE WRITES: 0
SIZE OF WORK FILE: 33 WORDS  ( 1 PAGES)
SIZE OF CORE POOL: 22016 WORDS  ( 86 PAGES)
OPERATING  SYSTEM: RT-11

ELAPSED TIME: 00:00:00.12
DK:IOSCAN,LP:IOSCAN=DK:IOSCAN
