/MAINDEC-8E-D0HC-Random-JMP
*0200
*0000
0000 /FEXIT /00000-0000 @@
5001 /LTR 0000 /00001-5001 (A
0002 /FCLA /00002-0002 @B
0003 /FNEG /00003-0003 @C
0000 /FEXIT /00004-0000 @@
0000 /FEXIT /00005-0000 @@
7640 /FMULM% BASE+00X4 /00006-7640 >
5534 /FADDML X3+ 4 /00007-5534 -\
1115 / 1115 /00010-1115 IM
3517 /FDIV L X1+ 7 /00011-3517 ]O
1115 / 1115 /00012-1115 IM
3520 /FDIV L X2+ 0 /00013-3520 ]P
3000 / 3000 /00014-3000 X@
7001 /LEMUL%BASE+03X0 /00015-7001 8A
1140 /RESERVED /00016-1140 I
3140 /TRAP3 0 /00017-3140 Y
1140 / 1140 /00020-1140 I
7640 /FMULM% BASE+00X4 /00021-7640 >
5027 /LTR 0002 /00022-5027 (W
5424 /FADDML X2 4 /00023-5424 ,T
0316 / 0316 /00024-0316 CN
1142 /RESERVED /00025-1142 I"
3141 /TRAP3 1 /00026-3141 Y!
7604 / 7604 /00027-7604 >D
7004 /LEMUL%BASE+14X0 /00030-7004 8D
7006 /LEMUL%BASE+22X0 /00031-7006 8F
7630 /FMULM% BASE+00X3 /00032-7630 >X
5057 /LTR 0005 /00033-5057 (/
1121 /JSA 1 /00034-1121 IQ
7104 / 7104 /00035-7104 9D
7430 /FMULML X3 0 /00036-7430 <X
1122 / 1122 /00037-1122 IR
3121 /TRAP3 1 /00040-3121 YQ
7100 / 7100 /00041-7100 9@
1121 /JSA 1 /00042-1121 IQ
1124 / 1124 /00043-1124 IT
7630 /FMULM% BASE+00X3 /00044-7630 >X
5034 /LTR 0003 /00045-5034 (\
1121 /JSA 1 /00046-1121 IQ
1123 / 1123 /00047-1123 IS
7620 /FMULM% BASE+00X2 /00050-7620 >P
5034 /LTR 0003 /00051-5034 (\
1121 /JSA 1 /00052-1121 IQ
3117 / 3117 /00053-3117 YO
7040 /LEMUL%BASE+00X4 /00054-7040 8
1117 /SETB 7 /00055-1117 IO
3120 / 3120 /00056-3120 YP
7604 /FMULM% BASE+14X0 /00057-7604 >D
7006 /LEMUL%BASE+22X0 /00060-7006 8F
7006 /LEMUL%BASE+22X0 /00061-7006 8F
7630 /FMULM% BASE+00X3 /00062-7630 >X
5104 /LTR 0010 /00063-5104 )D
1121 /JSA 1 /00064-1121 IQ
7104 / 7104 /00065-7104 9D
7430 /FMULML X3 0 /00066-7430 <X
1122 / 1122 /00067-1122 IR
3121 /TRAP3 1 /00070-3121 YQ
7100 / 7100 /00071-7100 9@
1121 /JSA 1 /00072-1121 IQ
1124 / 1124 /00073-1124 IT
7630 /FMULM% BASE+00X3 /00074-7630 >X
5064 /LTR 0006 /00075-5064 (4
1121 /JSA 1 /00076-1121 IQ
1123 / 1123 /00077-1123 IS
7620 /FMULM% BASE+00X2 /00100-7620 >P
5064 /LTR 0006 /00101-5064 (4
1121 /JSA 1 /00102-1121 IQ
3116 / 3116 /00103-3116 YN
1125 /JSA 5 /00104-1125 IU
3517 / 3517 /00105-3517 ]O
1126 /JSA 6 /00106-1126 IV
3520 / 3520 /00107-3520 ]P
6041 /LEMUL X4 1 /00110-6041 0!
6046 / 6046 /00111-6046 0&
6041 /LEMUL X4 1 /00112-6041 0!
5112 / 5112 /00113-5112 )J
5520 /FADDML X2+ 0 /00114-5520 -P
7402 / 7402 /00115-7402 <B
0000 /FEXIT /00116-0000 @@
0000 /FEXIT /00117-0000 @@
0000 /FEXIT /00120-0000 @@
2525 /FSUB L X2+ 5 /00121-2525 UU
0003 / 0003 /00122-0003 @C
7400 /FMULML X0 0 /00123-7400 <@
0200 / 0200 /00124-0200 B@
5516 /FADDML X1+ 6 /00125-5516 -N
6001 / 6001 /00126-6001 0A
0260 /FLDA BASE+220 /00127-0260 B0
0007 /JAC /00130-0007 @G
0000 /FEXIT /00131-0000 @@
0000 /FEXIT /00132-0000 @@
0000 /FEXIT /00133-0000 @@
0220 /FLDA BASE+060 /00134-0220 BP
0000 /FEXIT /00135-0000 @@
7571 /FMULML X7+ 1 /00136-7571 =9
0143 / 0143 /00137-0143 A#
0000 /FEXIT /00140-0000 @@
0000 /FEXIT /00141-0000 @@
7761 /FMULM% BASE+03X6+ /00142-7761 ?1
0215 /FLDA BASE+047 /00143-0215 BM
0212 /FLDA BASE+036 /00144-0212 BJ
0212 /FLDA BASE+036 /00145-0212 BJ
0306 /FLDA BASE+322 /00146-0306 CF
0240 /FLDA BASE+140 /00147-0240 B
0000 /FEXIT /00150-0000 @@
0000 /FEXIT /00151-0000 @@
0000 /FEXIT /00152-0000 @@
0000 /FEXIT /00153-0000 @@
0240 /FLDA BASE+140 /00154-0240 B
0324 /FLDA BASE+374 /00155-0324 CT
0240 /FLDA BASE+140 /00156-0240 B
0000 /FEXIT /00157-0000 @@
0000 /FEXIT /00160-0000 @@
0000 /FEXIT /00161-0000 @@
0000 /FEXIT /00162-0000 @@
0215 /FLDA BASE+047 /00163-0215 BM
0212 /FLDA BASE+036 /00164-0212 BJ
0377 /FLDA BASE+575 /00165-0377 C?
0332 /FLDA BASE+416 /00166-0332 CZ
0240 /FLDA BASE+140 /00167-0240 B
0275 /FLDA BASE+267 /00170-0275 B=
0240 /FLDA BASE+140 /00171-0240 B
0000 /FEXIT /00172-0000 @@
0000 /FEXIT /00173-0000 @@
0000 /FEXIT /00174-0000 @@
0000 /FEXIT /00175-0000 @@
0207 /FLDA BASE+025 /00176-0207 BG
*0200
5770 /FADDM% BASE+00X7+ /00200-5770 /8
7041 /LEMUL%BASE+03X4 /00201-7041 8!
3116 /TRAP3 6 /00202-3116 YN
1115 / 1115 /00203-1115 IM
3516 /FDIV L X1+ 6 /00204-3516 ]N
1116 / 1116 /00205-1116 IN
7001 /LEMUL%BASE+03X0 /00206-7001 8A
3116 /TRAP3 6 /00207-3116 YN
1116 / 1116 /00210-1116 IN
1124 /JSA 4 /00211-1124 IT
7640 / 7640 /00212-7640 >
5203 /FADDM BASE+011 /00213-5203 *C
1367 /FADD BASE+545 /00214-1367 K7
3141 /TRAP3 1 /00215-3141 Y!
3140 / 3140 /00216-3140 Y
5027 /LTR 0002 /00217-5027 (W
1117 /SETB 7 /00220-1117 IO
4341 / 4341 /00221-4341 #!
3150 /TRAP3 0 /00222-3150 Y(
1131 / 1131 /00223-1131 IY
0130 /RESERVED /00224-0130 AX
1127 /JSA 7 /00225-1127 IW
3151 / 3151 /00226-3151 Y)
1132 /JSR 2 /00227-1132 IZ
0130 / 0130 /00230-0130 AX
1127 /JSA 7 /00231-1127 IW
3152 / 3152 /00232-3152 Y*
1133 /JSR 3 /00233-1133 I[
0130 / 0130 /00234-0130 AX
1127 /JSA 7 /00235-1127 IW
3153 / 3153 /00236-3153 Y+
1116 /SETB 6 /00237-1116 IN
4341 / 4341 /00240-4341 #!
3157 /TRAP3 7 /00241-3157 Y/
1131 / 1131 /00242-1131 IY
0130 /RESERVED /00243-0130 AX
1127 /JSA 7 /00244-1127 IW
3160 / 3160 /00245-3160 Y0
1132 /JSR 2 /00246-1132 IZ
0130 / 0130 /00247-0130 AX
1127 /JSA 7 /00250-1127 IW
3161 / 3161 /00251-3161 Y1
1133 /JSR 3 /00252-1133 I[
0130 / 0130 /00253-0130 AX
1127 /JSA 7 /00254-1127 IW
3162 / 3162 /00255-3162 Y2
1000 /JEQ 0 /00256-1000 H@
4341 / 4341 /00257-4341 #!
3172 /TRAP3 2 /00260-3172 Y:
1131 / 1131 /00261-1131 IY
0130 /RESERVED /00262-0130 AX
1127 /JSA 7 /00263-1127 IW
3173 / 3173 /00264-3173 Y;
1132 /JSR 2 /00265-1132 IZ
0130 / 0130 /00266-0130 AX
1127 /JSA 7 /00267-1127 IW
3174 / 3174 /00270-3174 Y<
1133 /JSR 3 /00271-1133 I[
0130 / 0130 /00272-0130 AX
1127 /JSA 7 /00273-1127 IW
3175 / 3175 /00274-3175 Y=
1137 /JSR 7 /00275-1137 I_
3135 / 3135 /00276-3135 Y]
1535 /FADD L X3+ 5 /00277-1535 M]
6046 / 6046 /00300-6046 0&
6041 /LEMUL X4 1 /00301-6041 0!
5301 / 5301 /00302-5301 +A
7201 /FMULM BASE+003 /00303-7201 :A
1135 /JSR 5 /00304-1135 I]
3135 / 3135 /00305-3135 Y]
1535 /FADD L X3+ 5 /00306-1535 M]
1136 / 1136 /00307-1136 I^
7640 /FMULM% BASE+00X4 /00310-7640 >
5277 /FADDM BASE+275 /00311-5277 *?
7604 /FMULM% BASE+14X0 /00312-7604 >D
7700 /FMULM% BASE+00X0+ /00313-7700 ?@
7402 /FMULML X0 2 /00314-7402 <B
5010 / 5010 /00315-5010 (H
1141 /RESERVED /00316-1141 I!
7001 /LEMUL%BASE+03X0 /00317-7001 8A
3141 /TRAP3 1 /00320-3141 Y!
1141 / 1141 /00321-1141 I!
7640 /FMULM% BASE+00X4 /00322-7640 >
5027 /LTR 0002 /00323-5027 (W
1361 /FADD BASE+523 /00324-1361 K1
3135 /TRAP3 5 /00325-3135 Y]
1135 / 1135 /00326-1135 I]
7001 /LEMUL%BASE+03X0 /00327-7001 8A
3135 /TRAP3 5 /00330-3135 Y]
1535 / 1535 /00331-1535 M]
6046 /LEMUL X4 6 /00332-6046 0&
6041 / 6041 /00333-6041 0!
5333 /FADDM BASE+421 /00334-5333 +[
1366 /FADD BASE+542 /00335-1366 K6
7640 /FMULM% BASE+00X4 /00336-7640 >
5326 /FADDM BASE+402 /00337-5326 +V
5025 /LTR 0002 /00340-5025 (U
0000 /FEXIT /00341-0000 @@
3133 /TRAP3 3 /00342-3133 Y[
1133 / 1133 /00343-1133 I[
7012 /LEMUL%BASE+06X1 /00344-7012 8J
7010 /LEMUL%BASE+00X1 /00345-7010 8H
3132 /TRAP3 2 /00346-3132 YZ
1132 / 1132 /00347-1132 IZ
7012 /LEMUL%BASE+06X1 /00350-7012 8J
7010 /LEMUL%BASE+00X1 /00351-7010 8H
3131 /TRAP3 1 /00352-3131 YY
1131 / 1131 /00353-1131 IY
7012 /LEMUL%BASE+06X1 /00354-7012 8J
7010 /LEMUL%BASE+00X1 /00355-7010 8H
0130 /RESERVED /00356-0130 AX
1127 /JSA 7 /00357-1127 IW
5741 / 5741 /00360-5741 /!
0361 /FLDA BASE+523 /00361-0361 C1
0215 /FLDA BASE+047 /00362-0215 BM
0212 /FLDA BASE+036 /00363-0212 BJ
0310 /FLDA BASE+330 /00364-0310 CH
0303 /FLDA BASE+311 /00365-0303 CC
7475 /FMULML X7 5 /00366-7475 <=
7763 / 7763 /00367-7763 ?3
0400 /FLDA L X0 0 /00370-0400 D@
*0400
3000 / 3000 /00400-3000 X@
1215 /FADD BASE+047 /00401-1215 JM
3001 /TRAP3 1 /00402-3001 XA
1216 / 1216 /00403-1216 JN
3002 /TRAP3 2 /00404-3002 XB
1217 / 1217 /00405-1217 JO
3003 /TRAP3 3 /00406-3003 XC
1220 / 1220 /00407-1220 JP
3621 /FDIV % BASE+03X2 /00410-3621 ^Q
7300 /FMULM BASE+300 /00411-7300 ;@
3004 /TRAP3 4 /00412-3004 XD
3005 / 3005 /00413-3005 XE
5621 /FADDM% BASE+03X2 /00414-5621 .Q
1116 /SETB 6 /00415-1116 IN
7041 / 7041 /00416-7041 8!
1000 /JEQ 0 /00417-1000 H@
1123 / 1123 /00420-1123 IS
0200 /FLDA BASE+000 /00421-0200 B@
0000 /FEXIT /00422-0000 @@
0000 /FEXIT /00423-0000 @@
0000 /FEXIT /00424-0000 @@
0000 /FEXIT /00425-0000 @@
0000 /FEXIT /00426-0000 @@
0000 /FEXIT /00427-0000 @@
0000 /FEXIT /00430-0000 @@
0000 /FEXIT /00431-0000 @@
0000 /FEXIT /00432-0000 @@
0000 /FEXIT /00433-0000 @@
0000 /FEXIT /00434-0000 @@
0000 /FEXIT /00435-0000 @@
0000 /FEXIT /00436-0000 @@
0000 /FEXIT /00437-0000 @@
0000 /FEXIT /00440-0000 @@
0000 /FEXIT /00441-0000 @@
0000 /FEXIT /00442-0000 @@
0000 /FEXIT /00443-0000 @@
0000 /FEXIT /00444-0000 @@
0000 /FEXIT /00445-0000 @@
0000 /FEXIT /00446-0000 @@
0000 /FEXIT /00447-0000 @@
0000 /FEXIT /00450-0000 @@
0000 /FEXIT /00451-0000 @@
0000 /FEXIT /00452-0000 @@
0000 /FEXIT /00453-0000 @@
0000 /FEXIT /00454-0000 @@
0000 /FEXIT /00455-0000 @@
0000 /FEXIT /00456-0000 @@
0000 /FEXIT /00457-0000 @@
0000 /FEXIT /00460-0000 @@
0000 /FEXIT /00461-0000 @@
0000 /FEXIT /00462-0000 @@
0000 /FEXIT /00463-0000 @@
0000 /FEXIT /00464-0000 @@
0000 /FEXIT /00465-0000 @@
0000 /FEXIT /00466-0000 @@
0000 /FEXIT /00467-0000 @@
0000 /FEXIT /00470-0000 @@
0000 /FEXIT /00471-0000 @@
0000 /FEXIT /00472-0000 @@
0000 /FEXIT /00473-0000 @@
0000 /FEXIT /00474-0000 @@
0000 /FEXIT /00475-0000 @@
0000 /FEXIT /00476-0000 @@
0000 /FEXIT /00477-0000 @@
0000 /FEXIT /00500-0000 @@
0000 /FEXIT /00501-0000 @@
0000 /FEXIT /00502-0000 @@
0000 /FEXIT /00503-0000 @@
0000 /FEXIT /00504-0000 @@
0000 /FEXIT /00505-0000 @@
0000 /FEXIT /00506-0000 @@
0000 /FEXIT /00507-0000 @@
0000 /FEXIT /00510-0000 @@
0000 /FEXIT /00511-0000 @@
0000 /FEXIT /00512-0000 @@
0000 /FEXIT /00513-0000 @@
0000 /FEXIT /00514-0000 @@
0000 /FEXIT /00515-0000 @@
0000 /FEXIT /00516-0000 @@
0000 /FEXIT /00517-0000 @@
0000 /FEXIT /00520-0000 @@
0000 /FEXIT /00521-0000 @@
0000 /FEXIT /00522-0000 @@
0000 /FEXIT /00523-0000 @@
0000 /FEXIT /00524-0000 @@
0000 /FEXIT /00525-0000 @@
0000 /FEXIT /00526-0000 @@
0000 /FEXIT /00527-0000 @@
0000 /FEXIT /00530-0000 @@
0000 /FEXIT /00531-0000 @@
0000 /FEXIT /00532-0000 @@
0000 /FEXIT /00533-0000 @@
0377 /FLDA BASE+575 /00534-0377 C?
| 377 RUBOUT