TEST BIT SUBROUTINE
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
000000 2 P1 START
000000 05C0 3 BALR 12,0
00002 4 USING *,12
5 * YOUR PROGRAM GOES HERE
000002 5830 C052 00054 6 L 3,WORD
000006 5800 C05E 00060 7 L 0,=F'31'
0000A 8 LOOP1 EQU *
00000A 5900 C062 00064 9 C 0,=F'0'
00000E 4740 C04E 00050 10 BC 4,LOOP1E
000012 1823 11 LR 2,3
000014 5420 C066 00068 12 N 2,=X'00000001'
000018 5920 C062 00064 13 C 2,=F'0'
00001C 4780 C032 00034 14 BE IF001
000020 5900 C056 00058 15 C 0,BITN
000024 4770 C02E 00030 16 BNE IF002
000028 5810 C06A 0006C 17 L 1,=F'1'
00002C 5010 C05A 0005C 18 ST 1,BITX
00030 19 IF002 EQU *
000030 47F0 C042 00044 20 B FI001
00034 21 IF001 EQU *
000034 5900 C056 00058 22 C 0,BITN
000038 4770 C042 00044 23 BNE IF003
00003C 5810 C062 00064 24 L 1,=F'0'
000040 5010 C05A 0005C 25 ST 1,BITX
00044 26 IF003 EQU *
00044 27 FI001 EQU *
000044 8830 0001 00001 28 SRL 3,1
000048 5B00 C06A 0006C 29 S 0,=F'1'
00004C 47F0 C008 0000A 30 B LOOP1
00050 31 LOOP1E EQU *
000050 07FE 32 BR 14
33 * END OF YOUR PROGRAM
000054 34 DS 0F
000054 00000014 35 WORD DC X'00000014' BITS 27 AND 29 ARE SET
000058 00000000 36 BITN DC F'0'
00005C 37 BITX DS F
38 END
000060 0000001F 39 =F'31'
000064 00000000 40 =F'0'
000068 00000001 41 =X'00000001'
00006C 00000001 42 =F'1'