home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv018.ark / BANZAI.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  8.0 KB  |  423 lines
  1. ; 
  2. ; 
  3. ;                     BANZAI.ASM Ver.1.1
  4. ; 
  5. ;                          as of
  6. ; 
  7. ;                     September 3, 1980
  8. ; 
  9. ;  So  you  have embedded your copyright notice in your  pride 
  10. ; and joy (3000 hours, 'till 3 in the morning "super program") 
  11. ; and  have  even included serial numbers  to  discourage  the 
  12. ; "rip-off"  artists...Great,  the "rip-off" artist takes your 
  13. ; ".COM" file and puts DDT or SID to work on it,  and calls it 
  14. ; his/hers...Oh well...but WAIT...there is HOPE.
  15. ; 
  16. ;  Include  BANZAI in your source file,  reassemble  with  the 
  17. ; appropriate copyright notice and serial number, and wait for 
  18. ; the  fireworks...ANY ATTEMPT to corrupt either the copyright 
  19. ; notice  or the serial number,  will "scramble" your file  so 
  20. ; bad  on  the  disk,  that  it  will  never  be  figured  out 
  21. ; again...In  addition,  any remnent parts of the  program  in 
  22. ; memory  are  also  "clobberd",  so back-tracking  is  nearly 
  23. ; impossible...a fitting justice to the "rip-off" artist.
  24. ; 
  25. ;  Digital  Research's  macro assemble "MAC"  is  required  to 
  26. ; assemble "BANZAI.ASM".
  27. ; 
  28. ; 
  29. ;                          Best regards,
  30. ;      
  31. ;                          Kelly Smith, CP/M-NET (tm)
  32. ;                          805-527-9321 (Modem, 300 Baud)
  33. ;                          805-527-0518 (Verbal)
  34. ; 
  35. ; 
  36. ;
  37. ;DEFINE DATA MOVE MACRO: MOVE FROM,TO,LENGTH FROM MAY BE ADDR, OR QUOTED STRING
  38. ;
  39. MOVE    MACRO    ?F,?T,?L
  40.     IF    NOT NUL ?F
  41.     IRPC    ?C,?F
  42. ?Q    SET    '&?C&?C' ;;TEST FOR QUOTE
  43.     EXITM
  44.     ENDM
  45.     IF    ?Q EQ ''''
  46.     LOCAL    ?B,?Z
  47.     CALL    ?Z
  48. ?B    DB    ?F
  49. ?Z    POP    H    ;GET FROM
  50.     LXI    B,?Z-?B    ;GET LEN
  51.     ELSE
  52.     LXI    H,?F
  53.     ENDIF
  54.     ENDIF
  55.     IF    NOT NUL ?T
  56.     LXI    D,?T
  57.     ENDIF
  58.     IF    NOT NUL ?L
  59.     LXI    B,?L
  60.     ENDIF
  61.     CALL    MOVER
  62.     ENDM
  63. ;
  64. ;DEFINE CP/M MACRO - CPM FNC,PARM
  65. ;
  66. CPM    MACRO    ?F,?P
  67.     PUSH    B
  68.     PUSH    D
  69.     PUSH    H
  70.     IF    NOT NUL ?F
  71.     MVI    C,?F
  72.     ENDIF
  73.     IF    NOT NUL ?P
  74.     LXI    D,?P
  75.     ENDIF
  76.     CALL    BDOS
  77.     POP    H
  78.     POP    D
  79.     POP    B
  80.     ENDM
  81.  
  82.  
  83. ;
  84. LXIH    EQU    021H    ;DEFINE LXI H,XX TO CONFUSE DISASSEMBLERS
  85. ;
  86.  
  87.     ORG    100H
  88. ;
  89. ; INITIALIZE LOCAL STACK
  90. ; 
  91. STARTZ:LXI    H,0
  92.     DAD    SP
  93.     SHLD    STACK
  94.     LXI    SP,STACK
  95. ; 
  96. ; START OF PROGRAM EXECUTION
  97.  
  98. START:    JMP    BEGIN    ; JUMP OVER COPYRIGHT NOTICE AND SERIAL NUMBER
  99.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  100.  
  101. COPY$RIGHT:
  102.  
  103.     DB    ' Copyright 1980, by Microcosm Associates '
  104. SERIAL$NUMBER:
  105.  
  106.     DB    'UAC15234'
  107.  
  108. BEGIN:    JMP    GET$COPYRIGHT
  109.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  110. INSTR:    MOV    A,B
  111.     SUB    C
  112.     CMC
  113.     RNC
  114.     MOV    B,A
  115. INSTR1:    PUSH    B
  116.     PUSH    D
  117.     PUSH    H
  118.     JMP    GET$MATCH
  119.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  120. MATCH:    INR    C
  121. MATCH1:    DCR    C
  122.     RZ
  123.     LDAX    D
  124.     ANI    07FH    ;REVEAL HIDDEN TEXT
  125.     SUB    M
  126.     RNZ
  127.     INX    H
  128.     INX    D
  129.     JMP    MATCH1
  130.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  131. GET$MATCH:
  132.     CALL    MATCH
  133.     POP    H
  134.     POP    D
  135.     POP    B
  136.     JZ    MATCH$OK
  137.     ANA    A
  138.     DCR    B
  139.     RM
  140.     INX    H
  141.     JMP    INSTR1
  142.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  143. MATCH$OK:
  144.     MVI    B,0
  145.     DAD    B
  146.     STC
  147.     RET
  148.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  149. GET$COPYRIGHT:
  150.     LXI    H,COPY$RIGHT
  151.     MVI    B,40H
  152.     MVI    C,CHECK$COPYRIGHT-HIDDEN$COPYRIGHT
  153.     LXI    D,HIDDEN$COPYRIGHT
  154.     CALL    INSTR
  155.     JMP    CHECK$COPYRIGHT
  156.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  157. HIDDEN$COPYRIGHT:
  158.     DB    ' '+80H
  159.     DB    'C'+80H
  160.     DB    'o'+80H
  161.     DB    'p'+80H
  162.     DB    'y'+80H
  163.     DB    'r'+80H
  164.     DB    'i'+80H
  165.     DB    'g'+80H
  166.     DB    'h'+80H
  167.     DB    't'+80H
  168.     DB    ' '+80H
  169.     DB    '1'+80H
  170.     DB    '9'+80H
  171.     DB    '8'+80H
  172.     DB    '0'+80H
  173.     DB    ','+80H
  174.     DB    ' '+80H
  175.     DB    'b'+80H
  176.     DB    'y'+80H
  177.     DB    ' '+80H
  178.     DB    'M'+80H
  179.     DB    'i'+80H
  180.     DB    'c'+80H
  181.     DB    'r'+80H
  182.     DB    'o'+80H
  183.     DB    'c'+80H
  184.     DB    'o'+80H
  185.     DB    's'+80H
  186.     DB    'm'+80H
  187.     DB    ' '+80H
  188.     DB    'A'+80H
  189.     DB    's'+80H
  190.     DB    's'+80H
  191.     DB    'o'+80H
  192.     DB    'c'+80H
  193.     DB    'i'+80H
  194.     DB    'a'+80H
  195.     DB    't'+80H
  196.     DB    'e'+80H
  197.     DB    's'+80H
  198.     DB    ' '+80H
  199. CHECK$COPYRIGHT:
  200.     JNC    BANZAI    ; BANZAI FILE, IF COPYRIGHT CORRUPTED
  201.     LXI    H,SERIAL$NUMBER
  202.     MVI    B,40H
  203.     MVI    C,CHECK$SERIAL$NUMBER-HIDDEN$SERIAL$NUMBER
  204.     LXI    D,HIDDEN$SERIAL$NUMBER
  205.     CALL    INSTR
  206.     JMP    CHECK$SERIAL$NUMBER
  207.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  208. HIDDEN$SERIAL$NUMBER:
  209.     DB    'U'+80H
  210.     DB    'A'+80H
  211.     DB    'C'+80H
  212.     DB    '1'+80H
  213.     DB    '5'+80H
  214.     DB    '2'+80H
  215.     DB    '3'+80H
  216.     DB    '4'+80H
  217. CHECK$SERIAL$NUMBER:
  218.     JNC    BANZAI    ; BANZAI FILE, IF SERIAL NUMBER CORRUPTED
  219.     JMP    NOBANZAI; EXIT, FOR PURPOSES OF DEMO...
  220.             ; ...NORMAL EXECUTION OF FILE WOULD CONTINUE
  221.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  222. ; 
  223. ; 
  224. ; 
  225.  
  226. BANZAI:            ; BANZAI THE SPECIFIED FILE IN "TFCB"
  227.  
  228. ; 
  229. ; SCRAMBLE A WHILE TO MIX UP THE SEED
  230. ; 
  231.     MVI    H,0    ; GET 256 #'S
  232. MIXUP:    CALL    PSEURAN    ; GET A #
  233.     DCR    H    ; MORE?
  234.     JNZ    MIXUP    ; LOOP IF SO
  235. ;
  236. ;GET LOGGED IN DRIVE NUMBER
  237. ;
  238.     LDA    FCB    ; GET FROM "JUST LOADED" FILENAME
  239.     STA    TFCB    ; AND SAVE IN TEMPORARY FCB
  240. ; 
  241. ; SEE THAT THE INPUT FILE EXISTS
  242. ; 
  243.     CPM    OPEN,TFCB
  244.     INR    A    ; OK?
  245.     JNZ    SCRAMLP    ; YES, SCRAMBLE IT
  246.     CALL    ERXIT
  247.     DB    '++NO SUCH FILE++$'
  248.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  249. ; 
  250. ; READ THE FILE, SCRAMBLE A SECTOR, RE-WRITE IT.
  251. ; 
  252. SCRAMLP:CALL    RDSECT    ; READ A SECTOR
  253.     JC    FINISH    ; EXIT LOOP IF EOF
  254.     CALL    SCRAMBL    ; SCRAMBLE IT
  255.     CALL    BACKUP    ; RE-POSITION FOR WRITE
  256.     CALL    WRSECT    ; RE-WRITE THE SECTOR
  257.     JMP    SCRAMLP    ; LOOP UNTIL EOF
  258.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  259. ; 
  260. ; 
  261. FINISH:    CPM    CLOSE,TFCB
  262.     JMP    EXIT    ; THIS BETTER WORK..
  263.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  264. ; 
  265. ; SECTOR READ ROUTINE
  266. ; 
  267. RDSECT:    CPM    READ,TFCB
  268.     ORA    A
  269.     RZ        ; ALL OK
  270. ; 
  271. ; READ ERROR OR EOF
  272. ; 
  273.     CPI    1    ; EOF?
  274.     STC        ; CARRY SHOWS EOF
  275.     RZ        ; RET, CARRY SET
  276.     JMP    EXIT    ; GREAT, A READ ERROR MAY HAVE BANZAI'D THE FILE
  277.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  278. ; 
  279. ; SCRAMBLE THE SECTOR
  280. ; 
  281. SCRAMBL:LXI    H,80H    ; POINT TO SECTOR
  282. SCRLP:    CALL    PSEURAN    ; GET PSEUDO RANDOM #
  283.     XRA    M    ; SCRAMBLE
  284.     MOV    M,A
  285.     INR    L    ; MORE IN SECTOR?
  286.     JNZ    SCRLP
  287.     RET
  288.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  289. ; 
  290. ; BACKUP THE FILE POINTER FOR THE RE-WRITE
  291. ; 
  292. BACKUP:    LDA    FCBRNO    ; GET SECTOR #
  293.     DCR    A    ; BACK UP
  294.     STA    FCBRNO
  295.     RP        ; RETURN IF OK
  296. ; 
  297. ; WE BACKED UP INTO PREVIOUS EXTENT, WILL HAVE TO RE-OPEN IT
  298. ; 
  299.     LDA    FCBEXT    ; GET EXTENT
  300.     DCR    A    ; BACK UP 1
  301.     STA    FCBEXT
  302.     CPM    OPEN,TFCB ; RE-OPEN
  303.     INR    A
  304.     JNZ    OPEN2OK
  305.     JMP    EXIT    ; GREAT, OPEN ERROR MAY HAVE BANZAI'D THE FILE
  306.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  307. OPEN2OK:MVI    A,7FH    ; GET HI SECTOR
  308.     STA    FCBRNO
  309.     RET
  310.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  311. ; 
  312. ; WRITE BACK THE SECTOR
  313. ; 
  314. WRSECT:    CPM    WRITE,TFCB
  315.     ORA    A
  316.     RZ
  317.     JMP    EXIT    ; GREAT, WRITE ERROR MAY HAVE BANZAI'D THE FILE
  318.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  319. ; 
  320. ; GET A PSEUDO-RANDOM 8 BIT NUMBER USING THE PASSWORD AS A SEED
  321. ; 
  322. ;     FOR SPEED, THIS ROUTINE DOES NO REGISTER
  323. ;     PUSHES AND POPS, HOWEVER HL AREN'T USED.
  324. ; 
  325. PSEURAN:MVI    C,4    ; GRAB EVERY 4TH PSEU. #
  326. PSEULP0:MVI    B,8    ; SHIFT THRU 8 BYTES
  327.     LXI    D,PASSWD
  328.     ORA    A    ; CLEAR INITIAL CARRY
  329. PSEULP1:LDAX    D    ; GET A CHAR
  330.     RAR        ; SHIFT
  331.     STAX    D
  332.     INX    D
  333.     DCR    B
  334.     JNZ    PSEULP1
  335. ; EXCLUSIVE-OR THE LAST FEW BITS INTO THE FIRST ONE
  336.     DCX    D    ; BACK UP TO LAST
  337.     RAR
  338.     RAR        ; SHIFT A FEW MORE
  339.     XCHG
  340.     XRA    M
  341.     RRC        ; SHIFT LO BIT INTO HI
  342.     ANI    80H    ; ISOLATE SINGLE BIT
  343.     LXI    H,PASSWD ; GET FIRST BYTE
  344.      ORA    M    ; 'OR' IN THE BIT
  345.     MOV    M,A    ; MOVE IT BACK
  346.     XCHG        ; RESTORE HL
  347.     DCR    C
  348.     JNZ    PSEULP0    ; LOOP IF MORE PASSES
  349.     RET
  350.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  351. ; 
  352. ; MOVE SUBROUTINES
  353. ; 
  354. MOVER:    MOV    A,M
  355.     STAX    D
  356.     INX    H
  357.     INX    D
  358.     DCX    B
  359.     MOV    A,B
  360.     ORA    C
  361.     JNZ    MOVER
  362.     RET
  363.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  364. ; 
  365. ; EXIT WITH ERROR MESSAGE
  366. ; 
  367. MSGEXIT    EQU    $    ; EXIT WITH MESSAGE
  368. ERXIT:    POP    D    ; GET MSG
  369.     MVI    C,PRNSTRG
  370.     CALL    BDOS
  371. ; 
  372. ; EXIT, CLOBBER MEMORY, RESTORE STACK, AND RETURN (HEH, HEH...)
  373. ; 
  374. ENDZ    EQU    $        ; END OF MEMORY TO BE CLOBBERD
  375. EXIT:    LXI    B,ENDZ-STARTZ    ; GET BYTE NUMBER TO CLOBBER
  376.     LXI    H,STARTZ    ; POINT TO START OF CLOBBER
  377. CLOBBER:MOV    M,A        ; DO IT...TO IT...
  378.     INX    H
  379.     DCX    B
  380.     MOV    A,B
  381.     ORA    C
  382.     JNZ    CLOBBER        ; CLOBBER ALL...
  383. NOBANZAI:            ; NO BANZAI REQUIRED...
  384.     LHLD    STACK
  385.     SPHL
  386.     RET        ; RETURN TO CP/M
  387.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  388.  
  389. PASSWD:    DB    'KILLFILE'
  390.     DB    LXIH    ;CONFUSE DISASSEMBLERS
  391.  
  392. TFCB:    DB    0,'BANZAI  COM',0,0,0,0
  393.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  394.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  395.  
  396.     DS    128    ; STACK AREA
  397. STACK    DS    2
  398.  
  399. ;
  400. ; BDOS/CBIOS EQUATES (VERSION 7)    
  401. ;
  402. RDCON    EQU    1
  403. WRCON    EQU    2
  404. PRNSTRG    EQU    9
  405. CONST    EQU    11
  406. OPEN    EQU    15
  407. CLOSE    EQU    16
  408. SRCHF    EQU    17
  409. SRCHN    EQU    18
  410. ERASE    EQU    19
  411. READ    EQU    20
  412. WRITE    EQU    21
  413. MAKE    EQU    22
  414. REN    EQU    23
  415. STDMA    EQU    26
  416. BDOS    EQU    5
  417. FCB    EQU    5CH 
  418. FCB2    EQU    6CH
  419. FCBEXT    EQU    TFCB+12
  420. FCBRNO    EQU    TFCB+32
  421.  
  422.     END
  423.