START: EMT 14 ; oÞÉcÔËa ÜËpaÎa MOV #233,R0 ; ×ËÌ. peÖÉÍ 32 cÉÍ×./cÔp. EMT 16 MOV #STDRV$,@#260 ; ÐoÄËÌÀÞeÎÉe ÄpaÊ×epa MOV #TXTTXT,@#TXTHLP ; ÐoÄËÌÀÞeÎÉe Ë ÎeÍy HELP-ÔeËcÔa1: EMT 6 ; peaÌÉÚaÃÉÑ peÖÉÍa EMT 16 ; "ÂecËoÎeÞÎoÇo BR 1 ; ÜËpaÎÎoÇo peÄaËÔopa";; äaÌee cÌeÄyeÔ HELP-ÔeËcÔ;TXTTXT: .A: ðpÉÍep HELP-ÔeËcÔa.¢ .A: BÙ ÍoÖeÔe ÐepeÍeÝaÔØ ÔeËcÔ¢ .A:× oËÎe c ÐoÍoÝØÀ ËÌa×ÉÛ:¢ .A: - <×Ìe×o> - <×Ðpa×o>,¢ .A: - <××epx> - <×ÎÉÚ>,¢ .A: - AP2+<××epx>, AP2+<×ÎÉÚ>,¢ .A: - AP2+<×Ìe×o>, AP2+<×Ðpa×o>,¢ .A:¢¢ äÌÑ ×ÙxoÄa ÉÚ HELP¢ .A: ÎaÖÍÉÔe 'KT'¢ .A:¢ KoÎeÃ ÔeËcÔa.¢´ .E; SCREW SUPER HELP - 92.; õceÎËo× ä.à. MOCKBA 1992; HELP-ÄpaÊ×ep ("ËoÄo×ÙÊ" ×apÉaÎÔ); ==============================;STDRV$: CMPB HELP,R0 ; HELP - ËoÄ ËÌa×ÉÛÉ ×ÙÚo×a Help-oËÎa BEQ QST RTS R7QST: EMT 6 CLR TRIM ; ×cÐoÍoÇaÔeÌØÎaÑ ÐepeÍeÎÎaÑ MOV #1,NSTR ; Ðep×aÑ cÔpoËa; ----------------------; OÔËÌÀÞeÎÉe ÄpaÊ×epa oÔ; caÍoÇo ceÂÑ É coxpaÎeÎÉe × cÔeËe; peÖÉÍo× paÂoÔÙ ÄÉcÐÌeÑ MOV @#260,-(R6) CLR @#260 MOV #40,R1 MOV #20,R2 A1: MOVB (R1)+,-(R6) SOB R2,A1 MOV @#212,-(R6) MOV @#214,-(R6) EMT 26 MOV R1,-(R6) MOV R2,-(R6); ----------------------; ú×yËo×aÑ ÉÎÄÉËaÃÉÑ ×ÙÚo×a Help MOV #127,R3 MOV #120,R2 JSR R7,@#102062 ; ðoÇacÉÔØ Ëypcop TSTB @#56 BNE STRT MOV #232,R0 EMT 16 ; ----------------------; (X0,Y0) - ËoopÄÉÎaÔÙ ×epxÎeÇo; Ìe×oÇo yÇÌa oËÎaSTRT: MOV X0,R1 MOV Y0,R2 TST Y0 BEQ A2 MOV #4,@#256 DEC R2; ðoÚÉÃÉoÎÉpo×aÎÉe oËÎa É; oÐpeÄeÌeÎÉe aÄpeca ÎaÞaÌa; coxpaÎÑeÍoÊ ÚoÎÙ ÜËpaÎaA4: EMT 24 MOV @#160,R0 ADD #600,R0 CMP #100000,R0 BPL A3 BIC #100000,R0 ADD #40000,R0 BR A3A2: CLR @#256 BR A4A3: CLR SYM TST X0 BEQ A5 DEC R0 INC SYM; AÄpec ÂyÆepa ÄÌÑ coxpaÎeÎÉÑ ÜËpaÎaA5: MOV BUFADR,R1 ; Y-×ÙcoÔa oËÎa, ÔeËcÔo×Ùx cÔpoË MOV Y,R2 ; ----------------------; õÍÎoÖeÎÉe R2 Îa 12 (×ocØÍ.); ---------------------- ASL R2 MOV R2,R3 ASL R2 ASL R2 ADD R3,R2 ADD #4,R2 ADD @#256,R2 MOV X,R3 ; X - ÛÉÒÉÎÁ ÏËÎÁ × ÓÉÍ×ÏÌÁÈ TSTB @#40 BEQ A6 ASL R3A6: ADD SYM,R3 MOV R3,R4 BIC #177400,R4 BEQ A7 INC R3A7: MOV R3,R4A11: TST NSTR BEQ A8; CoxpaÎeÎÉe ÜËpaÎa; BORDER-Ã×eÔ paÍËÉ oËÎa (ÂaÊÔ) MOVB @R0,(R1)+ MOVB BORDER,(R0)+ BR A9; BoccÔaÎo×ÌeÎÉe ÜËpaÎaA8: MOVB (R1)+,(R0)+ A9: SOB R4,A11 ADD #100,R0 SUB R3,R0 CMP #100000,R0 BPL A10 BIC #100000,R0 ADD #40000,R0A10: SOB R2,A7 TST NSTR BEQ QUIT; TXTCOL-Ã×eÔ ÔeËcÔa × oËÎe (ÂaÊÔ); FONCOL-Ã×eÔ ÆoÎa oËÎa (ÂaÊÔ) MOV TXTCOL,@#214 MOV FONCOL,@#212 BR WORKQUIT: MOV (R6)+,R2 MOV (R6)+,R1 EMT 24; BoccÔaÎo×ÌeÎÉe peÖÉÍo× paÂoÔÙ; ÄÉcÐÌeÑ MOV (R6)+,@#214 MOV (R6)+,@#212 MOV #60,R1 MOV #20,R2A13: MOVB (R6)+,-(R1) SOB R2,A13; ðoÄËÌÀÞeÎÉe Help-ÄpaÊ×epa; É ×ÙxoÄ MOV (R6)+,@#260 RTS R7 ;WORK: MOV TXTHLP,R5 ; TXTHLP-aÄpec ÎaÞaÌa Help-ÔeËcÔa CLR SYM MOV #1,R3A14: CMP R3,NSTR BEQ A16A15: CMPB LINCAR,(R5)+ ; LINCAR-ÂaÊÔ "Ðepe×oÄ cÔpoËÉ" BNE A15 CMPB ENDTXT,@R5 ; ENDTXT-ÂaÊÔ "ËoÎeÃ ÔeËcÔa" BEQ A17 INC R3 BR A14A17: DEC NSTR BR KOMMNDA16: MOV #40,R0 MOV Y0,R2 MOV R2,R4 ADD Y,R4A18: MOV X0,R1 MOV X,R3 EMT 24A19: EMT 16 SOB R3,A19 INC R2 CMP R4,R2 BNE A18 MOV X0,R1 MOV Y0,R2A20: EMT 24 MOV TRIM,R4 BEQ A23A21: CMPB LINCAR,(R5)+ BEQ A22 SOB R4,A21A23: CLR R4A235: MOVB (R5)+,R0 BIC #177400,R0 CMPB R0,LINCAR BNE A24A22: INC SYM CMP SYM,Y BGE KOMMND CMPB ENDTXT,@R5 BEQ KOMMND INC R2 BR A20A24: CMP R4,X BGE A236 EMT 16 INC R4 BR A235A236: CMPB (R5)+,LINCAR BNE A236 BR A22KOMMND: CLR SYM EMT 6 ; B×oÄ ËoÍaÎÄÙ ÐoÌØÚo×aÔeÌÑ; ESC-ËoÄ ËÌa×ÉÛÉ ×ÙxoÄa CMPB R0,ESC BNE A30 CLR NSTR JMP STRTA30: CMPB R0,#10 BNE A31 ; cÔpeÌËa ×Ìe×o:; cÄ×ÉÇ ÔeËcÔa × oËÎe Îa 1; cÉÍ×oÌ ×Ìe×o DEC TRIM BGE A32 INC TRIM BR KOMMNDA32: JMP WORKA31: CMPB R0,#31 BNE A33 ; cÔpeÌËa ×Ðpa×o:; cÄ×ÉÇ ÔeËcÔa × oËÎe Îa 1; cÉÍ×oÌ ×Ðpa×o INC TRIM JMP WORKA33: CMPB R0,#32 BNE A34 ; cÔpeÌËa ××epx:; Îa cÔpoËy ××epx DEC NSTR BNE A35 INC NSTR BR KOMMNDA35: JMP WORKA34: CMPB R0,#33 BNE A36; cÔpeÌËa ×ÎÉÚ: INC NSTR JMP WORKA36: CMPB R0,#232 BNE A37 ; AP2+cÔpeÌËa ××epx:; cÔpaÎÉÃy ÎaÚaÄ SUB Y,NSTR BGT A38A42: MOV #1,NSTRA38: JMP WORKA37: CMPB R0,#233 BNE A39 ; AP2+cÔpeÌËa ×ÎÉÚ:; cÔpaÎÉÃy ×ÐepeÄA43: JSR R7,FNDKT ; Ð/Ðp oÐpeÄeÌeÎÉÑ ËoÌÉÞecÔ×a; cÔpoË ÔeËcÔa ADD Y,NSTR SUB Y,R0 INC R0 CMP NSTR,R0 BLE A40 MOV R0,NSTRA40: JMP WORKA39: CMPB R0,#230 BNE A41 ; AP2+cÔpeÌËa ×Ìe×o:; × ÎaÞaÌo ÔeËcÔa BR A42A41: CMPB R0,#231 BNE KOMMND ; AP2+cÔpeÌËa ×Ðpa×o:; × ËoÎeÃ ÔeËcÔa MOV #77777,NSTR SUB Y,NSTR DEC NSTR BR A43 ;FNDKT: MOV TXTHLP,R5 CLR R0A45: CMPB LINCAR,(R5)+ BNE A45 INC R0 CMPB ENDTXT,@R5 BNE A45 RTS R7;; ðoÄÐpoÇpaÍÍa ×ÙÞÉcÌeÎÉÑ ÐepeÍeÝaeÍoÇo aÄpeca; (ÄÌÑ yÄoÂcÔ×a ÐepeÎeceÎa × ËoÎeÃ ÌÉcÔÉÎÇa)ADR0: MOV @R6,R0 ADD @R0,R0 ADD #2,@R6 RTS R7;; BcÐoÍoÇaÔeÌØÎÙe ÑÞeÊËÉSYM: .#0TRIM: .#0NSTR: .#0;; âÌoË ÐapaÍeÔpo×HELP: .#3 ; ×ÙÚo× oËÎa Ðo KTESC: .#3 ; oÔÍeÎa Ðo KTX0: .#1 Y0: .#1 ; Ðo yÍoÌÞaÎÉÀ - Ìe×ÙÊ ×epxÎÉÊ; yÇoÌ ÜËpaÎaX: .#12Y: .#5; oËÎo paÚÍepa 10*2BUFADR: .#30000; âyÆep Ðo aÄpecaÍ 33000-40000BORDER: .#52525 ; CÉÎÑÑ paÍËaTXTCOL: .#177777 ; KpacÎÙÊ ÔeËcÔFONCOL: .#0 ; þepÎÙÊ ÆoÎTXTHLP: .#0LINCAR: .#242 ; "þep×É" (AP2+â), ËoÄ 242ENDTXT: .#264 ; "KpecÔÉ" (AP2+T), ËoÄ 264;; KoÎeÃ ÂÌoËa ÐapaÍeÔpo×;-----------------------