File: GETWRD.RL of Disk: V50/Source/Source-Listing-FORTRAN-2
(Binary file converted to dump format)
Block: 0000 00000: 0003 0050 0000 0000 4322 0524 2216 0002 0100 0000 4301 2207 0522 0002 0120 0000 @C@(@@@@#RETRN@BA@@@#ARGER@BAP@@ ( RT @@ A R P 00020: 4315 0123 1300 0007 0200 0156 0705 2427 2204 0001 0200 0076 2025 2427 2204 0001 #MASK@@GB@A.GETWRD@AB@@>PUTWRD@A MS @ n E @ > E @ 00040: 0200 0046 0000 0000 0000 0000 0000 0000 0001 0001 0001 0001 0001 0001 0001 0001 B@@&@@@@@@@@@@@@@A@A@A@A@A@A@A@A & 00060: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00100: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00120: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00140: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00160: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00200: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00220: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00240: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00260: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00300: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00320: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00340: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00360: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A Block: 0001 00400: 1003 0000 0000 1010 0000 0000 0410 1224 0225 3224 6203 5626 0705 2427 2204 1010 HC@@@@HH@@@@DHJTBUZT2C.VGETWRDHH KE B 00420: 0000 0013 1010 0000 0016 0407 2025 2427 2204 0705 2427 2204 0040 1404 0000 0000 @@@KHH@@@NDGPUTWRDGETWRD@ LD@@@@ E EA T 00440: 0411 0001 0002 0003 0014 2000 0000 0027 0047 7777 1010 0000 0040 0401 0040 1410 DI@A@B@C@LP@@@@W@'??HH@@@ DA@ LH ' 00460: 1030 0010 0403 0040 0000 0000 1410 0400 0016 1410 1120 0117 0401 0601 1410 1050 HX@HDC@ @@@@LHD@@NLHIPAODAFALHH( 1 PO (2 00500: 0062 0401 2206 1410 1010 0072 1410 1030 0065 0401 1206 1410 1020 0072 0403 0601 @2DARFLHHH@:LHHX@5DAJFLHHP@:DCFA 2 C : 25 # : 00520: 0601 0020 1410 1030 0044 1410 0400 0005 1405 4000 0000 1410 0400 0021 1410 1120 FA@PLHHX@$LHD@@ELE @@@LHD@@QLHIP 2$ 8 P2 00540: 0117 0401 0030 1410 1100 0024 0402 0020 0601 1410 1000 0114 0401 0021 1410 3000 AODA@XLHI@@TDB@PFALHH@ALDA@QLHX@ O @ L 6 00560: 0000 0401 0030 1410 1030 0044 0402 0000 0000 1410 6400 0005 1410 1100 0024 0402 @@DA@XLHHX@$DB@@@@LH4@@ELHI@@TDB $ P @2 00600: 0006 0210 1410 6400 0044 0401 0200 1410 1110 0010 0411 6200 0640 6201 0005 0601 @FBHLH4@@$DAB@LHIH@HDI2@F 2A@EFA =$ H 00620: 0010 0006 1630 1207 1410 6400 0152 0403 0650 6201 0005 1410 1100 0152 1410 1030 @H@FNXJGLH4@A*DCF(2A@ELHI@A*LHHX 2 =j ( @j 2 00640: 0117 0000 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 AO@@@A@A@A@A@A@A@A@A@A@A@A@A@A@A O 00660: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00700: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00720: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00740: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00760: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A