File: SWPFIL.M8 of Disk: Disks/Build-2007/Copy-of-m8-rka0-rkb0
(Source file text)
040 4040 0423 1340 4040 1525 1424 1170 4040 4040 4040 6140 4040 4040 ISYMB, ORG .+0011 ITXT1, ORG .+0074 ITXT2, ORG .+0074 MASK, ORG .+0074 #LBL=. ORG #LBL #ST, BASE #BASE SETB #BASE SETX #XR LDX 0002,0 LDX 0003,0 LDX 0004,0 FLDA #LIT+0124 FSTA VERS LDX 0005,0 FLDA #LIT+0003 FSTA IMASK LDX 0006,0 FLDA #LIT+0066 FSTA IYES LDX 0007,0 FLDA #LIT+0060 FSTA INO LDX 0010,0 FLDA #LIT+0003 FSTA I #G0001, LDX 0011,0 #10, FLDA I ATX 7 FLDA #LIT+0000 FSTA MASK-0003,7 FLDA I FADD #LIT+0003 FSTA I FSUB #LIT+0033 JLE #G0001 LDX 0012,0 JSR IOPEN JA .+0006 JA #LIT+0113 JA #LIT+0105 LDX 0013,0 EXTERN #UE TRAP3 #UE LDX 0014,0 JSR IEXT LDX 0015,0 JSR OOPEN JA .+0006 JA #LIT+0113 JA #LIT+0105 LDX 0016,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #15+2 FLDA VERS EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0017,0 #15, JA .+0037 5047 4040 4040 4040 4040 4040 4040 5555 5540 1525 1424 1170 4023 3123 2405 1540 0317 1606 1107 2522 0124 1722 4026 4701 6247 4055 5555 4757 5700 LDX 0020,0 #1, EXTERN #UE TRAP3 #UE LDX 0021,0 #2, EXTERN #UE TRAP3 #UE LDX 0022,0 FLDA #LIT+0022 FSTA N LDX 0023,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #20+2 EXTERN #RENDO TRAP3 #RENDO LDX 0024,0 #20, JA .+0023 5047 5715 2514 2411 7040 2667 0140 0317 1606 1107 2522 0124 1117 1640 0611 1405 4751 LDX 0025,0 #25, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #30+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0026,0 #30, JA .+0033 5047 1017 2740 1525 0310 4015 0515 1722 3140 0417 4031 1725 4016 0505 0440 0617 2240 2410 0540 0617 2205 0722 1725 1604 4700 LDX 0027,0 EXTERN #UE TRAP3 #UE #1, EXTERN #UE TRAP3 #UE LDX 0030,0 #35, FLDA M JLT #45 JEQ #40 JA #45 LDX 0031,0 #40, FLDA #LIT+0022 FSTA M LDX 0032,0 #45, FLDA M FDIV M EXTERN #FIX JSA #FIX FMUL M FSUB M JLT #50 JEQ #60 JA #50 LDX 0033,0 #50, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #55+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0034,0 #55, JA .+0030 5047 1124 4015 2523 2440 0205 4001 4015 2514 2411 2014 0540 1706 4064 1354 4004 0122 1411 1607 4147 1162 5100 LDX 0035,0 JA #35 LDX 0036,0 #60, FLDA M FDIV #LIT+0014 EXTERN #FIX JSA #FIX FSTA M LDX 0037,0 FLDA M FSUB #LIT+0006 JLT #65 JEQ #75 JA #75 LDX 0040,0 #65, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #70+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0041,0 #70, JA .+0034 5047 2410 0540 0617 2205 0722 1725 1604 2340 1605 0504 2340 7013 4015 1116 1115 2515 4041 4024 2231 4001 0701 1116 5647 1162 5100 LDX 0042,0 JA #35 LDX 0043,0 #75, FLDA N FSUB M FSUB #LIT+0006 JLT #80 JEQ #90 JA #90 LDX 0044,0 #80, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #85+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0045,0 #85, JA .+0030 5047 2410 0124 4014 0501 2605 2340 2417 1740 0605 2740 0617 2240 2410 0540 0201 0313 0722 1725 1604 4041 4700 LDX 0046,0 EXTERN #UE TRAP3 #UE #1, EXTERN #UE TRAP3 #UE LDX 0047,0 JA #35 LDX 0050,0 #90, FLDA N FSUB M FSTA N LDX 0051,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #95+2 FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0052,0 #95, JA .+0011 5047 0611 0514 0423 7547 1161 5100 LDX 0053,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #100+2 EXTERN #RSVO TRAP3 #RSVO FSTA IA EXTERN #RENDO TRAP3 #RENDO LDX 0054,0 #100, JA .+0036 5047 0417 4031 1725 4010 0126 0540 0116 4005 0105 4050 0530 2456 4001 2211 2410 1556 4005 1405 1505 1624 5140 7740 3316 1735 4040 4701 6151 LDX 0055,0 FLDA IA FSUB IYES JLT #115 JEQ #105 JA #115 LDX 0056,0 #105, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #110+2 EXTERN #RENDO TRAP3 #RENDO LDX 0057,0 #110, JA .+0010 5047 4040 4005 0105 7561 4751 LDX 0060,0 #115, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #120+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0061,0 #120, JA .+0027 5047 1017 2740 1501 1631 4024 0522 1511 1601 1423 4004 1740 3117 2540 1001 2605 4033 6135 4077 4711 6151 LDX 0062,0 FLDA N JLT #123 JEQ #123 JA #125 LDX 0063,0 #123, FLDA #LIT+0003 FSTA N LDX 0064,0 #125, FLDA N FSTA NTERM LDX 0065,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #135+2 EXTERN #RENDO TRAP3 #RENDO LDX 0066,0 #135, JA .+0025 5047 0405 2611 0305 4003 1704 0540 0617 2240 2405 2215 1116 0114 4043 6140 1123 4060 6347 5100 LDX 0067,0 FLDA #LIT+0036 FSTA IDEV LDX 0070,0 FLDA #LIT+0003 FSTA I FLDA NTERM FSTA #DOTMP+0000 #G0002, LDX 0071,0 FLDA I FSUB #LIT+0003 JLT #140 JEQ #170 JA #140 LDX 0072,0 #140, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #145+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA IDEV EXTERN #RSVO TRAP3 #RSVO FLDA I EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0073,0 #145, JA .+0033 5047 0516 2405 2240 0405 2611 0305 4003 1704 0540 0617 2240 2405 2215 1116 0114 4043 4711 6147 4033 4717 6247 3540 4711 6051 LDX 0074,0 FLDA #LIT+0000 FSTA N LDX 0075,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #150+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0076,0 #150, JA .+0004 5017 6251 LDX 0077,0 FLDA N JLT #155 JEQ #155 JA #160 LDX 0100,0 #155, FLDA IDEV FSTA N LDX 0101,0 #160, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #165+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA N EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0102,0 #165, JA .+0014 5047 4013 1470 0547 1161 4775 4717 6247 6047 5100 LDX 0103,0 FLDA N FADD #LIT+0006 FSTA IDEV LDX 0104,0 #170, LDX 0105,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #175+2 EXTERN #RSVO TRAP3 #RSVO FSTA IA EXTERN #RENDO TRAP3 #RENDO LDX 0106,0 #175, JA .+0027 5047 4040 4011 2340 2410 1123 4001 4026 1104 0517 4024 0522 1511 1601 1440 7740 3331 0523 3540 4701 6151 LDX 0107,0 FLDA IA FSUB INO JLT #190 JEQ #180 JA #190 LDX 0110,0 #180, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #185+2 FLDA I EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0111,0 #185, JA .+0013 5047 2447 1761 4702 0103 1375 6363 6447 5100 LDX 0112,0 JA #210 LDX 0113,0 #190, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #195+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0114,0 #195, JA .+0030 5047 4040 4027 1001 2440 1123 4011 2423 4002 0103 1323 2001 0305 4003 1704 0540 7740 3362 6160 3540 4717 6351 LDX 0115,0 FLDA M JLT #210 JEQ #210 JA #200 LDX 0116,0 #200, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #205+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0117,0 #205, JA .+0012 5047 2447 1761 4702 0103 1375 4717 6351 LDX 0120,0 #210, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #215+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0121,0 #215, JA .+0027 5047 4040 4027 1001 2440 1123 4011 2423 4005 2303 0120 0540 0317 0405 4077 4033 6263 6335 4047 1763 5100 LDX 0122,0 FLDA M JLT #220 JEQ #230 JA #220 LDX 0123,0 #220, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #225+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0124,0 #225, JA .+0012 5047 2447 1761 4705 2303 2075 4717 6351 LDX 0125,0 #230, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #235+2 EXTERN #RSVO TRAP3 #RSVO FSTA IA EXTERN #RENDO TRAP3 #RENDO LDX 0126,0 #235, JA .+0032 5047 4040 4004 1705 2340 1124 4016 0505 0440 0611 1414 0522 4003 1001 2201 0324 0522 2340 7740 3316 1735 4047 0161 5100 LDX 0127,0 FLDA IA FSUB IYES JLT #275 JEQ #240 JA #275 LDX 0130,0 #240, FLDA #LIT+0000 FSTA M LDX 0131,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #245+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0132,0 #245, JA .+0027 5047 4040 4040 4040 1017 2740 1501 1631 4006 1114 1405 2240 0310 0122 0103 2405 2223 4077 4047 1162 5100 LDX 0133,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #250+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0134,0 #250, JA .+0012 5047 2447 1761 4706 1114 1475 4717 6451 LDX 0135,0 FLDA #LIT+0000 FSTA M LDX 0136,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #255+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0137,0 #255, JA .+0031 5047 4040 4040 4040 0106 2405 2240 2710 0124 4003 1001 2201 0324 0522 4003 1704 0540 7740 3362 6162 3540 4717 6351 LDX 0140,0 FLDA M JLT #265 JEQ #260 JA #265 LDX 0141,0 #260, FLDA #LIT+0047 FSTA M LDX 0142,0 #265, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #270+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0143,0 #270, JA .+0012 5047 2447 1761 4703 1001 2275 4717 6351 LDX 0144,0 #275, LDX 0145,0 #280, FLDA I FADD #LIT+0003 FSTA I FSUB #DOTMP+0000 JLE #G0002 LDX 0146,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #285+2 FLDA I EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0147,0 #285, JA .+0033 5047 1017 2740 1501 1631 4002 0103 1307 2217 2516 0423 4004 1740 3117 2540 1605 0504 5640 2410 0522 0540 0301 1640 0205 4757 LDX 0150,0 EXTERN #UE TRAP3 #UE #1, EXTERN #UE TRAP3 #UE LDX 0151,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #286+2 EXTERN #RSVO TRAP3 #RSVO FSTA NBG EXTERN #RENDO TRAP3 #RENDO LDX 0152,0 #286, JA .+0004 5011 6151 LDX 0153,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #290+2 FLDA NBG EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0154,0 #290, JA .+0010 5047 0207 1501 3075 4717 6151 LDX 0155,0 #295, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #300+2 EXTERN #RENDO TRAP3 #RENDO LDX 0156,0 #300, JA .+0030 5057 4727 1001 2440 2431 2005 4017 0640 2331 2324 0515 4004 1123 1340 0417 4031 1725 4010 0126 0540 7747 5700 LDX 0157,0 EXTERN #UE TRAP3 #UE #1, EXTERN #UE TRAP3 #UE LDX 0160,0 EXTERN #UE TRAP3 #UE #2, EXTERN #UE TRAP3 #UE LDX 0161,0 #3, EXTERN #UE TRAP3 #UE LDX 0162,0 #305, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #310+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0163,0 #310, JA .+0021 5047 3117 2522 4016 2515 0205 2240 3360 5075 2213 7005 5135 4047 1161 5100 LDX 0164,0 FLDA N JLT #315 JEQ #325 JA #325 LDX 0165,0 #315, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #320+2 FLDA N EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0166,0 #320, JA .+0020 5011 6247 4011 2340 0116 4011 1414 0507 0114 4001 1623 2705 2247 5100 LDX 0167,0 JA #305 LDX 0170,0 #325, FLDA N FSUB #LIT+0011 JLT #330 JEQ #330 JA #315 LDX 0171,0 #330, FLDA N FADD #LIT+0003 FSTA N LDX 0172,0 FLDA N ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #335 JA #345 JA #365 JA #375 LDX 0173,0 #335, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #340+2 EXTERN #RENDO TRAP3 #RENDO LDX 0174,0 #340, JA .+0010 5047 2331 2213 7005 7561 4751 LDX 0175,0 JA #385 LDX 0176,0 #345, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #350+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0177,0 #350, JA .+0021 5047 4040 4010 1727 4015 0116 3140 2014 0124 2405 2223 4077 4047 1161 5100 LDX 0200,0 FLDA N JLT #345 JEQ #345 JA #355 LDX 0201,0 #355, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #360+2 FLDA N EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0202,0 #360, JA .+0011 5047 2331 2206 6070 7547 1161 5100 LDX 0203,0 JA #385 LDX 0204,0 #365, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #370+2 EXTERN #RENDO TRAP3 #RENDO LDX 0205,0 #370, JA .+0010 5047 2331 6360 6460 7561 4751 LDX 0206,0 JA #385 LDX 0207,0 #375, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #380+2 EXTERN #RENDO TRAP3 #RENDO LDX 0210,0 #380, JA .+0010 5047 2331 2214 6061 7561 4751 LDX 0211,0 JA #385 LDX 0212,0 #385, LDX 0213,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #390+2 EXTERN #RENDO TRAP3 #RENDO LDX 0214,0 #390, JA .+0030 5057 4727 1001 2440 2431 2005 4017 0640 5014 1116 0555 5103 1417 0313 4004 1740 3117 2540 1001 2605 4077 4757 LDX 0215,0 EXTERN #UE TRAP3 #UE #1, EXTERN #UE TRAP3 #UE LDX 0216,0 EXTERN #UE TRAP3 #UE #2, EXTERN #UE TRAP3 #UE LDX 0217,0 #395, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #400+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0220,0 #400, JA .+0022 5047 3117 2522 4016 2515 0205 2240 7740 3360 5075 0413 7005 0151 3540 4711 6151 LDX 0221,0 FLDA N JLT #405 JEQ #415 JA #415 LDX 0222,0 #405, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #410+2 FLDA N EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0223,0 #410, JA .+0016 5011 6147 4011 2340 1725 2440 1706 4022 0116 0705 5647 5100 LDX 0224,0 JA #395 LDX 0225,0 #415, FLDA N FSUB #LIT+0011 JLT #420 JEQ #420 JA #405 LDX 0226,0 #420, FLDA N FADD #LIT+0003 FSTA N LDX 0227,0 FLDA N FSUB #LIT+0011 JLT #425 JEQ #475 JA #425 LDX 0230,0 #425, FLDA #LIT+0025 FSTA M LDX 0231,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #430+2 EXTERN #RSVO TRAP3 #RSVO FSTA IA EXTERN #RENDO TRAP3 #RENDO LDX 0232,0 #430, JA .+0034 5047 0417 4031 1725 4010 0126 0540 0140 2022 1707 2201 1515 0102 1405 4013 1417 0313 4050 0413 7005 2051 4001 2340 2705 1414 4700 LDX 0233,0 EXTERN #UE TRAP3 #UE #1, EXTERN #UE TRAP3 #UE LDX 0234,0 FLDA IA FSUB IYES JLT #475 JEQ #435 JA #475 LDX 0235,0 #435, FLDA #LIT+0000 FSTA M LDX 0236,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #440+2 EXTERN #RSVO TRAP3 #RSVO FSTA M EXTERN #RENDO TRAP3 #RENDO LDX 0237,0 #440, JA .+0030 5047 0516 2405 2240 0405 2611 0305 4003 1704 0540 0617 2240 1411 1605 4003 1417 0313 4033 6163 3540 4717 6251 LDX 0240,0 FLDA M JLT #450 JEQ #445 JA #450 LDX 0241,0 #445, FLDA #LIT+0025 FSTA M LDX 0242,0 #450, FLDA #LIT+0000 FSTA K LDX 0243,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #455+2 EXTERN #RSVO TRAP3 #RSVO FSTA K EXTERN #RENDO TRAP3 #RENDO LDX 0244,0 #455, JA .+0031 5047 0516 2405 2240 0405 2611 0305 4003 1704 0540 0617 2240 2022 1707 5640 0314 1703 1340 3361 6335 4047 1762 5100 LDX 0245,0 FLDA K JLT #465 JEQ #460 JA #465 LDX 0246,0 #460, FLDA #LIT+0025 FSTA K LDX 0247,0 #465, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #470+2 FLDA K EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0250,0 #470, JA .+0012 5047 4004 1370 0520 7547 1762 4760 4751 LDX 0251,0 #475, FLDA N ATX 1 STARTD FLDA .+2,1 STARTF JAC JA #480 JA #510 JA #520 JA #530 LDX 0252,0 #480, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #485+2 FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0253,0 #485, JA .+0012 5047 4004 1370 0501 7547 1762 4760 4751 LDX 0254,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #490+2 EXTERN #RSVO TRAP3 #RSVO FSTA IHERTZ EXTERN #RENDO TRAP3 #RENDO LDX 0255,0 #490, JA .+0034 5047 4027 1001 2440 1123 4024 1005 4014 1116 0540 0622 0521 2505 1603 3140 1005 2205 4077 4033 6560 4010 0522 2432 3540 4711 6251 LDX 0256,0 FLDA IHERTZ JLT #500 JEQ #495 JA #500 LDX 0257,0 #495, FLDA #LIT+0041 FSTA IHERTZ LDX 0260,0 #500, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #505+2 FLDA IHERTZ EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0261,0 #505, JA .+0011 5047 1027 2411 0313 7547 1762 5100 LDX 0262,0 JA #540 LDX 0263,0 #510, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #515+2 FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0264,0 #515, JA .+0012 5047 4004 1370 0503 7547 1762 4760 4751 LDX 0265,0 JA #540 LDX 0266,0 #520, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #525+2 EXTERN #RENDO TRAP3 #RENDO LDX 0267,0 #525, JA .+0011 5047 4004 1370 0520 7561 6360 4751 LDX 0270,0 JA #540 LDX 0271,0 #530, EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #535+2 FLDA M EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0272,0 #535, JA .+0012 5047 0413 0370 0101 7547 1762 4760 5100 LDX 0273,0 JA #540 LDX 0274,0 #540, LDX 0275,0 #545, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #550+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0276,0 #550, JA .+0035 5047 1017 2740 1401 2207 0540 2310 1725 1404 4024 1005 4026 1122 2425 0114 4015 0515 1722 3140 0205 4077 4033 6166 1335 4047 1162 5100 LDX 0277,0 #555, FLDA N JLT #560 JEQ #560 JA #565 LDX 0300,0 #560, FLDA #LIT+0030 FSTA N LDX 0301,0 #565, FLDA N FDIV #LIT+0014 EXTERN #FIX JSA #FIX FMUL #LIT+0014 FSUB N JLT #570 JEQ #580 JA #570 LDX 0302,0 #570, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #575+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0303,0 #575, JA .+0031 5047 1124 4015 2523 2440 0205 4001 4015 2514 2411 2014 0540 1706 4064 1356 4024 2231 4001 0701 1116 5640 4711 6251 LDX 0304,0 JA #555 LDX 0305,0 #580, FLDA N FSUB #LIT+0022 JLT #585 JEQ #595 JA #595 LDX 0306,0 #585, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #590+2 EXTERN #RSVO TRAP3 #RSVO FSTA N EXTERN #RENDO TRAP3 #RENDO LDX 0307,0 #590, JA .+0025 5047 1525 2324 4002 0540 7013 4001 2440 1405 0123 2456 4024 2231 4001 0701 1116 5640 4711 6251 LDX 0310,0 JA #555 LDX 0311,0 #595, FLDA N FDIV #LIT+0014 EXTERN #FIX JSA #FIX FSTA N LDX 0312,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #600+2 FLDA N EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0313,0 #600, JA .+0011 5047 0207 0317 2205 7547 1762 5100 LDX 0314,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #605+2 EXTERN #RSVO TRAP3 #RSVO FSTA IA EXTERN #RENDO TRAP3 #RENDO LDX 0315,0 #605, JA .+0035 5047 0417 4031 1725 4027 0116 2440 1617 1655 2324 0116 0401 2204 4004 1123 1340 0114 1417 0301 2411 1716 4077 4033 1617 3540 4701 6151 LDX 0316,0 FLDA IA FSUB IYES JLT #645 JEQ #610 JA #645 LDX 0317,0 #610, FLDA #LIT+0003 FSTA I FLDA NBG FSTA #DOTMP+0003 #G0003, LDX 0320,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0003 JA #615+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA I EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0321,0 #615, JA .+0024 5047 0411 2313 4025 1611 2440 4340 0617 2240 0207 4711 6147 4033 4711 6147 3540 4711 6051 LDX 0322,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #620+2 EXTERN #RSVO TRAP3 #RSVO FSTA IUNIT EXTERN #RENDO TRAP3 #RENDO LDX 0323,0 #620, JA .+0004 5011 6151 LDX 0324,0 FLDA IUNIT JLT #621 JEQ #621 JA #624 LDX 0325,0 #621, FLDA I FSTA INUIT LDX 0326,0 #624, EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #625+2 EXTERN #RSVO TRAP3 #RSVO FSTA IFROM EXTERN #RENDO TRAP3 #RENDO LDX 0327,0 #625, JA .+0024 5047 2324 0122 2411 1607 4002 1417 0313 4016 2515 0205 2240 5017 0324 0114 5140 4717 6551 LDX 0330,0 EXTERN #READO TRAP3 #READO JA #LIT+0003 JA #630+2 EXTERN #RSVO TRAP3 #RSVO FSTA ISIZE EXTERN #RENDO TRAP3 #RENDO LDX 0331,0 #630, JA .+0022 5047 1405 1607 2410 4011 1640 0214 1703 1323 4050 1703 2401 1451 4047 1765 5100 LDX 0332,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #635+2 FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA IUNT EXTERN #RSVO TRAP3 #RSVO FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA IFROM EXTERN #RSVO TRAP3 #RSVO FLDA I EXTERN #RSVO TRAP3 #RSVO FLDA ISIZE EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0333,0 #635, JA .+0030 5047 2516 1124 4711 6147 7547 1161 5747 0622 1715 4711 6147 7547 1765 5747 2311 3205 4711 6147 7547 1765 5100 LDX 0334,0 #640, FLDA I FADD #LIT+0003 FSTA I FSUB #DOTMP+0003 JLE #G0003 LDX 0335,0 #645, LDX 0336,0 #650, EXTERN #WRITO TRAP3 #WR B @ @B @ )? 2, @ 2, '