0010 ; DISASSEMBLY OF %PAK COMMAND 0020 0030 ZA2 .DE $A2 0040 ZA3 .DE $A3 0050 ZA4 .DE $A4 0060 ZA5 .DE $A5 0070 ZA6 .DE $A6 0080 ZA7 .DE $A7 0090 ZA8 .DE $A8 0100 ZA9 .DE $A9 0110 A700A .DE $700A 0120 A700B .DE $700B 0130 A7210 .DE $7210 0140 A7211 .DE $7211 0150 A7215 .DE $7215 0160 A7216 .DE $7216 0170 A7217 .DE $7217 0180 A7257 .DE $7257 0190 A7258 .DE $7258 0200 A7264 .DE $7264 0210 A7265 .DE $7265 0220 A7266 .DE $7266 0230 A7267 .DE $7267 0240 A7284 .DE $7284 0250 J7464 .DE $7464 0260 J74BB .DE $74BB 0270 S754F .DE $754F 0280 S7646 .DE $7646 0290 S7651 .DE $7651 0300 S765B .DE $765B 0310 S767C .DE $767C 0320 S767F .DE $767F 0330 S7687 .DE $7687 0340 S76E3 .DE $76E3 0350 S7724 .DE $7724 0360 S789A .DE $789A 0370 S78AA .DE $78AA 0380 J790C .DE $790C 0390 S7B04 .DE $7B04 0400 ; 0410 .BA $6D00 0420 .OS 0430 6D00- A9 00 0440 LDA #$00 ;^@ 6D02- 8D 66 72 0450 STA A7266 6D05- 20 04 7B 0460 JSR S7B04 6D08- AD 84 72 0470 LDA A7284 6D0B- C9 32 0480 CMP #$32 ;2 6D0D- F0 11 0490 BEQ B6D20 0500 ; 6D0F- C9 33 0510 CMP #$33 ;3 6D11- D0 04 0520 BNE B6D17 0530 ; 6D13- A9 04 0540 LDA #$04 ;^D 6D15- D0 06 0550 BNE B6D1D 0560 ; 6D17- C9 31 0570 B6D17 CMP #$31 ;1 6D19- D0 10 0580 BNE B6D2B 0590 ; 6D1B- A9 00 0600 LDA #$00 ;^@ 6D1D- 8D 15 72 0610 B6D1D STA A7215 6D20- 20 E3 76 0620 B6D20 JSR S76E3 6D23- 20 AA 78 0630 JSR S78AA 6D26- 90 06 0640 BCC B6D2E 0650 ; 6D28- 4C 0C 79 0660 JMP J790C 0670 ; 6D2B- 4C BB 74 0680 B6D2B JMP J74BB 0690 ; 6D2E- 20 46 76 0700 B6D2E JSR S7646 6D31- 20 9A 78 0710 B6D31 JSR S789A 6D34- A0 00 0720 B6D34 LDY #$00 ;^@ 6D36- B1 A4 0730 LDA (ZA4),Y 6D38- C9 1F 0740 CMP #$1F ;^_ 6D3A- F0 55 0750 BEQ B6D91 0760 ; 6D3C- C9 7F 0770 CMP #$7F ; 6D3E- D0 F1 0780 BNE B6D31 0790 ; 6D40- AD 66 72 0800 LDA A7266 6D43- D0 1C 0810 BNE B6D61 0820 ; 6D45- EE 66 72 0830 INC A7266 6D48- A0 0A 0840 LDY #$0A ;^J 6D4A- B1 A4 0850 LDA (ZA4),Y 6D4C- 8D 0A 70 0860 STA A700A 6D4F- C8 0870 INY 6D50- B1 A4 0880 LDA (ZA4),Y 6D52- 8D 0B 70 0890 STA A700B 6D55- A5 A4 0900 LDA *ZA4 6D57- 8D 64 72 0910 STA A7264 6D5A- A5 A5 0920 LDA *ZA5 6D5C- 8D 65 72 0930 STA A7265 6D5F- A0 00 0940 LDY #$00 ;^@ 6D61- A5 A4 0950 B6D61 LDA *ZA4 6D63- 85 A2 0960 STA *ZA2 6D65- A5 A5 0970 LDA *ZA5 6D67- 85 A3 0980 STA *ZA3 6D69- 20 9A 78 0990 B6D69 JSR S789A 6D6C- B1 A4 1000 LDA (ZA4),Y 6D6E- C9 7F 1010 CMP #$7F ; 6D70- F0 F7 1020 BEQ B6D69 1030 ; 6D72- C9 1F 1040 CMP #$1F ;^_ 6D74- D0 04 1050 BNE B6D7A 1060 ; 6D76- 91 A2 1070 STA (ZA2),Y 6D78- F0 17 1080 BEQ B6D91 1090 ; 6D7A- B1 A4 1100 B6D7A LDA (ZA4),Y 6D7C- 91 A2 1110 STA (ZA2),Y 6D7E- A9 7F 1120 LDA #$7F ; 6D80- 91 A4 1130 STA (ZA4),Y 6D82- C8 1140 INY 6D83- C0 0C 1150 CPY #$0C ;^L 6D85- D0 F3 1160 BNE B6D7A 1170 ; 6D87- A5 A2 1180 LDA *ZA2 6D89- 85 A4 1190 STA *ZA4 6D8B- A5 A3 1200 LDA *ZA3 6D8D- 85 A5 1210 STA *ZA5 6D8F- D0 A3 1220 BNE B6D34 1230 ; 6D91- A2 00 1240 B6D91 LDX #$00 ;^@ 6D93- 20 8B 6E 1250 JSR S6E8B 6D96- AD 66 72 1260 LDA A7266 6D99- D0 03 1270 BNE B6D9E 1280 ; 6D9B- 4C 7F 6E 1290 JMP J6E7F 1300 ; 6D9E- AD 64 72 1310 B6D9E LDA A7264 6DA1- 85 A4 1320 STA *ZA4 6DA3- AD 65 72 1330 LDA A7265 6DA6- 85 A5 1340 STA *ZA5 6DA8- AD 0A 70 1350 J6DA8 LDA A700A 6DAB- 8D 66 72 1360 STA A7266 6DAE- AD 0B 70 1370 LDA A700B 6DB1- 8D 67 72 1380 STA A7267 6DB4- A0 00 1390 LDY #$00 ;^@ 6DB6- B1 A4 1400 LDA (ZA4),Y 6DB8- C9 1F 1410 CMP #$1F ;^_ 6DBA- D0 03 1420 BNE B6DBF 1430 ; 6DBC- 4C 79 6E 1440 JMP J6E79 1450 ; 6DBF- A2 03 1460 B6DBF LDX #$03 ;^C 6DC1- A0 0A 1470 LDY #$0A ;^J 6DC3- 88 1480 B6DC3 DEY 6DC4- B1 A4 1490 LDA (ZA4),Y 6DC6- 95 A6 1500 STA *ZA6,X 6DC8- CA 1510 DEX 6DC9- 10 F8 1520 BPL B6DC3 1530 ; 6DCB- D8 1540 CLD 6DCC- 38 1550 SEC 6DCD- A5 A8 1560 LDA *ZA8 6DCF- E5 A6 1570 SBC *ZA6 6DD1- 8D 58 72 1580 STA A7258 6DD4- A5 A9 1590 LDA *ZA9 6DD6- E5 A7 1600 SBC *ZA7 6DD8- 8D 57 72 1610 STA A7257 6DDB- A2 00 1620 LDX #$00 ;^@ 6DDD- E8 1630 B6DDD INX 6DDE- 38 1640 SEC 6DDF- AD 58 72 1650 LDA A7258 6DE2- E9 80 1660 SBC #$80 ;.^@ 6DE4- 8D 58 72 1670 STA A7258 6DE7- AD 57 72 1680 LDA A7257 6DEA- E9 00 1690 SBC #$00 ;^@ 6DEC- 8D 57 72 1700 STA A7257 6DEF- B0 EC 1710 BCS B6DDD 1720 ; 6DF1- 8E 58 72 1730 STX A7258 6DF4- A0 0B 1740 B6DF4 LDY #$0B ;^K 6DF6- B1 A4 1750 LDA (ZA4),Y 6DF8- 8D 17 72 1760 STA A7217 6DFB- 88 1770 DEY 6DFC- B1 A4 1780 LDA (ZA4),Y 6DFE- 8D 16 72 1790 STA A7216 6E01- A5 A4 1800 LDA *ZA4 6E03- 48 1810 PHA 6E04- A5 A5 1820 LDA *ZA5 6E06- 48 1830 PHA 6E07- A9 80 1840 LDA #$80 ;.^@ 6E09- A0 72 1850 LDY #$72 ;r 6E0B- 20 87 76 1860 JSR S7687 6E0E- A9 FF 1870 LDA #$FF ;. 6E10- A0 72 1880 LDY #$72 ;r 6E12- 20 51 76 1890 JSR S7651 6E15- 20 5B 76 1900 JSR S765B 6E18- AD 0B 70 1910 LDA A700B 6E1B- 8D 17 72 1920 STA A7217 6E1E- AD 0A 70 1930 LDA A700A 6E21- 8D 16 72 1940 STA A7216 6E24- AD 10 72 1950 LDA A7210 6E27- 85 A4 1960 STA *ZA4 6E29- AD 11 72 1970 LDA A7211 6E2C- 85 A5 1980 STA *ZA5 6E2E- 20 7F 76 1990 JSR S767F 6E31- 68 2000 PLA 6E32- 85 A5 2010 STA *ZA5 6E34- 68 2020 PLA 6E35- 85 A4 2030 STA *ZA4 6E37- A0 0B 2040 LDY #$0B ;^K 6E39- 18 2050 CLC 6E3A- B1 A4 2060 LDA (ZA4),Y 6E3C- 69 01 2070 ADC #$01 ;^A 6E3E- C9 11 2080 CMP #$11 ;^Q 6E40- D0 0B 2090 BNE B6E4D 2100 ; 6E42- 18 2110 CLC 6E43- 88 2120 DEY 6E44- B1 A4 2130 LDA (ZA4),Y 6E46- 69 01 2140 ADC #$01 ;^A 6E48- 91 A4 2150 STA (ZA4),Y 6E4A- C8 2160 INY 6E4B- A9 01 2170 LDA #$01 ;^A 6E4D- 91 A4 2180 B6E4D STA (ZA4),Y 6E4F- 18 2190 CLC 6E50- AD 0B 70 2200 LDA A700B 6E53- 69 01 2210 ADC #$01 ;^A 6E55- C9 11 2220 CMP #$11 ;^Q 6E57- D0 05 2230 BNE B6E5E 2240 ; 6E59- EE 0A 70 2250 INC A700A 6E5C- A9 01 2260 LDA #$01 ;^A 6E5E- 8D 0B 70 2270 B6E5E STA A700B 6E61- CE 58 72 2280 DEC A7258 6E64- D0 8E 2290 BNE B6DF4 2300 ; 6E66- A0 0B 2310 LDY #$0B ;^K 6E68- AD 67 72 2320 LDA A7267 6E6B- 91 A4 2330 STA (ZA4),Y 6E6D- 88 2340 DEY 6E6E- AD 66 72 2350 LDA A7266 6E71- 91 A4 2360 STA (ZA4),Y 6E73- 20 9A 78 2370 JSR S789A 6E76- 4C A8 6D 2380 JMP J6DA8 2390 ; 6E79- 20 7C 76 2400 J6E79 JSR S767C 6E7C- 20 24 77 2410 JSR S7724 6E7F- A2 14 2420 J6E7F LDX #$14 ;^T 6E81- 20 8B 6E 2430 JSR S6E8B 6E84- 4C 64 74 2440 JMP J7464 2450 ; 6E87- 20 4F 75 2460 B6E87 JSR S754F 6E8A- E8 2470 INX 6E8B- BD 91 6E 2480 S6E8B LDA MESG,X 6E8E- D0 F7 2490 BNE B6E87 2500 ; 6E90- 60 2510 RTS 2520 ; 6E91- 50 41 43 2530 MESG .BY 'PACK: IN PROGRESS: ' $00 6E94- 4B 3A 20 6E97- 49 4E 20 6E9A- 50 52 4F 6E9D- 47 52 45 6EA0- 53 53 3A 6EA3- 20 00 6EA5- 43 4F 4D 2540 .BY 'COMPLETE' $00 6EA8- 50 4C 45 6EAB- 54 45 00 2550 .EN 0000,6EAE,6EAE >