* 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

