000    L.2c2d //   2cf8
       L.2c59 --
       L.2c5d --
       L.2c7e --
       L.2cd2 --
       L.2cd5 --
       L.2cdc --
       L.2ced --
       L.2d08 --
       L.2d20 --
       L.2d95 --
       L.2da3 --
       L.2db5 --
       L.2dc1 --
       L.2dc7 --
       L.2dcb --
       L.2dfd --
       L.2e1b --
       L.2e1d --
       L.2e41 --
       L.2e52 --
       L.2e59 --
       L.2e61 --
       L.2e75 --
       L.2e7e --
       L.2e86 --
       L.2e9a --
       L.2ea6 --
       L.2eae --
       L.2ec2 --
       L.2ece --
       L.2ed6 --
       L.2eea --
       L.2ef9 --
       L.2f08 --
       L.2f11 --
       L.2f17 --
       L.2f28 --
       L.2f37 --
       L.2f46 --
       L.2f50 --
       L.2f70 --
       L.2fac --
       L.2faf --
       L.2fc9 --
       L.2fd0 --
       L.2fe0 --
       L.3008 --
       L.3009 --
       L.300a --
       L.300c --
       L.3024 --
       L.3045 --
       L.3053 --
       L.3055 --
       L.305a --
       L.305b --
       L.3074 --
       L.3080 -+
       L.30a4 -+
       L.30bb --
       L.30ca --
       L.29b4 ++   29b6         Tab-1
       CONT   -+
       ENDM   -+
       END    -+
2c2d  =L.2c2d /GTA 0261         WL WriteLine
2c31          EX.Y
2c32          STMYD
2c35          DYL  0e
2c37          GT.X
2c38          STMYD
2c3b          DYL  0e
2c3d          GT.S
2c3e          STMYD
2c41          IYL  30
2c43          GT.Q
2c44          STMYD
2c47          SW.Y
2c48          ZO.Z
2c49          O.VZ L.2c5d
2c4b  =CONT   SW.Y              CONT
2c4c          IZL  4c
2c4e          GTMZ
2c4f          DZ0
2c50          LVMZ
2c51          PV.B
2c52          GTMZ
2c53          IZ1
2c54          LVMZ
2c55          TZ.B
2c56          DZ1
2c57          O.VZ L.2c7e
2c59  =L.2c59 SW.X
2c5a          GTA  19           CMD.Line
2c5c          J..
2c5d  =L.2c5d IZL  4b
2c5f          GTA  02
2c61          GTMZ
2c62          TKe
2c63          ST.Y
2c64          IZL  53
2c66          GTA  1f
2c68          ST.S
2c69          S.RP
2c6a          GTMZ
2c6b          STMY
2c6c          IZ0
2c6d          R.IY
2c6e          SW.Y
2c6f          DZL  87
2c71          GTMZ
2c72          B.AZ L.2c59
2c74          IZL  15
2c76          GTMZ
2c77          DZ1
2c78          LVMZ
2c79          B.VZ L.2c59
2c7b          GTMZ
2c7c          IC.A
2c7d          STMZ
2c7e  =L.2c7e IZL  53
2c80          GTA  1f
2c82          ST.S
2c83          S.RP
2c84          STMZ
2c85          R.IZ
2c86          GTA  24
2c88          TK4
2c89          ST.Z
2c8a          GTMZI
2c8d          ST.S
2c8e          IZL  0e
2c90          GTMZI
2c93          ST.X
2c94          IZL  0e
2c96          GTMZI
2c99          ST.Y
2c9a          IZL  0e
2c9c          GTMZI
2c9f          ZO.Z
2ca0          IZL  9f
2ca2          J..
2ca3          ST.S              WV WriteVar
2ca4          GTA  1f
2ca6          H..
2ca7          GT.X
2ca8          SW.Z
2ca9          EX.Z
2caa          ST.Y
2cab          DZ0
2cac          IYL  0f
2cae          GTA  da           na57
2cb0          J..
2cb1          DYL  09
2cb3          DZ1
2cb4          GTMZI
2cb7          EX.Y
2cb8          SW.Z
2cb9          ST.Z
2cba          GTA  07           war.1c
2cbc          H..
2cbd          ES.Y
2cbe          GTR  L.2cd5
2cc0          J..
2cc1          IZL  0c
2cc3          GT.Y
2cc4          SS.Y
2cc5          J..
2cc6          GTA  66           L2
2cc8          GTMY
2cc9          AN.  3f
2ccb          SL.S
2ccc          TKc
2ccd          STMZ
2cce          IZE
2ccf          TA4
2cd0          STMZ
2cd1          IZ3
2cd2  =L.2cd2 GT.Q
2cd3          J..
2cd4          SE.V              L4
2cd5  =L.2cd5 GTA  66           A4
2cd7          GH.S
2cd8          O.VS L.2cdc
2cda          AD.  08
2cdc  =L.2cdc TKc
2cdd          STMZ
2cde          IZE
2cdf          TA4
2ce0          STMZ
2ce1          IZ0
2ce2          GTA  66
2ce4          GL.S
2ce5          TKc
2ce6          STMZ
2ce7          IZE
2ce8          TA4
2ce9          STMZ
2cea          IZ1
2ceb          B.WY L.2cd2
2ced  =L.2ced IX0               RETN
2cee          GT.X
2cef          O.KS L.2d08
2cf1          DZL  71
2cf3          STMZ
2cf4          IZ0
2cf5          GTMZ
2cf6          TKc
2cf7          AD.  04
2cf9          ST.Y
2cfa          IY6
2cfb          GTA  0e
2cfd          IZE
2cfe          STMY
2cff          GTMZ
2d00          TKc
2d01          AD.  04
2d03          ST.Y
2d04          IY6
2d05          GT.  1f
2d07          STMY
2d08  =L.2d08 /GRD L.2c2d       WL
2d0b          J..
2d0c          IZ5
2d0d          GT.  51
2d0f          STMZ
2d10          IZ0
2d11          GT.  53
2d13          STMZ
2d14          IZ0
2d15          GT.  50
2d17          STMZ
2d18          GTMXI
2d1b          AD.X
2d1c          IX0
2d1d          IY3
2d1e          O.WY L.2dfd
2d20  =L.2d20 SW.X
2d21          GTA  f9           err
2d23          J..
2d24  =ENDM   GT.  01
2d26          STMY
2d27          DY0
2d28          STMY
2d29          DY6
2d2a          GTMYI
2d2d          ST.S
2d2e          GTA  26
2d30          TK4
2d31          ST.Y
2d32          GTMYI
2d35          AD.  08
2d37          AV.S
2d38          AD.  f8
2d3a          ST.Y
2d3b          B.VS L.2d20       err
2d3d          GTMZI
2d40          AD.Z
2d41          LD.Y
2d42          ST.S
2d43          IZ1
2d44          STMZD
2d47          DZE
2d48          NE.K
2d49          AD.  f8
2d4b          SD.Z
2d4c          STMZD
2d4f          GTA  f8
2d51          TK8
2d52          ST.Z
2d53          S.RP
2d54          DZ0
2d55          GTMY
2d56          STMZ
2d57          R.DY
2d58          GTA  25
2d5a          TK4
2d5b          ST.Y
2d5c          GTMYI
2d5f          ST.Y
2d60          GTMXI
2d63          AD.X
2d64          LD.Y
2d65          ST.S
2d66          IX1
2d67          STMXD
2d6a          DXE
2d6b          NE.K
2d6c          SD.X
2d6d          STMXD
2d70          GTA  1b
2d72          H..
2d73          ZO.X
2d74          SW.X
2d75          SW.Y
2d76          S.RP
2d77          DX0
2d78          GTMY
2d79          STMX
2d7a          R.DY
2d7b          SW.Y
2d7c          GTA  19
2d7e          H..
2d7f          ZO.Y
2d80          IY5
2d81          GTMYI
2d84          LD.Z
2d85          ST.S
2d86          GT.Z
2d87          STMYD
2d8a          IYL  08
2d8c          GT.X
2d8d          STMYD
2d90          DY5
2d91          O.KZ L.2d95
2d93          ZO.A
2d94          STMY
2d95  =L.2d95 IYL  28
2d97          GTMYD
2d9a          STMZI
2d9d          DC.K
2d9e          NE.K
2d9f          AD.  f8
2da1          ST.Z
2da2          IX2
2da3  =L.2da3 IX1
2da4          O.RP L.2dcb
2da6          IX0
2da7          GTMXI
2daa          AD.S
2dab          ST.Y
2dac          STMXD
2daf          IX6
2db0          GTMY
2db1          IY0
2db2          O.US L.2db5
2db4          IY1
2db5  =L.2db5 GTMX
2db6          ZO.U
2db7          XR.  48
2db9          O.AS L.2dc1
2dbb          GTMYI
2dbe          AD.Z
2dbf          O.WY L.2dc7
2dc1  =L.2dc1 DC.A
2dc2          O.AS L.2dcb
2dc4          GTMYI
2dc7  =L.2dc7 SD.S
2dc8          STMYD
2dcb  =L.2dcb GTMX
2dcc          R.UZ
2dcd          S.RP
2dce          IX0
2dcf          GTMXI
2dd2          AD.S
2dd3          STMXD
2dd6          IX1
2dd7          GTMX
2dd8          R.AS
2dd9          IX0
2dda          GT.X
2ddb          B.KS L.2da3
2ddd          ZO.Z              Var
2dde          IZ5
2ddf          GTMZI
2de2          ST.Y
2de3          IZ6
2de4          GTMZI
2de7          ST.X
2de8          IY1
2de9          IX4
2dea          SE.V
2deb          /GTA L.2c2d       WL
2def          J..
2df0          IZ5
2df1          GT.  51
2df3          STMZ
2df4          IZ0
2df5          GT.  48
2df7          STMZ
2df8          IZ0
2df9          GT.  4e
2dfb          STMZ
2dfc          GT.X
2dfd  =L.2dfd EX.Z
2dfe          RS.Y
2dff          ST.Y
2e00          GTA  1f
2e02          H..
2e03          IY7
2e04          DZ0
2e05          SW.Z
2e06          GTA  da           na57
2e08          J..
2e09          SW.Z
2e0a          GTA  07           #### war.1c
2e0c          H..
2e0d          SS.Y
2e0e          ZO.Z
2e0f          IZL  9f
2e11          /GTA L.2cd5       A4
2e15          J..
2e16          GT.  24
2e18          STMZ
2e19          O.WY L.2e1d
2e1b  =L.2e1b GT.Q
2e1c          J..               WV
2e1d  =L.2e1d IY6
2e1e          /GTA L.2c2d       WL
2e22          J..
2e23          GTMX
2e24          IX7
2e25          O.US L.2e59
2e27          GTMX
2e28          ZO.U
2e29          AD.  bd
2e2b          B.AZ L.2e1b
2e2d          DC.A
2e2e          O.AS L.2e61       UIB
2e30          IZ4
2e31          GT.  24
2e33          STMZ
2e34          IZ0
2e35          GT.  56
2e37          STMZ
2e38          IZ0
2e39          GT.  4a
2e3b          STMZ
2e3c          IZ0
2e3d          GT.  43
2e3f          STMZ
2e40          DZ7
2e41  =L.2e41 GT.Q              WV
2e42          J..
2e43          GTMY
2e44          IY6
2e45          TA7
2e46          O.US L.2e52
2e48          DY1
2e49          GTMYI
2e4c          ST.S
2e4d          IY0
2e4e          GT.Q
2e4f          IKL  0e           war.0d  Codedistanz
2e51          J..               L4
2e52  =L.2e52 /GTA L.2c2d       WL
2e56          J..
2e57          GTMX
2e58          IX7
2e59  =L.2e59 O.US L.2e7e
2e5b          GTMX
2e5c          ZO.U
2e5d          AD.  bc
2e5f          B.AZ L.2e41
2e61  =L.2e61 DC.A
2e62          O.AS L.2e86       UID
2e64          IZ4
2e65          GT.  24
2e67          STMZ
2e68          IZ0
2e69          GT.  56
2e6b          STMZ
2e6c          IZ0
2e6d          GT.  4a
2e6f          STMZ
2e70          IZ0
2e71          GT.  45
2e73          STMZ
2e74          DZ7
2e75  =L.2e75 GT.Q
2e76          J..               WV
2e77          J..               L2
2e78          IY1
2e79          DKL  a7           war.a6  Codedistanz
2e7b          J..               WL
2e7c          GTMX
2e7d          IX7
2e7e  =L.2e7e O.US L.2ea6
2e80          GTMX
2e81          ZO.U
2e82          AD.  bb
2e84          B.AZ L.2e75
2e86  =L.2e86 DC.A
2e87          O.AS L.2eae       ACQ
2e89          IZ4
2e8a          GT.  24
2e8c          STMZ
2e8d          IZ0
2e8e          GT.  42
2e90          STMZ
2e91          IZ0
2e92          GT.  44
2e94          STMZ
2e95          IZ0
2e96          GT.  52
2e98          STMZ
2e99          DZ7
2e9a  =L.2e9a GT.Q
2e9b          J..               WV
2e9c          GTMY
2e9d          TA5
2e9e          STMZ
2e9f          IY1
2ea0          GT.Q
2ea1          DKL  99           war.98  Codedistanz
2ea3          J..               WL
2ea4          GTMX
2ea5          IX7
2ea6  =L.2ea6 O.US L.2ece
2ea8          GTMX
2ea9          ZO.U
2eaa          AD.  ba
2eac          B.AZ L.2e9a
2eae  =L.2eae DC.A
2eaf          O.AS L.2ed6       CON
2eb1          IZ4
2eb2          GT.  24
2eb4          STMZ
2eb5          IZ0
2eb6          GT.  44
2eb8          STMZ
2eb9          IZ0
2eba          GT.  50
2ebc          STMZ
2ebd          IZ0
2ebe          GT.  4f
2ec0          STMZ
2ec1          DZ7
2ec2  =L.2ec2 GT.Q
2ec3          J..               WV
2ec4          J..               L2
2ec5          IY2
2ec6          DKL  a7           war.a6  Codedistanz
2ec8          J..               WL
2ec9          GT.Y
2eca          AD.S
2ecb          ST.Y
2ecc          GTMX
2ecd          IX7
2ece  =L.2ece O.US L.2f11
2ed0          GTMX
2ed1          ZO.U
2ed2          AD.  b9
2ed4          B.AZ L.2ec2
2ed6  =L.2ed6 DC.A
2ed7          O.AS L.2f17       FIX
2ed9          IZ4
2eda          GT.  24
2edc          STMZ
2edd          IZ0
2ede          GT.  47
2ee0          STMZ
2ee1          IZ0
2ee2          GT.  4a
2ee4          STMZ
2ee5          IZ0
2ee6          GT.  59
2ee8          STMZ
2ee9          DZ7
2eea  =L.2eea GT.Q
2eeb          J..               WV
2eec          GTMY
2eed          O.UZ L.2ef9
2eef          GT.Q
2ef0          J..               L2
2ef1          IY0
2ef2          GTMYI
2ef5          AD.Y
2ef6          SD.S
2ef7          O.WY L.2f08
2ef9  =L.2ef9 IY4
2efa          GTMYI
2efd          ST.S
2efe          GT.Q
2eff          IKL  0e           war.0d  Codedistanz
2f01          J..               L4
2f02          DY2
2f03          GTMYI
2f06          AD.Y
2f07          IY1
2f08  =L.2f08 ST.S
2f09          GT.Q
2f0a          IC.K
2f0b          J..               A4
2f0c          DKL  a7           war.a6  Codedistanz
2f0e          J..               WL
2f0f          GTMX
2f10          IX7
2f11  =L.2f11 O.US L.2f50
2f13          GTMX
2f14          TA7
2f15          B.UZ L.2eea
2f17  =L.2f17 IZ4               AUT
2f18          GT.  24
2f1a          STMZ
2f1b          IZ0
2f1c          GT.  42
2f1e          STMZ
2f1f          IZ0
2f20          GT.  56
2f22          STMZ
2f23          IZ0
2f24          GT.  55
2f26          STMZ
2f27          DZ7
2f28  =L.2f28 GT.Q              WV
2f29          J..
2f2a          GTMY
2f2b          O.UZ L.2f37
2f2d          GT.Q
2f2e          J..               L2
2f2f          IY0
2f30          GTMYI
2f33          AD.Y
2f34          SD.S
2f35          O.WY L.2f46
2f37  =L.2f37 IY4
2f38          GTMYI
2f3b          ST.S
2f3c          GT.Q
2f3d          IKL  0e           war.0d  Codedistanz
2f3f          J..               L4
2f40          DY2
2f41          GTMYI
2f44          AD.Y
2f45          IY1
2f46  =L.2f46 ST.S
2f47          GT.Q              L4
2f48          J..
2f49          DKL  a7           war.a6  Codedistanz
2f4b          J..               WL
2f4c          GTMX
2f4d          IX7
2f4e          B.UZ L.2f28
2f50  =L.2f50 DX4
2f51          IY1
2f52          RS.Y              BEGN
2f53          GT.Q
2f54          IKL  32           war.31  Codedistanz
2f56          J..               A4
2f57          GT.  60
2f59          STMZ
2f5a          IZ0
2f5b          STMZ
2f5c          IZ1
2f5d          GT.  24
2f5f          STMZ
2f60          IZ0
2f61          GT.  43
2f63          STMZ
2f64          IZ0
2f65          GT.  46
2f67          STMZ
2f68          IZ0
2f69          GT.  48
2f6b          STMZ
2f6c          IZ0
2f6d          GT.  4f
2f6f          STMZ
2f70  =L.2f70 /GTA L.2c2d       A WL
2f74          J..
2f75          RS.Y
2f76          IKL  32           war.31  Codedistanz
2f78          J..               A4
2f79          DX1
2f7a          GTMXI
2f7d          IX0
2f7e          SD.Y
2f7f          RS.Z
2f80          DZL  6d           #####
2f82          O.KZ L.3045
2f84          GTA  66
2f86          GTMZ
2f87          SS.Z
2f88          TKc
2f89          STMZ
2f8a          IZE
2f8b          TA4
2f8c          STMZ
2f8d          IZ1
2f8e          GTA  19           ####
2f90          GTMY
2f91          IY0
2f92          O.AZ L.2faf
2f94          IC.A
2f95          O.AZ L.2fd0
2f97          SL.S
2f98          GTMY
2f99          TKa               ####
2f9a          STMZ
2f9b          ZO.A
2f9c          TKe               ####
2f9d          AD.Y
2f9e          ST.Y
2f9f          IZ0
2fa0          GT.  40
2fa2          STMZ
2fa3          IZ1
2fa4          GTA  66
2fa6          GL.S
2fa7          TK4
2fa8          TA4
2fa9          STMZD
2fac  =L.2fac IY0               B
2fad          B.WY L.2f70
2faf  =L.2faf GTMY
2fb0          O.US L.300c       +-
2fb2          SV.  54           ####
2fb4          O.VZ L.2fc9
2fb6          AD.  68           ####
2fb8          STMZ
2fb9          IZ0
2fba          GT.  29
2fbc          STMZ
2fbd          S.RP
2fbe          IY0
2fbf          GTMY
2fc0          CP.V
2fc1          AN.  03
2fc3          SL.K
2fc4          AD.Y
2fc5          ST.Y
2fc6          R.VZ
2fc7          B.WY L.2fac

2fc9  =L.2fc9 XR.  12           ####
2fcb          TZ.A              ####
2fcc          GTMY              ####
2fce          NE.V              ####
2fcf          DV.A              ####
2fd0  =L.2fd0 SE.U
2fd1          RS.Y
2fd2          SL.Y
2fd3          /GTA L.29b4       Tab-1
2fd7          SW.Y
2fd8          EX.Y
2fd9          S.RP
2fda          IY3
2fdb          GTMY
2fdc          XR.B
2fdd          R.AS
2fde          GT.  21           '='
2fe0  =L.2fe0 STMZ
2fe1          DY0
2fe2          IZ3
2fe3          GTMY
2fe4          STMZ
2fe5          DY0
2fe6          DZ1
2fe7          GTMYD
2fea          STMZI
2fed          SW.Y
2fee          GT.Z
2fef          ST.Y
2ff0          GTA  de           na23
2ff2          J..
2ff3          O.VS L.3074       ####
2ff5          SS.Y
2ff6          DY0
2ff7          GTMY
2ff8          IY0
2ff9          B.AS L.2fac       DLAY

2ffb          GTMY
2ffc          AD.  a3           SD. 5d
2ffe          B.US L.2fac
3000          AD.  f7           SD. 09
3002          O.US L.3009
3004          O.AS L.3008
3007          IY0
3008  =L.3008 IY0
3009  =L.3009 IY2
300a  =L.300a B.WY L.2f70

300c  =L.300c AN.  20           EXEC/CALL
300e          TA3
300f          AD.  22
3011          STMZ
3012          GTMY
3013          AN.  1f
3015          SL.Z
3016          IY0
3017          GTMYI
301a          AD.Y
301b          EX.Z
301c          TK1
301d          AD.Y
301e          ST.Y
301f          RS.X
3020          S.RP
3021          DX2
3022          GTMX
3023          R.UZ
3024  =L.3024 GTMX
3025          AN.  3e
3027          R.AZ
3028          DX6
3029          GTMXI
302c          DX1
302d          SD.Z
302e          B.KS L.3024
3030          IX6
3031          GTA  1f
3033          H..
3034          ES.X
3035          SW.Z
3036          SS.Z
3037          RS.Y
3038          ZO.Y
3039          IYL  ae
303b          GTA  da           na57
303d          J..
303e          SW.Z
303f          GTA  07           war.1c
3041          H..
3042          SS.Y
3043          B.WY L.2fac
3045  =L.3045 GTA  66           SYS
3047          GTMX
3048          O.AZ L.305b
304a          SV.  10
304c          O.VZ L.3053
304e          GTMZ
304f          DC.A
3050          STMZ
3051          O.WY L.305b
3053  =L.3053 XR.  11               --
              O.AZ L.3055           --
              AN.  fd               SV.11 ####
              XR.  14               --    ####
              TZ.A                  --    ####
3055  =L.3055 GTMZ
3056          O.VZ L.305a
3058          IC.A
3059          STMZ
305a  =L.305a DC.A
305b  =L.305b SS.Z
305c          TKc
305d          STMZ
305e          IZE
305f          TA4
3060          STMZ
3061          IZ1
3062          RS.Y
3063          /GTA L.29b4       Tab-1
3067          SW.Y
3068          ST.Y
3069          S.RP
306a          IY3
306b          GTMY
306c          TA7
306d          ZO.U
306e          XRMX
306f          R.AS
3070          SV.  dc           '*
3072          B.WY L.2fe0
3074  =L.3074 GTMX
3075          SL.K
3076          ADR  L.3080
3078          SW.Y
3079          ST.Y
307a          GTMY
307b          SL.K
307c          AD.Y
307d          SW.Y
307e          SS.Y
307f          J..

3080  =L.3080 22                30a2 retn
              36                30b7 uacq
              35                30b7 ufas
              24                30a7 rels
              34                30b8 ende
              33                30b8 last
              33                30b9 endf
              2e                30b5 RP D
              2d                30b5 RP Z
              2c                30b5 RP M
              2b                30b5 RP S
              2a                30b5 RP N
              2a                30b6 RP 0
              29                30b6 RP 1
              28                30b6 RP 2
              27                30b6 RP 3

3090          27                30b7 l.jp
3091          2f                30c0 acq  -
3092          3d                30cf fasn -
3093          29                30bc case -
3094          34                30c8 ln1  -
3095          22                30b7 else
3096          31                30c7 lx1  -
3097          20                30b7 next

              1d                30b5 if S
              1c                30b5 if N
              1b                30b5 if Z
              1a                30b5 if M
              1a                30b6 if 0
              19                30b6 if 1
              18                30b6 if 2
              17                30b6 if 3

30a0          19                30b9 loop
              18                30b9 here

30a2  =L.30a4 /GTA L.2ced       30a2  retn
30a6          J..
30a7          IY1               30a7  rels
30a8          GTMYI
30ab          AD.Y
30ac          ST.S
30ad          DC.S
30ae          IZ3
30af          /GTA L.2cd5       A4
30b3          J..
30b4          DY4
30b5          IY0               30b5 if DZSMN
30b6          IY0               30b6 if 3210
30b7          IY1               30b7 uacq ufas else next l.jp
30b8          IY1               30b8 ende last
30b9  =L.30bb IX2               30b9 endf here loop
30ba          B.WY L.300a

30bc          IY1               30bc case
30bd          GTMY
30be          O.WY L.30ca
30c0          DZ0               30c0 acq
30c1          IY0
30c2          GTMY
30c3          AN.  3f
30c5          O.WY L.30ca
30c7          IZ1               30c7 lx
30c8          IZ1               30c8 ln
30c9          IY0
30ca          GTMY
30cb          AN.  1f
30cd          O.WY L.30ca
30cf          IY0               30cf fasn
30d0          GTMY
30d1          AN.  0f
30d3  =L.30ca SL.K
30d4          TK1
30d5          AD.Y
30d6          DZL  a6
30d8          AD.Z
30d9          ST.Y
30da          B.WY L.30bb
30dc  =END    //ZO ffff

