Machine language utility. Routines included are REM line generator, delete lines, line address, line length, string address, copy (LDIR and LDDR), IN, OUT, change RAMTOP, and more.
Related Products
Machine language utility. Routines included are REM line generator, delete lines, line address, line length, string address, copy (LDIR and LDDR), IN, OUT, change RAMTOP, and more.
Gallery
Source Code
1 REM \2A\1A\40\E5\DF\23\E5\FE\D8\20\60\D6\62\4F\E7\CD\B4\07\22\16\40\B9\28\04\FE\D8\20\F2\79\23\D1\CD\17\0A\E5\F7\E1\ED\B0\2B\BE\28\06\1B\12\23\E5\18\DC\0C\F7\77\57\1E\01\E1\22\16\40\DF\FE\2D\D5\20\2C\16\04\15\E7\D6\1C\38\22\FE\10\30\1E\CB\42\28\0C\A7\CB\17\CB\17\CB\17\CB\17\5F\18\E6\83\CB\4A\28\03\47\18\DE\4F\E7\D1\BA\28\09\CF\0D\CD\92\0D\CD\A7\0E\D1\E7\1C\CB\53\20\06\C5\BA\28\F7\18\BC\2A\02\40\2B\3E\0A\BE\20\FA\3E\C6\2B\BE\20\F5\3E\10\2B\BE\20\EF\23\36\C3\23\36\00\D1\E1\C9\CD\E7\02\21\62\FF\09\CD\CA\0A\E5\C5\EB\21\F0\D8\19\30\02\CF\0B\EB\CD\D8\09\2B\C1\03\03\C5\03\03\03\03\CD\9E\09\C1\D1\23\23\E5\72\23\73\23\71\23\70\23\36\EA\0B\0B\23\36\00\78\B1\20\F8\36\75\34\2A\07\40\CB\74\28\02\26\28\23\CD\D8\09\22\29\40\CD\07\02\C1\C9\CD\E7\02\21\0D\FF\09\CD\CA\0A\EB\21\F0\D8\09\38\05\ED\42\19\30\02\CF\0B\60\69\CD\17\0A\38\FB\13\D5\CD\D8\09\D1\E5\EB\CD\D8\09\D1\CD\5D\0A\2A\07\40\CB\74\28\02\26\28\23\CD\D8\09\22\29\40\CD\07\02\C9\CD\E7\02\21\CB\FE\09\CD\CA\0A\ED\B0\D5\CD\07\02\C1\C9\CD\E7\02\21\B9\FE\09\CD\CA\0A\ED\B8\D5\CD\07\02\C1\C9\21\A7\FE\09\CD\CA\0A\CD\D8\09\44\4D\C9\21\9A\FE\09\CD\CA\0A\EB\21\F0\D8\09\38\05\ED\42\19\30\02\CF\0B\60\69\CD\17\0A\38\FB\13\D5\CD\D8\09\D1\E5\EB\CD\D8\09\D1\CD\17\0A\C9\21\6E\FE\09\CD\CA\0A\ED\48\06\00\C9\21\62\FE\09\CD\CA\0A\44\4D\ED\59\C9\21\56\FE\09\CD\CA\0A\2A\04\40\A7\ED\72\E5\C1\2A\04\40\EB\22\04\40\ED\42\F9\EB\ED\42\ED\B0\1B\1B\1B\1B\ED\53\02\40\C9\CD\E7\02\DF\FE\D8\28\02\CF\0D\E7\2A\14\40\FE\35\20\05\11\09\40\18\0A\FE\3B\28\02\CF\0E\ED\5B\10\40\D5\ED\52\E5\F5\E7\21\2F\FE\09\CD\CA\0A\F1\77\23\C1\71\23\70\23\EB\E1\ED\B0\D5\CD\07\02\C1\C9\CD\E7\02\DF\FE\D8\28\02\CF\0D\E7\F5\E7\21\EF\FD\09\CD\CA\0A\F1\FE\35\20\08\BE\20\0C\11\09\40\18\0D\FE\3B\20\03\BE\28\02\CF\0E\ED\5B\10\40\23\4E\23\46\23\E5\D5\EB\CD\C8\0E\D1\E1\ED\B0\ED\53\14\40\C3\5B\00 2 REM 100 REM .....KAPKIT (KK)..... 110 REM 120 REM S = KK STARTING ADDRESS 130 REM S = 16514 140 REM 150 REM ADDR = ADDRESS 160 REM SOURCE = SOURCE ADDR 170 REM DEST = DESTINATION ADDR 180 REM 190 REM KK TOTAL BYTES = 597 200 REM 210 REM DOUBLE ASTERISKS (**) 220 REM ARE "RAISED TO THE 230 REM POWER OF" (SHIFT-"H") 235 REM 240 REM ...HOW TO USE KK... 245 REM 250 REM --REM GEN-- (S + 158) 260 REM 270 REM LET ADDR=5+USR 16672** 280 REM LINE NO.**SPACES 290 REM 300 REM --DELETE-- (S + 243) 310 REM 320 REM RAND USR 16757**LINE 330 REM NO. 340 REM 350 REM RAND USR 16757**1ST 360 REM LINE NO.**2ND LINE NO. 370 REM 380 REM --LDIR-- (S + 309) 390 REM 400 REM RAND USR 16823**SOURCE 410 REM **DEST**NO. OF BYTES 420 REM 430 REM --LDDR-- (S + 327) 440 REM 450 REM RAND USR 16841**SOURCE 460 REM **DEST**NO. OF BYTES 470 REM 480 REM --LINADDR-- (S + 345) 490 REM 500 REM LET ADDR=USR 16859** 510 REM LINE NO. 520 REM 530 REM --LINLEN-- (S + 358) 540 REM 550 REM LET LENGTH=USR 16872** 560 REM LINE NO. 570 REM 580 REM LET LENGTH=USR 16872** 590 REM 1ST LINE NO.**2ND LINE 600 REM NO. 610 REM 620 REM --IN-- (S + 402) 630 REM 640 REM LET A=USR 16916**PORT 650 REM 660 REM --OUT-- (S + 414) 670 REM 680 REM RAND USR 16928**PORT** 690 REM DATA 700 REM 710 REM --RAMTOP-- (S + 426) 720 REM 730 REM RAND USR 16940**NEW 740 REM RAMTOP 750 REM 760 REM --RAMSAVE-- (S + 465) 770 REM 780 REM (PROGRAM): RAND USR 790 REM 16979**P**DEST 800 REM 810 REM (VARIABLES): RAND USR 820 REM 16979**V**DEST 830 REM 840 REM --RAMLOAD-- (S + 529) 850 REM 860 REM (PROGRAM): RAND USR 870 REM 17043**P**SOURCE 880 REM 890 REM (VARIABLES): RAND USR 900 REM 17043**V**SOURCE 910 REM 1000 REM ..LIST/SAVE/RELOCATE.. 1005 CLS 1010 PRINT TAB 11;"KAPKIT 1000",,, 1015 SLOW 1020 PRINT "1. LIST",,,,"2. SAVE",,,,"3. RELOCATE",,,, 1030 LET A$=INKEY$ 1040 IF A$="1" THEN LIST 100 1045 IF A$="2" THEN GOTO 2000 1050 IF A$<>"3" THEN GOTO 1030 1060 PRINT AT 21,3;"INPUT NEW STARTING ADDRESS" 1070 INPUT S 1080 FAST 1090 RAND USR 16823**16514**S**597 1100 LET C=25 1110 CLS 1190 PRINT "R O U T I N E";TAB C;"U S R" 1200 PRINT ,,"REM GENERATOR";TAB C;S+158 1210 PRINT ,,"DELETE LINE(S)";TAB C;S+243 1220 PRINT ,,"LDIR (COPY BOTTOM-UP)";TAB C;S+309 1230 PRINT "LDDR (COPY TOP-DOWN)";TAB C;S+327 1240 PRINT ,,"LINE ADDRESS";TAB C;S+345 1250 PRINT ,,"LINE(S) LENGTH";TAB C;S+358 1260 PRINT ,,"IN";TAB C;S+402 1270 PRINT "OUT";TAB C;S+414 1280 PRINT ,,"CHANGE RAMTOP";TAB C;S+426 1290 PRINT ,,"RAMSAVE";TAB C;S+465 1300 PRINT "RAMLOAD";TAB C;S+529 1310 STOP 2000 REM ......SAVE...... 2010 CLS 2020 PRINT "PRESS ANY KEY TO SAVE ""KK""" 2030 PAUSE 4E4 2040 SAVE "K%K" 2050 RUN 3000 REM ...DECIMAL OFFSET... 3010 REM 3020 PRINT "IIS STARTING ADDRESS? "; 3030 INPUT A 3040 PRINT A 3050 PRINT ,,"ROUTINES STARTING ADDRESS? "; 3060 INPUT B 3070 PRINT B 3080 LET OFFSET=A-B 3090 LET OFFSET=OFFSET+(65536 AND SGN OFFSET=-1) 3100 PRINT ,,"OFFSET = ";OFFSET 3110 RAND OFFSET 3120 PRINT ,,"33,";PEEK 16434;",";PEEK 16435,"LD HL, ";OFFSET 3130 PRINT "9","ADD HL,BC" 3140 PRINT "205,202,10","CALL 2762;JP(HL)" 3150 STOP