!CPT EXERCISE 2.1.1.1; PTCOI; ! CONNECT CPT ! PTSES; ! SEPERATE CP SIDE ! PTPEE; ! STOP PROGRAM EXECUTION ! PTWSP; ! PRINT SIDE STATES ! PTRMP:REG=PR0,LEV=DL; ! PRINT PR0 IN LEV D ! PTRML:REG=PR0,LEV=DL; ! LOAD PR0 IN LEV D ! H'1111; ! ENTER VALUE ! ; ! TERMINATE COMMAND ! PTRMP:REG=PR0,LEV=DL; ! PRINT PR0 IN LEV D ! PTRMP:REG=IR,LEV=DL; ! PRINT IR IN LEV D ! PTRML:REG=IR,LEV=DL; ! LOAD IR IN LEV D ! H'2222; ! ENTER VALUE ! ; ! TERMINATE COMMAND ! PTRMP:REG=IR,LEV=DL; ! PRINT IR IN LEV D ! PTRMP:REG=DR0,LEV=DL; ! PRINT DR0 IN LEV D ! PTRML:REG=DR0,LEV=DL; ! LOAD DR0 IN LEV D ! H'3333; ! ENTER VALUE ! ; ! TERMINATE COMMAND ! PTRMP:REG=DR0,LEV=DL; ! PRINT DR0 IN LEV D ! PTRMP:REG=WR9,LEV=DL; ! PRINT WR9 IN LEV D ! PTRML:REG=WR9,LEV=DL; ! LOAD WR9 IN LEV D ! H'4444; ! ENTER VALUE ! ; ! TERMINATE COMMAND ! PTRMP:REG=WR9,LEV=DL; ! PRINT WR9 IN LEV D ! !CPT EXERCISE 2.1.1.2; PTSAP:STORE=DS,ADDR=H'10FA,NRW=3; ! PRINT STORE DATA ! PTSAL:STORE=DS,ADDR=H'10FA,DATA=H'AAAA; ! LOAD STORE DATA ! PTSAL:STORE=DS,ADDR=H'10FB,DATA=H'BBBB; ! LOAD STORE DATA ! PTSAL:STORE=DS,ADDR=H'10FC,DATA=H'CCCC; ! LOAD STORE DATA ! PTSAP:STORE=DS,ADDR=H'10FA,NRW=3; ! PRINT STORE DATA ! !CPT EXERCISE 2.1.1.3; ! PRINT REFERENCE TABLE FOR BLOCK TW ; ! BN=353 (FROM E-MODULE SDT) ADDR=BN*8= 353*8=2824; PTSAP:STORE=RS,ADDR=2824,NRW=8; ! PRINT REFERENCE TABLE FOR TW ! !CPT EXERCISE 2.1.1.4; ! PRINT BASE ADDRESS TABLE FOR VAR 19 ; ! ADDR OF BAT=(VAR*2)+ BSA ; ! ADDR OF BAT=(19*2) + H'FCB6 ; ! ADDR OF BAT=H'26 + H'FCB6 = H'FCDC ; PTSAP:STORE=RS,ADDR=H'FCDC,NRW=2; ! PRINT BASE ADDRESS TABLE FOR VAR 19! !CPT EXERCISE 2.1.1.5; !CPT EXERCISE 2.1.1.6; PTSAP:STORE=DS,ADDR=H'1E7AC7,NRW=1; ! PRINT VALUE OF VAR 19 FROM DS! ! PRINT PREVIOUS WORD TO SHOW BN AND BAN FOR A CHECK! PTSAP:STORE=DS,ADDR=H'1E7AC6,NRW=2; ! PRINT VALUE OF VAR 19 FROM DS! !CPT EXERCISE 2.1.1.7; PTVAP:BN=H'161,BAN=H'13; ! PRINT VALUE OF VAR 19 ! !CPT EXERCISE 2.1.1.8; PTSAP:STORE=PS,ADDR=H'42C45,NRW=1; ! PRINT VALUE OF PSA OF BLOCK TW! ! PRINT TOP OF PROGRAM STORE TO SHOW PRODUCTION INFORMATION ; ! PSA - NSIN = END OF PRODUCTION INFORMATION ; ! H'42C45 - H'F7 = H'42B4E ; ! TO PRINT RANGE LEADING UPTO THIS ADDRESS ; ! ADDR = H'42B4E - X, NRW = X, SAY H'20; PTSAP:STORE=PS,ADDR=H'42B2E,NRW=H'20; ! PRINT VALUE OF PSA OF BLOCK TW! !CPT EXERCISE 2.1.1.9; ! PRINT CONTENTS OF SDT LOCATION 1 ; ! ADDR = PSA - SSP ; ! ADDR = H'42C45 - H'1 = H'42C44 ; PTSAP:STORE=PS,ADDR=H'42C44,NRW=1; ! PRINT VALUE OF SDT SL=1 FOR BLOCK TW! ! PRINT CONTENTS OF ADDRESS H'B09 IN PS (PROGRAM ENTRY FOR SSP 1); ! ADDR = PSA + (IA/2); ! ADDR = H'42C45 + (H'B09/2); ! ADDR = H'42C45 + H'584 = H'432C9; PTSAP:STORE=PS,ADDR=H'432C9,NRW=1; ! PRINT MACHINE CODE AT IA H'B09 !