* DISK IPL TEST PROGAM
* THIS PROGRAM TESTS IPL WITH LOADING AND STARTING A LARGE MULTI SECTOR,
* MULTI CYLINDER PROGRAM.
*
*
       IDENT       TIPL2
ASR    EQU         /10
S      EQU         1
H      EQU         0
*
* THE MONITOR FILE IS LOADED BY IPL IN THE AREA FROM ADDRESS /40 ONWARDS
* THE 1ST PART OF THAT AREA CONTAINS ADDRESSES WITH A SPECIFIC FUNCTION
* LIKE PRIORITY INTERRUPT ADDRESSES AND THE MULTIPLEX CHANNELS.
* THESE ADDRESSES CAN NOT BE USED FOR CODE AND ARE KEPT FREE IN THIS PROGRAM
* BY A RES SPEUDO OPERATION.
       DATA        /40                  SHOULD BE STORED AT ADDRESS /40
       DATA        /42                  SHOULD BE STORED AT ADDRESS /42
       RES         /800-2-/20
STR    LDKL        A14,LST              START ADDRESS (ADDRESS /1000 AFTER LOADING)
       LDKL        A2,M
       CF          A14,PLINE
*
P0     LDKL        A2,LO
       CF          A14,PLINE
       LDKL        A1,TAB1
P1     LDR*        A2,A1
       RF(0)       P2
       CF          A14,PLINE
       ADK         A1,2
       RB          P1
*
P2     LDKL        A2,HI
       CF          A14,PLINE
       LDKL        A1,TAB2
P3     LDR*        A2,A1
       RB(0)       P0
       CF          A14,PLINE
       ADK         A1,2
       RB          P3
*
PLINE  EQU         *
GC     LDR*        A6,A2
       RF(0)       EX
       ECR         A6,A6
       CF          A14,ASCOUT
       ECR         A6,A6
       CF          A14,ASCOUT
       ADK         A2,2
       RB          GC
EX     RTN         A14
*
ASCOUT LDK         A7,0                 OUTPUT MODE
       CIO         A7,S,ASR
       RB(4)       *-2
       OTR         A6,0,ASR
       RB(4)       *-2
       CIO         A7,H,ASR
       SST         A7,ASR
       RB(4)       *-2
       RTN         A14
* 12 BYTE MESSAGE
M      DATA        'HERE I AM '
       DATA        /0D0A
       DATA        0
LO     DATA        'LOW'
       DATA        /0D0A
       DATA        0
HI     DATA        'HIGH'
       DATA        /0D0A
       DATA        0
       RES         6
LST    EQU         *-2
TAB1   DATA        M0
       DATA        M1
       DATA        M2
       DATA        M3
       DATA        M4
       DATA        M5
       DATA        M6
       DATA        M7
       DATA        M8
       DATA        M9
       DATA        M10
       DATA        M11
       DATA        M12
       DATA        M13
       DATA        M14
       DATA        M15
       DATA        M16
       DATA        M17
       DATA        M18
       DATA        M19
       DATA        0
       RES         370
M0     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 0 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M1     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 1 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M2     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 2 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M3     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 3 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M4     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 4 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M5     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 5 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M6     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 6 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         400
M7     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 7 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M8     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 8 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M9     DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 9 ' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M10    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 10' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M11    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 11' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M12    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 12' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M13    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 13' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M14    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 14' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M15    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 15' COMMENT
       DATA        /0D0A
       DATA        0
       RES         400
M16    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 16' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M17    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 17' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M18    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 18' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
M19    DATA        'THIS IS A LONG MESSAGE AND HAS THE NUMBER 19' COMMENT
       DATA        /0D0A
       DATA        0
       RES         370
TAB2   DATA        M0
       DATA        M1
       DATA        M2
       DATA        M3
       DATA        M4
       DATA        M5
       DATA        M6
       DATA        M7
       DATA        M8
       DATA        M9
       DATA        M10
       DATA        M11
       DATA        M12
       DATA        M13
       DATA        M14
       DATA        M15
       DATA        M16
       DATA        M17
       DATA        M18
       DATA        M19
       DATA        0
       END         STR