7784000D001422Y001422B636021*B669 BCE test equal - A/D replaces * 0050 0A branch 0050 02 " " branch 0050 03 1 1 branch 0050 04 2 2 branch 0050 05 4 4 branch 0050 06 8 8 branch 0050 07 / / branch 0050 08 - - branch 0050 09 7781140D001422Y001422B669023*BBB636 BCE test unequal - A/D replaces *0050 1? 124 no branch 0050 11 8/- no branch 0050 12 1 24 no branch 0050 13 1 8/- no branch 0050 14 2 14 no branch 0050 15 2 8/- no branch 0050 16 4 12 no branch 0050 17 4 8/- no branch 0050 18 8 12 no branch 0050 19 8 4/- no branch 0050 20 / 12 no branch 0050 21 / 48- no branch 0050 22 - 12 no branch 0050 23 - 48/ no branch 0050 24 7784000D001422Y001422V636022*B669 BWZ test equal, no WM 0060 0A B A branch 0060 02 k k branch 0060 03 s t branch 0060 04 2 4 branch 0060 05 c e branch 0060 06 l o branch 0060 07 t x branch 0060 08 3 8 branch 0060 09 7784000D001422Y001422V636021*B669 BWZ test equal, WM 0060 1? 1 * branch 0060 11 c * branch 0060 12 l % branch 0060 13 t * branch 0060 14 3 * branch 0060 15 7781114D001422Y001422V669024*VVVB636 BWZ test unequal, no WM 0060 1F B *KT4 no branch 0060 17 K %AT4 no branch 0060 18 S *AK4 no branch 0060 19 2 *AKT no branch 0060 20 7781114D001422Y001422V669025*VVVB636 BWZ test unequal, no WM 0060 2A 1 4AKT no branch 0060 22 C $OX8 no branch 0060 23 L ,EX8 no branch 0060 24 T #EO8 no branch 0060 25 3 .EOX no branch 0060 26 7554000C002022B401BB669/B636 Compare and branch unequal -- unequal fails0100 0A EQUAL 0100 02 1 1 EQUAL 0100 03 2 2 EQUAL 0100 04 3 3 EQUAL 0100 05 4 4 EQUAL 0100 06 5 5 EQUAL 0100 07 6 6 EQUAL 0100 08 7 7 EQUAL 0100 09 8 8 EQUAL 0100 10 9 9 EQUAL 0100 11 / / EQUAL 0100 12 - - EQUAL 0100 13 h7 h7 EQUAL 0100 14 rw rw EQUAL 0100 15 7554000C002022B401BB636/B669 Compare and branch unequal -- equal fails 0100 1F 1 UNEQUAL 0100 17 1 UNEQUAL 0100 18 2 UNEQUAL 0100 19 2 UNEQUAL 0100 20 4 UNEQUAL 0100 21 4 UNEQUAL 0100 22 8 UNEQUAL 0100 23 8 UNEQUAL 0100 24 / UNEQUAL 0100 25 / UNEQUAL 0100 26 - UNEQUAL 0100 27 - UNEQUAL 0100 28 h7 hh UNEQUAL 0100 29 7554000C002023B401BB636/B669 Compare and branch unequal -- equal fails 0100 3? rw rw UNEQUAL B longer 0100 31 4714540,010L010252L)252B401BB699 Load Chain 0110A 0A 1111111111 1111111111 0110A 01 2222222222 2222222222 0110A 02 4444444444 4444444444 0110A 03 8888888888 8888888888 0110A 04 ////////// ////////// 0110A 05 ---------- ---------- 0110A 06 AKT4 BLU5 AKT4 BLU5 0110A 07 CMV6 DNW7 CMV6 DNW7 0110A 08 EOX8 FPY9 EOX8 FPY9 0110A 09 GQZ0 HR'# GQZ0 HR'# 0110A 10 I-,@ &$%0 I-,@ &$%0 0110A 11 1.*/ )JS3 1.*/ )JS3 0110A 12 4715400,010M010252MB401BB699 Move Chain 0200A 0A 1111111111 1111111111 0200A 01 2222222222 2222222222 0200A 02 4444444444 4444444444 0200A 03 8888888888 8888888888 0200A 04 ////////// ////////// 0200A 05 ---------- ---------- 0200A 06 AKT4 BLU5 AKT4 BLU5 0200A 07 CMV6 DNW7 CMV6 DNW7 0200A 08 EOX8 FPY9 EOX8 FPY9 0200A 09 GQZ0 HR'# GQZ0 HR'# 0200A 10 I-,@ &$%0 I-,@ &$%0 0200A 11 1.*/ )JS3 1.*/ )JS3 0200A 12 7111154D005247DDDDB401BB715 MOVE DIGIT 0210B 0a 12345 67890 12345 0210B 02 67890 12345 67890 0210B 03 &&&&& ----- ----- 0210B 04 ----- &&&&& &&&&& 0210B 05 AKT4 5678 1234 0210B 06 EOX8 1234 5678 0210B 07 9'$) 6789 90#@ 0210B 08 5678 AKT4 EOX8 0210B 09 1234 EOX8 AKT4 0210B 10 7111154Y005247YYYYB401BB715 MOVE ZONE 0220A 0a 12345 67890 67890 0220A 47 67890 12345 12345 0220A 48 &&&&& ----- &&&&& 0220A 49 ----- &&&&& ----- 0220A 50 AKT4 5678 EOX8 0220A 51 EOX8 1234 AKT4 0220A 52 9'$) 6789 6XQI 0220A 53 5678 AKT4 1234 0220A 54 1234 EOX8 5678 0220A 55 7540000Z010252B401BB699 USA Point and Comma MOVE & ZERO SUPPRESS 0230A 0A 00,000,000 0230A 01 00,000,009 9 0230A 02 00,000,090 90 0230A 03 00,000,80I 809 0230A 04 00,00070A& 70A 0230A 05 00,0060K0R 60K 9 0230A 06 00,050T0Q- 50T Q 0230A 07 00,40D0Z0Z 40D Z 9 0230A 08 0030N0&0-' 30N & - 0230A 09 020W0$0'07 20W $ ' 7 0230A 10 10G0)0#0@0 10G ) # @ 0230A 11 7540000Z001243B401BB699 ONE CHAR MOVE & ZERO SUPPRESS 0230A 1B 7 7 0230A 13 R 9 0230A 14 & 0230A 15 ' 0230A 16 0 0230A 17 ) @ 0230A 18 , # 0230A 19 7540000Z010252B401BB699 European point and comma MOVE & ZERO SUPPRESS 0230A 2?S 00.000.000 0230A 21 00.000.009 9 0230A 22 00.000.090 90 0230A 23 00.000.80I 809 0230A 24 00.00070A& 70A 0230A 25 00.0060K0R 60K 9 0230A 26 00.050T0Q- 50T Q 0230A 27 00.40D0Z0Z 40D Z 9 0230A 28 0030N0&0-' 30N & - 0230A 29 020W0$0'07 20W $ ' 7 0230A 30 10G0)0#0@0 10G ) # @ 0230A 31 7540000Z001243B401BB699 ONE CHAR MOVE & ZERO SUPPRESS 0230A 3B 7 7 0230A 33 R 9 0230A 34 & 0230A 35 ' 0230A 36 0 0230A 37 ) @ 0230A 38 . # 0230A 39 7477540M013419,002L030252A010252B412BB699 TRUE ADD 0300A 0A E123456789 ADD OP 0000000000 0123456789 0300A 02 E12345678I ADD OP 1111111101 1234567890 0300A 03 E12345678Z ADD OP 2222222112 2345678901 0300A 04 E12345678I ADD OP 333333222T 345678901S 0300A 05 E123456789 ADD OP 444443333D 456789012C 0300A 06 E12345678R ADD OP 555544444N 567890123M 0300A 07 E12345678R SUB OP 6665555556 6789012345 0300A 08 E12345678R SUB OP 776666666G 789012345F 0300A 09 E123456789 SUB OP 877777777Q 890123456P 0300A 10 EAKTDNWGQI SUB OP 8HQYHQYHQR 901234567Q 0300A 11 E 2 4 6 8 ADD OP 1 3 5 7 9 0123456789 0300A 12 7754000L037259E008259B401BB699 EDIT -- European point and comma 0370D 0A 00000012 &&&&&& 00000012 0370D 01 00000034 0 &&&&&& 000034 0370D 02 00000056 0 &&&&&& 0056 0370D 03 00000078 0 &&&&&& 78 0370D 04 00000901 0 &&&&&& 901 0370D 05 00004567 0, &&&&&& 45,67 0370D 06 00005678 . 0, &&&&&& 56,78 0370D 07 00456789 . 0, &&&&** 4.567,89 ** 0370D 08 00678901 $ . 0, ****** $ 6.789,01****** 0370D 09 0078901K $ . 0, &CR&** $ 7.890,12 CR ** 0370D 10 0089012L $ . 0, &&-&** $ 8.901,23 - ** 0370D 11 00901234 $ . 0, &&&&CR $ 9.012,34 0370D 12 0001234V $ . 0, &&CR&* $ 123,45 * 0370D 13 0012345F $ . 0, CR&*** $ 1.234,56 *** 0370D 14 0012345F $ . 0, CR&*** $$ 1.234,56 *** 0370D 15 0000456G CR0, &&&*** 4CR5,67 *** 0370D 16 00100205 & 0& &&&*** 1 002 05 *** 0370D 17 ACEGIKMO B D F H J L N0 ABCDEFGHIJKLMN6 0370D 18 BDFHJLN A C E G I K M 6 ABCDEFGHIJKLM56 0370D 19 OQSUWY)7 P R T V X Z /0 OPQRSTUVWXYZ)/7 0370D 20 PRTVXZ/ O Q S U W Y ) 7 OPQRSTUVWXYZ)17 0370D 21 13579%=0 2 4 6 8 @ # 90 123456789@%#=90 0370D 22 2468@#9 1 3 5 7 9 % = 9 123456789@%#=99 0370D 23 00567890 $ . 0, &&**** $5.678,90 **** E 0370D 24 00345678 FLOATING $ . $0, &&&&&& $3.456,78 E0370D 25 00006789 * PROTECT. $ . *0, &&&*** $*****67,89 *** E0370D 26 00000001 DEC CNTRL $ . , 0&&&*** $ ,01 *** E0370D 26 00000000 DEC CNTRL $ . , 0&&&*** $ *** E0370D 28 00000000 DEC CNTRL $, 0&&&*** *** E0370D 29 0003456P SIGN LEFT CR 0, &&&*** CR 345,67 *** E0370D 30 0004567Q SIGN LEFT - 0, &&&*** - 456,78 *** E0370D 31 00056789 SIGN LEFT - 0, &&&*** 567,89 *** E0370D 32 00000100 DEC CNTRL $ . , 0&&&*** $ 1,00 *** E0370D 33 7754000L037259E008259B401BB699 EDIT -- USA point and comma 0370D 3D 00000012 &&&&&& 00000012 0370D 34 00000034 0 &&&&&& 000034 0370D 35 00000056 0 &&&&&& 0056 0370D 36 00000078 0 &&&&&& 78 0370D 37 00000901 0 &&&&&& 901 0370D 38 00004567 0. &&&&&& 45.67 0370D 39 00005678 , 0. &&&&&& 56.78 0370D 40 00456789 , 0. &&&&** 4,567.89 ** 0370D 41 00678901 $ , 0. ****** $ 6,789.01****** 0370D 42 0078901K $ , 0. &CR&** $ 7,890.12 CR ** 0370D 43 0089012L $ , 0. &&-&** $ 8,901.23 - ** 0370D 44 00901234 $ , 0. &&&&CR $ 9,012.34 0370D 45 0001234V $ , 0. &&CR&* $ 123.45 * 0370D 46 0012345F $ , 0. CR&*** $ 1,234.56 *** 0370D 47 0012345F $ , 0. CR&*** $ 1,234.56 *** 0370D 48 0000456G CR0. &&&*** 4CR5.67 *** 0370D 49 00100205 & 0& &&&*** 1 002 05 *** 0370D 50 ACEGIKMO B D F H J L N0 ABCDEFGHIJKLMN6 0370D 51 BDFHJLN A C E G I K M 6 ABCDEFGHIJKLM56 0370D 52 OQSUWY)7 P R T V X Z /0 OPQRSTUVWXYZ)/7 0370D 53 PRTVXZ/ O Q S U W Y ) 7 OPQRSTUVWXYZ)17 0370D 54 13579%=0 2 4 6 8 @ . 90 123456789@%.=90 0370D 55 2468@.9 1 3 5 7 9 % = 9 123456789@%.=99 0370D 56 00567890 $ , 0. &&**** $5,678.90 **** E 0370D 57 00345678 FLOATING $ , $0. &&&&&& $3,456.78 E0370D 58 00006789 * PROTECT, $ , *0. &&&*** $*****67.89 *** E0370D 59 00000001 DEC CNTRL $ , . 0&&&*** $ .01 *** E0370D 60 00000000 DEC CNTRL $ , . 0&&&*** $ *** E0370D 61 00000000 DEC CNTRL $. 0&&&*** *** E0370D 62 0003456P SIGN LEFT CR 0. &&&*** CR 345.67 *** E0370D 63 0004567Q SIGN LEFT - 0. &&&*** - 456.78 *** E0370D 64 00056789 SIGN LEFT - 0. &&&*** 567.89 *** E0370D 65 00000100 DEC CNTRL $ , . 0&&&*** $ 1.00 *** E0370D 66