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.
Content
Image Gallery
Source Code
1 REM
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\E5\DF\E5\FE\D8\D6F\E7\CD\B4\B9\FE\D8\F2\D1\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\E5\F7\E1\ED\B0
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B\BE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B\E5\DC
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
C\F7 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\E1\DF\FE
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
D\D5
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
C\E7\D6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"E\CB
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
C\A7\CB\CB\CB\CBF\E6\CBA\DEF\E7\D1\BA\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
D\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
D\CD\A7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
E\D1\E7 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\CB\C5\BA\F7\BC
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
BE
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\BE\FAE\C6
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B\BE\F5E
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B\BE\EF\C3
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\D1\E1\C9\CD\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\FF\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\E5\C5\EB\F0\D8
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B\EB\CD\D8
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B\C1\C5\CDE\C1\D1\E5\EA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\B1\F8
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\CB
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CD\D8\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\C1\C9\CD\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
D\FF\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\EB\F0\D8\ED
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\FB\D5\CD\D8\D1\E5\EB\CD\D8\D1\CDD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\CB
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CD\D8\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\C9\CD\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CB\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\ED\B0\D5\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\C1\C9\CD\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\B9\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\ED\B8\D5\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\C1\C9\A7\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\CD\D8D\C9A\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\EB\F0\D8\ED
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
B\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\FB\D5\CD\D8\D1\E5\EB\CD\D8\D1\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\C9E\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\ED
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\C9\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
AD\ED\C9\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\A7\ED\E5\C1
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\EB\ED\F9\EB\ED\ED\B0 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58404 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B\ED
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\C9\CD\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\DF\FE\D8
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
D\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\FE
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\FEB
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
E\EDB\D5\ED\E5\F5\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
F\FE\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\F1\C1\EB\E1\ED\B0\D5\CD
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\C1\C9\CD\E7
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\DF\FE\D8
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
D\E7\F5\E7\EF\FD\CD\CA
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
A\F1\FE\BE
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
C
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
D\FEB\BE
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
\CF
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
E\EDBE\E5\D5\EB\CD\C8
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
E\D1\E1\ED\B0\ED\C3B
Skip to content
KAPKIT 1000
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.
Content
Image 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
People
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
\n1000 REM ..LIST/SAVE/RELOCATE..
\n1005 CLS
\n1010 PRINT TAB 11;"KAPKIT 1000",,,
\n1015 SLOW
\n1020 PRINT "1. LIST",,,,"2. SAVE",,,,"3. RELOCATE",,,,
\n1030 LET A$=INKEY$
\n1040 IF A$="1" THEN LIST 100
\n1045 IF A$="2" THEN GOTO 2000
\n1050 IF A$<>"3" THEN GOTO 1030
\n1060 PRINT AT 21,3;"INPUT NEW STARTING ADDRESS"
\n1070 INPUT S
\n1080 FAST
\n1090 RAND USR 16823**16514**S**597
\n1100 LET C=25
\n1110 CLS
\n1190 PRINT "R O U T I N E";TAB C;"U S R"
\n1200 PRINT ,,"REM GENERATOR";TAB C;S+158
\n1210 PRINT ,,"DELETE LINE(S)";TAB C;S+243
\n1220 PRINT ,,"LDIR (COPY BOTTOM-UP)";TAB C;S+309
\n1230 PRINT "LDDR (COPY TOP-DOWN)";TAB C;S+327
\n1240 PRINT ,,"LINE ADDRESS";TAB C;S+345
\n1250 PRINT ,,"LINE(S) LENGTH";TAB C;S+358
\n1260 PRINT ,,"IN";TAB C;S+402
\n1270 PRINT "OUT";TAB C;S+414
\n1280 PRINT ,,"CHANGE RAMTOP";TAB C;S+426
\n1290 PRINT ,,"RAMSAVE";TAB C;S+465
\n1300 PRINT "RAMLOAD";TAB C;S+529
\n1310 STOP
\n2000 REM ......SAVE......
\n2010 CLS
\n2020 PRINT "PRESS ANY KEY TO SAVE ""KK"""
\n2030 PAUSE 4E4
\n2040 SAVE "K%K"
\n2050 RUN
\n3000 REM ...DECIMAL OFFSET...
\n3010 REM
\n3020 PRINT "IIS STARTING ADDRESS? ";
\n3030 INPUT A
\n3040 PRINT A
\n3050 PRINT ,,"ROUTINES STARTING ADDRESS? ";
\n3060 INPUT B
\n3070 PRINT B
\n3080 LET OFFSET=A-B
\n3090 LET OFFSET=OFFSET+(65536 AND SGN OFFSET=-1)
\n3100 PRINT ,,"OFFSET = ";OFFSET
\n3110 RAND OFFSET
\n3120 PRINT ,,"33,";PEEK 16434;",";PEEK 16435,"LD HL, ";OFFSET
\n3130 PRINT "9","ADD HL,BC"
\n3140 PRINT "205,202,10","CALL 2762;JP(HL)"
\n3150 STOP
