ô >link/s ô Syntax: link (OFF) : (base%=&FC80 2 ã P=0 ¸ 1 < P%=&900 F [OPT P*3 P JSR old ZPHA:TYA:PHA:TXA:PHA dLDA #&86:JSR &FFF4 nCPY #4:BCS ignore x JSR disp ‚ .ignore ŒPLA:TAX:PLA:TAY:PLA –RTS  .old ªJMP (oldv) ´ .disp ¾LDA #2:JSR comm ÈLDX #0:LDY #0:.loop ÒLDA &7C50,X:JSR data Ü INX:INY æCPY #40:BNE next ð .loop2 úLDA #32:JSR data INY:CPY #64:BNE loop2  LDY #0  .next "CPX #80:BNE loop ,LDA #2:JSR commX 6LDX #0:LDY #0:.loopX @LDA &7C00,X:JSR dataX J INX:INY TCPY #40:BNE nextX ^ .loop2X hLDA #32:JSR dataX rINY:CPY #64:BNE loop2X | LDY #0 † .nextX CPX #80:BNE loopX šRTS ¤ .commX ®BIT base%+2:BMI commX ¸STA base%+2:LDA #13:.comm2X ÂBIT base%+2:BMI comm2X ÌSTA base%+2:RTS Ö .dataX àBIT base%+2:BMI dataX êSTA base%+3:RTS ô .comm þBIT base%+0:BMI comm STA base%+0:LDA #13:.comm2 BIT base%+0:BMI comm2 STA base%+0:RTS & .data 0BIT base%+0:BMI data :STA base%+1:RTS D.go NLDA #1:LDX #&A8:LDY #0 XJSR &FFDA:LDA (&A8),Y bCMP #13:BEQ link_on lLDA oldv:STA &20E vLDA oldv+1:STA &20F €RTS Š .link_on ”LDA &20E:STA oldv žLDA &20F:STA oldv+1 ¨LDA #0:STA &20E ²LDA #9:STA &20F ¼RTS Æ .oldv Ð]í Ú<ñ"*SAVE link FFFF0900 ";~P%„&FFFF0000;" ";~go „&FFFF0000 ÿ