80-Bus News

  

May–June 1984, Volume 3, Issue 3











Page 37 of 51











SCRAMBLE

M-80

14 Oct 1984

20:45 PAGE

Program to scramble CP/M files using an 8-bit password.

035A 0358 0362 0366 0364 0365 03 6F 0373 0377 0373 037F 0380 0381 0381 0385 0389 03 8D 0391 0395 0396 0397 0398 0399 039C

039D 039K 039F 0340 O3AL 0342 0343 O3A4 O3A7

03A8 O3A9 O3AB O3AE O3B1 0334 03B5 03B7

O3BA O3BD O3BE O3BF 03C7 0407

63 6E 65 73 72 OA 20 68 68 63 20 27

00 6F 69 6F 2E 24 13 Fl 3D C2 cg

TE 12 23 13 OB 78 Bl C2 Cc

DI OE cD cD oD DL OE cD

F9 c9

65 20 69 20 74 68 20 70 61 73’77 *6F 64 2E OD

20 20 54 65 20 63

61 72 61 74 65 72

27 20 64 65 73 20

75 72 73 20 2B 2B

0322

039D

09

0005 O3B4 OA 24

0005

0407

defb

defb dupehar: defb

ekndup: inc pop dec

dp ret

1-7

‘ The character

eee

$-$,’’” does in

de af

a nz,ckdlp

+ Move subroutines

if mover: ld 1d ine ine dec 1d or dp ret endif

mf

a, (hl) (de) ,a hi

de

be

a,b

e nz,mover

-

yours. ++$’

%

s

Get count

Ok, not 3 dup

Macro expansion flag set?

; Exit with “informational” message

exit: pop ld eall eall defb

exiti: pop ld call

de c,print bdos exitl er,1lf£,"$” de c,print bdos

>

Get msg

; Exit, restoring stack amd return

ld

ld

ret passwd: defs defs defs end

stack:

hi ,( stack) sp,hl

8 40h 2

To cep Password kept here Stack area

SCRAMBLE

Macros: CPM

Symbols: 6666 0000 0396 00D 0348 006Cc O1B6 FFFF 039D O3BF 0300 0212 OLA4 0122 0054

EXIT FCB2 FINIS MF

M-80

MOVE

H

MOVER

PASSW!

iD

PSEULPI

RDSEC

T

SCRAMLP

START YEAR

14 Oct 1984 Program to scramble CP/M files using an 8-bit password.

0260 0322 0010 0381 O3B4 0068 OLDB 0134 OOOF 0009 02F8 0014 0256 0015

20:45

BACKUP

CKDLP CLOSE

DUPCHAR

EXITL FCBEXT

FINISHL

MIXUP OPEN PRINT

PSEURAN

SCRLP WRITE

PAGE 8

0005 BDOS O31B CKDUP o00D CR

0173 DUPTEST oo5c FCB 007c FCBRNO 000A uF

000A MONTH 02BB OPEN20K O2FA PSEULPO 0162 PWIS8 0253 SCRAMBL 0407 STACK 02C1 WRSECT

PLP handshaking interface

0003 0004 0005

00007

0100 0103 0106 0109 O10A O10c O10F 0112 0113 OLLS 0118 0119 Ol1A O1Lc OlIF O121 0124

c3 c3 c3

OE cD 32 SF OE cD

59 OE cD OE cD cg

O04CE OLOA 0119

03 0005 0109 04 0005 04 0005

0005

M-80

17 Oct 1984

21:51 PAGE 1

Title PIP handshaking interface

-z80

; CP/M equates

rdrin punout bdos

buf: recy:

txmit:

equ equ equ

aseg org

jp jp ip defs 1d call ld ld 1d call ret 1d 1d call 1d call ret end

3 4 0005h

100h

O4ceh recy tamit

1 c,rdrin bdos (buf) ,a e,a c,punout bdos

e,c c,punout bdos e,rdrin bdos

Reader input Punch out put BDOS call

Jump into start of PIP Receive a character

Send a character

Temp. space for rx“d byte Get a character from RDR:

Put it in buffer

Echo it straight out ... see through PUN:

Send a character to PUN:

Wait for the echo

Echo received, all done.

37


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 37 of 51