1 2 ; LST OFF 3 ORG $1000 4 5 ******************************** 6 * * 7 * CONTENU DE LA MEMOIRE AUXIL. * 8 * MAKE * 9 * (C) 1990 BY DECKARD * 10 * * 11 ******************************** 12 13 USE INCLUDE.RAM.AUX >1 >2 >3 ******************************** >4 * * >5 * INCLUDE POUR RAM.AUX * >6 * (C)1990 BY DECKARD * >7 * * >8 ******************************** >9 >10 CPT = $06 ; ET $07 >11 CPT2 = $08 ; ET $09 >12 STRING EQU $349 ; DS 17,0 CHAINE DE CARACTERES+00 >13 VALS EQU $35A ; DS 70,0 NOMBRES DIVERS >14 RETOUR_OBJ EQU $1009 >15 RETOUR_MONS EQU $4006 >16 RETOUR_MACRO EQU $030C >17 LIB_MACROS2 EQU $803 ; EMPLACEMENT NORMAL DE LIBRARY.MACROS2 >18 CLIB_MACROS2 EQU $6803 ; SAUVEGARDE DE LIBRARY.MACROS2 (6803-74FF) >19 ELIB_MACROS2 EQU $7500 ; ARRET RECOPIAGE A CETTE ADR >20 >21 >22 AFF MAC >23 LDA #<]1 >24 LDY #>]1 >25 STA ]2 >26 STY ]2+1 >27 <<< >28 >29 AJ MAC >30 INC ]1 >31 BNE FAJ >32 INC ]1+1 >33 FAJ <<< 14 15 PUT RAM.AUX.PART1 >1 >2 >3 ******************************** >4 * * >5 * CONTENU DE LA MEMOIRE AUXIL. * >6 * PART 1 * >7 * (C)1990 BY DECKARD * >8 * * >9 ******************************** >10 >11 >12 * RECOPIE MODULE SWAP EN RAM_AUX >13 1000: 8D 08 C0 >14 STA $C008 ; PILE ET PAGE 0 PRINC 1003: 8D 00 C0 >15 STA $C000 ; RAMRD/RAMWRT 1006: 8D 05 C0 >16 STA $C005 ; ECRITURE AUX >17 >18 AFF RAM1;CPT 1009: A9 69 >18 LDA #18 LDY #>RAM1 100D: 85 06 >18 STA CPT 100F: 84 07 >18 STY CPT+1 >18 <<< >19 AFF SWAP_AUX;CPT2 1011: A9 A0 >19 LDA #19 LDY #>SWAP_AUX 1015: 85 08 >19 STA CPT2 1017: 84 09 >19 STY CPT2+1 >19 <<< >20 1019: A0 00 >21 LDY #0 101B: B1 06 >22 RECOP1 LDA (CPT),Y 101D: 91 08 >23 STA (CPT2),Y >24 AJ CPT 101F: E6 06 >24 INC CPT 1021: D0 02 >24 BNE FAJ 1023: E6 07 >24 INC CPT+1 >24 FAJ <<< >25 AJ CPT2 1025: E6 08 >25 INC CPT2 1027: D0 02 >25 BNE FAJ 1029: E6 09 >25 INC CPT2+1 >25 FAJ <<< 102B: A5 08 >26 TEST_FIN LDA CPT2 ; COMPARE LOW 102D: C9 CD >27 CMP #28 BNE RECOP1 ; PAS FINI 1031: A5 09 >29 LDA CPT2+1 ; COMPARE HIGH 1033: C9 03 >30 CMP #>FINDATA1 1035: D0 E4 >31 BNE RECOP1 ; PAS FINI >32 >33 * RECOPIE LES 'COPY_' ET LES DATAS >34 >35 AFF RAM2;CPT 1037: A9 97 >35 LDA #35 LDY #>RAM2 103B: 85 06 >35 STA CPT 103D: 84 07 >35 STY CPT+1 >35 <<< >36 AFF COPY_OBJ;CPT2 103F: A9 03 >36 LDA #36 LDY #>COPY_OBJ 1043: 85 08 >36 STA CPT2 1045: 84 09 >36 STY CPT2+1 >36 <<< >37 1047: A0 00 >38 LDY #0 1049: B1 06 >39 RECOP2 LDA (CPT),Y 104B: 91 08 >40 STA (CPT2),Y >41 AJ CPT 104D: E6 06 >41 INC CPT 104F: D0 02 >41 BNE FAJ 1051: E6 07 >41 INC CPT+1 >41 FAJ <<< >42 AJ CPT2 1053: E6 08 >42 INC CPT2 1055: D0 02 >42 BNE FAJ 1057: E6 09 >42 INC CPT2+1 >42 FAJ <<< 1059: A5 08 >43 TEST_FIN2 LDA CPT2 ; COMPARE LOW 105B: C9 FC >44 CMP #45 BNE RECOP2 ; PAS FINI 105F: A5 09 >46 LDA CPT2+1 ; COMPARE HIGH 1061: C9 43 >47 CMP #>FINDATA2 1063: D0 E4 >48 BNE RECOP2 ; PAS FINI 1065: 8D 04 C0 >49 STA $C004 ; ECRITURE PRINC 1068: 60 >50 RTS >51 >52 ******************************** >53 >54 RAM1 >55 >56 ORG $3A0 ; MEME VALEUR QUE USER.COMMUT2 >57 >58 * PASSAGE EN PRINC >59 * X=CMD/Y=ARGUMENT >60 03A0: A9 00 >61 SWAP_AUX LDA #0 03A2: 8D 08 C0 >62 STA $C008 ; PILE ET PAGE 0 PRINC 03A5: 8D 00 C0 >63 STA $C000 ; USE RAMRD/RAMWRT 03A8: 8D 02 C0 >64 STA $C002 ; LIRE EN PRINC -> PASSE EN PRINC DIRECT >65 >66 * ARRIVE EN AUX >67 03AB: 8D 05 C0 >68 STA $C005 ; ECRIRE EN AUX 03AE: 8A >69 TXA ; NUMERO DE CMD DANS ACC 03AF: 0A >70 ASL A ; *2 POUR DA 03B0: AA >71 TAX 03B1: BD BF 03 >72 LDA RAM_ADR,X ; LOW 03B4: 85 EC >73 STA $EC 03B6: E8 >74 INX 03B7: BD BF 03 >75 LDA RAM_ADR,X ; HIGH 03BA: 85 ED >76 STA $ED 03BC: 6C EC 00 >77 JMP ($00EC) ; SAUTE A L'ADR INDIQUEE >78 03BF: 03 08 >79 RAM_ADR DA COPY_OBJ 03C1: 09 10 >80 DA RETOUR_OBJ 03C3: 96 08 >81 DA COPY_MONS 03C5: 06 40 >82 DA RETOUR_MONS 03C7: 5D 08 >83 DA COPY_MACRO 03C9: 0C 03 >84 DA RETOUR_MACRO 03CB: B5 13 >85 DA COPY_ECHOPE >86 03CD: FF >88 FINDATA1 HEX FF ; NE PAS ENLEVER 0803: 98 >102 COPY_OBJ TYA 085D: A9 03 >163 COPY_MACRO LDA #196 COPY_MONS TYA ; TROUVE LE BON SPRITE 09AB: BF 09 >6 KEL_LIB DA L_EXT 0E5B: 48 >157 OBJ_ANNEXE PHA ; SAUVEGARDE TEMPORAIRE 1027: B3 10 BE >264 MARCH DA V0M0,V0M1,V0M2,V0M3,V0M4,V0M5,V0M6,V0M7,V0M8,V0M8 102A: 10 C5 10 C9 10 D0 10 D4 1032: 10 DC 10 E1 10 E7 10 E7 103A: 10 11EB: 00 >379 HEX 00 13B5: B9 27 10 >14 COPY_ECHOPE LDA MARCH,Y 13E2: A2 00 >38 FCOPY_OBJ LDX #0 ; RECOPIE LES DONNEES 43FC: FF >1262 FINDATA2 HEX FF ; NE PAS ENLEVER Object saved as RAM.AUX,A$1000,L$3C91 --End assembly, 15505 bytes, Errors: 0