; SCREW SUPER HELP - 92.; õceÎËo× ä.à. MOCKBA 1992; HELP- ÄpaÊ×ep ÄÌÑ âeÊcÉËa (yÌyÞÛeÎÎÙÊ).; =============================================================;START$: JSR R7,ADR0 .@USR0 MOV R0,@#2100 ; DEF USR0 JSR R7,ADR0 .@USR1 MOV R0,@#2102 ; DEF USR1 MOV #3,R1B3: MOV #100,R2 ; ÔpoeËpaÔÎÙÊ MOV #200,R3 ; Ú×yËo×oÊ JSR R7,@#102062 ; cÉÇÎaÌ SOB R1,B3 RTS R7;USR0: JSR R7,ADR0 ; USR0() - ycÔaÎa×ÌÉ×aeÔ .@TXTHLP ; Help-ÄpaÊ×ep Îa ÔeËcÔ, pac- TST @R5 ; ÐoÌoÖeÎÎÙÊ Ðo yËaÚaÎÎoÍy aÄpecy. BEQ B1 ; MOV @R5,@R0 ; USR0(0%) - cÂpacÙ×aeÔ Help-ÄpaÊ×ep JSR R7,ADR0 ; É ×oÚ×paÝaeÔ aÄpec ÎaÞaÌa ÂÌoËa .@STDRV$ ; ÐapaÍeÔpo× (ÄÌÑ ÉcÐoÌØÚo×aÎÉÑ MOV R0,@#260 ; oÐepaÔopo× POKE) RTS R7B1: CLR @#260 JSR R7,ADR0 .@HELP MOV R0,@R5 RTS R7;USR1: JSR R7,ADR0 ; úaÄaÎÉe ÐapaÍeÔpo× ([...] - ÎeoÂÑ- .@X0 ; ÚaÔeÌØÎÙÊ ÔeËcÔ): MOV @R5,R1 ; MOV R6,R2 ; A%=X0%=[(Y0%=[(X%=[(Y%=[(BUFADR%= ADD #4,R2 ; [(BORDER%=[(TXTCOL%=[(FONCOL%=]]]]]]B2: MOV (R2)+,(R0)+ ; ]USR1(<ËoÌ-×o ÐapaÍeÔpo×, ÚaÄa×aeÍÙx SOB R1,B2 ; × ÜÔoÊ cÔpoËe>%) RTS R7 ;;ADR0: MOV @R6,R0 ; cÔaÎÄapÔÎaÑ Ð/Ðp ×ÙpaÂoÔËÉ aÂcoÌÀÔÎo- ADD @R0,R0 ; Ço aÄpeca Ðo cÍeÝeÎÉÀ (.@...) ADD #2,@R6 RTS R7;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 MOV @#260,-(R6) ; ------------------------------------ CLR @#260 ; MOV #40,R1 ; OÔËÌÀÞeÎÉe ÄpaÊ×epa oÔ caÍoÇo ceÂÑ MOV #20,R2 ;A1: MOVB (R1)+,-(R6) ; É coxpaÎeÎÉe × cÔeËe peÖÉÍo× SOB R2,A1 ; MOV @#212,-(R6) ; paÂoÔÙ ÄÉcÐÌeÑ MOV @#214,-(R6) ; EMT 26 ; MOV R1,-(R6) ; MOV R2,-(R6) ; ------------------------------------ MOV #127,R3 ; MOV #120,R2 ; ú×yËo×aÑ ÉÎÄÉËaÃÉÑ ×ÙÚo×a Help. JSR R7,@#102062 ; TSTB @#56 ; ðoÇacÉÔØ Ëypcop BNE STRT ; MOV #232,R0 ; EMT 16 ;; ------------------------------------------------------------STRT: MOV X0,R1 ; (X0,Y0) - ËoopÄÉÎaÔÙ ×epxÎeÇo MOV Y0,R2 ; Ìe×oÇo yÇÌa oËÎa TST Y0 BEQ A2 MOV #4,@#256 DEC R2A4: EMT 24 ; ðoÚÉÃÉoÎÉpo×aÎÉe oËÎa É oÐpeÄeÌeÎÉe MOV @#160,R0 ; aÄpeca ÎaÞaÌa coxpaÎÑeÍoÊ ÚoÎÙ ADD #600,R0 ; ÜËpaÎa 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 SYMA5: MOV BUFADR,R1 ; AÄpec ÂyÆepa ÄÌÑ coxpaÎeÎÉÑ ÜËpaÎa MOV Y,R2 ; Y-×ÙcoÔa oËÎa, ÔeËcÔo×Ùx cÔpoË ASL R2 ; ------------------------------------ MOV R2,R3 ; ASL R2 ; õÍÎoÖeÎÉe R2 Îa 12 (×ocØÍ.) ASL R2 ; ADD R3,R2 ; ------------------------------------- ADD #4,R2 ADD @#256,R2 MOV X,R3 ; X-ÛÉpÉÎa oËÎa, cÉÍ×oÌo× ÔeËcÔa 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 MOVB @R0,(R1)+ ; CoxpaÎeÎÉe ÜËpaÎa MOVB BORDER,(R0)+ ; BORDER-Ã×eÔ paÍËÉ oËÎa (ÂaÊÔ) BR A9A8: MOVB (R1)+,(R0)+ ; BoccÔaÎo×ÌeÎÉe ÜËpaÎaA9: 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 MOV TXTCOL,@#214 ; TXTCOL-Ã×eÔ ÔeËcÔa × oËÎe (ÂaÊÔ) MOV FONCOL,@#212 ; FONCOL-Ã×eÔ ÆoÎa oËÎa (ÂaÊÔ) BR WORKQUIT: MOV (R6)+,R2 MOV (R6)+,R1 EMT 24 MOV (R6)+,@#214 ; BoccÔaÎo×ÌeÎÉe peÖÉÍo× paÂoÔÙ MOV (R6)+,@#212 ; ÄÉcÐÌeÑ MOV #60,R1 MOV #20,R2A13: MOVB (R6)+,-(R1) SOB R2,A13 MOV (R6)+,@#260 ; ðoÄËÌÀÞeÎÉe Help-ÄpaÊ×epa RTS R7 ; É ×ÙxoÄ;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ÌÑ CMPB R0,ESC ; ESC-ËoÄ ËÌa×ÉÛÉ ×ÙxoÄa BNE A30 CLR NSTR JMP STRTA30: CMPB R0,#10 ; cÔpeÌËa ×Ìe×o: BNE A31 ; cÄ×ÉÇ ÔeËcÔa × oËÎe Îa 1 DEC TRIM ; cÉÍ×oÌ ×Ìe×o BGE A32 INC TRIM BR KOMMNDA32: JMP WORKA31: CMPB R0,#31 ; cÔpeÌËa ×Ðpa×o: BNE A33 ; cÄ×ÉÇ ÔeËcÔa × oËÎe Îa 1 INC TRIM ; cÉÍ×oÌ ×Ðpa×o JMP WORKA33: CMPB R0,#32 ; cÔpeÌËa ××epx: BNE A34 ; Îa cÔpoËy ××epx DEC NSTR BNE A35 INC NSTR BR KOMMNDA35: JMP WORKA34: CMPB R0,#33 ; cÔpeÌËa ×ÎÉÚ: BNE A36 INC NSTR JMP WORKA36: CMPB R0,#232 ; AP2+cÔpeÌËa ××epx: BNE A37 ; cÔpaÎÉÃy ÎaÚaÄ SUB Y,NSTR BGT A38A42: MOV #1,NSTRA38: JMP WORKA37: CMPB R0,#233 ; AP2+cÔpeÌËa ×ÎÉÚ: BNE A39 ; cÔpaÎÉÃy ×ÐepeÄA43: JSR R7,FNDKT ; Ð/Ðp oÐpeÄeÌeÎÉÑ ËoÌÉÞecÔ×a cÔpoË ADD Y,NSTR ; ÔeËcÔa SUB Y,R0 INC R0 CMP NSTR,R0 BLE A40 MOV R0,NSTRA40: JMP WORKA39: CMPB R0,#230 ; AP2+cÔpeÌËa ×Ìe×o: BNE A41 ; × ÎaÞaÌo ÔeËcÔa BR A42A41: CMPB R0,#231 ; AP2+cÔpeÌËa ×Ðpa×o: BNE KOMMND ; × ËoÎeÃ ÔeËcÔa MOV #77777,NSTR ; SUB Y,NSTR ; CÄeÌaÔØ ÔaË, ÞÔoÂÙ ycÌo×Ée "NSTR+Y DEC NSTR ; ÂoÌØÛe ËoÌ-×a cÔpoË × ÔeËcÔe" BR A43 ; ×ceÇÄa ×ÙÐoÌÎÑÌocØ.;FNDKT: MOV TXTHLP,R5 CLR R0A45: CMPB LINCAR,(R5)+ BNE A45 INC R0 CMPB ENDTXT,@R5 BNE A45 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 ; Ðo yÍoÌÞaÎÉÀ - Ìe×ÙÊ ×epxÎÉÊY0: .#1 ; yÇoÌ ÜËpaÎa;X: .#10 ; oËÎo paÚÍepa 10*2Y: .#2 ;BUFADR: .#33000 ; â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×;