ABSTEST2 START 0 00010000 WAITPSW DC X'0000000000',AL3(BEGIN) 00020000 * 00030000 * 00040000 ORG ABSTEST2+2048 00050000 * 00060000 BEGIN BALR R12,0 SET BASE REGISTER 00070000 USING *,R12 00080000 * 00090000 LA R13,SAVEA FIRST SAVE AREA 00100000 * 00110000 @PRINT 'HELLO, WORLD' PRINT "HELLO WORLD" 00120000 @PRINT DASH,LEN=L'DASH PRINT A LINE OF DASHES 00130000 * 00140000 LOOP DS 0H 00150000 @CARD INBUF READ A CARD 00160000 LTR R15,R15 CHECK FOR GOOD READ 00170000 BNZ LOOPEND 00180000 @PRINT INBUF,LEN=L'INBUF PRINT THE CARD 00190000 B LOOP LOOP BACK FOR ANOTHER CARD 00200000 * 00210000 * 00220000 LOOPEND DS 0H 00230000 @PRINT DASH,LEN=L'DASH PRINT A LINE OF DASHES 00240000 @PRINT ' ' PRINT BLANK 00250000 @PRINT ' ' LINES 00260000 * 00270000 * 00280000 L R5,=A(BEGIN) 00290000 @DUMP (R5),128 DUMP SOME STORAGE 00300000 * 00310000 * 00320000 LPSW DONE LOAD A WAIT PSW 00330000 * 00340000 ********************************************************************** 00350000 * 00360000 @PRINT GEN=YES 00370000 @CARD GEN=YES 00380000 @DUMP GEN=YES 00390000 @ERR , 00400000 @REGS , 00410000 * 00420000 ********************************************************************** 00430000 * 00440000 DASH DC C'--------------------------------------------------' 00450000 * 00460000 * 00470000 DS 0D 00480000 DONE DC X'0002000000',X'99FACE' 00490000 * 00500000 SAVEA DS 18F 00510000 * 00520000 INBUF DS CL80 00530000 * 00540000 END , 00550000