Teil 3 meiner EXAPUNKS-Lösungen, Level 21-30
21 - Valhalla
Cycles: - / Size: - / Activity: -
; EXA 'XA' ; WAIT AND KILL LINK 800 LINK -1 @REP 16 NOOP @END KILL ; TAKE OVER HOSTS COPY 1 #CTRL @REP 8 LINK 800 COPY 1 #CTRL @END HALT
22 - Mitsuzen HDI-10
Cycles: 267 / Size: 63 / Activity: 502
; EXA 'XA' LINK 800 MARK LOOP @REP 2 LINK -3 NOOP @END COPY #NERV X @REP 4 LINK 3 NOOP @END COPY X #NERV @REP 2 LINK -3 NOOP @END JUMP LOOP
; EXA 'XB' LINK 800 MARK LOOP @REP 3 LINK 3 @END NOOP COPY #NERV X @REP 6 LINK -3 @END NOOP NOOP COPY X #NERV @REP 3 LINK 3 @END NOOP JUMP LOOP
; EXA 'XC' LINK 800 MARK LOOP @REP 4 LINK 3 @END COPY #NERV X @REP 8 LINK -3 @END COPY X #NERV @REP 4 LINK 3 @END JUMP LOOP
23 - Sawayama Wonderdisc
Cycles: 6454 / Size: 46 / Activity: 63
; EXA 'RD' ;AUTH CODE ; 803271049512526 ;UNLINK DEVICE LINK 800 COPY 8 #AUTH COPY 0 #AUTH COPY 3 #AUTH COPY 2 #AUTH COPY 7 #AUTH COPY 1 #AUTH COPY 0 #AUTH COPY 4 #AUTH COPY 9 #AUTH COPY 5 #AUTH COPY 1 #AUTH COPY 2 #AUTH COPY 5 #AUTH COPY 2 #AUTH COPY 6 #AUTH ; READ TRACK LINK 801 MARK LOOP GRAB M MARK LOOPTRACK COPY F M TEST EOF FJMP LOOPTRACK DROP JUMP LOOP
; EXA 'WR' ; READ CODE GRAB 300 COPY F X DROP ; READ TRACK LINK 800 MARK LOOP COPY #TRAK M MAKE MARK LOOPTRACK COPY M F SEEK -1 TEST F > 0 TJMP CONT SEEK -1 COPY X F MARK CONT TEST MRD TJMP LOOPTRACK ; DELIVER FILE LINK 800 DROP LINK -1 JUMP LOOP
24 - Alliance Power and Light
Cycles: 41 / Size: 43 / Activity: 39
; EXA 'XA' GRAB 300 LINK 800 ; SEARCH FIRST HOST COPY F X REPL ROW2 REPL ROW3 REPL ROW4 ; SEARCH SECOND HOST COPY F X REPL ROW2 REPL ROW3 REPL ROW4 ; DESTROY ORIGINAL EXA WIPE HALT MARK ROW2 LINK 800 REPL ROW1 JUMP CHECK MARK ROW1 LINK 800 JUMP CHECK MARK ROW3 JUMP CHECK MARK ROW4 LINK 802 REPL ROW5 JUMP CHECK MARK ROW5 LINK 802 JUMP CHECK MARK CHECK HOST T TEST T = X TJMP FOUND LINK 801 JUMP CHECK MARK FOUND ; DON'T #POWR TOO EARLY @REP 7 NOOP @END COPY 0 #POWR
25 - Deadlock's Domain
Cycles: - / Size: - / Activity: -
; EXA 'XA' LINK 800 LINK 802 LINK 799 KILL HALT
; EXA 'XB' MARK LOOP LINK 800 LINK 801 GRAB #FILE LINK -1 LINK -1 DROP JUMP LOOP
26 - Xtreme League Baseball
Cycles: 260 / Size: 62 / Activity: 2
; EXA 'CA' LINK 800 MARK LOOPACTIVE ; GET FILE FROM PL MODE COPY M X TEST X = -9999 TJMP FINISH GRAB X ; TRANSFER NAME TO WR MODE COPY F M COPY F X ADDI X F X ADDI X F X DIVI X 3 X COPY F T MULI T F T DIVI T F T ADDI X T X COPY F T SUBI T F T MULI T 20 T ADDI X T X DROP ; TRANSFER SCORE TO WR COPY X M JUMP LOOPACTIVE MARK FINISH MODE COPY -9999 M HALT
; EXA 'PL' ; PROCESS PLAYER LIST MODE LINK 800 GRAB 199 MARK LOOPFILE COPY F M TEST EOF FJMP LOOPFILE COPY -9999 M HALT
; EXA 'WR' MAKE COPY M F COPY M F MARK LOOP ; CHECK IF FINISHED COPY M X TEST X = -9999 TJMP FINISH COPY X F COPY M X SEEK -2 TEST X > F TJMP BETTER VOID F JUMP LOOP MARK BETTER SEEK -2 VOID F VOID F SEEK 1 COPY X F JUMP LOOP MARK FINISH SEEK -1 VOID F HALT
27 - King's Ransom Online
Cycles: 56 / Size: 42 / Activity: 25
; EXA 'XA'
; GET DESTINATION ID
MODE
GRAB 300
COPY F X
DROP
LINK 800
; PROCESS HOST
@REP 6
COPY @{800,1} T
REPL ENTERHOST
@END
HALT
MARK ENTERHOST
LINK T
; KILL PLAYER EXAS
@REP 3
KILL
@END
; NOOP UNTIL ALL KILLED
@REP 7
NOOP
@END
; ALWAYS START WITH 200
COPY 200 T
MARK EDITOR
GRAB T
SEEK 2
COPY X F
MARK LOOPFILE
COPY F T
REPL EDITOR
TEST EOF
FJMP LOOPFILE
DROP
HALT
28 - KGOG TV
Cycles: 889 / Size: 99 / Activity: 10
; EXA 'CA' ; CALCULATOR LINK 800 LINK 799 MODE ; WAIT FOR WORK MARK LOOP TEST MRD FJMP LOOP ; TEMPORARY FILE MAKE COPY M F COPY M F ; PREVENT OVERFLOW IN 4 SEEK -2 SWIZ F 0004 X SWIZ F 0004 T ADDI X T X SWIZ X 1000 X ; ADD 0321 SEEK -2 SWIZ F 0321 T ADDI X T X SWIZ F 0321 T ADDI X T X ; SEND BACK RESULT COPY X M WIPE JUMP LOOP
; EXA 'CO' ; CODE SENDER LINK 800 GRAB 199 ; WAIT FOR VI MODE VOID M MODE MARK LOOPCODE ; SEE IF WE'RE FINISHED COPY M T FJMP FINISHED COPY F M TEST EOF FJMP LOOPCODE ; EOF = BACK TO START SEEK -9999 JUMP LOOPCODE MARK FINISHED HALT
; EXA 'SC' ; SATTELITE CONFIG GRAB 300 LINK 800 LINK 799 ; SET AZIMUTH SEEK 1 COPY F X REPL SETAZIM ; SET ELEVATION SEEK 1 COPY F X REPL SETELEV ; SET FREQUENCY SEEK 1 COPY F #FREQ ; SEND FINISHED COPY -9999 M WIPE HALT MARK SETAZIM LINK 800 SUBI X #AZIM X JUMP SETMOTOR MARK SETELEV LINK 801 SUBI X #ELEV X JUMP SETMOTOR MARK SETMOTOR TEST X < 0 TJMP STEPMINUS MARK STEPPLUS TEST X = 0 TJMP FINISHED COPY 1 #MOTR SUBI X 1 X JUMP STEPPLUS MARK STEPMINUS TEST X = 0 TJMP FINISHED COPY -1 #MOTR ADDI X 1 X JUMP STEPMINUS MARK FINISHED ; SEND FINISHED COPY -9999 M
; EXA 'VI' ; VIDEO PROCESSOR GRAB 301 ; SKIP TITLE SEEK 1 LINK 800 ; WAIT UNTIL SATELLITE @REP 3 VOID M @END ; START CO MODE COPY -9999 M MODE ; ON WE GO LINK 799 MARK LOOPVIDEO COPY 1 M COPY M X MODE COPY X M COPY F M COPY M #DATA MODE TEST EOF FJMP LOOPVIDEO ; SEND FINISHED COPY 0 M KILL WIPE
29 - Equity First Bank
Cycles: 309 / Size: 51 / Activity: 2
; EXA 'AN' ; MODIFY ACCOUNTS GRAB 300 ; EMBERS ACCOUNT TO X COPY F X LINK 800 LINK 800 DROP GRAB 199 MARK LOOPDEBIT ; FILE TO T COPY F T REPL MODIFYFILES ; SWITCH TO LOCAL MODE VOID M ; BACK TO GLOBAL MODE TEST EOF FJMP LOOPDEBIT ; MANIPULATE DIRECTORY SEEK 9999 COPY 300 F DROP ; SEND FINISH TO CD COPY 0 M HALT MARK MODIFYFILES GRAB T COPY F T ; ACCOUNT TO T SEEK 9999 COPY X F COPY 2 M COPY M F COPY 1 F COPY 0 F DROP GRAB 300 SEEK 9999 COPY T F COPY 1 M COPY M F COPY 1 F COPY 0 F DROP ; SEND FINISH TO PARENT MODE COPY 0 M HALT
; EXA 'CD' ; SEND CREDIT OR DEBIT GRAB 301 MARK LOOPFILE COPY M T FJMP FINISHED SEEK -9999 SUBI T 1 T SEEK T COPY F M JUMP LOOPFILE MARK FINISHED HALT
30 - The Wormhole
Cycles: - / Size: - / Activity: -
; EXA 'XA' LINK 800 MARK LOOP REPL LINK2 REPL LINK3 REPL LINK5 REPL LINK7 REPL LINK11 REPL LINK13 @REP 4 REPL SLEEP @END MARK SLEEP JUMP SLEEP MARK LINK2 LINK 2 JUMP LOOP MARK LINK3 LINK 3 JUMP LOOP MARK LINK5 LINK 5 JUMP LOOP MARK LINK7 LINK 7 JUMP LOOP MARK LINK11 LINK 11 JUMP LOOP MARK LINK13 LINK 13 JUMP LOOP