@MSG,N
@MSG,N ****************************************
@MSG,N * *
@MSG,N * *
@MSG,N * F A N G Q U A L I F I C A T I O N *
@MSG,N * *
@MSG,N * T E S T D E C K *
@MSG,N * *
@MSG,N * *
@MSG,N ****************************************
@MSG,N
@MSG,N THIS DECK ASSUMES THAT THE FANG SOURCE FILE HAS BEEN
@MSG,N COPIED INTO TPF$, AND THE USER EXPECTS THIS TPF$ FILE
@MSG,N TO BE DESTROYED.
@MSG,N
@ASG,TS T,T,SCR
@HDG,P ASK COMMAND VALIDATION
@.FANG,BE
ASK PLEASE TYPE IN 'READY'
ASK,H PLEASE TYPE IN CURRENT DATE: MMDDYY
@PMD,E
@HDG CLOSE COMMAND TESTING
@.FANG,BE
WRITE T
' ',28 END
CLOSE T
DUMP,M T,2
CLOSE TPF$.
@PMD,E
@HDG 'COMMANDS' COMMAND
@.FANG,BE
WRITE T,20
0,300 END
REWIND T
MARK T.
CLOSE T
COMMANDS
COMMANDS
COMMANDS
@HDG COMPARE COMMAND
@.FANG,BE
REWIND T
WRITE T
'DATA!!',224 END
CLOSE T
ASG,T WHONK,F
LENGTH WHONK,224
COPY,Q T.,WHONK.,1
REWIND T,WHONK
COMPARE T.,WHONK.,1
REWIND T.,WHONK.
GET WHONK,0
COR
-030,037
' *NEW*',8 END
PUT WHONK
COMPARE T.,WHONK.,1
REWIND T.,WHONK.
@HDG COPY COMMAND
@HDG CYCLE COMMAND
@HDG DELETE COMMAND
@HDG DUMP COMMAND
@.FANG,BE
ASG,T GEEP,F
ASG,T GOOP,D/1792 . HOPE WAD IS AVAILABLE !
REWIND T
WRITE,M T
(061062063064 065066067070 071060040040
0110105114114 0117040041040),5
'1234567890 HELLO !',5
1234567890,10
012345670123,10
END
WRITE GOOP
0,1792 END
COPY GOOP,GEEP
REWIND T
COPY,Q T,GOOP
REWIND GOOP
COPY GOOP,GEEP
REWIND T,GOOP,GEEP
LENGTH GOOP,1792
LENGTH GEEP,1792
DUMP,M T,1
DUMP GOOP
DUMP GEEP
DUMP,A GOOP
DUMP,I GOOP
DUMP,O GOOP
DUMP,AT GOOP
DUMP,OT GOOP
LENGTH GEEP,28
DUMP,S GEEP,60
REWIND GOOP,GEEP,T
DUMP,NM T,1
LENGTH GEEP,448
DUMP,N GEEP
DUMP,N GEEP,3
DUMP,N GOOP
@PMD,E
@HDG EDITING COMMANDS
@.FANG,BE
ASG,T WORK,F
WRITE WORK
'MMMMMM',1792 END
WRITE WORK
'666666',1792 END
REW WORK
LENGTH WORK,224
GET WORK,0
BLK
LST
STORE BINGO
GET WORK,64
STORE WHISTLE
BLK
REP 060,WHISTLE
'* 60 *' END
LST 0,070,WHISTLE
LOAD WHISTLE
LST
COR
-060,060
'VVVVVV' END
PUT WORK,18
LIST,S WORK,18
GET,U WORK,18
-061,061
'- 61 -' END
LST 060,5
PUT WORK
LIST,S WORK,18
REWIND,I WORK
@PMD,E
@HDG ERASE COMMAND
@.FANG,BE
ASG,T ERASE1,F
ASG,T ERASE2,F
WRITE ERASE1,2
'HELLO!',1792 END
ERASE ERASE1
REW ERASE1
DUMP ERASE1
WRITE ERASE1,2
'BYEBYE',1792 END
ERASE,W ERASE1
COPY ERASE1,ERASE2
WRITE ERASE2
0,1 END
REW ERASE2
LIST ERASE2
REWIND,I ERASE1,ERASE2
@PMD,E
@HDG FACILITY COMMAND VALIDATION
@.FANG,ABE
ASG,T ZIP,F///10000
ASG,T ZIP,F . FAC DIAG OK
ASG,CUPRW BOOGIE,F2 . FAC REJ OK
CAT ABERCROMBIE*FLEEBLE.,C,1552
ASG,AYQ ABERCROMBIE*FLEEBLE.
FREE,D ABERCROMBIE*FLEEBLE.
USE ZIPLES,ZIP
FREE ZIPLES
CAT RONGBONG*BIPPY.,F2
QUAL RONGBONG
ASG,AX *BIPPY.
FREE,D *BIPPY
MODE TPF$,2 . FAC REJ OK
CSF LOG FANG CSF COMMAND WORKS
CSF @LOG FANG CSF COMMAND WORKS AGAIN
FAC
FAC 000001000000
FAC
@PMD,E
@HDG FIND COMMAND
@.FANG,BE
TOC,L FANG
FIND FANG
STATUS TPF$.
@PMD,E
@HDG LENGTH COMMAND
@.FANG,BE
ASG,T Z,F
ASG,T D,D/1792
USE F,Z
STATUS TPF$,T,Z,D
LENGTH T,37
LENGTH F,55 . SHOULD ROUND TO 56
LIST F
REWIND T
WRITE T
'WHIRRR',37 END
WRITE T
'WHAMMY',437 END
WRITE,M T
'WIZBNG',13 END
REWIND T
DUMP T
REWIND T
LENGTH T,436
DUMP T
REWIND T
LENGTH D,19
LIST D
REWIND,I D,Z
@PMD,E
@HDG LIST COMMAND
@HDG LOCATE COMMAND
@HDG MARK COMMAND
@.FANG,BE
REWIND T
WRITE T
'HELLO DERE !!',20 END
MARK T,T,T,T
WRITE T
'FINAL FILE ',10 END
MARK T
REWIND T
DUMP,M T,5
REWIND T
MARK TPF$. SHOULD ERROR
@HDG OPTION COMMAND
@.FANG,BEXL
OPTION LIST
OPTION,L OFF
OPTION LIST
OPTION,Q ON
OPTION LIST
OPTION,WD IMPLY
OPTION LIST
OPTION,D REMOVE
OPTION LIST
OPTION,S IMPLY
TOC FANG
@PMD,E
@HDG PACK COMMAND
@HDG POSITION
@HDG PREPARE
@.FANG,BE
ASG,T WHIPSAW,F///1000
COPY TPF$.,WHIPSAW.
PREPARE WHIPSAW.
@PMD,E
@PRT,T WHIPSAW.
@.FANG,BE
PREPARE WHIPSAW.P***********/
@PMD,E
@PRT,T WHIPSAW.
@FREE WHIPSAW.
@HDG PRINT COMMAND
@ASG,T BEELZEBUB*SDFFILE.,F
@EDM SINK,BEELZEBUB*SDFFILE.
@.FANG,BE
PRINT SINK
PRINT,H SINK
PRINT,B SINK
PRINT,SI SINK
PRINT,P BEELZEBUB*SDFFILE.
@HDG PROTECT COMMAND
@.FANG,BE
ASG,T Z,F///10000
PROTECT Z,MYCROFTXXX
COPY TPF$,Z
PROTECT Z.
LIST,S Z.,1792
ASG,T Y,F///10000
PROTECT Z,MYCROFTXXX
COPY Z.,Y.
LIST,S Y.,1792
TOC Y.
PRINT Y.SINK
PROTECT T,MYSTERIOUS
REWIND T
COPY Y.,T.
REWIND T.
PROTECT T.
LIST T.,2
ERASE Z.
PROTECT T,MYSTERIOUS
REWIND T
PROTECT Z.
COPY T.,Z.
PRINT Z.SINK
REWIND T.
PROTECT T,WRONGKEY
COPY T.,Z.
LIST,S Z.,1792 SHOULD BE GARBAGE
ERASE Z.
REWIND T.
PROTECT T.
COPY T.,Z.
LIST,S Z,1792
REWIND T
PROTECT Z,MYSTERIOUS
LIST,S Z,1792
PROTECT Z.
LIST,S Z.,1792
COPY Z.,T.
REWIND T.
ERASE Z.
PROTECT T.,MYSTERIOUS
COPY T.,Z.
LIST,S Z,1792
PRINT Z.SINK
REWIND T
REWIND,I Y,Z
@PMD,E
@HDG REWIND COMMAND
@HDG SEARCH COMMAND
@HDG STATUS COMMAND
@HDG SWAP COMMAND
@HDG TELL COMMAND
@.FANG,BE
TELL THE WORLD ALL ABOUT IT
TELL,H ...IGNORE THE PREVIOUS MESSAGE
@PMD,E
@HDG TIME COMMAND
@.FANG,BE
TIME
TIME
TIME
TIME
TIME
@PMD,E
@HDG TOC COMMAND
@.FANG,BE
TOC
TOC,A
TOC,S
TOC,N
@PMD,E
@HDG TRANSFER COMMAND
@HDG TYPE COMMAND
@.FANG,BE
ASG,T F,F
TRANSFER SYM:SINK,F.WHIZBANG
TOC,H F.
TYPE .WHIZBANG,SYMBOLIC
TOC,H F.
TYPE .WHIZBANG,PLUS:
TOC,H .
TYPE .,COBP
TOC,H .
TYPE .,RELOCATABLE
TRANSFER REL:SINK,F.
TYPE .SINK,ASM
TYPE T.ZIZZ,ASM ERROR: TYPE ON TAPE FILE
@HDG UNDELETE COMMAND
@.FANG,BE
ASG,T F,F
TRANSFER SINK,F. ENTER SINK SEQ 1
TRANSFER F.,F. ENTER SINK SEQ 2
TRANSFER F.,F. ENTER SINK SEQ 3
TRANSFER F.,F. ENTER SINK SEQ 4
TOC,HD F.
UNDELETE,T F.SINK
TOC,HD F.
UNDELETE,T F.SINK SHOULD RESTORE BACK TO NORMAL
TOC,HD F.
UNDELETE,T F.,2
TOC,HD F.
UNDELETE,T F.,1
TOC,HD F.
UNDELETE,T F.
TOC,HD F.
UNDELETE T.SINK SHOULD ERROR - ON TAPE FILE
REWIND,I F
@PMD,E
@HDG WRITE COMMAND
@.FANG,BE
ASG,T FARBLE,F
WRITE T
0500130000000 '*SDFF*' (000700000000 ('KABONG' ('KABING'
'KAZANG',2),2)),20 0770000000000 END
WRITE T,2
'>FANG<',20 END
WRITE,M T
'GIZZARDS ARE NEAT',6 END
WRITE,M T
'******',24 END
REW T
DUMP,M T,2
REW T
WRITE FARBLE,2
'LIZARD',1792 END
WRITE,S FARBLE,512
'GIZARD',1792 END
REW FARBLE
DUMP FARBLE
COPY,Q T,FARBLE,1
@PMD,E
@DATA,L FARBLE.
@END
@FREE FARBLE
@HDG,N * END OF VALIDATION TESTS *
@MSG VALIDATION COMPLETE